{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 }
{CSTYLE "" 0 21 "" 0 1 0 0 0 1 0 0 0 0 2 0 0 0 0 }{CSTYLE "" -1 256 "
" 0 1 128 0 128 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 257 "" 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 "T
ext 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 }{PSTYLE "Title" 0 18 1 {CSTYLE "" -1 -1 "" 1 
18 0 0 0 0 0 1 1 0 0 0 0 0 0 }3 0 0 -1 12 12 0 0 0 0 0 0 19 0 }
{PSTYLE "Author" 0 19 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 
0 0 }3 0 0 -1 8 8 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 18 "" 0 "" {TEXT 256 14 "Leontief Model" }}{PARA 
19 "" 0 "" {TEXT 257 24 "Linear Algebra 1999 Fall" }}{PARA 0 "" 0 "" 
{MPLTEXT 0 21 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 32 "Warning, new definition for norm" }}
{PARA 7 "" 1 "" {TEXT -1 33 "Warning, new definition for trace" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "C:=matrix(3,3,[.50,.40,.20,.
20,.30,.10,.10,.10,.30]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"CG-%'
matrixG6#7%7%$\"#]!\"#$\"#SF,$\"#?F,7%F/$\"#IF,$\"#5F,7%F4F4F2" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "Id:=matrix(3,3,proc(i,j) if \+
i=j then 1 else 0 fi end);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#IdG-%
'matrixG6#7%7%\"\"\"\"\"!F+7%F+F*F+7%F+F+F*" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 12 "evalm(Id-C);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%
'matrixG6#7%7%$\"#]!\"#$!#SF*$!#?F*7%F-$\"#qF*$!#5F*7%F2F2F0" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "d:=matrix(3,1,[50,30,20]);" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"dG-%'matrixG6#7%7#\"#]7#\"#I7#\"
#?" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "augment((Id-C),d);" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7%7&$\"#]!\"#$!#SF*$!#?F*
F)7&F-$\"#qF*$!#5F*\"#I7&F2F2F0\"#?" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 8 "rref(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG
6#7%7&\"\"\"\"\"!F)$\"+g#f#fA!\"(7&F)F(F)$\"+&=&=&=\"F,7&F)F)F($\"+yxx
xx!\")" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}
{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" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 53 "C:=matrix(3,3,[.50,.40,.20,.20,.30,.10,.10,.10
,.30]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"CG-%'matrixG6#7%7%$\"#]
!\"#$\"#SF,$\"#?F,7%F/$\"#IF,$\"#5F,7%F4F4F2" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 54 "Id:=matrix(3,3,proc(i,j) if i=j then 1 else 0 fi
 end);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#IdG-%'matrixG6#7%7%\"\"\"
\"\"!F+7%F+F*F+7%F+F+F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "
d:=matrix(3,1,[50,30,20]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"dG-%
'matrixG6#7%7#\"#]7#\"#I7#\"#?" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 29 "evalm((Id+C+C^2+C^3+C^4)&*d);" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#-%'matrixG6#7%7#$\"+++rb;!\"(7#$\"+++5M))!\")7#$\"+++!)GeF." }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "LeonT:=proc(n::posint)" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "  evalm((Id+sum('C^k','k'=1..n))&*d
);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end:" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 10 "LeonT(50);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%
'matrixG6#7%7#$\"+TmDfA!\"(7#$\"+wQ=&=\"F*7#$\"+C$pxx(!\")" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "seq(LeonT(i),i=20..30);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6--%'matrixG6#7%7#$\"+Y%G5D#!\"(7#$\"+y(p5=\"F
*7#$\"+zC?^x!\")-F$6#7%7#$\"+$=mHD#F*7#$\"+Z'Q?=\"F*7#$\"+l*euv(F1-F$6
#7%7#$\"+IxWaAF*7#$\"+?%zF=\"F*7#$\"+>DCixF1-F$6#7%7#$\"+%[!ebAF*7#$\"
+(zXL=\"F*7#$\"+0***ew(F1-F$6#7%7#$\"+flWcAF*7#$\"+N)yP=\"F*7#$\"+bipo
xF1-F$6#7%7#$\"+R(3rD#F*7#$\"+D*4T=\"F*7#$\"+qU$3x(F1-F$6#7%7#$\"+C]hd
AF*7#$\"+nIO%=\"F*7#$\"+Y*oCx(F1-F$6#7%7#$\"+=@+eAF*7#$\"+:mb%=\"F*7#$
\"+x(=Px(F1-F$6#7%7#$\"+!3)HeAF*7#$\"+'f/Z=\"F*7#$\"+mVnuxF1-F$6#7%7#$
\"+lV_eAF*7#$\"+Rx\"[=\"F*7#$\"+()\\SvxF1-F$6#7%7#$\"+ztpeAF*7#$\"+XU!
\\=\"F*7#$\"+,O'fx(F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "Di
gits:=30;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'DigitsG\"#I" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "LeonT(30);" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#-%'matrixG6#7%7#$\"?&R-aMG-U$f0ytpeA!#F7#$\"?`nDG(pc
E_$eWU!\\=\"F*7#$\"?!H>yb1^#H#f,gjfx(!#G" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}}{MARK "0 1 0" 24 }{VIEWOPTS 1 1 0 1 1 1803 }