Differential Equations

System of ODE's with initial conditions

par1 = {ro→4.8, xo→8, k→1.3} ;

inits = {x[0] == 1, y[0] == 1} ;

solt = vars/.NDSolve[Join[odes/.par1, inits], vars, {t, 0, timeI}][[1]]

{InterpolatingFunction[{{0., 100.}}, <>][t], InterpolatingFunction[{{0., 100.}}, <>][t]}

Plot[Evaluate[solt], {t, 0, timeI}, PlotStyle→ {{}, {AbsoluteDashing[{4.5}], RGBColor[1, 0, 1]}}, AspectRatio→0.2]

[Graphics:../HTMLFiles/MATH5_TUT1_854.gif]

-Graphics -

ParametricPlot[solt, {t, 0, timeI}, AxesLabel→ {"Grass", "Rabbits"}] ;

[Graphics:../HTMLFiles/MATH5_TUT1_857.gif]

ListPlot[Table[solt, {t, 0, timeI, 1}], AxesLabel→ {"Grass", "Rabbits"}] ;

[Graphics:../HTMLFiles/MATH5_TUT1_859.gif]

Created by Mathematica  (September 7, 2006) Valid XHTML 1.1!