Shading Functions

*To*: mathgroup at smc.vnet.net*Subject*: [mg14293] Shading Functions*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[1]:= 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[2]:= PlotRange[p1] Out[2]= {{-1.,1.},{-2.,2.},{-1.04461,1.04461}} In[3]:= zrange=PlotRange[p1][[3]] Out[3]= {-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[4]:= (0.4 zrange+0.4) Out[4]= {-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[5]:= Clear[colorFun]; colorFun[z_]:=Hue[0.4(z+1)] In[6]:= 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[7]:= 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

**Follow-Ups**:**Re: Shading Functions***From:*Jurgen Tischer <jtischer@col2.telecom.com.co>