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
>