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>
- Reply-to: kuska at informatik.uni-leipzig.de
- 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[2]:=
> solution=NDSolve[{Derivative[1][x][t]\[Equal]-y[t]-z[t],x[0]\[Equal]-0.04,
> Derivative[1][y][t]\[Equal]x[t]+0.425*y[t],y[0]\[Equal]-0.3,
> Derivative[1][z][t]\[Equal]2-(4-x[t])*z[t],z[0]\[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