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

One Beautiful Animation

  • To: mathgroup at christensen.cybernetics.net
  • Subject: [mg382] One Beautiful Animation
  • From: Xah Y Lee <xyl10060 at fhda.edu>
  • Date: Fri, 30 Dec 1994 08:39:22 -0800 (PST)

Hi, MathGroupers.

Here's a beautiful animation you might enjoy.
--
Needs["Graphics`Graphics`"]

Do[
        PolarPlot[Sin[n t], {t,0, 5 Pi},
                PlotRange->{{-1,1},{-1,1}},
                PlotStyle->{Hue[0]},
                PlotLabel-> Sin[n t],
                Ticks->{{-1,-.5,.5,1},{-1,-.5,.5,1}}
        ],
        {n, 1,3,.01}
]
--

This animation took a minimun of 24M RAM (virtual memory OK). If you 
can't assign that much memory to your mma, you might decrease the number 
of frames generated by changing the iteration to {n, 1, 2, .01} (keep the 
step size .01 for smoothness), or 
you can make your default graphic size smaller by activating the "Edit 
Styles..." menu under Style menu, then change the "Default Graphic Size" 
by dragging the handles. (for Mac frontends) 

This animation took my 030/50Mhz computer with stud version of mma about 1 
hour. Maybe 8 min on a PowerMac.

Enjoy! Happy new year.

 Xah Lee               xyl10060 at tiptoe.fhda.edu
 Mountain View, CA
 Quote of the day:     I won't believe it until I see it!
                                   --a sad mathematician.


  • Prev by Date: FindMinimum in specified range if gradient cannot be found symbolically
  • Next by Date: Wave File Conversion
  • Previous by thread: FindMinimum in specified range if gradient cannot be found symbolically
  • Next by thread: Wave File Conversion