>>Liebe MATHEMATICA-User,
>>
>>ich stehe im Moment vor dem folgenden, vermutlich ziemlich einfach zu=20
>>l=F6senden, Problem:
>>
>>In einem DensityPlot m=F6chte ich gerne eine selbstdefinierte Farbtabelle=
>>=20
>>benutzen. Diese Farbtabelle m=FC=DFte so aussehen, da=DF ich in etwa den=20
>>Farbverlauf Blau -> Gr=FCn -> Gelb -> Orange -> Rot bekomme, wobei die=20
>>niedrigen Werte blau und die h=F6heren Werte rot dargestellt werden=20
>>sollen.=20
>>
>>Da ich nicht wei=DF, wie ich einen derartigen Farbverlauf realisieren=20
>>kann, w=E4re ich dankbar, wenn mir jemand einen hei=DFen Tip geben k=F6nn=
>>te.
>>
>>
>>Vielen Dank im voraus f=FCr alle Bem=FChungen=20
>>
>>Hendik Willig
>>
>>
--------------------------------------------------------------------
Hallo Hendrik,
ich benutze die ColorFunction-Anweisung, um diesen Farbverlauf
zu erreichen, in dem nur ein bestimmter Bereich der Hue-Farbtabelle
verwendet wird:
Beispiel -- Feldbild Hertzscher Dipol:
==================================================================
Mathematica 3.0 for Solaris
Copyright 1988-96 Wolfram Research, Inc.
-- X11 windows graphics initialized --
In[1]:= k=1;
omega=1;
(* Feldlinienbilder, Funktion nach Lehner:"Feldtheorie",S.468 *)
f[r_,theta_,t_]:=Sin[theta]^2*Sqrt[1/(k^2*r^2)+1]*Sin[omega*t-k*r+ArcTan[k*r]];
In[2]:=
In[3]:=
In[4]:=
In[5]:= DensityPlot[f[Sqrt[x^2+y^2],ArcTan[y/x],0.0],{y,-15,15},{x,-15,15},
PlotPoints->60,PlotRange->{-1,1},
PlotLabel->FontForm[StringJoin["t=",ToString[0]],{"Helvetica",12}],
Frame->False,
ColorFunction->(Hue[0.7-0.7*Abs[#]*Sign[#]]&)
]
Out[5]= -DensityGraphics-
In[6]:= ContourPlot[f[Sqrt[x^2+y^2],ArcTan[y/x],0.0],{y,-15,15},{x,-15,15},
PlotPoints->60,PlotRange->{-1,1},ContourLines -> False,
PlotLabel->FontForm[StringJoin["t=",ToString[0]],{"Helvetica",12}],
ContourSmoothing->True,Contours->40,Frame->False,
ColorFunction->(Hue[0.7-0.7*Abs[#]*Sign[#]]&)
]
Out[6]= -ContourGraphics-
==================================================================
MfG, Torsten Harnisch
______________________________________________________________________
|#####################################################################
|# |#
|# Dr.-Ing. Torsten Harnisch |#
|# Technical University of Ilmenau |#
|# Dept. of the Fundamentals and Theory of Electrical Engineering |#
|# P.O.Box 100565 |#
|# D-98684 Ilmenau |#
|# Germany |#
|# |#
|# ---------------------------------------------------------------- |#
|# |#
|# room : H2526 |#
|# phone : (+49) 3677 / 691185 |#
|# fax : (+49) 3677 / 691152 |#
|# email : harnisch@XXXXXXX.de |#
|# internet : http://nor.e-technik.tu-ilmenau.de |#
|# |#
|#__________________________________________________________________|#
|#####################################################################
|