Mathematisches Pendel

Numerische Lösung für verschiedene Anfangsbedingungen.

NDSolve[{φ''[t]==-Sin[φ[t]],φ[0]==0,φ'[0]==1},φ[t],{t,0,50}]
Plot[φ[t]/.%,{t,0,50},ImageSize->600]

NDSolve[{φ''[t]==-Sin[φ[t]],φ[0]==0,φ'[0]==1.9999},φ[t],{t,0,50}]
Plot[φ[t]/.%,{t,0,50},ImageSize->600]

NDSolve[{φ''[t]==-Sin[φ[t]],φ[0]==0,φ'[0]==1.9999999},φ[t],{t,0,50}]
Plot[φ[t]/.%,{t,0,50},ImageSize->600]

NDSolve[{φ''[t]==-Sin[φ[t]],φ[0]==0,φ'[0]==2.00001},φ[t],{t,0,50}]
Plot[φ[t]/.%,{t,0,50},ImageSize->600]

NDSolve[{φ''[t]==-Sin[φ[t]],φ[0]==0,φ'[0]==2.1},φ[t],{t,0,50}]
Plot[φ[t]/.%,{t,0,50},ImageSize->600]

NDSolve[{φ''[t]==-Sin[φ[t]],φ[0]==0,φ'[0]==-2.1},φ[t],{t,0,50}]
Plot[φ[t]/.%,{t,0,50},ImageSize->600]