{VERSION 2 3 "IBM INTEL NT" "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 "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 6 "n:=11;" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%\"nG\"#6" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 12 "a:=0; b:=Pi;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"a
G\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"bG%#PiG" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "h:=evalf((b-a)/n);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%\"hG$\"+AL*f&G!#5" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 13 "x:=vector(n);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"
xG-%&arrayG6$;\"\"\"\"#67\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
36 "for i from 1 to n do x[i]:=a+i*h od:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 19 "A:=matrix(n-1,n-1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#>%\"AG-%&arrayG6%;\"\"\"\"#5F(7\"" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 74 "for i from 1 to n-1 do\n   for j from 1 to n-1 do\n  \+
    A[i,j]:=0\n   od\nod;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
36 "for i from 1 to n-1 do A[i,i]:=2 od:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 39 "for i from 1 to n-2 do A[i,i+1]:=-1 od:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "for i from 1 to n-2 do A[i+1,i]:=-1
 od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "evalm(A);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#-%'MATRIXG6#7,7,\"\"#!\"\"\"\"!F*F*F*F*F*F*F
*7,F)F(F)F*F*F*F*F*F*F*7,F*F)F(F)F*F*F*F*F*F*7,F*F*F)F(F)F*F*F*F*F*7,F
*F*F*F)F(F)F*F*F*F*7,F*F*F*F*F)F(F)F*F*F*7,F*F*F*F*F*F)F(F)F*F*7,F*F*F
*F*F*F*F)F(F)F*7,F*F*F*F*F*F*F*F)F(F)7,F*F*F*F*F*F*F*F*F)F(" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "c:=vector(n-1);" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#>%\"cG-%&arrayG6$;\"\"\"\"#57\"" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "for i from 1 to n-1 do c[i]:=h^2*si
n(x[i]) od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "evalm(c);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#-%'VECTORG6#7,$\"+Vt+)H#!#6$\"+'zV)4WF
)$\"+L4UkhF)$\"+ZLf>uF)$\"+KWnt!)F)F0$\"+YLf>uF)$\"+G4UkhF)$\"+#zV)4WF
)$\"+Qt+)H#F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "with(linal
g):" }}{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 17 "u:=linsolve(A,c);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%\"uG-%'VECTORG6#7,$\"+%)RbOG!#5$\"+LsIVaF+
$\"+.h24wF+$\"+zGSe\"*F+$\"+>.xl**F+$\"+?.xl**F+$\"+yGSe\"*F+F.F,F)" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "16 0 0" 0 }
{VIEWOPTS 1 1 0 3 2 1804 }