{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 12 "with(plots):" }}
{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoords has been r
edefined\n" }}}{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 redefined and unprotected\n" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 17 "c:=matrix(10,10);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%\"cG-%&arrayG6%;\"\"\"\"#5F(7\"" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 74 "for i from 1 to 10 do c[i,1]:=2*10^(-7)-0.5*10^(-7)*e
xp(-i/10000): end do:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "fo
r j from 1 to 10 do c[1,j]:=2*10^(-7)-0.5*10^(-7)*exp(0.5*j/10000): en
d do:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 98 "for j from 2 to 9 \+
do  for i from 2 to 9 do  c[i,j+1]:=c[i,j]-0.5*(c[i,j]-c[i-1,j]); end \+
do end do:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "C:=evalm(c):
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "matrixplot(C);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "7 0 0" 14 }
{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }