Re: Animation
- To: mathgroup at smc.vnet.net
- Subject: [mg112644] Re: Animation
- From: Barrie Stokes <Barrie.Stokes at newcastle.edu.au>
- Date: Fri, 24 Sep 2010 04:10:27 -0400 (EDT)
Hi Peter
I guess you'll get around 10s of thousands of replies :-) to this one, but in any case the following is what I came up with in short order.
(*****)
place = RandomReal[ {0, 10}, {100, 2} ];
Manipulate[
Graphics [{PointSize -> Large, Point[ Take[ place, i ] ]},
Frame -> True,
PlotRange -> {{1, 10}, {1, 10}} ], {i, 1, Length[ place ], 1}]
(*****)
Hope this helps
Barrie
>>> On 23/09/2010 at 6:22 pm, in message <201009230822.EAA13282 at smc.vnet.net>,
"King, Peter R" <peter.king 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