{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 "" -1 256 "" 1 24 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 257 "" 1 24 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }{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 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "with(linalg):" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT 256 14 "EX 18   p. 268" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 81 "Tss:=matrix([[1,1,-1,-1,2],[1,2,3,1,-1],[
2,3,1,3,0],[1,-3,0,-1,2],[1,-3,0,0,2]]);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 77 "Isi:=matrix([[1,0,2,-1,2],[0,1,1,0,2],[1,0,1,0,2],[1,
1,1,0,2],[1,0,1,2,-1]]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 
"Iis:=inverse(Isi);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "Tii:
=multiply(Iis,Tss,Isi);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "
Tis:=multiply(Iis,Tss);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "
Tsi:=multiply(Tss,Isi);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "
as:=vector([1,-3,-2,1,3]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
21 "bs:=multiply(Tss,as);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
21 "ai:=multiply(Iis,as);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
17 "multiply(Tsi,ai);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "bi
:=multiply(Tii,ai);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "mult
iply(Tis,as);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "multiply(I
si,bi);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "multiply(Iis,bs)
;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "for k from 1 by 1 to 5
 do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "  v[k]:=col(Isi,k);" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od;" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 62 "evalm(ai[1]*v[1]+ai[2]*v[2]+ai[3]*v[3]+ai[4]*v[4]+ai[
5]*v[5]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "evalm(as);" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 62 "evalm(bi[1]*v[1]+bi[2]*v[2]
+bi[3]*v[3]+bi[4]*v[4]+bi[5]*v[5]);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 10 "evalm(bs);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 257 14 "EX 19   p.
 269" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "Tss:=matrix([[1,1,0
,0],[0,1,-1,0],[1,1,1,0],[0,1,-1,0]]);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 58 "Isi:=matrix([[1,0,1,0],[-1,1,0,0],[0,1,0,1],[1,1,-1,-
1]]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "Iis:=inverse(Isi);
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "as:=vector([3,-5,2,-1])
;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "28" 0 }
{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }