Mathematica 9 is now available
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: [mg112637] Re: Animation
  • From: lightnation <lightnation at naver.com>
  • Date: Fri, 24 Sep 2010 04:09:11 -0400 (EDT)
  • References: <i7f2na$cum$1@smc.vnet.net>

Maybe,

placetemp = Map[Take[place, #] &, Range[Length[place]]];

points = Map[{PointSize[0.03],
     RGBColor[Length[#]/Length[placetemp], 0, 0], Point[#]} &,
   placetemp];

Animate[Graphics[points[[k]], Frame -> True,
  PlotRange -> {{0, 10}, {0, 10}}], {k, 1, Length[points], 1}]


  • Prev by Date: Re: Animation
  • Next by Date: Histogram3D Log scale
  • Previous by thread: Re: Animation
  • Next by thread: Difficulty with Interpolation / FunctionInterpolation