| Author |
Comment/Response |
Giulia
|
 07/07/08 09:36am
Thank you, it work! I learn a bit more.
I esistate to contact Stan directly, because i am not very smart in Mathematica, and i think always to be in error.
In meantime i find another solution (also by trial and error):
Animate[t = i 2 \[Pi]/(frames - 1);
Show[Graphics[{{GrayLevel[0.5], Disk[{t, 1}, 1]}, Circle[{t, 1}, 1],
Line[{{-1, 0}, {7, 0}}], {AbsoluteThickness[2],
Line[{{t, 1}, locus[[i + 1]]}]}, {AbsolutePointSize[3],
Map[Point, Take[locus, i + 1]]}}], AspectRatio -> Automatic,
PlotRange -> {{-1.5, 7.5}, {-0.2, 2.2}}, Frame -> True,
FrameTicks -> None], {i, 0, frames - 1, 1}]
Note: the only difference with the non working version is the iterator {i, 0, frames-1}. I add an '1' {i,0,i-1,1}.
But i don't understand why this version work!
{i, 0, frames-1} and {i, 0, frames-1,1} (as i know) is the same!!
If anyone undestand better, please help me.
Thank you
Giulia
URL: , |
|
