{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 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 "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 "Warning" -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 "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 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "with(linalg):" }}
{PARA 7 "" 1 "" {TEXT -1 80 "Warning, the protected names norm and tra
ce have been redefined and unprotected\n" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 89 "A:=matrix(4,4,[a,b,c,_,5269/3600.,137/60.,55,73/15.,1
37/60.,\n5,225,10,55,225,20515,333]);" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#>%\"AG-%'matrixG6#7&7&%\"aG%\"bG%\"cG%\"_G7&$\"+66hj9!\"*$\"+LLL$G#
F1\"#b$\"+nmmm[F17&F2\"\"&\"$D#\"#57&F4F9\"&:0#\"$L$" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 36 "A:=swaprow(A,4,2):A:=swapcol(A,1,3);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7&7&%\"cG%\"bG%\"aG%
\"_G7&\"&:0#\"$D#\"#b\"$L$7&F0\"\"&$\"+LLL$G#!\"*\"#57&F1F5$\"+66hj9F7
$\"+nmmm[F7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "A:=addrow(A,
2,3,-225/20515.);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6
#7&7&%\"cG%\"bG%\"aG%\"_G7&\"&:0#\"$D#\"#b\"$L$7&$\"\"\"!\"($\"+XMHKD!
\"*$\"+vh6!o\"F9$\"+)H%zZjF97&F1$\"+LLL$G#F9$\"+66hj9F9$\"+nmmm[F9" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "A:=addrow(A,2,4,-55/20515.)
;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7&7&%\"cG%\"bG%
\"aG%\"_G7&\"&:0#\"$D#\"#b\"$L$7&$\"\"\"!\"($\"+XMHKD!\"*$\"+vh6!o\"F9
$\"+)H%zZjF97&$F5!\")F:$\"+G!ehJ\"F9$\"+t_!R(RF9" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 32 "A:=addrow(A,3,4,-A[4,2]/A[3,2]);" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7&7&%\"cG%\"bG%\"aG%\"_G7&\"&
:0#\"$D#\"#b\"$L$7&$\"\"\"!\"($\"+XMHKD!\"*$\"+vh6!o\"F9$\"+)H%zZjF97&
$!+%)4wMc!#<$\"\"!FC$\"*.6W,#F9$!*@XqP#F9" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 17 "a:=A[4,4]/A[4,3];" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#>%\"aG$!+a*>+=\"!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "b
:=(A[3,4]-A[3,3]*a)/A[3,2];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"bG$
\"+#G_'*G$!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "c:=(A[2,4
]-A[2,3]*a-A[2,2]*b)/A[2,1];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"cG
$!+IARo;!#6" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 82 "evalm(matrix
(3,3,[5269/3600.,137/60.,55,137/60.,\n5,225,55,225,20515]) &* [a,b,c])
;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'vectorG6#7%$\"+mmmm[!\"*$\"+++
++5!\")$\"+******HL!\"(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "r
estart:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "with(linalg):" }
}{PARA 7 "" 1 "" {TEXT -1 80 "Warning, the protected names norm and tr
ace have been redefined and unprotected\n" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 56 "A:=matrix(3,6,[0,3,-4,1,0,0,3,2,-1,0,1,0,4,-2,1,0,0
,1]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7%7(\"\"!\"
\"$!\"%\"\"\"F*F*7(F+\"\"#!\"\"F*F-F*7(\"\"%!\"#F-F*F*F-" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "A:=swaprow(A,1,2);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7%7(\"\"$\"\"#!\"\"\"\"!\"\"\"F-
7(F-F*!\"%F.F-F-7(\"\"%!\"#F.F-F-F." }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 19 "A:=mulrow(A,1,1/3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#>%\"AG-%'matrixG6#7%7(\"\"\"#\"\"#\"\"$#!\"\"F-\"\"!#F*F-F07(F0F-!\"
%F*F0F07(\"\"%!\"#F*F0F0F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
20 "A:=addrow(A,1,3,-4);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'m
atrixG6#7%7(\"\"\"#\"\"#\"\"$#!\"\"F-\"\"!#F*F-F07(F0F-!\"%F*F0F07(F0#
!#9F-#\"\"(F-F0#F3F-F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "A
:=mulrow(A,2,1/3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG
6#7%7(\"\"\"#\"\"#\"\"$#!\"\"F-\"\"!#F*F-F07(F0F*#!\"%F-F1F0F07(F0#!#9
F-#\"\"(F-F0F3F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "A:=addr
ow(A,2,1,-2/3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7
%7(\"\"\"\"\"!#\"\"&\"\"*#!\"#F.#F*\"\"$F+7(F+F*#!\"%F2F1F+F+7(F+#!#9F
2#\"\"(F2F+F4F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "A:=addro
w(A,2,3,14/3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7%
7(\"\"\"\"\"!#\"\"&\"\"*#!\"#F.#F*\"\"$F+7(F+F*#!\"%F2F1F+F+7(F+F+#!#N
F.#\"#9F.F4F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "A:=mulrow(
A,3,-9/35);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7%7(
\"\"\"\"\"!#\"\"&\"\"*#!\"#F.#F*\"\"$F+7(F+F*#!\"%F2F1F+F+7(F+F+F*#F0F
-#\"#7\"#N#!\"*F:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "A:=add
row(A,3,1,-5/9);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#
7%7(\"\"\"\"\"!F+F+#F*\"\"(F,7(F+F*#!\"%\"\"$#F*F1F+F+7(F+F+F*#!\"#\"
\"&#\"#7\"#N#!\"*F9" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "A:=a
ddrow(A,3,2,4/3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6
#7%7(\"\"\"\"\"!F+F+#F*\"\"(F,7(F+F*F+#!\"\"\"\"&#\"#;\"#N#!#7F47(F+F+
F*#!\"#F1#\"#7F4#!\"*F4" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "
B:=submatrix(A,1..3,4..6);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"BG-%
'matrixG6#7%7%\"\"!#\"\"\"\"\"(F+7%#!\"\"\"\"&#\"#;\"#N#!#7F47%#!\"#F1
#\"#7F4#!\"*F4" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "A:=matrix
(3,3,[0,3,-4,3,2,-1,4,-2,1]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"A
G-%'matrixG6#7%7%\"\"!\"\"$!\"%7%F+\"\"#!\"\"7%\"\"%!\"#\"\"\"" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "evalm(A &* B);" }}{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 14 "evalm(B &* A);" }}{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 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 
121 "A:=matrix(5,8,[1,2,3,4,_,_,_,_,-53,85,49,78,1,0,0,0,\n17,72,-99,-
85,0,1,0,0,-86,30,80,72,0,0,1,0,66,-29,-91,-53,0,0,0,1]);" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7'7*\"\"\"\"\"#\"\"$\"\"%%\"_
GF.F.F.7*!#`\"#&)\"#\\\"#yF*\"\"!F4F47*\"#<\"#s!#**!#&)F4F*F4F47*!#')
\"#I\"#!)F7F4F4F*F47*\"#m!#H!#\"*F0F4F4F4F*" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 36 "A:=swaprow(A,2,3):A:=swapcol(A,1,3);" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7'7*\"\"$\"\"#\"\"\"\"\"%%\"_G
F.F.F.7*!#**\"#s\"#<!#&)\"\"!F,F4F47*\"#\\\"#&)!#`\"#yF,F4F4F47*\"#!)
\"#I!#')F1F4F4F,F47*!#\"*!#H\"#mF8F4F4F4F," }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 22 "A:=mulrow(A,2,-1/99.);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"AG-%'matrixG6#7'7*\"\"$\"\"#\"\"\"\"\"%%\"_GF.F.F.7
*$\"+**********!#5$!+sssssF2$!+<<<<<F2$\"+&eeee)F2$!\"!\"\"!$!+55555!#
6F9F97*\"#\\\"#&)!#`\"#yF,F;F;F;7*\"#!)\"#I!#')\"#sF;F;F,F;7*!#\"*!#H
\"#mFBF;F;F;F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "A:=addrow
(A,2,3,-49);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7'7*
\"\"$\"\"#\"\"\"\"\"%%\"_GF.F.F.7*$\"+**********!#5$!+sssssF2$!+<<<<<F
2$\"+&eeee)F2$!\"!\"\"!$!+55555!#6F9F97*$F;F;$\"+OOO17!\"($!+feeeW!\")
$\"+$HHHf$FF$F,F;$\"+\\\\\\\\\\F2F@F@7*\"#!)\"#I!#')\"#sF;F;F,F;7*!#\"
*!#H\"#m!#`F;F;F;F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "A:=a
ddrow(A,2,4,-80);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6
#7'7*\"\"$\"\"#\"\"\"\"\"%%\"_GF.F.F.7*$\"+**********!#5$!+sssssF2$!+<
<<<<F2$\"+&eeee)F2$!\"!\"\"!$!+55555!#6F9F97*$F;F;$\"+OOO17!\"($!+feee
W!\")$\"+$HHHf$FF$F,F;$\"+\\\\\\\\\\F2F@F@7*$F,FF$\"+====))FF$!+EEEEsF
F$\"*KJJJ$FFF@$\"+!3333)F2FIF@7*!#\"*!#H\"#m!#`F;F;F;F," }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "A:=addrow(A,2,5,91);" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7'7*\"\"$\"\"#\"\"\"\"\"%%\"_G
F.F.F.7*$\"+**********!#5$!+sssssF2$!+<<<<<F2$\"+&eeee)F2$!\"!\"\"!$!+
55555!#6F9F97*$F;F;$\"+OOO17!\"($!+feeeW!\")$\"+$HHHf$FF$F,F;$\"+\\\\
\\\\\\F2F@F@7*$F,FF$\"+====))FF$!+EEEEsFF$\"*KJJJ$FFF@$\"+!3333)F2FIF@
7*$!\"\"FF$!+====&*FF$\"+QPPP]FF$\"+7888DFFF9$!+\">>>>*F2F9FI" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "A:=mulrow(A,3,1/A[3,2]);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7'7*\"\"$\"\"#\"\"\"
\"\"%%\"_GF.F.F.7*$\"+**********!#5$!+sssssF2$!+<<<<<F2$\"+&eeee)F2$!
\"!\"\"!$!+55555!#6F9F97*$F;F;$\"+++++5!\"*$!+2)))ep$F2$\"+eOJyHF2$\"+
KXP*G)!#7$\"+Q<#G5%FJF@F@7*$F,!\")$\"+====))FO$!+EEEEsFO$\"*KJJJ$FOF@$
\"+!3333)F2$F,F;F@7*$!\"\"FO$!+====&*FO$\"+QPPP]FO$\"+7888DFOF9$!+\">>
>>*F2F9FX" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "A:=addrow(A,3,
2,-A[2,2]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7'7*
\"\"$\"\"#\"\"\"\"\"%%\"_GF.F.F.7*$\"+**********!#5$\"\"!F4$!+\\340WF2
$\"+)[!>v5!\"*$\"+BgjGg!#7$!+X(Rr6(F<F3F37*F3$\"+++++5F9$!+2)))ep$F2$
\"+eOJyHF2$\"+KXP*G)F<$\"+Q<#G5%F<F3F37*$F,!\")$\"+====))FL$!+EEEEsFL$
\"*KJJJ$FLF3$\"+!3333)F2$F,F4F37*$!\"\"FL$!+====&*FL$\"+QPPP]FL$\"+788
8DFL$!\"!F4$!+\">>>>*F2FinFU" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 25 "A:=addrow(A,3,4,-A[4,2]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%
\"AG-%'matrixG6#7'7*\"\"$\"\"#\"\"\"\"\"%%\"_GF.F.F.7*$\"+**********!#
5$\"\"!F4$!+\\340WF2$\"+)[!>v5!\"*$\"+BgjGg!#7$!+X(Rr6(F<F3F37*F3$\"++
+++5F9$!+2)))ep$F2$\"+eOJyHF2$\"+KXP*G)F<$\"+Q<#G5%F<F3F37*$F,!\")F3$!
+y1;nRFL$!+.!=]H#FL$!+y6s4tF2$\"+v_'GY%F2$F,F4F37*$!\"\"FL$!+====&*FL$
\"+QPPP]FL$\"+7888DFL$!\"!F4$!+\">>>>*F2FinFU" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 25 "A:=addrow(A,3,5,-A[5,2]);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"AG-%'matrixG6#7'7*\"\"$\"\"#\"\"\"\"\"%%\"_GF.F.F.7
*$\"+**********!#5$\"\"!F4$!+\\340WF2$\"+)[!>v5!\"*$\"+BgjGg!#7$!+X(Rr
6(F<F3F37*F3$\"+++++5F9$!+2)))ep$F2$\"+eOJyHF2$\"+KXP*G)F<$\"+Q<#G5%F<
F3F37*$F,!\")F3$!+y1;nRFL$!+.!=]H#FL$!+y6s4tF2$\"+v_'GY%F2$F,F4F37*$!
\"\"FLF3$\"+u&f&>:FL$\"+.W%zM&FL$\"+&Rx**)yF2$!+k)ynG&F2F3FU" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "A:=swaprow(A,4,5):A:=swapcol
(A,4,3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7'7*\"\"
$\"\"#\"\"%\"\"\"%\"_GF.F.F.7*$\"+**********!#5$\"\"!F4$\"+)[!>v5!\"*$
!+\\340WF2$\"+BgjGg!#7$!+X(Rr6(F<F3F37*F3$\"+++++5F7$\"+eOJyHF2$!+2)))
ep$F2$\"+KXP*G)F<$\"+Q<#G5%F<F3F37*$!\"\"!\")F3$\"+.W%zM&FM$\"+u&f&>:F
M$\"+&Rx**)yF2$!+k)ynG&F2F3$F-F47*$F-FMF3$!+.!=]H#FM$!+y1;nRFM$!+y6s4t
F2$\"+v_'GY%F2FVF3" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "A:=mu
lrow(A,4,1/A[4,3]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrix
G6#7'7*\"\"$\"\"#\"\"%\"\"\"%\"_GF.F.F.7*$\"+**********!#5$\"\"!F4$\"+
)[!>v5!\"*$!+\\340WF2$\"+BgjGg!#7$!+X(Rr6(F<F3F37*F3$\"+++++5F7$\"+eOJ
yHF2$!+2)))ep$F2$\"+KXP*G)F<$\"+Q<#G5%F<F3F37*$!+It()p=!#>F3F@$\"+****
QTGF2$\"+()*G`Z\"!#6$!+Zzi&))*F<F3$\"+It()p=FR7*$F-!\")F3$!+.!=]H#FY$!
+y1;nRFY$!+y6s4tF2$\"+v_'GY%F2$F-F4F3" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 25 "A:=addrow(A,4,2,-A[2,3]);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"AG-%'matrixG6#7'7*\"\"$\"\"#\"\"%\"\"\"%\"_GF.F.F.7
*$\"+++++5!\"*$\"\"!F4F3$!+\\j7gu!#5$!+24'R$)*!#7$\"+&R$z6NF:F3$!+>VZ5
?!#67*F3F0$\"+eOJyHF7$!+2)))ep$F7$\"+KXP*G)F:$\"+Q<#G5%F:F3F37*$!+It()
p=!#>F3F0$\"+****QTGF7$\"+()*G`Z\"F?$!+Zzi&))*F:F3$\"+It()p=F?7*$F-!\"
)F3$!+.!=]H#FW$!+y1;nRFW$!+y6s4tF7$\"+v_'GY%F7$F-F4F3" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "A:=addrow(A,4,3,-A[3,3]);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7'7*\"\"$\"\"#\"\"%\"\"\"%
\"_GF.F.F.7*$\"+++++5!\"*$\"\"!F4F3$!+\\j7gu!#5$!+24'R$)*!#7$\"+&R$z6N
F:F3$!+>VZ5?!#67*$\"+\">\"3pb!#?F0F3$!+rQ9UXF7$\"+g?Q&*QF:$\"+6=2ZqF:F
3$!+\">\"3pbF:7*$!+It()p=!#>F3F0$\"+****QTGF7$\"+()*G`Z\"F?$!+Zzi&))*F
:F3$\"+It()p=F?7*$F-!\")F3$!+.!=]H#FZ$!+y1;nRFZ$!+y6s4tF7$\"+v_'GY%F7$
F-F4F3" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "A:=addrow(A,4,5,-
A[5,3]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7'7*\"\"
$\"\"#\"\"%\"\"\"%\"_GF.F.F.7*$\"+++++5!\"*$\"\"!F4F3$!+\\j7gu!#5$!+24
'R$)*!#7$\"+&R$z6NF:F3$!+>VZ5?!#67*$\"+\">\"3pb!#?F0F3$!+rQ9UXF7$\"+g?
Q&*QF:$\"+6=2ZqF:F3$!+\">\"3pbF:7*$!+It()p=!#>F3F0$\"+****QTGF7$\"+()*
G`Z\"F?$!+Zzi&))*F:F3$\"+It()p=F?7*$\"+kyf3d!#=F3F3$!+el0:L!\")$!+#f9Q
#RF7$\"+ke4%>#F7$F-F4$\"+O@S\"H%F7" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 24 "A:=mulrow(A,5,1/A[5,4]);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"AG-%'matrixG6#7'7*\"\"$\"\"#\"\"%\"\"\"%\"_GF.F.F.7
*$\"+++++5!\"*$\"\"!F4F3$!+\\j7gu!#5$!+24'R$)*!#7$\"+&R$z6NF:F3$!+>VZ5
?!#67*$\"+\">\"3pb!#?F0F3$!+rQ9UXF7$\"+g?Q&*QF:$\"+6=2ZqF:F3$!+\">\"3p
bF:7*$!+It()p=!#>F3F0$\"+****QTGF7$\"+()*G`Z\"F?$!+Zzi&))*F:F3$\"+It()
p=F?7*$!+e7-A<FO$!\"!F4FenF0$\"+$GMO=\"F?$!+oud=mF:$!+'yRl,$F?$!+G&=XH
\"F?" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "A:=addrow(A,5,2,-A[
2,4]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7'7*\"\"$
\"\"#\"\"%\"\"\"%\"_GF.F.F.7*$\"+**********!#5$\"\"!F4F3F3$!+0'**Q+\"!
#7$!+@!\\dU\"F7$!+%zw.D#!#6$!+(\\,i(HF<7*$\"+\">\"3pb!#?$\"+++++5!\"*F
3$!+rQ9UXF2$\"+g?Q&*QF7$\"+6=2ZqF7F3$!+\">\"3pbF77*$!+It()p=!#>F3FC$\"
+****QTGF2$\"+()*G`Z\"F<$!+Zzi&))*F7F3$\"+It()p=F<7*$!+e7-A<FQ$!\"!F4F
gnFC$\"+$GMO=\"F<$!+oud=mF7$!+'yRl,$F<$!+G&=XH\"F<" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 25 "A:=addrow(A,5,3,-A[3,4]);" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7'7*\"\"$\"\"#\"\"%\"\"\"%\"_GF.F.
F.7*$\"+**********!#5$\"\"!F4F3F3$!+0'**Q+\"!#7$!+@!\\dU\"F7$!+%zw.D#!
#6$!+(\\,i(HF<7*$!+7re_A!#?$\"+++++5!\"*F3F3$\"+k#>;F*F7$\"+.(=3/%F7$!
+qd:q8F<$!+fq*[9\"F<7*$!+It()p=!#>F3FC$\"+****QTGF2$\"+()*G`Z\"F<$!+Zz
i&))*F7F3$\"+It()p=F<7*$!+e7-A<FQ$!\"!F4FgnFC$\"+$GMO=\"F<$!+oud=mF7$!
+'yRl,$F<$!+G&=XH\"F<" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "A:
=addrow(A,5,4,-A[4,4]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'ma
trixG6#7'7*\"\"$\"\"#\"\"%\"\"\"%\"_GF.F.F.7*$\"+**********!#5$\"\"!F4
F3F3$!+0'**Q+\"!#7$!+@!\\dU\"F7$!+%zw.D#!#6$!+(\\,i(HF<7*$!+7re_A!#?$
\"+++++5!\"*F3F3$\"+k#>;F*F7$\"+.(=3/%F7$!+qd:q8F<$!+fq*[9\"F<7*$!+KRe
!Q\"!#>F3FCF3$\"+EB,R6F<$!+k>.0!)F7$\"+!)f;r&)F7$\"+I0qPAF<7*$!+e7-A<F
Q$!\"!F4FgnFC$\"+$GMO=\"F<$!+oud=mF7$!+'yRl,$F<$!+G&=XH\"F<" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "A:=augment([3,2,4,1],submatr
ix(A,2..5,5..8));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6
#7&7'\"\"$$!+0'**Q+\"!#7$!+@!\\dU\"F-$!+%zw.D#!#6$!+(\\,i(HF27'\"\"#$
\"+k#>;F*F-$\"+.(=3/%F-$!+qd:q8F2$!+fq*[9\"F27'\"\"%$\"+EB,R6F2$!+k>.0
!)F-$\"+!)f;r&)F-$\"+I0qPAF27'\"\"\"$\"+$GMO=\"F2$!+oud=mF-$!+'yRl,$F2
$!+G&=XH\"F2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "A:=swaprow(
A,1,4);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7&7'\"\"
\"$\"+$GMO=\"!#6$!+oud=m!#7$!+'yRl,$F-$!+G&=XH\"F-7'\"\"#$\"+k#>;F*F0$
\"+.(=3/%F0$!+qd:q8F-$!+fq*[9\"F-7'\"\"%$\"+EB,R6F-$!+k>.0!)F0$\"+!)f;
r&)F0$\"+I0qPAF-7'\"\"$$!+0'**Q+\"F0$!+@!\\dU\"F0$!+%zw.D#F-$!+(\\,i(H
F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "A:=swaprow(A,3,4);" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7&7'\"\"\"$\"+$GMO=
\"!#6$!+oud=m!#7$!+'yRl,$F-$!+G&=XH\"F-7'\"\"#$\"+k#>;F*F0$\"+.(=3/%F0
$!+qd:q8F-$!+fq*[9\"F-7'\"\"$$!+0'**Q+\"F0$!+@!\\dU\"F0$!+%zw.D#F-$!+(
\\,i(HF-7'\"\"%$\"+EB,R6F-$!+k>.0!)F0$\"+!)f;r&)F0$\"+I0qPAF-" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "B:=submatrix(A,1..4,2..5);" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"BG-%'matrixG6#7&7&$\"+$GMO=\"!#6
$!+oud=m!#7$!+'yRl,$F,$!+G&=XH\"F,7&$\"+k#>;F*F/$\"+.(=3/%F/$!+qd:q8F,
$!+fq*[9\"F,7&$!+0'**Q+\"F/$!+@!\\dU\"F/$!+%zw.D#F,$!+(\\,i(HF,7&$\"+E
B,R6F,$!+k>.0!)F/$\"+!)f;r&)F/$\"+I0qPAF," }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 72 "A:=matrix(4,4,[-53,85,49,78,17,72,-99,-85,-86,30,80
,72,66,-29,-91,-53]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matr
ixG6#7&7&!#`\"#&)\"#\\\"#y7&\"#<\"#s!#**!#&)7&!#')\"#I\"#!)F07&\"#m!#H
!#\"*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "evalm(A &* B);" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7&7&$\"+,+++5!\"*$\"\"%!
#5F+$!\"\"F*7&$!#6F-$\"+'*********F-$!\"$F-$\"\"!F87&$\"#7F-$\"\"#F-F(
F77&$!\"'F-F5$\"\"\"F-$\"+++++5F*" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 14 "evalm(B &* A);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'
matrixG6#7&7&$\"+++++5!\"*$\"\"'!#5$!\"\"F*$!\"#F-7&$\"\"\"F-F($\"\"!F
6$!\"$F-7&$F4F*F5$\"**********F*F.7&F5$\"#9F-F5$\"+,+++5F*" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "54 0 0" 0 }{VIEWOPTS 1 
1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }