Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*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 2004

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

Search the Archive

Re: Animate

  • To: mathgroup at smc.vnet.net
  • Subject: [mg50355] Re: Animate
  • From: "Steve Luttrell" <steve_usenet at _removemefirst_luttrell.org.uk>
  • Date: Sun, 29 Aug 2004 03:54:02 -0400 (EDT)
  • References: <cgph9p$iot$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

This creates the sort of animation you want:

<< Graphics`ImplicitPlot`

g = Table[ImplicitPlot[(x/(1/t))^2 + (y/t)^2 == 1,
     {x, -2, 2}, {y, -2, 2}], {t, 0.5, 2, 0.1}];

The frames of the animation appear scrolling one after another as they are 
generated, but if you close the output cell group and do Cell | Animate 
Selected graphics you get a changing display in place.

You can save this as an animated GIF as follows:

Export[<filename>, g, "GIF", ConversionOptions -> {"Loop" -> True}]

Steve Luttrell

"Steve Gray" <stevebg at adelphia.net> wrote in message 
news:cgph9p$iot$1 at smc.vnet.net...
> Could someone show me how to use animate? As an example, suppose I want to 
> animate (which I
> assume means to create a changing display in place, not scrolling), of an 
> ellipse going from a
> circle to a highly eccentric one.
> It must be pretty easy, but I don't quite get it from reading the Help. 
> Thanks for any info.
>
> Steve Gray
> 



  • Prev by Date: Re: Animate
  • Next by Date: Re: Animate
  • Previous by thread: Re: Animate
  • Next by thread: Re: Animate