{VERSION 2 3 "IBM INTEL NT" "2.3" } {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 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 "Error" 7 8 1 {CSTYLE "" -1 -1 "" 0 1 255 0 255 1 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 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {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 37 "U:=matrix(3,[0,0,5],[1,0,2], [0,1,0]);" }}{PARA 8 "" 1 "" {TEXT -1 83 "Error, (in matrix) 1st and 2 nd arguments (dimensions) must be non negative integers" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "U:=matrix(3,3,[0,0,5],[1,0,2],[0,1, 0]);" }}{PARA 8 "" 1 "" {TEXT -1 36 "Error, (in matrix) invalid argume nts" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "U:=matrix(3,[0,0,5,1 ,0,2,0,1,0]);" }}{PARA 8 "" 1 "" {TEXT -1 83 "Error, (in matrix) 1st a nd 2nd arguments (dimensions) must be non negative integers" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "U:=matrix(3,3,[0,0,5,1,0,2,0 ,1,0]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"UG-%'MATRIXG6#7%7%\"\"! F*\"\"&7%\"\"\"F*\"\"#7%F*F-F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "U^3;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*$%\"UG\"\"$" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "evalm(U^3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'MATRIXG6#7%7%\"\"&\"\"!\"#57%\"\"#F(\"\"%7%F)F, F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "evalm(U^(-1));" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# -%'MATRIXG6#7%7%#!\"#\"\"&\"\"\"\"\"!7%F,F,F+7%#F+F*F,F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "U:=matrix(3,3,[0,1,1,1,0,1,1,1,0]); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"UG-%'MATRIXG6#7%7%\"\"!\"\"\"F +7%F+F*F+7%F+F+F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "Z:=mat rix(3,3,[0$9]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"ZG-%'MATRIXG6#7 %7%\"\"!F*F*F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "Id:=mat rix(3,3,[1,0,0,0,1,0,0,0,1]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#Id G-%'MATRIXG6#7%7%\"\"\"\"\"!F+7%F+F*F+7%F+F+F*" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 36 "solve([(U-a*Id)&*(U-b*Id)=Z],[a,b]);" }}{PARA 8 "" 1 "" {TEXT -1 35 "Error, (in solve) invalid arguments" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "?solve;" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 36 "solve(\{(U-a*Id)&*(U-b*Id)=Z\},\{a,b\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<$/%\"aG-%'RootOfG6#,&-%#&*G6$,&%\"UG\"\"\"* &%#_ZGF/%#IdGF/!\"\",&F.F/*&%\"bGF/F2F/F3F/%\"ZGF3/F6F6" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "M:=evalm((U-a*Id)&*(U-b*Id));" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"MG-%'MATRIXG6#7%7%,&*&%\"aG\"\"\"% \"bGF-F-\"\"#F-,(F,!\"\"F.F1F-F-F07%F0F*F07%F0F0F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "solve(\{M=Z\},\{a,b\});" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "?array;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 20 "T:=array(1..3,1..3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"TG-%&arrayG6%;\"\"\"\"\"$F(7\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "Y:=[[1,2,3],[4,5,6],[7,8,9],[10,11,12]];" }}{PARA 0 " > " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"YG7&7 %\"\"\"\"\"#\"\"$7%\"\"%\"\"&\"\"'7%\"\"(\"\")\"\"*7%\"#5\"#6\"#7" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "Y[2,3];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 272 "pr odm:=proc(A,B)\nlocal C,i,j,k;\nC:=[[0$nops(B[1])]$nops(A)];\nfor i fr om 1 to nops(A) do\n for j from 1 to nops(B[1]) do\n C[i,j]: =0;\n for k from 1 to nops(A[1]) do\n C[i,j] :=C[i,j]+A[i,k]*B[k,j];\n od;\n od;\nod;\nRETURN(C);\nen d:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "A:=[[1],[2],[3]];" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG7%7#\"\"\"7#\"\"#7#\"\"$" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "prodm(Y,A);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7&7#\"#97#\"#K7#\"#]7#\"#o" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 113 "puim:=proc(A,n)\nlocal C,k;\nC:=[[1,0,0],[0,1 ,0],[0,0,1]];\nfor k from 1 to n do\n C:=prodm(C,A);\nod;\nprint(C); \nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "puim([[1,2,3],[4, 5,6],[7,8,9]],3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%7%\"$o%\"$w&\"$ %o7%\"%i5\"%08\"%[:7%\"%c;\"%M?\"%7C" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "whattype(prodm(Y,A));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%%listG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "B:=array(1 ..2,1..3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"BG-%&arrayG6%;\"\"\" \"\"#;F)\"\"$7\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "whattyp e(B);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%'stringG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "23 0 0" 32 }{VIEWOPTS 1 1 0 1 1 1803 }