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>

```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