{VERSION 1 0 "X11/Motif" "1.0"}{GLOBALS 1 2}{FONT 0 "-b&h-lucidat
ypewriter-medium-r-normal-sans-20-*" "lucidatypewriter" "Courier"
 4 12 192 "Helvetica" 12}{FONT 1 "-adobe-new century schoolbook-m
edium-r-normal--24-*" "new century schoolbook" "Times-Roman" 4 12
 64 "Times-Roman" 12}{FONT 2 "-adobe-courier-bold-r-normal--18-*"
 "courier" "Courier-Bold" 8 12 192 "Courier" 12}{SCP_R 1 0 19
{INP_R 2 0 "> "{TEXT 0 14 "with(DEtools);"}}{OUT_R 3 0 2{DAG [2,8
n4\`DEplot`n4\`DEplot1`n4\`DEplot2`n5\`Dchangevar`n4\`PDEplot`n5\
`dfieldplot`n6\`phaseportrait`}}{INP_R 4 0 "> "{TEXT 0 15 "A:=[y,
-sin(x)]:"}}{INP_R 5 0 "> "{TEXT 0 303 "phaseportrait(A,[x,y],-5.
.5,\{[0,5,5],[0,-5,-5],[0,5,-5],[0,-5,5],[0,1,1],[0,-1,-1],[0,1,-
1],[0,-1,1],[0,2,2],[0,-2,-2],[0,-2,2],[0,-2,2],[0,Pi,Pi],[0,-Pi,
-Pi],[0,-Pi,Pi],[0,Pi,-Pi],[0,-3,0],[0,3,0],[0,2,0],[0,-2,0],[0,-
9,1],[0,9,-1],[0,-8,0],[0,8,0]\},stepsize=.2,title=`undamped pend
ulum`,arrows=THICK);"}}{INP_R 6 0 "> "{TEXT 0 20 "B:=[y,-sin(x)-1
0*x]:"}}{INP_R 7 0 "> "{TEXT 0 301 "phaseportrait(B,[x,y],-5..5,\
{[0,5,5],[0,-5,-5],[0,5,-5],[0,-5,5],[0,1,1],[0,-1,-1],[0,1,-1],[
0,-1,1],[0,2,2],[0,-2,-2],[0,-2,2],[0,-2,2],[0,Pi,Pi],[0,-Pi,-Pi]
,[0,-Pi,Pi],[0,Pi,-Pi],[0,-3,0],[0,3,0],[0,2,0],[0,-2,0],[0,-9,1]
,[0,9,-1],[0,-8,0],[0,8,0]\},stepsize=.2,title=`damped pendulum`,
arrows=THICK);"}}{INP_R 8 0 "> "{TEXT 0 190 "phaseportrait([y,-si
n(x)],[t,x,y],0..10,\{[0,0,.5],[0,0,1],[0,0,1.8],[0,-2*Pi,1],[0,2
*Pi,.5],[0,-2*Pi,2.1],[0,2*Pi,-2.1]\},stepsize=.2,title=`undamped
 Pendulum Vibrations`,orientation=[0,90]);"}}{INP_R 9 0 "> "{TEXT
 0 193 "phaseportrait([y,-sin(x)-.1*x],[t,x,y],0..10,\{[0,0,.5],[
0,0,1],[0,0,1.8],[0,-2*Pi,1],[0,2*Pi,.5],[0,-2*Pi,2.1],[0,2*Pi,-2
.1]\},stepsize=.2,title=`Damped Pendulum Vibrations`,orientation=
[0,90]);"}}{INP_R 10 0 "> "{TEXT 0 37 "C:=[y+y^2, -.5*x+.2*y-x*y+
(6/5)*y^2];"}}{OUT_R 11 0 10{DAG :3n3\`C`[2,3+5n3\`y`j2x0001*3p6j
2x0002p8+9n3\`x`e3i2x0005i2x0001p6e3pCp15*5p10p8p6p8p15pA/3j2x000
6j2x0005}}{INP_R 12 0 "> "{TEXT 0 0 ""}}{INP_R 13 0 "> "{TEXT 0 
139 "phaseportrait(C,[x,y],-5..5,\{[0,-5,-1],[0,-8,-3],[0,2,2],[0
,.1,.1],[0,-.1,.1],[0,-1,0]\},stepsize=.2,title=`two-eyed monster
`,arrows=THICK);"}}{INP_R 14 0 "> "{TEXT 0 28 "C1:=[x*(3-x-2*y),y
*(2-x-y)];"}}{OUT_R 15 0 14{DAG :3n3\`C1`[2,3*5n3\`x`j2x0001+7j2x
0003p8p6i2x0001n3\`y`i2x0002p8*5p11p8+7j2x0002p8p6pFp11pFp8}}
{INP_R 16 0 "> "{TEXT 0 122 "phaseportrait(C1,[x,y],-5..5,\{[0,.1
,.1],[0,1,.1],[0,.1,1],[0,.5,1],[0,.5,.1]\},title=`competative ex
clusion`,arrows=THICK);"}}{INP_R 17 0 "> "{TEXT 0 31 "C2:=[x*(1-x
-y),y*(.75-y-.5*x)];"}}{OUT_R 18 0 17{DAG :3n3\`C2`[2,3*5n3\`x`j2
x0001+7p8p8p6i2x0001n3\`y`pEp8*5p10p8+7e3j2x0075i2x0002p8p10pEp6e
3i2x0005pEp8}}{INP_R 19 0 "> "{TEXT 0 124 "phaseportrait(C2,[x,y]
,-5..5,\{[0,.1,.1],[0,1,.1],[0,.1,.5],[0,.5,.1],[0,.5,.1]\},title
=`competative exclusion`,arrows=THICK);"}}{INP_R 20 0 "> "{TEXT 0
 0 ""}}}{END}