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

MathGroup Archive 2009

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

Search the Archive

Re: Manipulate problems again

  • To: mathgroup at smc.vnet.net
  • Subject: [mg99121] Re: Manipulate problems again
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Mon, 27 Apr 2009 05:25:56 -0400 (EDT)
  • Organization: Uni Leipzig
  • References: <gt3f2h$ic4$1@smc.vnet.net>
  • Reply-to: kuska at informatik.uni-leipzig.de

Hi,

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}];
  GraphicsRow[{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}]

work fine.

Regards
   Jens

sean_incali at yahoo.com wrote:
> 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: Is this solvable using Mathematica?
  • Next by Date: Re: issues with GraphPlot
  • Previous by thread: Manipulate problems again
  • Next by thread: Re: Manipulate problems again