Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'arrow command' topicStudent Support Forum > General > "arrow command"

Help | Reply To Topic
Author Comment/Response
Helen
05/28/08 11:41pm

Hi,
I am having a problem creating an animation using the arrow command below is the code which I have used. any help would be appreciated...the code shows the circle but not the arrow.


r[t_] := {2Cos[t], 2Sin[t]};
t0 = π/4;
AveRateChange[dt_, t0_] := (r[t0 + dt] - r[t0])/dt
<< Graphics`Arrow`
Clear[t, t0, dt]
r[t_] := {2Cos[t], 2Sin[t]};
v[t0_, dt_] = Arrow[r[t0], r[t0] + AveRateChange[dt, t0]];
mycurve = ParametricPlot[r[t], {t, 0, π}, AspectRatio -> Automatic,
PlotRange -> {{-3, 3}, {-3, 3}}]
Table[Show[Graphics[mycurve, v[t0, dt], {t0, 0, π}]], {dt, 1.5, .001, -.05}];


URL: ,
Help | Reply To Topic