Draw3D ColorFunction->Hue

*To*: mathgroup at smc.vnet.net*Subject*: [mg60336] Draw3D ColorFunction->Hue*From*: Janwillem <j.vandijk at xyz-nl.com.nijmegen.internl.net>*Date*: Tue, 13 Sep 2005 06:07:31 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

I want to make a 3D surface plot of which the colour changes depending on the z-value over the full hue-range. With just Plot3D this works. However, I want the z-axis legend vertical and therefore thought of using David Park's package using Draw3D and Draw3DItems. This however refuses to take ColorFunction as an option. 1) Is there a solution for this colouring problem? 2) How do I get the z-label to the left of the plot and still have the box along the plot-axes? Thanks for the help Janwillem <<Graphics`Graphics` <<Graphics`Graphics3D` <<DrawGraphics`DrawingMaster` fsize=14; tstyle={FontFamily\[Rule]"Helvetica",FontSize\[Rule]fsize, FontWeight\[Rule]"Bold"}; muConcrete=2.3*0.05; LConcrete=10; FConcrete=0.14; lConcrete=10; RnCorrection=1-F (L/lambda)Cosh[x/lambda]/Sinh[L/lambda]//FullSimplify f=RnCorrection/.{mu->muConcrete,L->LConcrete,F\[Rule]FConcrete}; p3d=Plot3D[f,{lambda,5,15},{x,-LConcrete,LConcrete}, ColorFunction\[Rule](Hue[0.75*(1-#)]&), AxesLabel\[Rule]{"Path length (cm)","Depth (cm)","Correction factor"}, BoxRatios\[Rule]{1,1,0.7},TextStyle->tstyle,ImageSize\[Rule]500]; pl=Draw3D[f,{lambda,5,15},{x,-LConcrete,LConcrete}]; Draw3DItems[{pl,{Text["Correction factor",{5,-10,0.85},{-.6,0},{0,1}, TextStyle\[Rule]tstyle]}},Axes\[Rule]Automatic, AxesLabel\[Rule]{"Path length (cm)","Depth (cm)",""}, BoxRatios\[Rule]{1,1,0.7},TextStyle->tstyle,ImageSize\[Rule]500]