{VERSION 3 0 "IBM RISC UNIX" "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 "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 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 "Courier" 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 "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 96 "z1:=c1*exp(-(1/20)*t )+30;z2:=c2*exp(-(1/4)*t)-3;z1:=c1*exp(-(1/20)*t)+30;z2:=c2*exp(-(1/4) *t)-3;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "with(linalg):" }} {PARA 7 "" 1 "" {TEXT -1 32 "Warning, new definition for norm" }} {PARA 7 "" 1 "" {TEXT -1 33 "Warning, new definition for trace" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "A:=matrix(2,2,[-1/10,3/40,1/ 10,-1/5]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7$7$#! \"\"\"#5#\"\"$\"#S7$#\"\"\"F,#F+\"\"&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "f:=vector([1.5,3]);" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#>%\"fG-%'vectorG6#7$$\"#:!\"\"\"\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "eigenvects(A);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$7%# !\"\"\"#?\"\"\"<#-%'vectorG6#7$#\"\"$\"\"#F'7%#F%\"\"%F'<#-F*6#7$F'!\" #" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "X:=matrix(2,2,[3/2,1,1 ,-2]);\nDD:=diag(-1/20,-1/4);\n\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#> %\"XG-%'matrixG6#7$7$#\"\"$\"\"#\"\"\"7$F-!\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#DDG-%'matrixG6#7$7$#!\"\"\"#?\"\"!7$F-#F+\"\"%" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "g:=linsolve(X,f);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"gG-%'vectorG6#7$$\"+++++:!\"*$!+++++v!#5 " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "z1:=c1*exp(-(1/20)*t)+3 0;z2:=c2*exp(-(1/4)*t)-3;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#z1G,&* &%#c1G\"\"\"-%$expG6#,$%\"tG#!\"\"\"#?F(F(\"#IF(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#z2G,&*&%#c2G\"\"\"-%$expG6#,$%\"tG#!\"\"\"\"%F(F(!\" $F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "Z:=vector([z1,z2]); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"ZG-%'vectorG6#7$,&*&%#c1G\"\" \"-%$expG6#,$%\"tG#!\"\"\"#?F,F,\"#IF,,&*&%#c2GF,-F.6#,$F1#F3\"\"%F,F, !\"$F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "map(diff,Z,t)=eva lm(DD&*Z+vector([1.5,-0.75]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/-%' vectorG6#7$,$*&%#c1G\"\"\"-%$expG6#,$%\"tG#!\"\"\"#?F+F1,$*&%#c2GF+-F- 6#,$F0#F2\"\"%F+F:F$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "Y:= evalm(X&*Z);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"YG-%'vectorG6#7$,( *&%#c1G\"\"\"-%$expG6#,$%\"tG#!\"\"\"#?F,#\"\"$\"\"#\"#UF,*&%#c2GF,-F. 6#,$F1#F3\"\"%F,F,,(F*F,\"#OF,F9!\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "map(diff,Y,t)=evalm(A&*Y+f);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#/-%'vectorG6#7$,&*&%#c1G\"\"\"-%$expG6#,$%\"tG#!\"\"\"# ?F+#!\"$\"#S*&%#c2GF+-F-6#,$F0#F2\"\"%F+F<,&F)F1F7#F+\"\"#F$" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "12 0 0" 0 } {VIEWOPTS 1 1 0 1 1 1803 }