{VERSION 5 0 "IBM INTEL NT" "5.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 0 0 0 128 1 0 2 0 0 1 0 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 "Warni ng" -1 7 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "R3 Font 0" -1 256 1 {CSTYLE "" -1 -1 "Courier" 1 11 128 0 128 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "R3 Font 2" -1 257 1 {CSTYLE "" -1 -1 "Courier" 1 11 0 128 128 1 2 1 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 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "with(linalg):" }}{PARA 7 "" 1 "" {TEXT -1 80 "Warning, the protected names norm and trace have been red efined and unprotected\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 " " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "A:=matrix([ [a,b,c ], " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 " [d,e,f ]," }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 " [1-a-d,1-e-b,1-f-c ] \+ ]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 23 "A2:=matrix([ [1-a,b ]," }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 26 " [a,1-b ] ]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "C: =matrix([ [0.45, 0.05, 0.01 ]," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 34 " [0.48, 0.70, 0.50 ]," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 38 " [0.07, 0.25, 0.49 ] ]):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "F:=matrix([ [0.72, 0.23 ], " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 31 " [0.28, 0.77 ] ]): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 47 "H:=matrix([ [0.8797, 0.0382, 0.0527, 0.0008 ] ," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 47 " [0.0212, 0.8002, \+ 0.0041, 0.0143 ]," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 47 " [ 0.0981, 0.0273, 0.8802, 0.0527 ]," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 51 " [0.0010, 0.1343, 0.0630, 0.9322] ]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 39 "L:=matrix([ [0, 0, 1, 9 ]," }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 " [0.67, 0, 0, 0 ]," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 41 " [0, 0.23, 0, 0 ], " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 45 " [0, 0, 0.57, 0 ] ]):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "\n " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "b:=matrix([ [50]," }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 " [300]," }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 23 " [2000] ]):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 16 "# evalm(A &* b);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "# seq( evalm(A^i &* b), i=1..10);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "# B:=diag(1,1,1,1,1,1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 " B:=diag(1,1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 " p1:=det(A2-x*B): # m\366glich: p3:=det (A-x):\nsolve(p1,x):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "# p 2:=charpoly(A,x):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "# r:=r ank(A):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "# ew:=eigenvals( A):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 " ev:=eigenvects(A2) :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "# linsolve(A,b):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "# gausselim(B):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "# b:=vector( [40,20,12]):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "# solve(p2,x):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "# G:=evalm(H^100):" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "b:= matrix([ [0.42]," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 " [ 0.58] ]):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 " # evalm(G &* b):" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "31" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }