Plotting the solution of an ODE

  • Context: Mathematica 
  • Thread starter Thread starter Robin04
  • Start date Start date
  • Tags Tags
    Ode Plotting
Join the discussion
Registration is free. Ask a follow-up in this thread, or start your own.
3 replies · 2K views
Robin04
Messages
259
Reaction score
16
I'm trying to plot the solution to an ODE (with given initial values) but there are some constants in it that I want to evaluate with sliders and I'm not sure what is the right syntax for this.

Code:
Manipulate[Plot[solution1[t], {t, 0, 10}, PlotRange -> {-Pi, Pi}],
{{a, 1, "Driving amplitude"}, 0, 10, Appearance -> "Labeled"},
{{g, 9.81, "Gravitational acceleration"}, 0, 10,
  Appearance -> "Labeled"},
{{l, 1, "Length"}, 0, 10, Appearance -> "Labeled"},
{{\[Gamma], 1, "Driving frequency"}, 0, 10, Appearance -> "Labeled"}]

K-pkiv-g-s.png


K-pkiv-g-s.png


If I copy solution1 explicitly into plot it works, but if I refer to it by the variable name it doesn't. What's the correct syntax for this?
 

Attachments

  • K-pkiv-g-s.png
    K-pkiv-g-s.png
    34.3 KB · Views: 547
  • K-pkiv-g-s.png
    K-pkiv-g-s.png
    12.9 KB · Views: 493
Physics news on Phys.org
I have had consistent success with putting all the needed definitions and functions inside the Manipulate

Manipulate[
sol=p[t]/.DSolve[{a p''[t]==p[t],p[0]==0,p'[0]==a},p[t],t][[1]];
Plot[sol,{t,0,4}],
{{a,1},0,4}
]