#8

> ode1 := diff( R(t), t ) = 2*(1-R(t)/3)*R(t) - R(t)*F(t) ;

> ode2 := diff( F(t), t ) = -2*F(t) + 4*R(t)*F(t) ;

> MODEL := { ode1, ode2 } ; # define the differential equation model

> VAR := { R(t), F(t) } ; # identify the variables in the model in the form h(t), u(t)

>

Equilibrium Solution

Initial Conditions

Solution Curves