A Fancy Animation
- To: mathgroup at christensen.cybernetics.net
- Subject: [mg595] A Fancy Animation
- From: Xah Y Lee <xyl10060 at fhda.edu>
- Date: Thu, 23 Mar 1995 02:09:36 -0800 (PST)
Dear MathGroupers,
here is a fancy animation for your fancy computer.
Do[
ParametricPlot3D[
{ Cos[t] Sin[x], Sin[t] Cos[x] , t+i},
{x,-Pi, Pi}, {t, -2 Pi, Pi},
PlotRange->{{-1,1},{-1,1},{-2.5,2.5}},
AxesLabel -> {"x","y","z"},
PlotPoints->{30,100}
],
{i,0,Pi,Pi/32}
]
if your computer is not fancy, I suggest you reduce PlotPoints to
something like {5,20}.
On my poor 030/50Mz machine, each frame takes 7 minutes, a total of close
to 4 hours of computer time plus 40 Megabyte memory (virtual, of
course).
Xah Lee
A Man of important IDEAS.