Re: Manipulate problems again

• To: mathgroup at smc.vnet.net
• Subject: [mg99128] Re: Manipulate problems again
• From: dh <dh at metrohm.com>
• Date: Tue, 28 Apr 2009 04:43:21 -0400 (EDT)
• References: <gt3f2h\$ic4\$1@smc.vnet.net>

```
Hi Sean,

you had a superfluous brace around the variables of Manupulate. I also

========================================

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}];

Print[anpsol];

Plot[Evaluate[sol], {t, 0, 20}, PlotRange -> All,

FrameLabel -> {t, a and a'}, AspectRatio -> 1/GoldenRatio],

ParametricPlot[Evaluate[sol], {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}]

=========================================

Daniel

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: Re: Mathematica JLink and comm.javax.CommPortIdentifier
• Next by Date: Re: Internet connectivity -- CountryData
• Previous by thread: Re: Manipulate problems again
• Next by thread: Projection of curley 3D curves to represent a cylindrical surface