WOLFRAM NOTEBOOK

In[]:=
sol[t_]=θ[t]/.DSolve[{θ''[t]==-Sin[θ[t]],θ[0]-1,θ'[0]0.1},θ,t][[1]];​​Animate[Show[ListPlot[Re[{{Sin[sol[t]],-Cos[sol[t]]}}],PlotStylePointSize[0.02],PlotRange{{-2,2},{-2,2}},AspectRatio1],Graphics[Line[{{0,0},{Sin[sol[t]],-Cos[sol[t]]}}]]],{t,0,10}]
Out[]=
t
-2
-1
1
2
-2
-1
1
2
Wolfram Cloud

You are using a browser not supported by the Wolfram Cloud

Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.


I understand and wish to continue anyway »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.