This is the code for a simple pendulum simulation
g = 9.81;
l = 2;
Theta0 = 15 Pi/180
Animate[Graphics[
List[{Line[{{0, 0},
length {l Sin[T], -l Cos[T]}} /. {T -> Theta0 Cos[Sqrt[g/l] t]}],PointSize[0.1],
Point[{length {l Sin[T], -l Cos[T]}} /. {T ->Theta0 Cos[Sqrt[g/l] t]}]}],
PlotRange -> {{-0.3, 0.3}, {-0.5, 0}}], {t, 0, 5},
AnimationRate -> 1]
Do you know how can I draw the bob's trajectory as it moves? Thank you very much.
length
? $\endgroup$