Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

Re: Animation

  • To: mathgroup at smc.vnet.net
  • Subject: [mg112641] Re: Animation
  • From: "Sjoerd C. de Vries" <sjoerd.c.devries at gmail.com>
  • Date: Fri, 24 Sep 2010 04:09:54 -0400 (EDT)
  • References: <i7f2na$cum$1@smc.vnet.net>

Easy, use Take:

Manipulate[
 Graphics[{PointSize -> Large, Point[Take[place, i]]}, Frame -> True,
  PlotRange -> {{1, 10}, {1, 10}}], {i, 1, 4, 1}]

Cheers -- Sjoerd

On Sep 23, 10:22 am, "King, Peter R" <peter.k... at imperial.ac.uk>
wrote:
> I have a table of coordinates eg place={{10, 4}, {10, 7}, {10, 5}, {9, 7}}
>
> I want to make an animation of these points which adds them successively. so the following almost works (NB I know that ListAnimate would work as well and is possibly preferable)
>
> Manipulate[
>  Graphics[{PointSize -> Large, Point[place[[i]]]}, Frame -> True,
>   PlotRange -> {{1, 10}, {1, 10}}], {i, 1, 4, 1}]
>
> in that it displays the points successively. bu what I want is for the preceding points to be left visible (so the number of points grows). Needless to say the above is a trivial example, in practice I could have 10s of thousands of points and so want to be careful not to create very large arrays.
>
> Thanks



  • Prev by Date: Re: Using Mathematica remotely (installed on Mac, to be accessed
  • Next by Date: Re: Animation
  • Previous by thread: Re: Animation
  • Next by thread: Re: Animation