I am trying to represent the motion of a particle along a given trajectory. So I defined the following functions
x[t_] := Cos[t]
y[t_] := Sin[t]
T[t_] := {x[t], y[t]}
Trajectory = ParametricPlot[T[t], {t, 0, 2*Pi}, ImageSize -> Large,AspectRatio -> 1];
P[t_] := Point[T[t]]
V[t_] = Arrow[{T[t], T[t] + {x'[t], y'[t]}}];
and so I give the command
Animate[Show[Trajectory, Graphics[V[t], P[t]]], {t, 0, 2*Pi}]
but unfortunately the final result is really stranger and moreover I do not see the point P in the motion but only the velocity vectors and the trajectory that strangely changes its size. So could someone help me, please?
Show
by addingPlotRange
and wrappingV[t]
andP[t]
into a list:Show[Trajectory, Graphics[{V[t], P[t]}], PlotRange -> {{-2, 2}, {-2, 2}}]
. $\endgroup$