Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2000
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2000

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

Search the Archive

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 .


  • 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