MathGroup Archive 2000

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Animate multiple listplots

  • To: mathgroup at
  • Subject: [mg25314] Re: [mg25247] Animate multiple listplots
  • From: Tomas Garza <tgarza01 at>
  • Date: Tue, 19 Sep 2000 03:45:44 -0400 (EDT)
  • Sender: owner-wri-mathgroup at

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.

data = Table[{x, Exp[-x]}, {x, 0, 4.999, 0.001}];
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):

abz = Table[
    ListPlot[groupsOfData[[n]], PlotJoined -> True,
      PlotRange -> {{0, 5}, {0, 1}},
      PlotStyle -> {Hue[1], PointSize[0.03]}], {n, 1, 

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> 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