Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

[Date Index] [Thread Index] [Author Index]

Search the Archive

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]


  • Prev by Date: Using the Notation package in an application
  • Next by Date: Re: Hardware question
  • Previous by thread: Using the Notation package in an application
  • Next by thread: Re: Draw3D ColorFunction->Hue