MathGroup Archive 2004

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

Search the Archive

Re: MovieParametericPlot-3D


and if you write the Table[] by hand ?

lst = Table[

  Block[{$DisplayFunction = Identity},
     ParametricPlot3D[{Cos[w*t]*Sin[t], Sin[w*t]*Sin[t], Cos[t]},

    {t, 0, Pi}, PlotPoints -> 10*w]
], {w, 10, 200, 25}];

Show[GraphicsArray[Partition[lst, 2]]]



"news" <symbio at> schrieb im Newsbeitrag 
news:clproj$a61$1 at
> THere is a MovieParametricPlot in 2-D, but is there a MovieParametricPlot 
> in
> 3D also? Or someother way of making it from existing Mathematica 
> functions?

  • Prev by Date: Calabi-Yau Manifold visualization
  • Next by Date: gridlines styles.
  • Previous by thread: MovieParametericPlot-3D
  • Next by thread: Re: MovieParametericPlot-3D