{VERSION 3 0 "IBM INTEL NT" "3.0" }
{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 "" 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 132 "restart; p := f(x1)
*(x-x2)*(x-x3)/((x1-x2)*(x1-x3)) + f(x2)*(x-x1)*(x-x3)/((x2-x1)*(x2-x3
)) + f(x3)*(x-x1)*(x-x2)/((x3-x1)*(x3-x2));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"pG,(*&*(-%\"fG6#%#x1G\"\"\",&%\"xGF,%#x2G!\"\"F,,&F
.F,%#x3GF0F,\"\"\"*&,&F+F,F/F0\"\"\",&F+F,F2F0\"\"\"!\"\"F,*&*(-F)6#F/
F,,&F.F,F+F0F,F1F3F3*&,&F/F,F+F0\"\"\",&F/F,F2F0\"\"\"F9F,*&*(-F)6#F2F
,F>F3F-F3F3*&,&F2F,F+F0\"\"\",&F2F,F/F0\"\"\"F9F," }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 10 "expand(p);" }}{PARA 12 "" 1 "" {XPPMATH 20 "
6#,:*&*&-%\"fG6#%#x1G\"\"\")%\"xG\"\"#\"\"\"F.*&,&F)F*%#x2G!\"\"\"\"\"
,&F)F*%#x3GF2\"\"\"!\"\"F**&*(F&F.F,F*F5F*F.*&F0\"\"\"F4\"\"\"F7F2*&*(
F&F.F1F*F,F.F.*&F0\"\"\"F4\"\"\"F7F2*&*(F&F.F1F.F5F.F.*&F0\"\"\"F4\"\"
\"F7F**&*&-F'6#F1F*F+F.F.*&,&F1F*F)F2\"\"\",&F1F*F5F2\"\"\"F7F**&*(FIF
.F,F.F5F.F.*&FL\"\"\"FN\"\"\"F7F2*&*(FIF.F)F*F,F.F.*&FL\"\"\"FN\"\"\"F
7F2*&*(FIF.F)F.F5F.F.*&FL\"\"\"FN\"\"\"F7F**&*&-F'6#F5F*F+F.F.*&,&F5F*
F)F2\"\"\",&F5F*F1F2\"\"\"F7F**&*(F[oF.F1F.F,F.F.*&F^o\"\"\"F`o\"\"\"F
7F2*&*(F[oF.F)F.F,F.F.*&F^o\"\"\"F`o\"\"\"F7F2*&*(F[oF.F)F.F1F.F.*&F^o
\"\"\"F`o\"\"\"F7F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "subs
(x=x1,p);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%\"fG6#%#x1G" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "subs(x=x2,p);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#-%\"fG6#%#x2G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 13 "subs(x=x3,p);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%\"fG6#%#x3G" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "p_int := int(p,x=x1..x3);
" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%&p_intG,,*&,(*&-%\"fG6#%#x2G\"\"
\"*&,&F,\"\"\"%#x1G!\"\"\"\"\",&F,F0%#x3GF2\"\"\"!\"\"F0*&-F*6#F1F-*&,
&F1F0F,F2\"\"\",&F1F0F5F2\"\"\"F7F0*&-F*6#F5F-*&,&F5F0F1F2\"\"\",&F5F0
F,F2\"\"\"F7F0F0,&*$)F5\"\"$F-F0*$)F1FKF-F2F0#F0FK*&,(*&,&*&F9F0F,F0F2
*&F9F-F5F0F2F-*&F<\"\"\"F>\"\"\"F7F0*&,&*&F)F0F1F0F2*&F)F-F5F-F2F-*&F/
\"\"\"F4\"\"\"F7F0*&,&*&FAF0F1F-F2*&FAF-F,F-F2F-*&FD\"\"\"FF\"\"\"F7F0
F0,&*$)F5\"\"#F-F0*$)F1FcoF-F2F0#F0Fco*&**F9F-F,F-F5F-FDF0F-*&F<\"\"\"
F>\"\"\"F7F0*&*(FAF-F1F-F,F-F-FFF7F0*&**F)F-F1F-F5F-FDF-F-*&F/\"\"\"F4
\"\"\"F7F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "p_int := subs
(x2=x1+h,p_int);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%&p_intG,,*&,(*&-
%\"fG6#,&%#x1G\"\"\"%\"hGF.\"\"\"*&F/\"\"\",(F-F.F/F.%#x3G!\"\"\"\"\"!
\"\"F.*&-F*6#F-F0*&F/\"\"\",&F-F.F4F5\"\"\"F7F5*&-F*6#F4F0*&,&F4F.F-F5
\"\"\",(F4F.F-F5F/F5\"\"\"F7F.F.,&*$)F4\"\"$F0F.*$)F-FJF0F5F.#F.FJ*&,(
*&,&*&F9F.F,F.F5*&F9F0F4F.F5F0*&F/\"\"\"F=\"\"\"F7F5*&,&*&F)F.F-F.F5*&
F)F0F4F0F5F0*&F/\"\"\"F3\"\"\"F7F.*&,&*&F@F.F-F0F5*&F@F0F,F0F5F0*&FC\"
\"\"FE\"\"\"F7F.F.,&*$)F4\"\"#F0F.*$)F-FboF0F5F.#F.Fbo*&**F9F0F,F0F4F0
FCF.F0*&F/\"\"\"F=\"\"\"F7F5*&*(F@F0F-F0F,F0F0FEF7F.*&**F)F0F-F0F4F0FC
F0F0*&F/\"\"\"F3\"\"\"F7F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
31 "p_int := subs(x3=x1+2*h,p_int);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6
#>%&p_intG,,*&,(*&-%\"fG6#,&%#x1G\"\"\"%\"hGF.\"\"\"*$)F/\"\"#F0!\"\"!
\"\"*&-F*6#F-F0*$)F/\"\"#F0F4#F.\"\"#*&-F*6#,&F-F.F/F=F0*$)F/\"\"#F0F4
F<F.,&*$)FA\"\"$F0F.*$)F-FHF0F5F.#F.FH*&,(*&,&*&F7F.F,F.F5*&F7F0FAF.F5
F0*$)F/\"\"#F0F4F<*&,&*&F)F.F-F.F5*&F)F0FAF0F5F0*$)F/\"\"#F0F4F5*&,&*&
F?F.F-F0F5*&F?F0F,F0F5F0*$)F/\"\"#F0F4F<F.,&*$)FAF=F0F.*$)F-F=F0F5F.F<
*&*(F7F0F,F0FAF0F0F/F4F.*&*(F?F0F-F0F,F0F0F/F4F.*&*(F)F0F-F0FAF0F0F/F4
!\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "p_int := simplify(e
xpand(p_int));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&p_intG,(*&-%\"fG6
#,&%#x1G\"\"\"%\"hGF,F,F-F,#\"\"%\"\"$*&-F(6#F+F,F-\"\"\"#F,F0*&-F(6#,
&F+F,F-\"\"#F,F-F4F5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "int
( (x-x1)*(x-x2)*(x-x3), x= x1..x3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6
#,,*$)%#x3G\"\"%\"\"\"#\"\"\"F'*$)%#x1GF'F(#!\"\"F'*&,(F-F/%#x2GF/F&F/
F*,&*$)F&\"\"$F(F**$)F-F6F(F/F*#F*F6*&,&*&F-F*F2F*F**&,&F-F/F2F/F*F&F*
F/F*,&*$)F&\"\"#F(F**$)F-FBF(F/F*#F*FB**F-F(F2F(F&F(,&F&F*F-F/F*F/" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "subs(x2=x1+h,%);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#,,*$)%#x3G\"\"%\"\"\"#\"\"\"F'*$)%#x1GF'F(#!
\"\"F'*&,(F-!\"#%\"hGF/F&F/F*,&*$)F&\"\"$F(F**$)F-F7F(F/F*#F*F7*&,&*&F
-F*,&F-F*F3F*F*F**&,&F-F2F3F/F*F&F*F/F*,&*$)F&\"\"#F(F**$)F-FDF(F/F*#F
*FD**F-F(F>F(F&F(,&F&F*F-F/F*F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 18 "subs(x3=x1+2*h,%);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#,,*$),&%
#x1G\"\"\"%\"hG\"\"#\"\"%\"\"\"#F(F+*$)F'F+F,#!\"\"F+*&,&F'!\"$F)F4F(,
&*$)F&\"\"$F,F(*$)F'F8F,F1F(#F(F8*&,&*&F'F(,&F'F(F)F(F(F(*&,&F'!\"#F)F
1F(F&F(F1F(,&*$)F&F*F,F(*$)F'F*F,F1F(#F(F***F'F,F?F,F&F,F)F(FB" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "simplify(expand(%));" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}}{MARK "13 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }