MathGroup Archive 2004

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

Search the Archive

Re: MovieParametericPlot-3D


Hi,

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]]]

Regards

  Jens

"news" <symbio at s.dn.com> schrieb im Newsbeitrag 
news:clproj$a61$1 at smc.vnet.net...
> 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