{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 1 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 257 "" 0 1 187 0 152 0 1 0 0 0 0 0 0 0 0 }{PSTYLE "Norma l" -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 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 0 }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 "Maple Plot" 0 13 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 } {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 }{PSTYLE "" 0 257 1 {CSTYLE "" -1 -1 " " 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 } {PSTYLE "" 0 258 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 } 0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 259 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 } {PSTYLE "" 0 260 1 {CSTYLE "" -1 -1 "" 0 1 74 0 63 0 0 1 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 261 1 {CSTYLE "" -1 -1 "" 0 1 63 1 100 0 0 1 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 262 1 {CSTYLE "" -1 -1 "" 0 1 185 0 36 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 -1 16 "When p=5 and q=4" }}{PARA 0 "" 0 "" {TEXT -1 20 "The equations become" }}{PARA 256 "" 0 "" {OLE 1 4098 1 "[xm]Br=WfoRrB:::wk;nyyI;G:;:j::>:B>N:F:nyyyyy]::yyyyyy:::::: :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::fyyyy ya:nYf::G:jy;::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::JcvGYMt>^:fBWMtNHm=;:::::::n:;JZC: bKB::>fiafROgZpq;V:>b>B:<:=ja^GE=;:::::::::N;?R:yyyyyyA:yayA:<::::::JD J:j::F@[KaFFcmnnHEM:>:::::::oJ;Zy=J:B::::::F:;Jp>:;:=j[vGUMrvC?MoJ:::: ::::JCN:yyyxI:;Z::::::j;B:s<;:wA?Z::CJ::G:IZ:>;F;N;;j?>:S:UJ:n;v;;JBAVX@JSHrvTJ;ZZAZ;>d:p^H[::::::;vvwS:;vvwKjAkgJ:::FZ:nyyYZD jysyQj;J:>R<:TNC>:UTRcETcTX[US;SK]UW=EWMuUWm>j\\@A:::cYH_WV>Z::::::::j ysyA:CB:F:;jysy?:;:eIJHE:=j>r:WT:N:e:;j<>:Mb:>Z:^:>Z:>ryysyAvAv[ >V;n>^;UTR:;Jjg:J;@[;;B:::::::JFNZ;J:N:;B:yayA:;B:::: ::f:=;jysy:>:<::::::wqy[:::::::::::::vYx I:;Z::::::::::::::::::::yay=J:B::::::::jBjwEJ:uI;B:>l;>Z:b:DJ:JSfj=nH=:G;eZ:VY;><:[V:=:;b:^dcg g_WhZnc_whZNdigg[oG;MIKG:M:_;Wg:=J:FIK?N@]v:kl :jv:N@^d>F:;Jv:N@v^AF:FI>\\:B:qAB:>l;>:DZaTXDpql`L^:f?;JUM:_kB?g;F:fA:_;wf:=J:f_:>UJSJ`Pj:jPjDjw;<:[V:B:D:c\\_;::f _;F:C:[Q:F;;JSJuHj:RM:_;ed;=J:f`:>r:N;:[Z:VY[j=J: ^qX=j;::::::::::::::::::::::::::::::: :::::::::::::::::::::::::::::::::::::::::::::::::::::::1:" }}}{EXCHG {PARA 257 "" 0 "" {TEXT -1 30 "To find the equilibrium point." }} {PARA 0 "" 0 "" {TEXT -1 21 "This is clearly (0,0)" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 258 "" 0 "" {TEXT -1 33 "To classify the equilibrium point" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "with( linalg):" }}{PARA 7 "" 1 "" {TEXT -1 32 "Warning, new definition for n orm" }}{PARA 7 "" 1 "" {TEXT -1 33 "Warning, new definition for trace " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "A:=matrix(2,2,[0,1,-4,- 5]);" }}}{EXCHG {PARA 259 "" 0 "" {TEXT -1 33 "tr(A)= -5, det(A)=4,dis crim(A)= 9" }}{PARA 0 "" 0 "" {TEXT -1 95 "From the tr-det diagram the equilibrium point is a stable node. There will be two directrices." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 260 "" 0 "" {TEXT -1 35 "To plot the direction field diagram" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "with(DEtools):" }}{PARA 7 "" 1 "" {TEXT -1 35 "Warnin g, new definition for adjoint" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "P:=diff(x(t),t)=y;" }}{PARA 11 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "Q:=diff(y(t),t)=-4*x-5*y;" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 11 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "DEplot ([P,Q],[x(t),y(t)],-2..5,x=-5..5,y=-5..5);" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 261 "" 0 "" {TEXT -1 26 "To draw the phase por trait" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 30 "First find the two eigen values" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "eigensystem:=eige nvects(A);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 28 "The directrices are given by" }}}{EXCHG {PARA 262 "" 0 "" {OLE 1 4610 1 "[xm]Br=WfoRrB::: wk;nyyI;G:;:j::>:B>N:F:nyyyyy]::yyyyyy:::::::::::::::::::::::::::::::: :::::::::::::::::::::::::::::::::::::::fyyyyya:nYf::G:I:wAyA:::::::::: :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::N DYmq^H;C:ELq^H_mvJ::::::::gjR<:T><::;uuCEPOEbwW:A:;r;B :F:YLpfF>:::::::::J?NZ;vyyyyyY:vYxY:B:::::::c:;:=:jR>@Wlj^HMMufF;J:::: :::N=?:xI:;Z::::::j:>:CA;:=j[vGUMrvC?MoJ::::::::JCN:yyyxI:;Z::::::j;B: s<;:wA?Z:F;^:nYn:v:j?>:OJ:nY^;f;;JAjA>:[B::a:c:e:gJ:v<>=F=N=; jGJyky;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::j:b:`ADJEiO;Ts hNZ@haLVjeWZ=Z?:J;\\rRFZR<:TNC>:UTRcETcTX[US;SK]UW=EWMuUWm>j\\@A:::cYH_WV>Z::::::::jysyA:CB: FZ:jysy?:;:WGr:ge:D:;B:CZ:NZ;F:E:=b:yyyyI:E:M: fC>vAn;n^@v;_jysy;B:KZ:>ryYnyAnAVZCV;n>^;U TR:;JJDj@[;;B:::::::JFNZ;J:N:;B:yayA:;B::::::f:D_=a=[;;B:::::::JF>:yay=J:B::::::nYyA<::::::::::::jysy:>:<::: ::::::::::::::::vYxI:;Z:::::::::eB:Z:N`Dfm;NX=j;[@\\kB:;b:g>>Z:>ZgwhmwA;J: ::::::::::::::>IKG:MB:N@ux:kq:LMZ:N@]s:;D:=:UD:[n>B:_KZwp;F:;ja>l:F;l;ZaTXDpql`L^:f?;JZ:fAkp>JSfUuT;=J:f_:>U[Z:VY;:<:[V:B:DZ:::f_;F:C:[Q:F;;JS>r;Fr>F:;B :SB:_kRHjZMj:j`j>B:_KZ?ZAF:vCF;B=:WB:_K:wp;F:;jaj>B:_kyw p;F:FDF;<:[V:b:DZJVDvG:UK:^:>X=j>>Z:N`D>jAFoj@Fr>F:B:_kyGr >F:nCF;:YLMZ:N@]QhUj:JbjD<:[V:B:DZJ^DP@Jc::UK:^:>X=j>>Z:N@uV:QX;=J:r::_khTj VQj:jR:N@uFN;yyyxy:J:><:sg:>Z:FZX;j;:::::::::::::::::::::::::::::::::::::::::::::::::::3: " }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 108 "Ponts on the \+ directrices are (1,-4), (-1,4), (1,-1), (-1,1). Adding some additional initial conditions gives" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 213 "DEplot([P,Q],[x(t),y(t)],-2..5,[[x (0)=1,y(0)=-4],[x(0)=-1,y(0)=4],[x(0)=1,y(0)=-1],[x(0)=-1,y(0)=1],[x(0 )=4,y(0)=0],[x(0)=-4,y(0)=0],[x(0)=2,y(0)=2],[x(0)=-2,y(0)=-2]],x=-5.. 5,y=-5..5,linecolor=black,stepsize=.1);" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 117 "That the solutions no lon ger oscillate as they tend to the rest position can be seen by looking at the time series of" }{TEXT 256 2 " x" }{TEXT -1 9 " against " } {TEXT 257 2 "t." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 106 "DEplot( [P,Q],[x(t),y(t)],-2..5,[[x(0)=0,y(0)=4]],x=-5..5,y=-5..5,linecolor=bl ack,stepsize=.1,scene=[t,x]);" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "5 0 0" 10 } {VIEWOPTS 1 1 0 1 1 1803 }