Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*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 smc.vnet.net
  • Subject: [mg51679] Re: MovieParametericPlot-3D
  • From: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>
  • Date: Fri, 29 Oct 2004 03:38:56 -0400 (EDT)
  • Organization: Uni Leipzig
  • References: <clproj$a61$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

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