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