Re: ContourPlots,DensityPlots
- To: mathgroup at smc.vnet.net
- Subject: [mg23591] Re: [mg23558] ContourPlots,DensityPlots
- From: BobHanlon at aol.com
- Date: Sun, 21 May 2000 18:12:57 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
In a message dated 5/20/2000 3:40:17 AM, hokepaul at pilot.msu.edu writes:
>I have a matrix of data I want to plot and show for a presentation.
>
>The problems I am having are as follows
>
>with ColorFunctionScaling->True, It doesn't seem that the colors have
>any thing to do with the actual values if I use a legend and use
>ColorFunction->Hue, the scale is on the plot doesn't equal the legend
>since the data is truncated to fit 0-1.
>
>I'm trying to divide by the largest value since all my data is positive
>
>and then the legend color scheme should fit the data plot except I don't
>
>have a zero in my data to peg the lower end. I hate to add a zero in my
>
>matrix just to fix the lower end of the color scheme, is that the only
>
>option?
>
>I can delineate which contours I want, but I can't label them. Is there
>
>anyway to print the value of contours? That is on the plot have each
>contour marked so that it isn't just a bunch of lines?
>
Needs["Graphics`Legend`"]
data = Table[
10.*Sin[x + y]Cos[x - y], {x, xmin = -Pi, xmax = Pi, Pi/24.}, {y,
ymin = -Pi, ymax = Pi, Pi/24.}];
Plot3D[10Sin[x + y]Cos[x - y], {x, xmin, xmax}, {y, ymin, ymax},
PlotPoints -> 25];
ShowLegend[
ListContourPlot[data, ColorFunction -> Hue, Contours -> 12,
ContourLines -> False, DisplayFunction -> Identity], {Hue[1 - #] &, 11,
ToString[Max[data]], ToString[Min[data]],
LegendPosition -> {1.1, -.4}}];
ShowLegend[
ListDensityPlot[data, ColorFunction -> Hue, Mesh -> False,
DisplayFunction -> Identity], {Hue[1 - #] &, 11, ToString[Max[data]],
ToString[Min[data]], LegendPosition -> {1.1, -.4}}];
Bob
BobHanlon at aol.com