MathGroup Archive 2006

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

Search the Archive

SurfaceColor

  • To: mathgroup at smc.vnet.net
  • Subject: [mg70822] SurfaceColor
  • From: "dimitris" <dimmechan at yahoo.com>
  • Date: Sat, 28 Oct 2006 23:37:53 -0400 (EDT)

Hello to all.

lst = {r*Cos[u], r*Sin[u], Sqrt[r]*Sin[u/2]};

ParametricPlot3D[lst, {r, 0, 1}, {u, 0, 4*Pi}, PlotPoints -> {20, 60},
Boxed -> False, Axes -> False];

ParametricPlot3D[Append[lst, SurfaceColor[Hue[u/(4*Pi)]]], {r, 0, 1},
{u, 0, 4*Pi}, PlotPoints -> {20, 60}, Boxed -> False,  Axes -> False];

How exactly Mathematica produces the second plot?
Is it possible to get the same output changing an option
of ParametricPlot3D (e.g. ColorOutput)?

FrontEndExecute[{HelpBrowserLookup["RegGuide", "SurfaceColor"]}]

Thanks
Dimitris


  • Prev by Date: Expanding logical expressions
  • Next by Date: Re: Searching for a function
  • Previous by thread: Expanding logical expressions
  • Next by thread: Re: SurfaceColor