{VERSION 5 0 "IBM INTEL NT" "5.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 Output" -1 20 "Times" 1 12 0 0 255 1 0 0 0 2 2 1 0 0 0 1 }{CSTYLE "_cstyle1" -1 202 "Courier" 1 12 255 0 0 1 0 1 0 2 1 2 0 0 0 1 }{CSTYLE "_cstyle2" -1 203 "Times" 0 1 0 0 0 0 0 0 0 2 2 2 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "_pstyle1" -1 200 1 {CSTYLE "" -1 -1 "Courier" 1 12 255 0 0 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "_pstyle2" -1 201 1 {CSTYLE "" -1 -1 "T imes" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 } } {SECT 0 {EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 202 14 " with(linalg):" }}}{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 202 43 "S:=1/9*Matrix([[7,4,- 4],[4,1,8],[-4,8,1]]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"SG-%'RTA BLEG6%\")3:A8-%'MATRIXG6#7%7%#\"\"(\"\"*#\"\"%F0#!\"%F07%F1#\"\"\"F0# \"\")F07%F3F8F6%'MatrixG" }}}{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 202 11 "evalm(S*S);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7%7 %\"\"\"\"\"!F)7%F)F(F)7%F)F)F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "det(S);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#!\"\"" }}}{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 202 52 "E:=Matrix([[1,0,0],[0,1,0],[0,0 ,1]]): p:=det(S-l*E);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"pG,**$)% \"lG\"\"$\"\"\"!\"\"*$)F(\"\"#F*F*F(F*F*F+" }}}{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 202 14 "solve(p=0, l);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%!\"\"\"\"\"F$" }}}{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 202 27 " linsolve(S-(-1)*E,[0,0,0]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'vect orG6#7%&%#_tG6#\"\"\",$*&\"\"#F*F'F*!\"\",$*&F-F*F'F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "linsolve(S-(1)*E,[0,0,0]);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#-%'vectorG6#7%,&*&\"\"#\"\"\"&%#_tG6#F *F*F**&F)F*&F,6#F)F*!\"\"F+F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 99 "T:=transpose(Matrix([[1/3,-2/3,2/3],[0,sqrt(2)/2,sqrt(2)/2],[-2* sqrt(2)/3,-sqrt(2)/6,sqrt(2)/6]]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #>%\"TG-%'matrixG6#7%7%#\"\"\"\"\"$\"\"!,$*(\"\"#F+F,!\"\"F0#F+F0F17%# !\"#F,,$*&F0F1F0F2F+,$*&\"\"'F1F0F2F17%#F0F,F6,$*&F:F1F0F2F+" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "evalm(transpose(T)&*S&*T);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7%7%!\"\"\"\"!F)7%F)\"\" \"F)7%F)F)F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "det(T);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{PARA 201 "" 0 "" {TEXT 203 0 "" }}{PARA 201 "" 0 "" {TEXT 203 0 "" }}{PARA 201 "" 0 "" {TEXT -1 0 "" }}}{MARK "11 0 0 " 0 }{VIEWOPTS 1 1 0 15 10 1804 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 } {RTABLE_HANDLES 13221508 }{RTABLE M7R0 I5RTABLE_SAVE/13221508X,%)anythingG6"6"[gl!"%!!!#*"$"$#""(""*#""%F)#!"%F)F*#""" F)#"")F)F,F0F.6" }