| 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: , |
|
