Re: Solving Simultaneous Differential Equations
- To: mathgroup at smc.vnet.net
- Subject: [mg78969] Re: Solving Simultaneous Differential Equations
- From: dh <dh at metrohm.ch>
- Date: Sat, 14 Jul 2007 02:38:42 -0400 (EDT)
- References: <f74rj2$80f$1@smc.vnet.net>
Hi Nikhil,
the following will plot the first equation:
Plot[Evaluate[(eqs /. %)[[1]]], {t, 0, 10}]
hope this helps, Daniel
Nikhil Shankar wrote:
> Hey guys,
>
> I'm working on a model of the heart, which can be simplified to eleven simultaneous differential equations... I am solving them all with NDSolve and explicit Runge Kutta numerical integration. I am happy with the results, but I don't know how to plot a single function, of the eleven that are solved simultaneously.
>
> I can plot all 11 of them on one graph by using
>
> Plot[Evaluate[eqs /. %], {t, 0, 10}]
>
> where eqs are all 11 functions, and the last output was the set of the 11 interpolating functions. Plotting all 11 pretty much has no value to me though.
>
> How do I store the interpolating function data for each function so I can plot each by itself?
>
> Also, how can I save step-by-step results using Reap/Sow?
>
> Thanks for your help guys.
>