Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

[Date Index] [Thread Index] [Author Index]

Search the Archive

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



  • Prev by Date: Re: MaxValue
  • Next by Date: Re: MaxValue
  • Previous by thread: Re: ContourPlot, equation and R.H. side of equation_Plotting
  • Next by thread: Re: Manipulate problems again