Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1995
*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 1995

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

Search the Archive

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.







  • 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