MathGroup Archive 1995

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

Search the Archive

A Fancy Animation


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.







  • Prev by Date: Summary: renaming in Function[] and Module[]
  • Next by Date: Softball Fourier Question
  • Previous by thread: Summary: renaming in Function[] and Module[]
  • Next by thread: Softball Fourier Question