{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 "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 "Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 
0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
22 "a:=1.0; b:=2.0; n:=20;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"aG$
\"#5!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"bG$\"#?!\"\"" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"nG\"#?" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 11 "h:=(b-a)/n;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"
hG$\"+++++]!#6" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "x:=array(
0..n,\n[seq( a+i*h, i=0..n)] ):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 15 "y:=array(0..n);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"yG-%&ar
rayG6$;\"\"!\"#?7\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 166 "sol
ve(\{y[0]=0.5,\nseq(\n(x[i]^2-2.0*x[i]*h)*y[i-1]\n-2.0*(x[i]^2-h^2)*y[
i]\n+(x[i]^2+2.0*x[i]*h)*y[i+1]\n=2.0*h^2*ln(x[i]),\ni=1..n-1),\ny[n]=
ln(2.0)\},\n\{seq( y[i],i=0..n)\}):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 10 "assign(\");" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 31 "pts:=[seq([x[i],y[i]],i=0..n)]:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 22 "plot(pts,style=point);" }}{PARA 13 "" 1 "" {INLPLOT "
6$-%'CURVESG6$777$$\"\"\"\"\"!$\"1+++++++]!#;7$$\"1++++++]5!#:$\"1+++r
HGVaF-7$$\"1+++++++6F1$\"1+++uS&*)y&F-7$$\"1++++++]6F1$\"1+++0dpegF-7$
$\"1+++++++7F1$\"1+++Ni1piF-7$$\"1++++++]7F1$\"1+++ZD#GV'F-7$$\"1+++++
++8F1$\"1+++5,()flF-7$$\"1++++++]8F1$\"1+++5U&zl'F-7$$\"1+++++++9F1$\"
1+++1(oJt'F-7$$\"1++++++]9F1$\"1+++$\\M.z'F-7$$\"1+++++++:F1$\"1*****
\\y$GLoF-7$$\"1++++++]:F1$\"1+++(fv]'oF-7$$\"1+++++++;F1$\"1+++K/;))oF
-7$$\"1++++++];F1$\"1,++<r]/pF-7$$\"1+++++++<F1$\"1+++(=,d\"pF-7$$\"1+
+++++]<F1$\"1+++-<-BpF-7$$\"1+++++++=F1$\"1+++*f,v#pF-7$$\"1++++++]=F1
$\"1+++v`(*HpF-7$$\"1+++++++>F1$\"1+++bp6JpF-7$$\"1++++++]>F1$\"1+++L*
p9$pF-7$$\"\"#F*$\"1+++1=ZJpF--%'COLOURG6&%$RGBG$\"#5!\"\"F*F*-%&STYLE
G6#%&POINTG" 2 270 168 168 5 0 1 0 2 9 0 4 2 1.000000 45.000000 
45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "plot(pts);" }}{PARA 13 "
" 1 "" {INLPLOT "6#-%'CURVESG6$777$$\"\"\"\"\"!$\"1+++++++]!#;7$$\"1++
++++]5!#:$\"1+++rHGVaF-7$$\"1+++++++6F1$\"1+++uS&*)y&F-7$$\"1++++++]6F
1$\"1+++0dpegF-7$$\"1+++++++7F1$\"1+++Ni1piF-7$$\"1++++++]7F1$\"1+++ZD
#GV'F-7$$\"1+++++++8F1$\"1+++5,()flF-7$$\"1++++++]8F1$\"1+++5U&zl'F-7$
$\"1+++++++9F1$\"1+++1(oJt'F-7$$\"1++++++]9F1$\"1+++$\\M.z'F-7$$\"1+++
++++:F1$\"1*****\\y$GLoF-7$$\"1++++++]:F1$\"1+++(fv]'oF-7$$\"1+++++++;
F1$\"1+++K/;))oF-7$$\"1++++++];F1$\"1,++<r]/pF-7$$\"1+++++++<F1$\"1+++
(=,d\"pF-7$$\"1++++++]<F1$\"1+++-<-BpF-7$$\"1+++++++=F1$\"1+++*f,v#pF-
7$$\"1++++++]=F1$\"1+++v`(*HpF-7$$\"1+++++++>F1$\"1+++bp6JpF-7$$\"1+++
+++]>F1$\"1+++L*p9$pF-7$$\"\"#F*$\"1+++1=ZJpF--%'COLOURG6&%$RGBG$\"#5!
\"\"F*F*" 2 270 152 152 2 0 1 0 2 9 0 4 2 1.000000 45.000000 
45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 -16422 -13959 0 
0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "plot( 4/x-2/x^2
+ln(x)-3/2,x=1..2);" }}{PARA 13 "" 1 "" {INLPLOT "6%-%'CURVESG6$7U7$$
\"\"\"\"\"!$\"1+++++++]!#;7$$\"1LL3x&)*3,\"!#:$\"11N)G_rg5&F-7$$\"1nm;
arz@5F1$\"155T&pGl?&F-7$$\"1+D\"y%*z7.\"F1$\"1*)G,ktg*G&F-7$$\"1L$e9ui
2/\"F1$\"121qT'e)o`F-7$$\"1nm\"z_\"4i5F1$\"11r;bf/MbF-7$$\"1nmT&phN3\"
F1$\"1HiSwAf$o&F-7$$\"1L$e*=)H\\5\"F1$\"1:`)oj]u\"eF-7$$\"1n;z/3uC6F1$
\"1*f#RH@_HfF-7$$\"1+]7LRDX6F1$\"1nE'Q!3aMgF-7$$\"1n;zR'ok;\"F1$\"1bn!
)*4xC8'F-7$$\"1+]i5`h(=\"F1$\"1K&G_1U.A'F-7$$\"1LL$3En$47F1$\"1vt!e7`:
I'F-7$$\"1nmT!RE&G7F1$\"1C)=;!*4hO'F-7$$\"1++]K]4]7F1$\"1N0'394<V'F-7$
$\"1++]PAvr7F1$\"1Q.8Nau!\\'F-7$$\"1++]nHi#H\"F1$\"17@'zn$yTlF-7$$\"1n
;z*ev:J\"F1$\"1M4_#>8Oe'F-7$$\"1LL$347TL\"F1$\"1TNa8zFGmF-7$$\"1LLLjM?
`8F1$\"10`KTK>imF-7$$\"1+]7o7Tv8F1$\"1=')e08b(p'F-7$$\"1LLLQ*o]R\"F1$
\"1;+e]>^DnF-7$$\"1+]7=lj;9F1$\"1$4;40FHv'F-7$$\"1+]PaR<P9F1$\"1\"3;jL
bhx'F-7$$\"1LLe9Ege9F1$\"1dG&=l'o(z'F-7$$\"1L$eR\"3Gy9F1$\"1-*RnGa_\"o
F-7$$\"1nmT5k]*\\\"F1$\"19'3^pi?$oF-7$$\"1n;zRQb@:F1$\"1q6S2xRZoF-7$$
\"1+](=>Y2a\"F1$\"1AJ\\Eh:foF-7$$\"1nm\"zXu9c\"F1$\"19(*[MZNqoF-7$$\"1
+++&y))Ge\"F1$\"1q([l7Z/)oF-7$$\"1++DE&QQg\"F1$\"1\\'\\P1;!*)oF-7$$\"1
+]7y%3Ti\"F1$\"1eHUq^?'*oF-7$$\"1++v.[hY;F1$\"1#HUI(H0.pF-7$$\"1LLLQx$
om\"F1$\"1!=wuE(H3pF-7$$\"1++]P+V)o\"F1$\"1FT=6Q08pF-7$$\"1n;zpe*zq\"F
1$\"1jT7#>&p;pF-7$$\"1++]#\\'QH<F1$\"1K'[G(G.?pF-7$$\"1L$e9S8&\\<F1$\"
1!=`6hJE#pF-7$$\"1+]i?=bq<F1$\"1<\"=fTc[#pF-7$$\"1LL$3s?6z\"F1$\"18V+9
\"3m#pF-7$$\"1+]7`Wl7=F1$\"1an*y@b!GpF-7$$\"1nmm'*RRL=F1$\"1'>\\UOH\"H
pF-7$$\"1nmTvJga=F1$\"1Hiu=X&*HpF-7$$\"1L$e9tOc(=F1$\"1l!zr/Y0$pF-7$$
\"1+++&Qk\\*=F1$\"1J/cZn#4$pF-7$$\"1LL3dg6<>F1$\"1*f#3\")3@JpF-7$$\"1n
mmw(Gp$>F1$\"1!G(ec%f8$pF-7$$\"1+]7oK0e>F1$\"1sy_^&R9$pF-7$$\"1+](=5s#
y>F1$\"1#)z?DuYJpF-7$$\"\"#F*$\"1a%*f0=ZJpF--%'COLOURG6&%$RGBG$\"#5!\"
\"F*F*-%+AXESLABELSG6$%\"xG%!G-%%VIEWG6$;F(F_[l%(DEFAULTG" 2 270 176 
176 2 0 1 0 2 9 0 4 2 1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 
0 0 0 0 0 0 0 0 1 1 0 0 0 140 2256 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 29 "plot1:=plot(pts,style=point):" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 40 "plot2:=plot(4/x-2/x^2+ln(x)-3/2,x=1..2):
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "plots[display](\{plot1,
plot2\});" }}{PARA 13 "" 1 "" {INLPLOT "6&-%'CURVESG6%777$$\"\"\"\"\"!
$\"1+++++++]!#;7$$\"1++++++]5!#:$\"1+++rHGVaF-7$$\"1+++++++6F1$\"1+++u
S&*)y&F-7$$\"1++++++]6F1$\"1+++0dpegF-7$$\"1+++++++7F1$\"1+++Ni1piF-7$
$\"1++++++]7F1$\"1+++ZD#GV'F-7$$\"1+++++++8F1$\"1+++5,()flF-7$$\"1++++
++]8F1$\"1+++5U&zl'F-7$$\"1+++++++9F1$\"1+++1(oJt'F-7$$\"1++++++]9F1$
\"1+++$\\M.z'F-7$$\"1+++++++:F1$\"1*****\\y$GLoF-7$$\"1++++++]:F1$\"1+
++(fv]'oF-7$$\"1+++++++;F1$\"1+++K/;))oF-7$$\"1++++++];F1$\"1,++<r]/pF
-7$$\"1+++++++<F1$\"1+++(=,d\"pF-7$$\"1++++++]<F1$\"1+++-<-BpF-7$$\"1+
++++++=F1$\"1+++*f,v#pF-7$$\"1++++++]=F1$\"1+++v`(*HpF-7$$\"1+++++++>F
1$\"1+++bp6JpF-7$$\"1++++++]>F1$\"1+++L*p9$pF-7$$\"\"#F*$\"1+++1=ZJpF-
-%'COLOURG6&%$RGBG$\"#5!\"\"F*F*-%&STYLEG6#%&POINTG-F$6$7UF'7$$\"1LL3x
&)*3,\"F1$\"11N)G_rg5&F-7$$\"1nm;arz@5F1$\"155T&pGl?&F-7$$\"1+D\"y%*z7
.\"F1$\"1*)G,ktg*G&F-7$$\"1L$e9ui2/\"F1$\"121qT'e)o`F-7$$\"1nm\"z_\"4i
5F1$\"11r;bf/MbF-7$$\"1nmT&phN3\"F1$\"1HiSwAf$o&F-7$$\"1L$e*=)H\\5\"F1
$\"1:`)oj]u\"eF-7$$\"1n;z/3uC6F1$\"1*f#RH@_HfF-7$$\"1+]7LRDX6F1$\"1nE'
Q!3aMgF-7$$\"1n;zR'ok;\"F1$\"1bn!)*4xC8'F-7$$\"1+]i5`h(=\"F1$\"1K&G_1U
.A'F-7$$\"1LL$3En$47F1$\"1vt!e7`:I'F-7$$\"1nmT!RE&G7F1$\"1C)=;!*4hO'F-
7$$\"1++]K]4]7F1$\"1N0'394<V'F-7$$\"1++]PAvr7F1$\"1Q.8Nau!\\'F-7$$\"1+
+]nHi#H\"F1$\"17@'zn$yTlF-7$$\"1n;z*ev:J\"F1$\"1M4_#>8Oe'F-7$$\"1LL$34
7TL\"F1$\"1TNa8zFGmF-7$$\"1LLLjM?`8F1$\"10`KTK>imF-7$$\"1+]7o7Tv8F1$\"
1=')e08b(p'F-7$$\"1LLLQ*o]R\"F1$\"1;+e]>^DnF-7$$\"1+]7=lj;9F1$\"1$4;40
FHv'F-7$$\"1+]PaR<P9F1$\"1\"3;jLbhx'F-7$$\"1LLe9Ege9F1$\"1dG&=l'o(z'F-
7$$\"1L$eR\"3Gy9F1$\"1-*RnGa_\"oF-7$$\"1nmT5k]*\\\"F1$\"19'3^pi?$oF-7$
$\"1n;zRQb@:F1$\"1q6S2xRZoF-7$$\"1+](=>Y2a\"F1$\"1AJ\\Eh:foF-7$$\"1nm
\"zXu9c\"F1$\"19(*[MZNqoF-7$$\"1+++&y))Ge\"F1$\"1q([l7Z/)oF-7$$\"1++DE
&QQg\"F1$\"1\\'\\P1;!*)oF-7$$\"1+]7y%3Ti\"F1$\"1eHUq^?'*oF-7$$\"1++v.[
hY;F1$\"1#HUI(H0.pF-7$$\"1LLLQx$om\"F1$\"1!=wuE(H3pF-7$$\"1++]P+V)o\"F
1$\"1FT=6Q08pF-7$$\"1n;zpe*zq\"F1$\"1jT7#>&p;pF-7$$\"1++]#\\'QH<F1$\"1
K'[G(G.?pF-7$$\"1L$e9S8&\\<F1$\"1!=`6hJE#pF-7$$\"1+]i?=bq<F1$\"1<\"=fT
c[#pF-7$$\"1LL$3s?6z\"F1$\"18V+9\"3m#pF-7$$\"1+]7`Wl7=F1$\"1an*y@b!GpF
-7$$\"1nmm'*RRL=F1$\"1'>\\UOH\"HpF-7$$\"1nmTvJga=F1$\"1Hiu=X&*HpF-7$$
\"1L$e9tOc(=F1$\"1l!zr/Y0$pF-7$$\"1+++&Qk\\*=F1$\"1J/cZn#4$pF-7$$\"1LL
3dg6<>F1$\"1*f#3\")3@JpF-7$$\"1nmmw(Gp$>F1$\"1!G(ec%f8$pF-7$$\"1+]7oK0
e>F1$\"1sy_^&R9$pF-7$$\"1+](=5s#y>F1$\"1#)z?DuYJpF-7$Fiq$\"1a%*f0=ZJpF
-F]r-%+AXESLABELSG6$%\"xG%!G-%%VIEWG6$;F(Fiq%(DEFAULTG" 2 270 186 186 
2 0 1 0 2 9 0 4 2 1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 
0 0 0 0 0 0 1 1 0 0 0 0 9172 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 26 "f:=x->4/x-2/x^2+ln(x)-3/2;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"fG:6#%\"xG6\"6$%)operatorG%&arrowGF(,**$9$!\"\"\"\"
%*$F.!\"#F2-%#lnG6#F.\"\"\"#!\"$\"\"#F6F(F(" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 40 "pts2:=[seq([x[i],y[i]-f(x[i])],i=0..n)]:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "plot(pts2);" }}{PARA 13 "" 
1 "" {INLPLOT "6#-%'CURVESG6$777$$\"\"\"\"\"!F*7$$\"1++++++]5!#:$\"1++
+++,Gt!#?7$$\"1+++++++6F.$\"1++++S`T6!#>7$$\"1++++++]6F.$\"1++++]$4M\"
F77$$\"1+++++++7F.$\"1++++]A19F77$$\"1++++++]7F.$\"1++++q.(Q\"F77$$\"1
+++++++8F.$\"1+++++A;8F77$$\"1++++++]8F.$\"1+++++b:7F77$$\"1+++++++9F.
$\"1++++gR*4\"F77$$\"1++++++]9F.$\"1*********H<x*F17$$\"1+++++++:F.$\"
1+++++D\\&)F17$$\"1++++++]:F.$\"1,++++([O(F17$$\"1+++++++;F.$\"1+++++U
TiF17$$\"1++++++];F.$\"1+++++n\">&F17$$\"1+++++++<F.$\"1+++++P@UF17$$
\"1++++++]<F.$\"1+++++-KLF17$$\"1+++++++=F.$\"1+++++RADF17$$\"1++++++]
=F.$\"1+++++&))y\"F17$$\"1+++++++>F.$\"1+++++DF6F17$$\"1++++++]>F.$\"1
+++++IE`!#@7$$\"\"#F*$!1+++++++S!#D-%'COLOURG6&%$RGBG$\"#5!\"\"F*F*" 
2 270 186 186 2 0 1 0 2 9 0 4 2 1.000000 45.000000 45.000000 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 767 11688 0 0 0 0 0 0 }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "18 0 0" 0 }{VIEWOPTS 1 
1 0 3 2 1804 }