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 >