![[Maple Math]](images/homework411.gif){kind=small}
Solution Curves
>
> DOMAIN := t = 0 .. 20 ; # specify reasonable interval for indep var
> WINDOW := R = 0 .. 2.2,
> F = 0 .. 2.2 ; # specify reasonable intervals for all dependent vars
![[Maple Math]](images/homework412.gif){kind=small}
>
> P1:= DEplot( MODEL, VAR, DOMAIN, [ icA, icB ],
> scene=[ t, R ], arrows=NONE, linecolor=BLUE, stepsize=0.1 ):
> P2:= DEplot( MODEL, VAR, DOMAIN, [ icA, icB ],
> scene=[ t, F ], arrows=NONE, linecolor=GREEN, stepsize=0.1 ):
> display( [ P1, P2 ] , title = `Initial Point B` ); # combined solution curves
> P1:= DEplot( MODEL, VAR, DOMAIN, [ icA, icC ],
> scene=[ t, R ], arrows=NONE, linecolor=BLUE, stepsize=0.1 ):
> P2:= DEplot( MODEL, VAR, DOMAIN, [ icA, icC ],
> scene=[ t, F ], arrows=NONE, linecolor=GREEN, stepsize=0.1 ):
> display( [ P1, P2 ] , title = `Initial Point C` ); # combined solution curves
> P1:= DEplot( MODEL, VAR, DOMAIN, [ icA, icD ],
> scene=[ t, R ], arrows=NONE, linecolor=BLUE, stepsize=0.1 ):
> P2:= DEplot( MODEL, VAR, DOMAIN, [ icA, icD ],
> scene=[ t, F ], arrows=NONE, linecolor=GREEN, stepsize=0.1 ):
> display( [ P1, P2 ] , title = `Initial Point D` ); # combined solution curves
