{VERSION 2 3 "DEC ALPHA UNIX" "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 11 "l:=[1,2,3];" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"lG7%\"\"\"\"\"#\"\"$" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "v:=vector([1,2,3]);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%\"vG-%'VECTORG6#7%\"\"\"\"\"#\"\"$" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "m:=array(1..3,1..1,[[1],[2],[3]]);
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"mG-%'MATRIXG6#7%7#\"\"\"7#\"\"
#7#\"\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "m:=matrix(3,1,[
[1],[2],[3]]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"mG-%'MATRIXG6#7%
7#\"\"\"7#\"\"#7#\"\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "m
:=linalg[matrix](3,1,[[1],[2],[3]]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#>%\"mG-%'MATRIXG6#7%7#\"\"\"7#\"\"#7#\"\"$" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 14 "op(0,l),op(l);" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6&%%listG\"\"\"\"\"#\"\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
26 "op(0,eval(v)),op(eval(v));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%%&ar
rayG;\"\"\"\"\"$7%/F%F%/\"\"#F*/F&F&" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 26 "op(0,eval(m)),op(eval(m));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6&%&arrayG;\"\"\"\"\"$;F%F%7%/6$F%F%F%/6$\"\"#F%F-/6$F&F%
F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "w:=linalg[transpose](
eval(v));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"wG-%*transposeG6#-%'V
ECTORG6#7%\"\"\"\"\"#\"\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
26 "op(0,eval(w)),op(eval(w));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%*tr
ansposeG-%'VECTORG6#7%\"\"\"\"\"#\"\"$" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 11 "evalm(v-w);" }}{PARA 8 "" 1 "" {TEXT -1 56 "Error, (i
n linalg/matadd) matrix dimensions incompatible" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "11 0 0" 0 }{VIEWOPTS 1 1 0 1 1 
1803 }