Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

Re: Wire Frame Surface_Rainbow Colored

  • To: mathgroup at smc.vnet.net
  • Subject: [mg111357] Re: Wire Frame Surface_Rainbow Colored
  • From: Patrick Scheibe <pscheibe at trm.uni-leipzig.de>
  • Date: Wed, 28 Jul 2010 07:26:21 -0400 (EDT)

Hi,

the documentation to MeshStyle suggests that there is no such way like
you have for the surface with ColorFunction. But you could color the
meshlines by yourself

gr = Normal@
  Plot3D[Exp[-x^2 - y^2], {x, -2, 2}, {y, -2, 2}, PlotStyle -> None, 
   MeshStyle -> {Thick}, Mesh -> 10, Boxed -> False, Axes -> False];
gr /. Line[
   pts__] :> ({Hue[Last@First@#], Line[#]} & /@ Partition[pts, 2, 1])

Cheers
Patrick


On Wed, 2010-07-28 at 02:51 -0400, Bill wrote:
> Hi:
> 
> I have the following Mathematica 6.0.1 code:
> 
> Plot3D[Exp[-x^2 - y^2], {x, -2, 2}, {y, -2, 2}, PlotStyle -> None, 
> Mesh -> 10, MeshStyle -> {Directive[{Thick, Cyan}], Directive[{Thick, Gray}]}, 
> Boxed -> False, Axes -> False]
>  
> The plot appears as a wire framed surface, with 2 different colors.
> 
> Question: How can I make the wire frame to have a rainbow colored appearance?
> I don't want a skinned surface.
> 
> 
> Thanks,
> 
> Bill
> 



  • Prev by Date: How to remove cells with a style?
  • Next by Date: Re: FindRoot with NDSolve inside of it doesn't work
  • Previous by thread: Wire Frame Surface_Rainbow Colored
  • Next by thread: NDSolve for catenary