       • To: mathgroup at smc.vnet.net
• From: Des Penny <penny at suu.edu>
• Date: Tue, 13 Oct 1998 01:21:12 -0400
• Organization: Southern Utah University
• Sender: owner-wri-mathgroup at wolfram.com

```Hi Folks:

I'm having trouble invoking the shading function in one form.

The following works ok:

In:=
p1=Plot3D[Sin[x y],{x,-1,1},{y,-2,2}, AxesLabel->{X,Y,Z}];

If we map the range of the plot into {0,0.8}, we will now be able to
color the heights of a plot so that the lowest points are red and the
highest points are Blue/Purple.

In:=
PlotRange[p1]
Out=
{{-1.,1.},{-2.,2.},{-1.04461,1.04461}}

In:=
zrange=PlotRange[p1][]
Out=
{-1.04461,1.04461}

The max and min values of Sin are {-1,1}, so this checks.

We now want to map the heights, z, into the range {0,0.8}. Using the
linear map, c=a z+b we find c=0.40 z+0.40 will work.

In:=
(0.4 zrange+0.4)
Out=
{-0.0178423,0.817842}

If we now operate on each z value with Hue we will display this z value
in the correct color:

In:=
Clear[colorFun];
colorFun[z_]:=Hue[0.4(z+1)]

In:=
p2=Plot3D[{Sin[x y], colorFun[Sin[x y]]},{x,-1,1},{y,-2,2},
AxesLabel->{X,Y,Z}];

This works fine.

However the following does not work correctly.  I'm not sure why.

In:=
Show[p2, ColorFunction->colorFun];

I was under the impression that the above statement caused colorFun to
operate on the z values of the function.  We should get the same plot
as the preceeding Plot3D but we don't.  The output of the above clearly
shows that colorFun is operating, but not correctly.

Can anyone help explain what's going on?

Cheers,

Des Penny

```

• Prev by Date: Help With PlotLegend, please.
• Next by Date: Electrodynamics