Re: Varying colors in Plot3D according to Height
- To: mathgroup at smc.vnet.net
- Subject: [mg55569] Re: Varying colors in Plot3D according to Height
- From: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>
- Date: Wed, 30 Mar 2005 03:21:01 -0500 (EST)
- Organization: Uni Leipzig
- References: <d1on4g$ncb$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi, I'm not sure if this is "aesthetically pleasing" but something like gr = Graphics3D[Plot3D[ Sin[x*y], {x, -Pi, Pi}, {y, -Pi, Pi}, PlotPoints -> 64, Mesh -> False]]; Show[ gr /. Polygon[pnts_] :> (zz = Max[Last /@ pnts]; {SurfaceColor[If[zz > 0, RGBColor[zz, 1 - zz, 0], RGBColor[1, 1, 1]]], Polygon[pnts]}) ] may help you. Regards Jens "Mark Coleman" <mark at markscoleman.com> schrieb im Newsbeitrag news:d1on4g$ncb$1 at smc.vnet.net... >I am plotting a three-dimension function using >Plot3D. I would like to > highlight the portion of the surface whose > height exceeds 1.0 a > different color or hue than the portion of the > surface below 1.0. My > attempts at using ColorFunction to do this have > been less than > aesthetically pleasing, to say the least. > Ideally, I'd like the portion > below 1.0 to retain the default Mathematica blue > shading (I'm using > Mathematica ver 5.1.1 on a Mac OS X 10.3.8), and > perhaps have the portion > above 1.0 to have a red shading. Any help would > be greatly appreciated. > > Thanks, > > -Mark >