{VERSION 2 3 "IBM INTEL NT" "2.3" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 
0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "with(linalg):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "with(DEtools):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "A:=diff(x(t),t)=.2*x-.004*x^2-.003*
x*y; " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "B:=diff(y(t),t)=.1
*y-.001*y^2-.003*x*y;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 140 "D
Eplot(\{A,B\},\{x(t),y(t)\},0..100,[[0,50,60],[0,1,15],[0,5,10],[0,50,
75],[0,0,100],[0,50,0],[0,20,40],[0,0,0]],x=0..50,y=0..100,stepsize=.1
); " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 104 "DEplot(\{A,B\},\{x(
t),y(t)\},0..100,[[0,49,-1],[0,49,.5],[0,51,1],[0,51,-.5]],x=49..51,y=
0..1,stepsize=.1); " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 82 "DEpl
ot(\{A,B\},\{x(t),y(t)\},0..100,[[0,1,80],[0,5,90]],x=0..5,y=80..100,s
tepsize=.1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 112 "DEplot(\{A
,B\},\{x(t),y(t)\},-50..50,[[0,1,1],[0,-1,1],[0,0.1,-0.1],[0,-0.1,-0.1
]],x=-0.1..1,y=-0.1..1,stepsize=.1);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 109 "DEplot(\{A,B\},\{x(t),y(t)\},0..100,[[0,21,41],[0,19
,39],[0,19.5,39],[0,20.7,41]],x=19..21,y=39..41,stepsize=.1);" }}}}
{MARK "0 0 0" 13 }{VIEWOPTS 1 1 0 1 1 1803 }