Services & Resources / Wolfram Forums
MathGroup Archive
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

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

Search the Archive

Re: MovieParametericPlot-3D

  • To: mathgroup at
  • Subject: [mg51679] Re: MovieParametericPlot-3D
  • From: "Jens-Peer Kuska" <kuska at>
  • Date: Fri, 29 Oct 2004 03:38:56 -0400 (EDT)
  • Organization: Uni Leipzig
  • References: <clproj$a61$>
  • Sender: owner-wri-mathgroup at


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