       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:=
data = Table[{x, Exp[-x]}, {x, 0, 4.999, 0.001}];
In:=
Length[data]
Out=
5000
In:=
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:=
abz = Table[
ListPlot[groupsOfData[[n]], PlotJoined -> True,
PlotRange -> {{0, 5}, {0, 1}},
PlotStyle -> {Hue, 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 .

```

• Prev by Date: Q: How to avoid WriteBinary to write an extra nul after each call ?
• Next by Date: Re: Limit of sequence
• Previous by thread: Re: Animate multiple listplots
• Next by thread: shortcut for cell style