Services & ResourcesWolfram ForumsMathGroup Archive

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

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}]

• Follow-Ups:
  • Difficulty with Interpolation / FunctionInterpolation
    • From: Thomas Melehan <tpmelehan@gmail.com>