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 .