Maple: Variation of Predator-Prey Model
Saturday, 17 of November , 2007 at 9:06 pm
> restart; a := 20; alpha := 2; sigma := .3; c := 30; g := 2
20
2
0.3
30
2
> e1 := diff(x(t), t) = a*x(t)-alpha*x(t)*y(t)-sigma*x(t)^2;
> e2 := diff(y(t), t) = -c*y(t)+g*x(t)*y(t);


> solve({rhs(e1) = 0, rhs(e2) = 0}, {x(t), y(t)}):
> sol(1):
> with(DEtools): with(plots):
> DEplot({e1, e2}, {x(t), y(t)}, t = 0 .. 5, [[x(0) = 15, y(0) = 7]], stepsize = 3)

> plotX := DEplot({e1, e2}, {x(t), y(t)}, t = 0 .. 4, [[x(0) = 1, y(0) = 1]], stepsize = 3, scene = [t, x], arrows = NONE, linecolor = RED);
> plotY := DEplot({e1, e2}, {x(t), y(t)}, t = 0 .. 4, [[x(0) = 1, y(0) = 1]], stepsize = 3, scene = [t, y], arrows = NONE, linecolor = BLUE);
> plots[display]([plotX, plotY])

> restart; a := 20; alpha := 2; sigma := .3; c := 30; g := 2
2
0.3
30
2
> e1 := diff(x(t), t) = a*x(t)-alpha*x(t)*y(t)-sigma*x(t)^2;
> e2 := diff(y(t), t) = -c*y(t)+g*x(t)*y(t);


> solve({rhs(e1) = 0, rhs(e2) = 0}, {x(t), y(t)}):
> sol(1):
> with(DEtools): with(plots):
> DEplot({e1, e2}, {x(t), y(t)}, t = 0 .. 5, [[x(0) = 15, y(0) = 7]], stepsize = 3)

> plotX := DEplot({e1, e2}, {x(t), y(t)}, t = 0 .. 4, [[x(0) = 1, y(0) = 1]], stepsize = 3, scene = [t, x], arrows = NONE, linecolor = RED);
> plotY := DEplot({e1, e2}, {x(t), y(t)}, t = 0 .. 4, [[x(0) = 1, y(0) = 1]], stepsize = 3, scene = [t, y], arrows = NONE, linecolor = BLUE);
> plots[display]([plotX, plotY])

Comments (1)
Category: Differential Equations, Maple










can be
can be
and an
.
has the most interesting behavior. Since the model is meaningless when
, we only need to
. For the conditions of interest, the critical point is an asymptotically stable spiral sink when
. Otherwise, the point is an asymptotically stable sink.

= predation rate coefficient
= reproduction rate of predators per 1 prey eaten
is the rate of saturation of the prey.