Mathematics & Science Learning Center
Computer Laboratory

Applications of Differential Equations

The Simple Pendulum

(continued from last page...)

After a fairly long think, Mathematica should have returned:

actsol=NDSolve[{y''[t]+9.8 Sin[y[t]]==0, y[0]==y0, y'[0]==v0},y[t],{t,0,15}]

Now do the [[1,1,2]] trick again, this time on actsol. (I'm not going to give you the command this time--good grief, you've seen it enough times by now.)

Go on, get to work!

Moving on...

If you're lost, impatient, want an overview of this laboratory assignment, or maybe even all three, you can click on the compass button on the left to go to the table of contents for this laboratory assignment.