{VERSION 3 0 "IBM INTEL NT" "3.0" }
{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 3 }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 "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 }{PSTYLE "" 11 12 1 
{CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }1 0 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" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#7^r%.BlockDiagonalG%,GramSchmidtG%,Jor
danBlockG%)LUdecompG%)QRdecompG%*WronskianG%'addcolG%'addrowG%$adjG%(a
djointG%&angleG%(augmentG%(backsubG%%bandG%&basisG%'bezoutG%,blockmatr
ixG%(charmatG%)charpolyG%)choleskyG%$colG%'coldimG%)colspaceG%(colspan
G%*companionG%'concatG%%condG%)copyintoG%*crossprodG%%curlG%)definiteG
%(delcolsG%(delrowsG%$detG%%diagG%(divergeG%(dotprodG%*eigenvalsG%,eig
envaluesG%-eigenvectorsG%+eigenvectsG%,entermatrixG%&equalG%,exponenti
alG%'extendG%,ffgausselimG%*fibonacciG%+forwardsubG%*frobeniusG%*gauss
elimG%*gaussjordG%(geneqnsG%*genmatrixG%%gradG%)hadamardG%(hermiteG%(h
essianG%(hilbertG%+htransposeG%)ihermiteG%*indexfuncG%*innerprodG%)int
basisG%(inverseG%'ismithG%*issimilarG%'iszeroG%)jacobianG%'jordanG%'ke
rnelG%*laplacianG%*leastsqrsG%)linsolveG%'mataddG%'matrixG%&minorG%(mi
npolyG%'mulcolG%'mulrowG%)multiplyG%%normG%*normalizeG%*nullspaceG%'or
thogG%*permanentG%&pivotG%*potentialG%+randmatrixG%+randvectorG%%rankG
%(ratformG%$rowG%'rowdimG%)rowspaceG%(rowspanG%%rrefG%*scalarmulG%-sin
gularvalsG%&smithG%,stackmatrixG%*submatrixG%*subvectorG%)sumbasisG%(s
wapcolG%(swaprowG%*sylvesterG%)toeplitzG%&traceG%*transposeG%,vandermo
ndeG%*vecpotentG%(vectdimG%'vectorG%*wronskianG" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 39 "a := matrix(2, 3, [5, 2, 1, 1, 1, -4]);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"aG-%'matrixG6#7$7%\"\"&\"\"#\"\"\"
7%F,F,!\"%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "gaussjord(a);
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7$7%\"\"\"\"\"!\"\"$7%
F)F(!\"(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "b := matrix(3, \+
4, [1, 0, 1, 4, 2, -2, 5, 13, -4, 0, 2, 2]);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"bG-%'matrixG6#7%7&\"\"\"\"\"!F*\"\"%7&\"\"#!\"#\"\"
&\"#87&!\"%F+F.F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "gaussj
ord(b);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7%7&\"\"\"\"\"!
F)F(7&F)F(F)\"\"#7&F)F)F(\"\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 33 "c := matrix(2,3,[2,-1,5,1,1,13]);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"cG-%'matrixG6#7$7%\"\"#!\"\"\"\"&7%\"\"\"F.\"#8" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "gaussjord(c);" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#-%'matrixG6#7$7%\"\"\"\"\"!\"\"'7%F)F(\"\"(" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "d := matrix(2, 4, [7,-1,-1,0
,2,4,1,-3]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"dG-%'matrixG6#7$7&
\"\"(!\"\"F+\"\"!7&\"\"#\"\"%\"\"\"!\"$" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 13 "gaussjord(d);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'m
atrixG6#7$7&\"\"\"\"\"!#!\"\"\"#5F*7&F)F(#\"\"$F,#!\"(F," }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "e := matrix(3, 5, [1,0,2,0,6,0,1,3,
0,1,0,0,0,1,3]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"eG-%'matrixG6#
7%7'\"\"\"\"\"!\"\"#F+\"\"'7'F+F*\"\"$F+F*7'F+F+F+F*F/" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "gaussjord(e);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#-%'matrixG6#7%7'\"\"\"\"\"!\"\"#F)\"\"'7'F)F(\"\"$F)F(7
'F)F)F)F(F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "f := matrix(
3,3, [1, 1, -2, 1, -2, 1, 3, 1, -2]);" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#>%\"fG-%'matrixG6#7%7%\"\"\"F*!\"#7%F*F+F*7%\"\"$F*F+" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "multiply(f, e);" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#-%'matrixG6#7%7'\"\"\"F(\"\"&!\"#F(7'F(F*!\"%F(\"\"(7
'\"\"$F(\"\"*F*\"#8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "gaus
sjord(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7%7'\"\"\"\"
\"!\"\"#F)\"\"'7'F)F(\"\"$F)F(7'F)F)F)F(F-" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 36 "g := matrix(2,4, [1,2,1,7,0,0,1,4]);" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%\"gG-%'matrixG6#7$7&\"\"\"\"\"#F*\"\"(7&\"\"!F
.F*\"\"%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "h := matrix(3,2
,[1,-3,-2,5,7,-4]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"hG-%'matrix
G6#7%7$\"\"\"!\"$7$!\"#\"\"&7$\"\"(!\"%" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "multiply(h, g);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%
'matrixG6#7%7&\"\"\"\"\"#!\"#!\"&7&F*!\"%\"\"$\"\"'7&\"\"(\"#9F.\"#L" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "gaussjord(%);" }}{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 11 "backsub
(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'vectorG6#7%,&\"\"$\"\"\"&%#
_tG6#F)!\"#F*\"\"%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "with(
linalg):" }}{PARA 7 "" 1 "" {TEXT -1 32 "Warning, new definition for n
orm" }}{PARA 7 "" 1 "" {TEXT -1 33 "Warning, new definition for trace
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "a := matrix(3,3,[2,0,1,
-1,1,1,2,1,2]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"aG-%'matrixG6#7
%7%\"\"#\"\"!\"\"\"7%!\"\"F,F,7%F*F,F*" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 11 "inverse(a);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'mat
rixG6#7%7%!\"\"F(\"\"\"7%!\"%!\"#\"\"$7%F-\"\"#F," }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 7 "b := %;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%
\"bG-%'matrixG6#7%7%\"\"#\"\"!\"\"\"7%!\"\"F,F,7%F*F,F*" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "multiply(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 0 "" }}}}{MARK "24 0 0" 0 }
{VIEWOPTS 1 1 0 1 1 1803 }