Re: Animate multiple listplots

*To*: mathgroup at smc.vnet.net*Subject*: [mg25314] Re: [mg25247] Animate multiple listplots*From*: Tomas Garza <tgarza01 at prodigy.net.mx>*Date*: Tue, 19 Sep 2000 03:45:44 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

I suggest the following example to illustrate one possible approach. I take values of the negative exponential function at intervals of 0.001 from 0 to 5. In[1]:= data = Table[{x, Exp[-x]}, {x, 0, 4.999, 0.001}]; In[2]:= Length[data] Out[2]= 5000 In[3]:= groupsOfData = Partition[data, 50]; Here I have 100 sets of 50 coordinates each. Then I listplot each set (you'll get 100 plots and your machine may feel uncomfortable about this, but that's another problem): In[4]:= abz = Table[ ListPlot[groupsOfData[[n]], PlotJoined -> True, PlotRange -> {{0, 5}, {0, 1}}, PlotStyle -> {Hue[1], PointSize[0.03]}], {n, 1, Length[groupsOfData]}] Then (in Version 4) select all the plots (click on the cell bracket for the plots together), then Cell| CellGrouping|Open/CloseGroup, and finally Cell|AnimateSelectedGraphics. You'll be able to see a nice animation. Tomas Garza Mexico City Andrew R. Harris <quadratic at earthlink.net> wrote: > I have a list of 5000 pairs of coordinates. I am looking for a way to > read the list in increments of 50 sets of coordinates. plot the lists > and then animate the plots .