Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'NDSolve a pendulum's DE' topicStudent Support Forum > General > "NDSolve a pendulum's DE"

< Previous Comment | Next Comment >Help | Reply To Comment | Reply To Topic
Author Comment/Response
yehuda ben-shimol
09/26/10 03:46am

Change the value of l or follow the given example, in which \[Alpha] replaces g/l

play with the slide bar to see the effect of changing the value

good luck
yehuda
**********************************************

Manipulate[
Module[{v0 = 5, sol},
sol = NDSolve[\[Theta]''[t] + \[Alpha] Sin[\[Theta][t]] ==
0 && \[Theta][0] == 0 && \[Theta]'[0] == v0, \[Theta], {t, 0,
20}];
Plot[\[Theta][t] /. sol[[1]], {t, 0, 20},
PlotLabel -> "\[Alpha] = " <> ToString[\[Alpha]], PlotPoints -> 50]
]
, {{\[Alpha], 5}, 0, 10}]

URL: ,

Subject (listing for 'NDSolve a pendulum's DE')
Author Date Posted
NDSolve a pendulum's DE Tom 09/24/10 4:12pm
Re: NDSolve a pendulum's DE yehuda ben-s... 09/26/10 03:46am
Re: Re: NDSolve a pendulum's DE Tom 09/26/10 8:29pm
< Previous Comment | Next Comment >Help | Reply To Comment | Reply To Topic