{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 }
{CSTYLE "" -1 257 "" 1 10 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
260 "" 1 10 0 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE "" -1 261 "" 1 10 0 
0 0 0 0 2 2 0 0 0 0 0 0 0 }{CSTYLE "" -1 262 "" 1 10 0 0 0 0 0 0 2 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 }{PSTYLE "Warni
ng" -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 }{PSTYLE "Maple Output" -1 12 1 {CSTYLE "" -1 -1 "Ti
mes" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 3 0 0 0 0 1 0 1 0 2 2 0 1 }
{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 
2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Title" -1 18 
1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 1 2 2 2 1 1 1 1 }3 1 0 0 
12 12 1 0 1 0 2 2 19 1 }{PSTYLE "Title" -1 256 1 {CSTYLE "" -1 -1 "Tim
es" 1 18 0 0 0 1 2 2 1 2 2 2 1 1 1 1 }1 1 0 0 12 12 1 0 1 0 2 2 19 1 }
}
{SECT 0 {EXCHG {PARA 18 "" 0 "" {TEXT -1 29 "Comparation of aprxiomati
on:\n" }}}{EXCHG {PARA 256 "" 0 "" {TEXT 257 1 "e" }{TEXT 262 12 "xamp
le: tayl" }{TEXT 261 0 "" }{TEXT 260 15 "or and lagrange" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 270 "\nLagrange:=proc(X,Y)\nlocal C,J,N
,x,i,j,substitut,xxx;\ni:='i';\nXpom:=convert(X,list);\nN:=nops(Xpom);
\nfor j from 1 to N do\nC[j]:=product((x-X[i]),i=1..N)/(x-X[j]);\nJ[j]
:=subs(x=X[j],C[j]);\n#print(C[j],J[j]);\nod;\ni:='i';\nxxx:=sum(C[i]/
J[i]*Y[i],i=1..N);\nunapply(xxx,x)\nend;" }}{PARA 7 "" 1 "" {TEXT -1 
69 "Warning, `Xpom` is implicitly declared local to procedure `Lagrang
e`\n" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%)LagrangeGf*6$%\"XG%\"YG6+%
\"CG%\"JG%\"NG%\"xG%\"iG%\"jG%*substitutG%$xxxG%%XpomG6\"F3C)>8(.F6>8,
-%(convertG6$9$%%listG>8&-%%nopsG6#F9?(8)\"\"\"FFF@%%trueGC$>&8$6#FE*&
-%(productG6$,&8'FF&F=6#F6!\"\"/F6;FFF@FF,&FRFF&F=FLFUFU>&8%FL-%%subsG
6$/FRFYFJ>F6F7>8+-%$sumG6$*(&FKFTFF&FfnFTFU&9%FTFFFV-%(unapplyG6$F]oFR
F3F3F3" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 17 "readlib(mtaylor);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "
f:=x->exp(x)*log(x);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGf*6#%
\"xG6\"6$%)operatorG%&arrowGF(*&-%$expG6#9$\"\"\"-%$logGF/F1F(F(F(" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 97 "x:='x';\nA:=#unapply(evalf(
\nmtaylor(f(x),x=1.5,5) # taylor [polynom. on point 1.5 degree 4\n#),x
)\n;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xGF$" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"AG,,$!+TLF!R&!\"*\"\"\"*&$\"+c7'\\![F(F)%\"xGF)F)*&
$\"+\"3Y/!HF(F)),&F-F)$\"#:!\"\"F5\"\"#F)F)*&$\"+MGYV7F(F))F2\"\"$F)F)
*&$\"+ZLLqH!#5F))F2\"\"%F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 84 "x:=seq(i/2 ,i=1..5);\ny:=seq(evalf(f(x[i])), i=1..5 )\n;B:=evalf
(\nLagrange([x],[y])\n);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG6'#
\"\"\"\"\"#F'#\"\"$F(F(#\"\"&F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%
\"yG6'$!+,l!G9\"!\"*$\"\"!F*$\"+V&or\"=F($\"+-Mq@^F($\"+J1F;6!\")" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%\"BGf*6#%\"xG6\"6$%)operatorG%&arrow
GF(,***,&9$\"\"\"F0!\"\"F0,&F/F0#\"\"$\"\"#F1F0,&F/F0F5F1F0,&F/F0#\"\"
&F5F1F0$!+2+r=w!#5*,$\"+sTnos!\"*F0,&F/F0#F0F5F1F0F.F0F6F0F7F0F0*,$\"+
uvyl8!\")F0FAF0F.F0F2F0F7F0F1*,$\"+2U!=W(F@F0FAF0F.F0F2F0F6F0F0F(F(F(
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "x:='x';\nplot(\{\nf(x)
\n,A(x)\n,B(x)\n\},x=0.5..2.5);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%
\"xGF$" }}{PARA 13 "" 1 "" {GLPLOT2D 709 560 560 {PLOTDATA 2 "6'-%'CUR
VESG6$7S7$$\"3++++++++]!#=$!3,++IJhxL5!#<7$$\"3JLLL$3VfV&F*$!3CuEBq!)
\\X'*F*7$$\"3Dnm;H[D:eF*$!3eL&fy3\"R8!*F*7$$\"3LLLLe0$=C'F*$!3sG1_O3()
o#)F*7$$\"3'QLL$3RBrmF*$!3)f0U5DCE[(F*7$$\"3=mm;zjf)4(F*$!3'pntgJ\"Rim
F*7$$\"3=LL$e4;[\\(F*$!33y))[HG<neF*7$$\"3C++]i'y]!zF*$!3_bw@S,>2]F*7$
$\"3,LL$ezs$H$)F*$!3?3DciR+xSF*7$$\"3_****\\7iI_()F*$!3U%[Dbr.m5$F*7$$
\"3#pmmm@Xt=*F*$!31!)=v/3:h?F*7$$\"3QLLL3y_q&*F*$!3];)f[(ob)4\"F*7$$\"
3'******\\1!>+5F-$\"3cY<vXeAUM!#?7$$\"3*******\\Z/N/\"F-$\"3Zs%z*QEaF7
F*7$$\"35+++NfC&3\"F-$\"3sfKtUx,LCF*7$$\"3LLLez6:B6F-$\"3[(e!*>nUxd$F*
7$$\"3_mmm\"=C#o6F-$\"3X4'*>G:`/]F*7$$\"3gmmmEpS17F-$\"3[Z>I5\\8siF*7$
$\"3%)***\\i`A3D\"F-$\"3vjY'\\$fu=yF*7$$\"3Ymmmwy8!H\"F-$\"3-k&yoaShD*
F*7$$\"3/++DOIFL8F-$\"3=Cqt'pW64\"F-7$$\"3!****\\(3zMu8F-$\"3[\\ZU_e\"
oD\"F-7$$\"3emm;H_?<9F-$\"3S*zPEeL&Q9F-7$$\"3mmm\"zihlX\"F-$\"3,gO1;3#
Qh\"F-7$$\"3KLL$3#G,*\\\"F-$\"3lQgq5!GC\"=F-7$$\"3<LLezw5V:F-$\"3fT[PD
(*yH?F-7$$\"3!****\\PQ#\\\"e\"F-$\"3WR.qGUoGAF-7$$\"3BLL$e\"*[Hi\"F-$
\"3)*\\L_Qm:aCF-7$$\"3#*******pvxl;F-$\"35C)>]YB$*p#F-7$$\"3z****\\_qn
2<F-$\"3_`AyyX$=&HF-7$$\"3%)***\\i&p@[<F-$\"3%4/\"zxlo3KF-7$$\"3#)****
\\2'HKz\"F-$\"3VNl*>ij!4NF-7$$\"3_mmmwanL=F-$\"3eKA&=GyKz$F-7$$\"3'***
***\\2go(=F-$\"3g3ikpLW7TF-7$$\"3CLLeR<*f\">F-$\"3F.CqE0K;WF-7$$\"3'**
****\\)Hxe>F-$\"3=)4+fZX_w%F-7$$\"3Ymm\"H!o-**>F-$\"3+JH2Y?@5^F-7$$\"3
))***\\7k.6/#F-$\"3QEw+^*[))[&F-7$$\"3emmmT9C#3#F-$\"3!*G&y^qcw(eF-7$$
\"3\"****\\i!*3`7#F-$\"3)*>:T0TI0jF-7$$\"3;LLL$*zym@F-$\"3Hgf#f+mzt'F-
7$$\"30LL$3N1#4AF-$\"3t;c31!GC?(F-7$$\"3kmm\"HYt7D#F-$\"3M!z5q>Sfo(F-7
$$\"3%*******p(G**G#F-$\"3e*)4eB0:^\")F-7$$\"3Umm;9@BMBF-$\"3l,G<M*e*4
()F-7$$\"3/LLL`v&QP#F-$\"3#[JS2Y^QB*F-7$$\"30++DOl5;CF-$\"3\\?>Y*Hp%=)
*F-7$$\"3/++v.UacCF-$\"3:z#e/n8//\"!#;7$$\"3++++++++DF-$\"30++([?2j5\"
Fdz-%'COLOURG6&%$RGBG$\"#5!\"\"$\"\"!Fb[lFa[l-F$6$7S7$F($!3#****\\5]1G
9\"F-7$F/$!3]A=6,:Vd5F-7$F4$!35uxJRUR9)*F*7$F9$!31!RdfZ&eR*)F*7$F>$!3x
9*oaVqe.)F*7$FC$!3X_s*Q[S;6(F*7$FH$!3*GJ))3T\"*3B'F*7$FM$!3)*QQC(HrFH&
F*7$FR$!3!Q/2)H%zAH%F*7$FW$!3=4cX`(e<E$F*7$Ffn$!3Q)=^h?LT;#F*7$F[o$!3i
6!\\X1PJ;\"F*7$F`o$\"3%*ya)>].%\\_!#@7$Ffo$\"3Nou%RheiA\"F*7$F[p$\"35m
&)o1e*>X#F*7$F`p$\"3'*4*z4rC+h$F*7$Fep$\"3/)z!*4.zp/&F*7$Fjp$\"3h?\"4x
*z#*=jF*7$F_q$\"3'*G(zMqAj'yF*7$Fdq$\"3KW,TOE8,$*F*7$Fiq$\"3q>M8#)z1&4
\"F-7$F^r$\"3Q3ns8X'*f7F-7$Fcr$\"3Wre3Y/qS9F-7$Fhr$\"38Y0f%Q$)\\h\"F-7
$F]s$\"3A_\"4*3YX7=F-7$Fbs$\"3(43iUyT'G?F-7$Fgs$\"3[ZR7i+dEAF-7$F\\t$
\"3+GrD246^CF-7$Fat$\"3i=]_WW\\&p#F-7$Fft$\"3%4h%z!esu%HF-7$F[u$\"3Vxz
OS:3/KF-7$F`u$\"3k\\l6)[kX]$F-7$Feu$\"3kOw()pdE*y$F-7$Fju$\"3\"\\heWy;
%4TF-7$F_v$\"3f9f3c;l9WF-7$Fdv$\"37`BH]#>cw%F-7$Fiv$\"3mj.V2%*38^F-7$F
^w$\"3OE\"H%[x*\\\\&F-7$Fcw$\"3m8V)>g+x)eF-7$Fhw$\"34g(RnZ<-K'F-7$F]x$
\"3%HI?7(fQenF-7$Fbx$\"3%QG[4,g$HsF-7$Fgx$\"3!)eSV.4E?xF-7$F\\y$\"3OzD
d!3@J>)F-7$Fay$\"3]@[I3>wh()F-7$Ffy$\"3%3.efOdaH*F-7$F[z$\"3[!p\\$RUi
\"*)*F-7$F`z$\"3C)yn^/X*[5Fdz7$Ffz$\"3\"****\\5jqi6\"Fdz-F[[l6&F][lFa[
lF^[lFa[l-F$6$7S7$F($!33/]J+l!G9\"F-7$F/$!3u!Re^#>w\\5F-7$F4$!3Q$zEX=/
pp*F*7$F9$!3QFv)4Np!)z)F*7$F>$!37x%H6]Ww)yF*7$FC$!3=j*4P6m#ppF*7$FH$!3
YS8**HJq,hF*7$FM$!3S*)*y-OoB=&F*7$FR$!3h&Gb'pyW/UF*7$FW$!3/RZKQrm(>$F*
7$Ffn$!3:8d`*\\OT7#F*7$F[o$!33-^ffc2V6F*7$F`o$\"3_%p2^S$*p;&F]^l7$Ffo$
\"3?KeYXU/47F*7$F[p$\"3`-\"fVX8;U#F*7$F`p$\"3C?oU:MqqNF*7$Fep$\"3$QsIs
W?3+&F*7$Fjp$\"3UcU;)oD,F'F*7$F_q$\"3&>mQc(H'y\"yF*7$Fdq$\"3y#)Gv'*owb
#*F*7$Fiq$\"3#f,6Q)G8\"4\"F-7$F^r$\"33l\")R#)H\"oD\"F-7$Fcr$\"3m2J^EK`
Q9F-7$Fhr$\"3#45hA!3#Qh\"F-7$F]s$\"3z\")o66!GC\"=F-7$Fbs$\"3UDw[R(*yH?
F-7$Fgs$\"3/C*R$fXoGAF-7$F\\t$\"3![67NAfTX#F-7$Fat$\"3!3h$*Q+N$*p#F-7$
Fft$\"3WX(46Dq=&HF-7$F[u$\"3@zS2sPx3KF-7$F`u$\"3Wh)4*yZE4NF-7$Feu$\"3s
jEC3Jm$z$F-7$Fju$\"3Y/D&Qt_J6%F-7$F_v$\"3X&z8DZ'[<WF-7$Fdv$\"3c\\av#=a
rw%F-7$Fiv$\"3KkB3>&GJ6&F-7$F^w$\"3g6+poqB$\\&F-7$Fcw$\"3Y9EwP5,%)eF-7
$Fhw$\"3_,%oON@WJ'F-7$F]x$\"3yZl$QG*e]nF-7$Fbx$\"3J?E6+&)o>sF-7$Fgx$\"
3z-:-C524xF-7$F\\y$\"3G)*fQZw+\"=)F-7$Fay$\"3G*)z<WiQ\\()F-7$Ffy$\"3qf
\\WFP\"QG*F-7$F[z$\"37\")=-ms1#))*F-7$F`z$\"3CNSU6tM[5Fdz7$Ffz$\"3$faI
2jqi6\"Fdz-F[[l6&F][lF^[lF^[lFa[l-%+AXESLABELSG6$Q\"x6\"Q!Fh^m-%%VIEWG
6$;$\"\"&F`[l$\"#DF`[l%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 
45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" }}}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "plot(\{\nf(x)-\nA(x)\n\},x=0.5..2.5
);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6%-%'CURVESG
6$7U7$$\"3++++++++]!#=$!3!z.],p..4\"F*7$$\"35mmmT:(z@&F*$!3q&p;l=qpk*!
#>7$$\"3JLLL$3VfV&F*$!3\"*\\B^8=@@&)F27$$\"3t***\\i&*)fDcF*$!38hwxYjeP
wF27$$\"3Dnm;H[D:eF*$!3B1Enm48NoF27$$\"3LLLLe0$=C'F*$!3'e(*oY9&)>H&F27
$$\"3'QLL$3RBrmF*$!3y$=u3]--0%F27$$\"3=mm;zjf)4(F*$!3qJGOwzuoIF27$$\"3
=LL$e4;[\\(F*$!3]^Y-0IIXBF27$$\"3C++]i'y]!zF*$!3'[P81?#y^<F27$$\"3,LL$
ezs$H$)F*$!3I>y#42RWF\"F27$$\"3_****\\7iI_()F*$!3>@^#*zAM1\"*!#?7$$\"3
#pmmm@Xt=*F*$!3c$f$Qy%p&)H'F_o7$$\"3QLLL3y_q&*F*$!3Io)GNZy=X%F_o7$$\"3
'******\\1!>+5!#<$!3%*G2C0l_DHF_o7$$\"3*******\\Z/N/\"F]p$!3uFTO^$R)\\
=F_o7$$\"35+++NfC&3\"F]p$!3i!f:u$)G/9\"F_o7$$\"3LLLez6:B6F]p$!3z[QwjlD
Rq!#@7$$\"3_mmm\"=C#o6F]p$!3[rg))o436PF_q7$$\"3gmmmEpS17F]p$!3.u:pP@A4
?F_q7$$\"3%)***\\i`A3D\"F]p$!3gL2,gKfH))!#A7$$\"3Ymmmwy8!H\"F]p$!3`7I&
oD,lt$F_r7$$\"3/++DOIFL8F]p$!3?WS'3g#H\"=\"F_r7$$\"3!****\\(3zMu8F]p$!
3#)Res%eE+(G!#B7$$\"3emm;H_?<9F]p$!3#)['G9#pChN!#C7$$\"3mmm\"zihlX\"F]
p$!3[dyn3fD!Q\"!#D7$$\"3KLL$3#G,*\\\"F]p$\"3=i+?4fV3T!#F7$$\"3<LLezw5V
:F]p$\"3Nwr7Q%y7T\"F[t7$$\"3!****\\PQ#\\\"e\"F]p$\"3Ihr,[eR1LFes7$$\"3
BLL$e\"*[Hi\"F]p$\"3qe]\\k())\\e#F_s7$$\"3#*******pvxl;F]p$\"3)4g6'yt)
Q:\"F_r7$$\"3z****\\_qn2<F]p$\"3?oOB\\FBnNF_r7$$\"3%)***\\i&p@[<F]p$\"
36]it.$G%>()F_r7$$\"3#)****\\2'HKz\"F]p$\"3Bu!eK8p:,#F_q7$$\"3_mmmwanL
=F]p$\"3ICuI/RE[QF_q7$$\"3'******\\2go(=F]p$\"3yx+(H1UO4(F_q7$$\"3CLLe
R<*f\">F]p$\"3C#4#R6e%f;\"F_o7$$\"3'******\\)Hxe>F]p$\"39;<Nboq3>F_o7$
$\"3Ymm\"H!o-**>F]p$\"3Y!*QV4IZ;HF_o7$$\"3))***\\7k.6/#F]p$\"3qaQQ#o<
\")Q%F_o7$$\"3emmmT9C#3#F]p$\"3Gpn3%eKVN'F_o7$$\"3\"****\\i!*3`7#F]p$
\"3G\\*zoD[s6*F_o7$$\"3;LLL$*zym@F]p$\"39E'e5zFBE\"F27$$\"30LL$3N1#4AF
]p$\"3J0/q-%\\gs\"F27$$\"3kmm\"HYt7D#F]p$\"3fR72,F38BF27$$\"3%*******p
(G**G#F]p$\"39@4]!Q7d)HF27$$\"3Umm;9@BMBF]p$\"3c\"y=0+JF%RF27$$\"3/LLL
`v&QP#F]p$\"39zXYqmA'*\\F27$$\"30++DOl5;CF]p$\"3GZg*fl'zfjF27$$\"3/++v
.UacCF]p$\"3'=9cd'4kLzF27$$\"3++++++++DF]p$\"3qafageUj**F2-%'COLOURG6&
%$RGBG$\"#5!\"\"$\"\"!Fb\\lFa\\l-%+AXESLABELSG6$Q\"x6\"Q!Fg\\l-%%VIEWG
6$;$\"\"&F`\\l$\"#DF`\\l%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 
45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 32 "plot(\{\nf(x)-\nB(x)\n\},x=0.5..2.5);" }}{PARA 13 "" 
1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6%-%'CURVESG6$7cp7$$\"3+++++++
+]!#=$\"33\"zm'>%e*\\t!#F7$$\"30LL$3x&)*3^F*$\"39mjN-;dkA!#?7$$\"35mmm
T:(z@&F*$\"3uUXz8w'oG%F37$$\"3E++]7t&pK&F*$\"3KeP)3i%Q$3'F37$$\"3JLLL$
3VfV&F*$\"3_1<V`fdpwF37$$\"3t***\\i&*)fDcF*$\"3'yBW;qr4(**F37$$\"3Dnm;
H[D:eF*$\"3s!z4za+\\<\"!#>7$$\"3&3+]PpU&GgF*$\"3%\\I'[Hf9?8FM7$$\"3LLL
Le0$=C'F*$\"3Y:')p\\7;:9FM7$$\"3IML$eR\"=\\jF*$\"3+7dGF\\EY9FM7$$\"39M
LLLA`ckF*$\"3U\"R@d)yHn9FM7$$\"32ML3_w?5lF*$\"3!QA0\\u&Gu9FM7$$\"3+ML$
32$)Qc'F*$\"3=+Bh&)y/z9FM7$$\"3#RL$e*[evh'F*$\"3UW<FFgn\"[\"FM7$$\"3'Q
LL$3RBrmF*$\"3SlVRV$fA[\"FM7$$\"37+v=<UlCnF*$\"3;_gDpb*3[\"FM7$$\"3Qm;
/EX2ynF*$\"3umC2f`nx9FM7$$\"3lKe*[$[\\JoF*$\"3#*)R1VazEZ\"FM7$$\"3-++v
V^\"\\)oF*$\"3EA'3$Qn)fY\"FM7$$\"3mL$e9wb<*pF*$\"3EqOj\"*Q\"yW\"FM7$$
\"3=mm;zjf)4(F*$\"3.wG(=qVPU\"FM7$$\"39****\\Piq'H(F*$\"3Yx*)H=7Pl8FM7
$$\"3=LL$e4;[\\(F*$\"3%)H(p*3G)=H\"FM7$$\"3C++]i'y]!zF*$\"3Jz%['p$HS5
\"FM7$$\"3,LL$ezs$H$)F*$\"3C>e<:g:$y)F37$$\"3_****\\7iI_()F*$\"39(4(38
:;4kF37$$\"3#pmmm@Xt=*F*$\"3%>_Z:mq'**RF37$$\"3QLLL3y_q&*F*$\"33S4R&\\
Sh+#F37$$\"3'******\\1!>+5!#<$!3#[Lyxo45C)!#B7$$\"3*******\\Z/N/\"Fdt$
!3l,O;[oV@<F37$$\"35+++NfC&3\"Fdt$!39Hj%HBN#QIF37$$\"3LLLez6:B6Fdt$!3:
W*3`bH@$RF37$$\"3/+]i!o(oX6Fdt$!3EtR&>'o@DVF37$$\"3_mmm\"=C#o6Fdt$!36?
u+w$eeh%F37$$\"3mmm;abJ(=\"Fdt$!3a?t\">G'G$y%F37$$\"3gmmmEpS17Fdt$!3u3
j[a4B!)[F37$$\"3LL$e9t9'G7Fdt$!3DO+QA\"Gs!\\F37$$\"3%)***\\i`A3D\"Fdt$
!3A6o5%ysf%[F37$$\"3;L$ek?![q7Fdt$!3&G\\S>KD?s%F37$$\"3Ymmmwy8!H\"Fdt$
!3$\\EEd'RdOXF37$$\"3/++DOIFL8Fdt$!3&Q#QSA$)4NRF37$$\"3!****\\(3zMu8Fd
t$!3'y<V&G8`^JF37$$\"3emm;H_?<9Fdt$!3')yPws&>s;#F37$$\"3mmm\"zihlX\"Fd
t$!3%4;X%HBei6F37$$\"3KLL$3#G,*\\\"Fdt$!3'z4bqAz(fE!#A7$$\"3<LLezw5V:F
dt$\"3))Q[aD_&z9\"F37$$\"3!****\\PQ#\\\"e\"Fdt$\"33\"4wf@(\\9@F37$$\"3
BLL$e\"*[Hi\"Fdt$\"3[)Q')\\D;$[IF37$$\"3#*******pvxl;Fdt$\"3(*)G#fo$f0
%QF37$$\"3z****\\_qn2<Fdt$\"3MQ\\8:.n(R%F37$$\"3#)**\\P/q%zs\"Fdt$\"3u
17*\\(*Rrd%F37$$\"3%)***\\i&p@[<Fdt$\"3M!*=51<B#p%F37$$\"3%)**\\(=GB2x
\"Fdt$\"3/'4&=hrCSZF37$$\"3#)****\\2'HKz\"Fdt$\"3+,=J$z!H+ZF37$$\"3=LL
3UDX8=Fdt$\"3?lm.=(zle%F37$$\"3_mmmwanL=Fdt$\"3%RqE]OQtR%F37$$\"39LL$e
xn_&=Fdt$\"3GkYKq*=16%F37$$\"3'******\\2go(=Fdt$\"3v\"Q*)QR\\ft$F37$$
\"3CLLeR<*f\">Fdt$\"3J#p\")yU;[$GF37$$\"3'******\\)Hxe>Fdt$\"3D&\\&4jC
$\\`\"F37$$\"3Ymm\"H!o-**>Fdt$\"3l!3g,?l6\"RFhy7$$\"3))***\\7k.6/#Fdt$
!3o*3:\"R(z1w\"F37$$\"3emmmT9C#3#Fdt$!3;E&*p@Uc*o$F37$$\"3\"****\\i!*3
`7#Fdt$!3+G\"e82Bhz&F37$$\"3;LLL$*zym@Fdt$!37j^v$Q(o'z(F37$$\"30LL$3N1
#4AFdt$!3[WEmN3^r'*F37$$\"3kmm\"HYt7D#Fdt$!37*ob7%z)*=6FM7$$\"3IL$ek6,
1F#Fdt$!3-8Ctmb%><\"FM7$$\"3%*******p(G**G#Fdt$!3*y>e'=LM67FM7$$\"3Ym;
/1Y+,BFdt$!3l^<p*G5pA\"FM7$$\"3TLL3U/37BFdt$!3vWiI&=%zO7FM7$$\"3WmT5g$
=wJ#Fdt$!33d$3./b%R7FM7$$\"3#***\\7yi:BBFdt$!3ei3S[H^S7FM7$$\"3SLe9'>%
pGBFdt$!3X=.>?[!*R7FM7$$\"3Umm;9@BMBFdt$!3*>A$o7kcP7FM7$$\"33L$eRZQTM#
Fdt$!3e0R***pg)G7FM7$$\"3u***\\P$[/aBFdt$!38=_S\"[CS@\"FM7$$\"3Qm;a$>^
RO#Fdt$!3%GGS-qhE>\"FM7$$\"3/LLL`v&QP#Fdt$!3G:rI^QOk6FM7$$\"3am;zW?)\\
R#Fdt$!3%)RW*Q!\\!*y5FM7$$\"30++DOl5;CFdt$!3cZ-\"yKtpb*F37$$\"3/+++q`K
OCFdt$!3%>\"*=4nA@)zF37$$\"3/++v.UacCFdt$!3AR+`PuLxfF37$$\"3E+D\"G:3uY
#Fdt$!3$GD0fy))pq%F37$$\"3-+](=5s#yCFdt$!3Ia<%3uRBH$F37$$\"3!)*\\P40O
\"*[#Fdt$!3-Bi/F5\"fs\"F37$$\"3++++++++DFdt$!3#3([%QuRX>$!#E-%'COLOURG
6&%$RGBG$\"#5!\"\"$\"\"!FdglFcgl-%+AXESLABELSG6$Q\"x6\"Q!Figl-%%VIEWG6
$;$\"\"&Fbgl$\"#DFbgl%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 
45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 37 "rho:=f,g->int(abs(f(x)-g(x)),x=1..5);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%$rhoG6$%\"fGf*6#%\"gG6\"6$%)operatorG%&arrowGF*-
%$intG6$-%$absG6#,&-F&6#%\"xG\"\"\"-9$F6!\"\"/F7;F8\"\"&F*F*F*" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "rho(f,A);" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6$*&-%$expG6#%\"fG\"\"\"-%#lnGF&F(\"\"!" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "f(x);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#*&-%$expG6#%\"xG\"\"\"-%#lnGF&F(" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 2 "x;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%\"xG" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 67 "#Int(abs(f(x)-A(x)),x=1..2.5
)=\nevalf(int(abs(f(x)-A(x)),x=1..2.5));" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "evalf(int(abs(f
(x)-B(x)),x=1..2.5));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+:()Gc;!#6
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+y_Fap!#7" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 396 "Komparace:=proc(f,alpha,beta,n)\nlocal T,L,x
,y,z;\nx:=seq(alpha+(beta-alpha)*(i-1)/n ,i=1..n+1);\ny:=seq(evalf(f(x
[i])), i=1..n+1 );\n#print([x],[y],(alpha+beta)/2);\nT:=unapply(mtaylo
r(f(z),z=(alpha+beta)/2,n+1),z);\nL:=unapply(interp([x],[y], z),z);\n#
print(T(z),L(z));\n\nprint(\nplot(\{f,T,L\},alpha..beta)\n);\nprint(pl
ot(\{f-T,f-L\},alpha..beta));\nA:=evalf(int(abs(evalf(f(z))-evalf(T(z)
)),z=alpha..beta));" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 189 "B:=evalf(in
t(abs(evalf(f(z))-evalf(L(z))),z=alpha..beta));\nif A<B then print(`be
tter is the Taylor polynomial`);\nF:=T;\nelse print(`better is the Lag
range polynomial`);\nF:=L;\nfi;\nevalf(F(z))" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 4 "end;" }}{PARA 7 "" 1 "" {TEXT -1 67 "Warning, `A` is i
mplicitly declared local to procedure `Komparace`\n" }}{PARA 7 "" 1 "
" {TEXT -1 67 "Warning, `B` is implicitly declared local to procedure \+
`Komparace`\n" }}{PARA 7 "" 1 "" {TEXT -1 67 "Warning, `F` is implicit
ly declared local to procedure `Komparace`\n" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%*KomparaceGf*6&%\"fG%&alphaG%%betaG%\"nG6*%\"TG%\"LG%
\"xG%\"yG%\"zG%\"AG%\"BG%\"FG6\"F4C,>8&-%$seqG6$,&9%\"\"\"*(,&9&F=F<!
\"\"F=,&%\"iGF=F=FAF=9'FAF=/FC;F=,&FDF=F=F=>8'-F96$-%&evalfG6#-9$6#&F7
6#FCFE>8$-%(unapplyG6$-%(mtaylorG6%-FP6#8(/Fhn,&F<#F=\"\"#*&F[oF=F@F=F
=FGFhn>8%-FW6$-%'interpG6%7#F77#FIFhnFhn-%&printG6#-%%plotG6$<%FPFUF_o
;F<F@-Fho6#-F[p6$<$,&FPF=F_oFA,&FPF=FUFAF^p>8)-FM6#-%$intG6$-%$absG6#,
&-FM6#FfnF=-FM6#-FUFgnFA/FhnF^p>8*-FM6#-F[q6$-F^q6#,&FaqF=-FM6#-F_oFgn
FAFfq@%2FgpFhqC$-Fho6#%@better~is~the~Taylor~polynomialG>8+FUC$-Fho6#%
Bbetter~is~the~Lagrange~polynomialG>FjrF_o-FM6#-FjrFgnF4F4F4" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "Komparace(x->exp(x+sin(x)),-
1,1,5);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6'-%'CU
RVESG6$7S7$$!\"\"\"\"!$\"3o([f#)zRee\"!#=7$$!3ommm;p0k&*F-$\"3Qgq_unK(
p\"F-7$$!3wKL$3<XZ=*F-$\"3i0F<Ox'H!=F-7$$!3mmmmT%p\"e()F-$\"3BCNdU6GK>
F-7$$!3:mmm\"4m(G$)F-$\"3g&>DA;YZ2#F-7$$!3\"QLL3i.9!zF-$\"34ciqB,)*HAF
-7$$!3\"ommT!R=0vF-$\"3#p%REzr-(Q#F-7$$!3u****\\P8#\\4(F-$\"3;)p3Fc%>k
DF-7$$!3+nm;/siqmF-$\"3%*3Q!=2\\Ww#F-7$$!3[++](y$pZiF-$\"3OG\"H#R$GH)H
F-7$$!33LLL$yaE\"eF-$\"3$yY&=9-@HKF-7$$!3hmmm\">s%HaF-$\"3[I<g+O\"fY$F
-7$$!3Q+++]$*4)*\\F-$\"3?DI,7!3mv$F-7$$!39+++]_&\\c%F-$\"3eBq>\")eowSF
-7$$!31+++]1aZTF-$\"3K@ox#fuVT%F-7$$!3umm;/#)[oPF-$\"3[?.%He(4[ZF-7$$!
3hLLL$=exJ$F-$\"3/1`RC%f9=&F-7$$!3*RLLLtIf$HF-$\"33zv4DtG#e&F-7$$!3]++
]PYx\"\\#F-$\"3GU*zIjH44'F-7$$!3EMLLL7i)4#F-$\"3)\\nr&>,R#e'F-7$$!3c**
**\\P'psm\"F-$\"31A7^Mw(*prF-7$$!3')****\\74_c7F-$\"3MQrX[vU!y(F-7$$!3
)3LLL3x%z#)!#>$\"3_P?:j6uu%)F-7$$!3KMLL3s$QM%Fdr$\"3]P%4>6E!o\"*F-7$$!
3]^omm;zr)*!#@$\"314.!f*eF!)**F-7$$\"3%pJL$ezw5VFdr$\"3e%G5<]E+4\"!#<7
$$\"3s*)***\\PQ#\\\")Fdr$\"312j>NE\"p<\"Fgs7$$\"3GKLLe\"*[H7F-$\"3eNo]
oJPy7Fgs7$$\"3I*******pvxl\"F-$\"37oD(y(p2#R\"Fgs7$$\"3#z****\\_qn2#F-
$\"3/6zd9@l7:Fgs7$$\"3U)***\\i&p@[#F-$\"3PW\"pY1$oQ;Fgs7$$\"3B)****\\2
'HKHF-$\"3OhiK]k5!z\"Fgs7$$\"3ElmmmZvOLF-$\"3P'>^)>G5P>Fgs7$$\"3i*****
*\\2goPF-$\"3EI$GhT_h5#Fgs7$$\"3UKL$eR<*fTF-$\"3%G!*)*f)>qqAFgs7$$\"3m
******\\)Hxe%F-$\"3#G7152%fjCFgs7$$\"3ckm;H!o-*\\F-$\"3ki4STS1eEFgs7$$
\"3y)***\\7k.6aF-$\"3EYUg8JQvGFgs7$$\"3#emmmT9C#eF-$\"3vozjJ[G-JFgs7$$
\"33****\\i!*3`iF-$\"3c0s]%[(obLFgs7$$\"3%QLLL$*zym'F-$\"3^#3iM4$e:OFg
s7$$\"3wKLL3N1#4(F-$\"33'\\bsP+z*QFgs7$$\"3Nmm;HYt7vF-$\"3wk,A62z%>%Fg
s7$$\"3Y*******p(G**yF-$\"3k`K;?&GF[%Fgs7$$\"3]mmmT6KU$)F-$\"3RACk7X!3
$[Fgs7$$\"3fKLLLbdQ()F-$\"3O$)f81che^Fgs7$$\"3[++]i`1h\"*F-$\"3F#zI_JK
`_&Fgs7$$\"3W++]P?Wl&*F-$\"3'Q#4p0S!H*eFgs7$$\"\"\"F*$\"3PFbq)=2eI'Fgs
-%'COLOURG6&%$RGBG$\"#5F)$F*F*Fa[l-F$6$7S7$F($\"3A************\\AF-7$F
/$\"3O`sp#e'\\:AF-7$F4$\"3#)3%)QmfI;AF-7$F9$\"3eT:pLF%*[AF-7$F>$\"3)[Z
,1LkMJ#F-7$FC$\"3MoyR`QN2CF-7$FH$\"37'31fn9'>DF-7$FM$\"39:g?K2dgEF-7$F
R$\"30re00FHKGF-7$FW$\"34/imkpfHIF-7$Ffn$\"31#>t\"p!p+E$F-7$F[o$\"3m(R
N9&Gw'[$F-7$F`o$\"3[x:X56apPF-7$Feo$\"3Sx*HR*)QV3%F-7$Fjo$\"3AB2Gl&f(=
WF-7$F_p$\"3s.Np6kg]ZF-7$Fdp$\"3AF5$p'4l#=&F-7$Fip$\"3]tF*f2pGe&F-7$F^
q$\"3g!H&yy7:\"4'F-7$Fcq$\"3m:')Qs0Z#e'F-7$Fhq$\"3ck$R#Q#)**prF-7$F]r$
\"3eh&*[*QJ/y(F-7$Fbr$\"3AnQ>$[TZZ)F-7$Fhr$\"3q<Kp=h-o\"*F-7$F]s$\"3%o
I+f*eF!)**F-7$Fcs$\"3_#G\"Q-l-!4\"Fgs7$Fis$\"3y=$*GmE\"p<\"Fgs7$F^t$\"
3o_)R6at$y7Fgs7$Fct$\"3S)*\\v`#z?R\"Fgs7$Fht$\"3^n#3%\\5m7:Fgs7$F]u$\"
3nBa'p\\4(Q;Fgs7$Fbu$\"31aGPZ%z,z\"Fgs7$Fgu$\"3r#*4jGNEP>Fgs7$F\\v$\"3
\\U(>:\"3\\1@Fgs7$Fav$\"3/wO3,>KrAFgs7$Ffv$\"3+)o\\$oVskCFgs7$F[w$\"3I
Z&*))4*e*fEFgs7$F`w$\"39^n&3E+&yGFgs7$Few$\"3*R79h(y<2JFgs7$Fjw$\"3i^
\"*GQ*zKO$Fgs7$F_x$\"3e-&eu.foi$Fgs7$Fdx$\"3qWgSQcQ9RFgs7$Fix$\"34HV&>
l&H=UFgs7$F^y$\"3CTB#=VMZ^%Fgs7$Fcy$\"3uE2i()zcv[Fgs7$Fhy$\"3vI&Hm!y8=
_Fgs7$F]z$\"3@]j'piS[g&Fgs7$Fbz$\"35BJ-'\\uk*fFgs7$Fgz$\"3VmmmmmmTkFgs
-F\\[l6&F^[lFa[lF_[lFa[l-F$6$7S7$F($\"3A,++$zRee\"F-7$F/$\"3c8=5;#=zm
\"F-7$F4$\"35/f]-S;f<F-7$F9$\"33MKu@i!=)=F-7$F>$\"396\\n7C/D?F-7$FC$\"
3CLhpfl7'=#F-7$FH$\"3/6_3cpR^BF-7$FM$\"3HXo&p\\*\\QDF-7$FR$\"3'Q!Hy]%R
$\\FF-7$FW$\"3u&>7TW@x(HF-7$Ffn$\"3(Hqxb[uFB$F-7$F[o$\"3'e\"3%=[<cZ$F-
7$F`o$\"3+Ij=H8?rPF-7$Feo$\"3gbwLA='R4%F-7$Fjo$\"3^q8#*p#3AV%F-7$F_p$
\"3#>vjO'\\)[w%F-7$Fdp$\"3GWt?wfR&>&F-7$Fip$\"3?*HG<1kFf&F-7$F^q$\"39M
tf5Ah'4'F-7$Fcq$\"3yN-2z'HNe'F-7$Fhq$\"3+\\;pOUCmrF-7$F]r$\"31*yS0&zas
xF-7$Fbr$\"3k^%QO_7MY)F-7$Fhr$\"39C,N>qda\"*F-7$F]s$\"3AjGHdP'e'**F-7$
Fcs$\"3')\\&emlU')3\"Fgs7$Fis$\"3![>a2**4d<\"Fgs7$F^t$\"3/I`\\4T\\x7Fg
s7$Fct$\"3[%yq*H1l\"R\"Fgs7$Fht$\"3!48\\_E`F^\"Fgs7$F]u$\"3TJWEj`LR;Fg
s7$Fbu$\"3Eefj))GO\"z\"Fgs7$Fgu$\"33w6*o`S)Q>Fgs7$F\\v$\"3[2\"[G1y#3@F
gs7$Fav$\"33D1%)yX,tAFgs7$Ffv$\"3[FOMM$yeY#Fgs7$F[w$\"3yP)Rp%z0gEFgs7$
F`w$\"3CO^7y(pn(GFgs7$Few$\"3>Al&\\KnF5$Fgs7$Fjw$\"3S1*zt36\\N$Fgs7$F_
x$\"3i(z!3gAM8OFgs7$Fdx$\"3ofaf*H+S*QFgs7$Fix$\"3+4e!eeF#*=%Fgs7$F^y$
\"3e6nWZXzvWFgs7$Fcy$\"3B3Daj&fF#[Fgs7$Fhy$\"3qMG8DSI]^Fgs7$F]z$\"3Gev
pFU!z^&Fgs7$Fbz$\"3u[m+lt\"z)eFgs7$Fgz$\"3Y++]\">2eI'Fgs-F\\[l6&F^[lF_
[lF_[lFa[l-%+AXESLABELSG6$Q!6\"Fe^m-%%VIEWG6$;F(Fgz%(DEFAULTG" 1 2 0 
1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" 
"Curve 3" }}}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'
CURVESG6$7fn7$!\"\"$!*--;k'!#57$$!+e%G?y*F+$!*_5^(eF+7$$!+<p0k&*F+$!*4
)p\"=&F+7$$!+W5Su$*F+$!*59Oj%F+7$$!+r^u%=*F+$!*K#QLTF+7$$!+U%p\"e()F+$
!*!fhmJF+7$$!+#4m(G$)F+$!*o\"=(Q#F+7$$!+@OS,zF+$!*NPPx\"F+7$$!+/R=0vF+
$!*)\\(eK\"F+7$$!+P8#\\4(F+$!)xhP'*F+7$$!+/siqmF+$!)IO%y'F+7$$!+(y$pZi
F+$!)I'om%F+7$$!+$yaE\"eF+$!)^)e3$F+7$$!+\">s%HaF+$!)_#\\3#F+7$$!+]$*4
)*\\F+$!)*4LH\"F+7$$!+]_&\\c%F+$!(7Il(F+7$$!+]1aZTF+$!(s\\Q%F+7$$!+/#)
[oPF+$!(G)3DF+7$$!+$=exJ$F+$!(U:>\"F+7$$!+L2$f$HF+$!'^<eF+7$$!+PYx\"\\
#F+$!'X;AF+7$$!+L7i)4#F+$!&`/)F+7$$!+P'psm\"F+$!&/1#F+7$$!+74_c7F+$!%T
QF+7$$!*3x%z#)F+$!$@$F+7$$!*?PQM%F+$!\"(F+7$$!(\"zr)*F+$\"\"!Fgs7$$\")
!o2J%!\"*Ffs7$$\")%Q#\\\")F[t$!#IF[t7$$\"*;*[H7F[t$!$t$F[t7$$\"*qvxl\"
F[t$!%vAF[t7$$\"*`qn2#F[t$!%O*)F[t7$$\"*cp@[#F[t$!&Kk#F[t7$$\"*3'HKHF[
t$!&(*H(F[t7$$\"*xanL$F[t$!'42;F[t7$$\"*v+'oPF[t$!''RQ$F[t7$$\"*S<*fTF
[t$!'9*>'F[t7$$\"*&)Hxe%F[t$!()HI6F[t7$$\"*.o-*\\F[t$!(o[*=F[t7$$\"*TO
5T&F[t$!(Zr6$F[t7$$\"*U9C#eF[t$!(XI*[F[t7$$\"*1*3`iF[t$!(aCf(F[t7$$\"*
$*zym'F[t$!)YfF6F[t7$$\"*^j?4(F[t$!)g_[;F[t7$$\"*jMF^(F[t$!)R\\]BF[t7$
$\"*q(G**yF[t$!)5f+KF[t7$$\"+?W!37)F+$!)k$Rz$F[t7$$\"*9@BM)F[t$!)wMwWF
[t7$$\"+N$[/a)F+$!)(p0<&F[t7$$\"*`v&Q()F[t$!)(>A&fF[t7$$\"+X/#)\\*)F+$
!)e\\\"*oF[t7$$\"*Ol5;*F[t$!)6$3&zF[t7$$\"++PDj$*F+$!)*f!)3*F[t7$$\"*/
Uac*F[t$!*([qN5F[t7$$\"+I:3u'*F+$!*%pt46F[t7$$\"+?5s#y*F+$!*9)4)=\"F[t
7$$\"+50O\"*)*F+$!*r$)4F\"F[t7$\"\"\"$!*x%fe8F[t-%'COLOURG6&%$RGBG$\"#
5F(FfsFfs-F$6$7cq7$F($\"\")F+7$$!+HU,\"*)*F+$\"(<4$))F+7$F-$\")h_j;F+7
$$!+(oUIn*F+$\")EYZBF+7$F2$\")b&3%HF+7$F7$\")[fuPF+7$F<$\")DP!Q%F+7$$!
+2tXr*)F+$\")d(H#[F+7$FA$\")A\\Z]F+7$$!+BS\\/()F+$\")%QO2&F+7$$!+0'=3l
)F+$\")vf)3&F+7$$!+'=Vrf)F+$\")K'G4&F+7$$!+nxYV&)F+$\");#p3&F+7$$!+Ip6
O%)F+$\"):HY]F+7$FF$\")`Pq\\F+7$$!+c[3:\")F+$\")d(zs%F+7$FK$\")jN&Q%F+
7$FP$\")A-jNF+7$$!+?E0+tF+$\")7mwIF+7$FU$\")e]pDF+7$$!+qUx#)oF+$\")!Qv
.#F+7$FZ$\")<'4^\"F+7$$!+'\\g\"fkF+$\")ts-5F+7$Fin$\"(()o?&F+7$F^o$!(q
Uc$F+7$Fco$!(%)Qq*F+7$Fho$!)>Lf9F+7$$!++t_\"y%F+$!)=:@;F+7$F]p$!)TfF<F
+7$$!++;ggWF+$!)ccf<F+7$$!+]zCcVF+$!))3$z<F+7$$!++V*=D%F+$!)v7(y\"F+7$
Fbp$!)uO$y\"F+7$$!+FW,eRF+$!)D?[<F+7$Fgp$!)%Q(y;F+7$$!+%>BJa$F+$!)2gb:
F+7$F\\q$!)]l$R\"F+7$Faq$!)RnZ5F+7$Ffq$!(wDo&F+7$F[r$!(g&R6F+7$F`r$\"(
(RLPF+7$Fer$\"()fzyF+7$Fjr$\")R'G8\"F+7$$!+Srl6j!#6$\")ur_7F+7$F_s$\")
#4\\M\"F+7$$!+bvF@AFbhl$\")g:69F+7$Fds$\")Q@T9F+7$$\"+nNl.5Fbhl$\"(V@W
\"F[t7$$\"+X]-1@Fbhl$\"(2HV\"F[t7$$\"+AlR3KFbhl$\"(pMT\"F[t7$Fis$\"(XQ
Q\"F[t7$$\"++K+IiFbhl$\"('>38F[t7$F]t$\"(WE?\"F[t7$Fbt$\"'e!z)F[t7$Fgt
$\"'\\jUF[t7$F\\u$!']65F[t7$Fau$!')H_'F[t7$Ffu$!(QkD\"F[t7$F[v$!(=xt\"
F[t7$F`v$!(Zc7#F[t7$$\"+v!fU'RF+$!(`<C#F[t7$Fev$!($f7BF[t7$$\"+70(oE%F
+$!(P-L#F[t7$$\"+DO#QP%F+$!(6>L#F[t7$$\"+Pnx![%F+$!(KoJ#F[t7$Fjv$!(kUG
#F[t7$$\"+S*)**)y%F+$!(-K<#F[t7$F_w$!(0R*>F[t7$Fdw$!(jmQ\"F[t7$$\"+:as
;cF+$!'#os*F[t7$Fiw$!'%\\#[F[t7$$\"+S<vPgF+$\"'$Q4\"F[t7$F^x$\"''Rw(F[
t7$$\"+&\\%[gkF+$\"(cB[\"F[t7$Fcx$\"(K3C#F[t7$$\"+?<(*zoF+$\"(&zdIF[t7
$Fhx$\"(z+!RF[t7$$\"+q!*R-tF+$\"(R1u%F[t7$F]y$\"(EJc&F[t7$$\"+l6,1xF+$
\"(D(ziF[t7$Fby$\"(tR$pF[t7$Fgy$\"(,<d(F[t7$F\\z$\"([\\/)F[t7$$\"+QZQT
%)F+$\"(2(*=)F[t7$Faz$\"(BgG)F[t7$$\"+M,)**e)F+$\"(VVJ)F[t7$$\"+L>^R')
F+$\"(A&G$)F[t7$$\"+JP/*o)F+$\"(YyK)F[t7$Ffz$\"(&e6$)F[t7$F[[l$\"(r$\\
!)F[t7$F`[l$\"()3GuF[t7$$\"+I&f@E*F+$\"(SU)pF[t7$Fe[l$\"(:\\V'F[t7$$\"
+qyMk%*F+$\"('*=x&F[t7$Fj[l$\"(Vm)\\F[t7$$\"+&yh(>'*F+$\"(J6^%F[t7$F_
\\l$\"(`j*RF[t7$$\"+v7SG(*F+$\"(h3W$F[t7$Fd\\l$\"(!=VGF[t7$$\"+l2/P)*F
+$\"()z,AF[t7$Fi\\l$\"($>::F[t7$$\"+b-oX**F+$\"'(y\"yF[t7$F^]l$!\"#F[t
-Fb]l6&Fd]lFfsFe]lFfs-%+AXESLABELSG6$Q!6\"F_gm-%%VIEWG6$;$F(Fgs$F^]lFg
s%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "
Curve 1" "Curve 2" }}}{PARA 11 "" 1 "" {XPPMATH 20 "6#%Bbetter~is~the~
Lagrange~polynomialG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,.*$)%\"zG\"\"
&\"\"\"$!+*fI'f5!#5*&$\"+q75@>F+F()F&\"\"%F(F($\"+/He&)**F+F(*&$\"+ie.
!=\"!\"*F()F&\"\"$F(F(*&$\"+/)Q&**>F6F(F&F(F(*&$\"+or_T?F6F()F&\"\"#F(
F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "int(abs('f'(x)-'g'(x)
),x=1..3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%$intG6$-%$absG6#,&-%\"
fG6#%\"xG!\"\"-%\"gGF,\"\"\"/F-;F1\"\"$" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 30 "int(('f'(x)-'g'(x))^2,x=1..3);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#-%$intG6$*$),&-%\"fG6#%\"xG\"\"\"-%\"gGF+!\"\"\"\"#F-/F
,;F-\"\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "21
 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }