Manipulate problems again
- To: mathgroup at smc.vnet.net
- Subject: [mg99103] Manipulate problems again
- From: sean_incali at yahoo.com
- Date: Mon, 27 Apr 2009 01:15:53 -0400 (EDT)
Hello group,
I'm having problems with this...
ClearAll["Global`*"]
Manipulate[
{
anpsol := NDSolve[{a''[t] == -k1 k2 a[t] - k1 a'[t] + k3 a'[t], a[0]
== k2/k1, a'[0] == 0 }, {a[t], a'[t]}, {t, 0, 20}];
Plot[Evaluate[{a[t], a'[t]} /. anpsol], {t, 0, 20}, PlotRange -> All,
FrameLabel -> {t, a and a'}, AspectRatio -> 1/GoldenRatio],
ParametricPlot[Evaluate[{a[t], a'[t]} /. anpsol], {t, 0, 20},
PlotRange -> All, FrameLabel -> {a, a'}, AspectRatio -> 1/
GoldenRatio]
},
{{k1, 0.1, 10}, {k2, 0.1, 10}, {k3,0.11, 10}, {b0, 0.1, 10}}]
Thanks for any insight.
Sean