{VERSION 4 0 "IBM INTEL NT" "4.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }
{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 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 0 }3 3 0 -1 -1 -1 0 
0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "with(LinearAlgebra):
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "K := Matrix([[-k1-k2,0,
0,0],[+k1,0,0,0],[+k2,0,-k3,+k4],[0,0,+k3,-k4]]);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"KG-%'RTABLEG6$\"*op4^\"-%'MATRIXG6#7&7&,&%#k1G!\"\"
%#k2GF0\"\"!F2F27&F/F2F2F27&F1F2,$%#k3GF0%#k4G7&F2F2F6,$F7F0" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "E := Eigenvectors(K);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"EG6$-%'RTABLEG6$\"(C?6\"-%'MATRIXG
6#7&7#,&%#k3G!\"\"%#k4GF17#\"\"!F37#,&%#k1GF1%#k2GF1-F'6$\"'gY**-F+6#7
&7&F4F4F4*&*&,&F7\"\"\"F8FCFC,*F0F1F2F1F7FCF8FCFCFC*&F0FCF8FCF17&F4F4F
C,$*&*&F7FCFDFCFC*&F0FCF8FCF1F17&F1FCF4,$*&,(F7FCF8FCF2F1FCF0F1F17&FC*
&F0FCF2F1F4FC" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "v := E[1];
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"vG-%'RTABLEG6$\"(C?6\"-%'MATRI
XG6#7&7#,&%#k3G!\"\"%#k4GF07#\"\"!F27#,&%#k1GF0%#k2GF0" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "X := E[2];" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"XG-%'RTABLEG6$\"'gY**-%'MATRIXG6#7&7&\"\"!F.F.*&*&,
&%#k1G\"\"\"%#k2GF3F3,*%#k3G!\"\"%#k4GF7F2F3F4F3F3F3*&F6F3F4F3F77&F.F.
F3,$*&*&F2F3F5F3F3*&F6F3F4F3F7F77&F7F3F.,$*&,(F2F3F4F3F8F7F3F6F7F77&F3
*&F6F3F8F7F.F3" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 71 "L := Diag
onalMatrix([exp(v[1]*t),exp(v[2]*t),exp(v[3]*t),exp(v[4]*t)]);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"LG-%'RTABLEG6$\"(_Js\"-%'MATRIXG6#
7&7&-%$expG6#*&,&%#k3G!\"\"%#k4GF4\"\"\"%\"tGF6\"\"!F8F87&F8F6F8F87&F8
F8F6F87&F8F8F8-F/6#*&,&%#k1GF4%#k2GF4F6F7F6" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 26 "c0 := Vector ([Ao,0,0,0]);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%#c0G-%'RTABLEG6$\"()eP7-%'MATRIXG6#7&7#%#AoG7#\"\"!F/
F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "ct := X . L . MatrixI
nverse(X) . c0;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#ctG-%'RTABLEG6$
\"*7]s\\\"-%'MATRIXG6#7&7#*&-%$expG6#*&,&%#k1G!\"\"%#k2GF5\"\"\"%\"tGF
7F7%#AoGF77#*&,&*&F4F7,&F4F7F6F7F5F7*&*&F4F7F/F7F7F>F5F5F7F9F77#*&,(*&
*(-F06#*&,&%#k3GF5%#k4GF5F7F8F7F7FJF7F6F7F7*&,*FJF5FKF5F4F7F6F7F7,&FJF
7FKF7F7F5F7*&*&F6F7FKF7F7*&F>F7FNF7F5F7*&*(,(F4F7F6F7FKF5F7F/F7F6F7F7*
&F>F7FMF7F5F5F7F9F77#*&,(FDF5*&*&FJF7F6F7F7*&F>F7FNF7F5F7*&*(F/F7FJF7F
6F7F7*&F>F7FMF7F5F7F7F9F7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
13 "ctA := ct[1];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$ctAG*&-%$expG6
#*&,&%#k1G!\"\"%#k2GF,\"\"\"%\"tGF.F.%#AoGF." }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 13 "ctB := ct[2];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6
#>%$ctBG*&,&*&%#k1G\"\"\",&F(F)%#k2GF)!\"\"F)*&*&F(F)-%$expG6#*&,&F(F,
F+F,F)%\"tGF)F)F)F*F,F,F)%#AoGF)" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 13 "ctC := ct[3];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$c
tCG*&,(*&*(-%$expG6#*&,&%#k3G!\"\"%#k4GF/\"\"\"%\"tGF1F1F.F1%#k2GF1F1*
&,*F.F/F0F/%#k1GF1F3F1F1,&F.F1F0F1F1F/F1*&*&F3F1F0F1F1*&,&F6F1F3F1F1F7
F1F/F1*&*(,(F6F1F3F1F0F/F1-F*6#*&,&F6F/F3F/F1F2F1F1F3F1F1*&F;F1F5F1F/F
/F1%#AoGF1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "ctD := ct[4];
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$ctDG*&,(*&*(-%$expG6#*&,&%#k3G!
\"\"%#k4GF/\"\"\"%\"tGF1F1F.F1%#k2GF1F1*&,*F.F/F0F/%#k1GF1F3F1F1,&F.F1
F0F1F1F/F/*&*&F.F1F3F1F1*&,&F6F1F3F1F1F7F1F/F1*&*(-F*6#*&,&F6F/F3F/F1F
2F1F1F.F1F3F1F1*&F;F1F5F1F/F1F1%#AoGF1" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}}{MARK "12 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 
1 1 }{PAGENUMBERS 0 1 2 33 1 1 }{RTABLE_HANDLES 151096968 1112024 
994660 1723152 1237588 149725012 }{RTABLE 
M6R0
I6RTABLE_SAVE/151096968X,%)anythingG6"6"][[[[[p1"%"%,&%#k1G!""%#k2GF)F(F*""!F+F
+F+F+F+F+,$%#k3GF)F-F+F+%#k4G,$F.F)F&
}
{RTABLE 
M6R0
I4RTABLE_SAVE/1112024X*%*algebraicG6"6"\[[[[[t%"%,&%#k3G!""%#k4GF)""!F+,&%#k1GF
)%#k2GF)F&
}
{RTABLE 
M6R0
I3RTABLE_SAVE/994660X,%*algebraicG6"6"][[[[[p1"%"%""!F'!"""""F'F'F)*&%#k4GF(%#k
3GF)F'F)F'F'**,&%#k1GF)%#k2GF)F),*F,F(F+F(F/F)F0F)F)F,F(F0F(,$**F/F)F1F)F,F(F0F
(F(,$*&F,F(,(F/F)F0F)F+F(F)F(F)F&
}
{RTABLE 
M6R0
I4RTABLE_SAVE/1723152X,%)anythingG6"6"][[[[[p1"%"%-%$expG6#*&,&%#k3G!""%#k4GF-"
""%"tGF/""!F1F1F1F/F1F1F1F1F/F1F1F1F1-F(6#*&,&%#k1GF-%#k2GF-F/F0F/F&
}
{RTABLE 
M6R0
I4RTABLE_SAVE/1237588X*%)anythingG6"6"\[[[[[t%"%%#AoG""!F(F(F&
}
{RTABLE 
M6R0
I6RTABLE_SAVE/149725012X*%)anythingG6"6"\[[[[[t%"%*&-%$expG6#*&,&%#k1G!""%#k2GF
."""%"tGF0F0%#AoGF0*&,&*&F-F0,&F-F0F/F0F.F0*(F-F0F(F0F6F.F.F0F2F0*&,(*,-F)6#*&,
&%#k3GF.%#k4GF.F0F1F0F0F?F0F/F0,*F?F.F@F.F-F0F/F0F.,&F?F0F@F0F.F0**F6F.F/F0FBF.
F@F0F0*,,(F-F0F/F0F@F.F0F(F0F6F.FAF.F/F0F.F0F2F0*&,(F:F.**F?F0F6F.F/F0FBF.F0*,F
(F0F6F.FAF.F?F0F/F0F0F0F2F0F&
}