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.