MathGroup Archive 2006

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

Search the Archive

SurfaceColor


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