Re: color in ListContourPlot
- To: mathgroup at smc.vnet.net
- Subject: [mg2250] Re: [mg2230] color in ListContourPlot
- From: Peder Thusgaard Ruhoff <ptk at imada.ou.dk>
- Date: Wed, 18 Oct 1995 01:56:03 -0400
On Tue, 17 Oct 1995, Elizabeth Kraemer <kraemer at service1.uky.edu> wrote:
>
> I want to do a ListContourPlot with a specific color range (from
> white/purple to red). If I just use "Hue", the high and low values are red.
> I've got a lot of contours, so I want to avoid having to define a color
> individually for each one. I'm running Mathematica on a Windows machine.
> Thanks for the help! -Beth
>
>
Dear Beth,
You can use the option ColorFunction.
First let us generate an array of numbers
In[1]:= a = Table[
Sin[x Sin[y Cos[x]]],
{x, -Pi, Pi, Pi/20},
{y, -Pi, Pi, Pi/20}
];
We can get a contour plot in the following way
In[2]:= ListContourPlot[a]
Out[2]= -ContourGraphics-
Now, to change the coloring of the contours we can do the following
In[3]:= ListContourPlot[a, ColorFunction -> (GrayLevel[0.5 + #/2]&)]
Out[3]= -ContourGraphics-
which on my B/W monitor makes the plot much "lighter". I guess you can
do the same in your problem with something like
ColorFunction -> (Hue[#/2]&)
Of course, if you don't like the pure function approach you can define
a function, e.g.
In[4]:= MyOwnColorFunction[val_] := Hue[0.5 + val/2]
In[5]:= ListContourPlot[a, ColorFunction -> MyOwnColorFunction]
Out[5]= -ContourGraphics-
Good luck,
Peder
------------------------------------------------------------------------------
Peder Thusgaard Ruhoff Phone: (+45) 66 15 86 96, ext. 2411
Dept. of Mathematics and Computer Science Fax: (+45) 65 93 26 91
Odense University, Campusvej 55 Email: ptk at imada.ou.dk
DK-5230 Odense M, DENMARK
"It is important for him who wants to discover not to confine himself
to one chapter of science, but to keep in touch with various others."
- Jacques Hadamard
------------------------------------------------------------------------------