Re: Animate

*To*: mathgroup at smc.vnet.net*Subject*: [mg50354] Re: [mg50342] Animate*From*: Murray Eisenberg <murray at math.umass.edu>*Date*: Sun, 29 Aug 2004 03:54:01 -0400 (EDT)*Organization*: Mathematics & Statistics, Univ. of Mass./Amherst*References*: <200408280837.EAA19053@smc.vnet.net>*Reply-to*: murray at math.umass.edu*Sender*: owner-wri-mathgroup at wolfram.com

Here's one simple-minded way: Evaluate the input cell: Table[Show[Graphics[ Circle[{0, 0}, {1, t}], AspectRatio -> Automatic]], {t, 0.1, 1, 0.1}]; This will produce a whole table of graphics display cells. Now: 1. select the cell bracket enclosing the entire group of those display cells. (You may collapse the entire group if you wish, but be sure that one of the cells, say the first one, is visible on screen.) 2. From the Cell menu select Animate Selected Graphics (or use the shortcut key equivalent, e.g., Ctrl-Y is Windows). I said "simple-minded" above because this way necessitates manual intervention. There are fancy ways to have the graphic display cell group close automatically and be animated automatically. But it wasn't clear from your question how fancy you wanted to get. Steve Gray wrote: > 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 > > -- Murray Eisenberg murray at math.umass.edu Mathematics & Statistics Dept. Lederle Graduate Research Tower phone 413 549-1020 (H) University of Massachusetts 413 545-2859 (W) 710 North Pleasant Street fax 413 545-1801 Amherst, MA 01003-9305

**References**:**Animate***From:*Steve Gray <stevebg@adelphia.net>