{VERSION 3 0 "IBM INTEL NT" "3.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "" -1 256 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 } {CSTYLE "" -1 257 "" 0 1 0 0 0 0 0 1 0 0 0 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 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Co urier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 "" 0 1 0 0 255 1 0 0 0 0 0 0 1 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 256 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT 256 16 "Phase portraits " }} {PARA 0 "" 0 "" {TEXT 257 34 "To plot a direction field diagram " } {TEXT -1 14 "for the system" }}{PARA 256 "" 0 "" {OLE 1 4097 1 "[xm]Br =WfoRrB:::wk;nyyI;G:;:j::>:B>N:F:nyyyyy]::yyyyyy:::::::::::::::::::::: :::::::::::::::::::::::::::::::::::::::::::::::::fyyyyya:nYf::G:jy;::: :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::JcvGYMt>^:fBWMtNHm=;:::::::n:;JZC:bKB::>`DyfIWwWpq ;V:>j>Z:j:vCSmlJ::::::::::OJ;@jyyyyyy;jysy;Z:::::::^<>:F::]KRnC=MtFGgm l>:;::::::JGN:ry:>:<::::::=J:>F<:F:AlqfG[maNFO=;::::::::_J;vyyuy:>:<:: ::::?J:j;>Z:nYf:n:v:JyK?j?>:S:UJ:n;v;;JBl[V<[kZFB[KRF@GlSF@gKVfI>d:FFAmoFFIml^E^Z;r:EbAVX;B:xYb:;`:Z@O<;j`@Pt\\Pd`QrPPJPnrPqjLqnxPqF;;j\\@A:::cYH_WV>Z::JR>@=lZ>@[kR FB]KUf@_kxJbjnnGyyyxy;B:CB:;j:jysy?:;:EW<^a?JrE:=j>r:kU:N:sZ:>:EZ:F[[:>:;xygxy;Fbx]:JBAJ:=?R:J;>:yayA:;B::::::^:;JOH:<:?ja:[@>Z::::::::kJ:vYxI:;Z:::: ::JywYB:::::::::::::yay=J:B:::::::::::::::::::jysy:>:<::::::::ed`yyyB: :::::::::jP@Z:F[:>Z:N`D^h;>I=Z:n^sWLM:_KDLjyF:n>^=VY;<<:[V:=:;b:JSJ?Hj:>:m UXCH:JSN]>^E=:m=JSJFLj:>:k=JSJKYj:jvJHjw;<:[V:;ZtakPJ:N;B:US:;J:US XgAN@^b?F:f?^= :C:[q:VZ:B:;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::: :::::::::::::4:" }{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }} {PARA 0 "" 0 "" {TEXT -1 77 "First load the algebraic and graphics pac kages linalg and DEtools as follows" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "with(linalg):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "with(DEtools):" }}{PARA 7 "" 1 "" {TEXT -1 35 "Warning, new de finition for adjoint" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 68 "Next ente r the differential equations. The commands are shown below." }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "A:=diff(x(t),t)=y;" }}{PARA 11 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 " B:=diff(y(t),t)=-x-2*y;" }}{PARA 11 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 39 "Finally write the command for the plot." }}{PARA 0 "" 0 "" {TEXT -1 81 "Note that the range -2..5 is the range \+ of t, the x and y ranges are explanatory. " }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 64 "DEplot([A,B],[x(t),y(t)],-2..5,x=-5..5,y=-5..5,line color=black);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}}}{MARK "0 0 \+ 0" 15 }{VIEWOPTS 1 1 0 1 1 1803 }