       Re: adding subset of interpolating function from a system of ODE

• To: mathgroup at smc.vnet.net
• Subject: [mg45866] Re: adding subset of interpolating function from a system of ODE
• From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
• Date: Wed, 28 Jan 2004 05:19:03 -0500 (EST)
• Organization: Universitaet Leipzig
• References: <bv5e79\$t28\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Hi,

a) this is a R"ossler system and not a Lorenz system
b) what may

Plot[Evaluate[x[t] + y[t] /. solution], {t, 0, 25}]

and

ParametricPlot[Evaluate[{x[t] + z[t], y[t]} /. solution], {t, 0, 25}]

do ?

Regards
Jens

sean kim wrote:
>
> hello group.
>
> Please consider the lorenz system for example.
>
> In:=
> solution=NDSolve[{Derivative[x][t]\[Equal]-y[t]-z[t],x\[Equal]-0.04,
>         Derivative[y][t]\[Equal]x[t]+0.425*y[t],y\[Equal]-0.3,
>         Derivative[z][t]\[Equal]2-(4-x[t])*z[t],z\[Equal]0.52},{x[t],
>         y[t],z[t]},{t,0,25}];
>
> ParametricPlot3D[Evaluate[{x[t],y[t],z[t]}/.solution],{t,0,25},
>     PlotPoints -> 1000,PlotRange ->All];
>
> above shows a parametric plot of x, y and z.
>
> but let's say for some reason I want to plot the following..
>
> x+y vs time
> x+z vs  y
>
> how do I achieve this?  is this possible in mathematica?
>
> as always any and all thoughts are appreciated.
>
> thank you all in advance
>
> sean

```

• Prev by Date: Re: Graphics into MS Word
• Next by Date: RE: adding subset of interpolating function from a system of ODE
• Previous by thread: adding subset of interpolating function from a system of ODE
• Next by thread: RE: adding subset of interpolating function from a system of ODE