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: [mg112645] Re: Animation
  • From: Barrie Stokes <Barrie.Stokes at newcastle.edu.au>
  • Date: Fri, 24 Sep 2010 04:10:37 -0400 (EDT)

Hi again Peter

(*****)
Manipulate[ 
  Graphics[ {PointSize -> Large, Point[ Take[ place, i ] ], 
   Line[ Take[ place, i ] ]}, Frame -> True,
    PlotRange -> {{1, 10}, {1, 10}} ], {i, 1, Length[ place ], 1} ]
(*****)

gives slightly more useful picture in some cases, perhaps?

Best

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



  • Prev by Date: Re: Animation
  • Next by Date: Re: Animation
  • Previous by thread: Re: Animation
  • Next by thread: Re: Animation