{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 Math" -1 2 "Times" 0 1 0 0 2 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 1 }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 }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 1 }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 2 0 0 0 0 0 0 0 0 0 0 1 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "restart; with(linalg ):" }}{PARA 7 "" 1 "" {TEXT -1 80 "Warning, the protected names norm a nd trace have been redefined and unprotected\n" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 131 "n:=4:\nA:=matrix(n,n,[[2,3,-5,2],[4,8,-3,-1], [-6,1,2,2],[-8,-2,7,3]]):\nb:=matrix(n,1,[18, 15, 21, 15]):\nprint(A , ` `,b); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6%-%'matrixG6#7&7 &\"\"#\"\"$!\"&F(7&\"\"%\"\")!\"$!\"\"7&!\"'\"\"\"F(F(7&!\")!\"#\"\"(F )%-~~~~~~~~~~~~G-F$6#7&7#\"#=7#\"#:7#\"#@F=" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "II:=band([1],n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 376 "L:=evalm(II):\nfor i from 1 to n-1 do\n L_g:=evalm (II):\n for j from i+1 to n do\n L_el:=evalm(II);L_el[j,i]:=-A[ j,i]/A[i,i];\n L_g:=evalm(L_el &* L_g);\n A:=evalm(L_el &* A ); b:=evalm(L_el &* b);\n print(L_g,` `,L_el,` \+ `,A,` `,b);\n od;\n L:=evalm(L &* inverse(L_g));\n \+ print(inverse(L_g),` `,L);\n od:\nR:=evalm(A);" }}{PARA 11 " " 1 "" {XPPMATH 20 "6)-%'matrixG6#7&7&\"\"\"\"\"!F)F)7&!\"#F(F)F)7&F)F )F(F)7&F)F)F)F(%)~~~~~~~~GF#%(~~~~~~~G-F$6#7&7&\"\"#\"\"$!\"&F47&F)F4 \"\"(F67&!\"'F(F4F47&!\")F+F8F5%-~~~~~~~~~~~~G-F$6#7&7#\"#=7#!#@7#\"#@ 7#\"#:" }}{PARA 11 "" 1 "" {XPPMATH 20 "6)-%'matrixG6#7&7&\"\"\"\"\"!F )F)7&!\"#F(F)F)7&\"\"$F)F(F)7&F)F)F)F(%)~~~~~~~~G-F$6#7&F'7&F)F(F)F)F, F.%(~~~~~~~G-F$6#7&7&\"\"#F-!\"&F97&F)F9\"\"(F:7&F)\"#5!#8\"\")7&!\")F +F" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%-%'matrixG6#7&7&\"\"\"\" \"!F)F)7&F)F(F)F)7&F)\"\"&F(F)7&F)F,F)F(%(~~~~~~~G-F$6#7&F'7&\"\"#F(F) F)7&!\"$F,F(F)7&!\"%F,F)F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6)-%'matri xG6#7&7&\"\"\"\"\"!F)F)7&F)F(F)F)7&F)F)F(F)7&F)F)!\"\"F(%)~~~~~~~~GF#% (~~~~~~~G-F$6#7&7&\"\"#\"\"$!\"&F47&F)F4\"\"(F67&F)F)!#[\"#L7&F)F)F)F5 %-~~~~~~~~~~~~G-F$6#7&7#\"#=7#!#@7#\"$!=7#\"#7" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%-%'matrixG6#7&7&\"\"\"\"\"!F)F)7&F)F(F)F)7&F)F)F(F)7&F) F)F(F(%(~~~~~~~G-F$6#7&F'7&\"\"#F(F)F)7&!\"$\"\"&F(F)7&!\"%F5F(F(" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"RG-%'matrixG6#7&7&\"\"#\"\"$!\"&F* 7&\"\"!F*\"\"(F,7&F.F.!#[\"#L7&F.F.F.F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "print(evalm(L&*R),evalm(inverse(R) &* b));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$-%'matrixG6#7&7&\"\"#\"\"$!\"&F(7&\"\"%\"\") !\"$!\"\"7&!\"'\"\"\"F(F(7&!\")!\"#\"\"(F)-F$6#7&7#F57#F)7#F/7#F," }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "det(A);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#!$w&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "6 0 0" 0 } {VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }