{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 "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 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 }
}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "interp([-1,1,3,5], [
2,3,5,1], x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,**$)%\"xG\"\"$\"\"\"
#!\"(\"#[*&#\"\"*\"#;F()F&\"\"#F(F(*&#\"#JF+F(F&F(F(#F4F/F(" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "subs(x=3.75,%);" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#$\"+j:5zX!\"*" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 17 "f:=unapply(%%,x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
>%\"fGf*6#%\"xG6\"6$%)operatorG%&arrowGF(,**$)9$\"\"$\"\"\"#!\"(\"#[*&
#\"\"*\"#;F1)F/\"\"#F1F1*&#\"#JF4F1F/F1F1#F=F8F1F(F(F(" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "f(3.75);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#$\"+j:5zX!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 42 "f := x-> -7/48*x^3+9/16*x^2+31/48*x+31/16;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"fGf*6#%\"xG6\"6$%)operatorG%&arrowGF(,**$)9$\"\"$\"
\"\"#!\"(\"#[*&#\"\"*\"#;F1)F/\"\"#F1F1*&#\"#JF4F1F/F1F1#F=F8F1F(F(F(
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "y:=(1-5)/(2)*(x-3)+5;" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"yG,&%\"xG!\"#\"#6\"\"\"" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "plot([f(x),y],x=-2..7);" }}
{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'CURVESG6$7V7$
$!\"#\"\"!$\"3++++++]iS!#<7$$!31++]7c#Q!=F-$\"3#*\\KzG(=(eMF-7$$!3'***
\\(oKNJj\"F-$\"3(yw_JsY#=IF-7$$!3%****\\([i<T9F-$\"3$p#RK01d6EF-7$$!3+
++DTZ%zC\"F-$\"3/,#)G#=#)4H#F-7$$!35+]PH;jb5F-$\"31)yEqk:T0#F-7$$!33++
vovKt()!#=$\"3*>jx(*4LB!>F-7$$!38,+v=g9FpFJ$\"3T]N)*[Y^3=F-7$$!3z***\\
(=C#y,&FJ$\"3)[/E\\R'[t<F-7$$!3i,+vV?i9JFJ$\"3qz;e55K&z\"F-7$$!3u(****
\\_Yp:\"FJ$\"3qkxLzb`q=F-7$$\"3G\"****\\P^Pn&!#>$\"3/**[.6r#f(>F-7$$\"
3r-++DHb3DFJ$\"3e=()R4egK@F-7$$\"3I)****\\P,xX%FJ$\"3&)z^\\D.DCBF-7$$
\"3b-++vq1OjFJ$\"3*3Sx54Ha`#F-7$$\"3a)**\\73.=/)FJ$\"3s$RZhF&zWFF-7$$
\"3/++]<)3q+\"F-$\"3%oCI-=^$4IF-7$$\"3/+++q6$)y6F-$\"3x$=LU40;C$F-7$$
\"3%***\\789qy8F-$\"3(QOkSlT\\^$F-7$$\"3u*****\\W?cb\"F-$\"3#RRp6/-Wv$
F-7$$\"3U+]7j'G(\\<F-$\"3E>JpjJW3SF-7$$\"3X+]P*elX$>F-$\"3BbIf4fAOUF-7
$$\"3s++DJNUF@F-$\"3WN!)3A/8`WF-7$$\"32+]iDt_/BF-$\"3?Dwn9)Q$GYF-7$$\"
3[***\\Ppdb\\#F-$\"3')*)HU%)f$ey%F-7$$\"3#***\\7eX)Rp#F-$\"3#Q`(HkPW3
\\F-7$$\"3K+](os:n'GF-$\"3Cqgr^Z\"f(\\F-7$$\"3u***\\77qK0$F-$\"3Uz7__)
)G-]F-7$$\"3Y*****\\1**fC$F-$\"3[4CN!GUH(\\F-7$$\"3t***\\itYXV$F-$\"37
>HP-Ei#)[F-7$$\"3'***\\7.j(ph$F-$\"32*e\"eS(p;t%F-7$$\"3l***\\PBL&>QF-
$\"3K^Ar%z(H%[%F-7$$\"3P*****\\kR:+%F-$\"354N0ECk%=%F-7$$\"3e++]P.(e>%
F-$\"3=z2h2#pwx$F-7$$\"3e**\\7GG'>P%F-$\"3qaU$3o:gK$F-7$$\"3_++]K%yWc%
F-$\"3OOVuRFDOFF-7$$\"3S**\\781iXZF-$\"39\"Q1BR_V3#F-7$$\"3n**\\i&Qm\\
$\\F-$\"3=$>*=%edmH\"F-7$$\"31++](['3?^F-$\"3MNZAT55fTFJ7$$\"3e**\\7y+
*QJ&F-$!3W^I3U%oVH'FJ7$$\"3,,++qfa+bF-$!31mMLEyIh<F-7$$\"31++vy&G9p&F-
$!3Ai'o![=u^IF-7$$\"3_+]7$eI2)eF-$!3'Qr9,X&>qWF-7$$\"3a*****\\YzY0'F-$
!3[kI;e<\\+fF-7$$\"3Q***\\P^WSD'F-$!3o*)*3)Q@L&p(F-7$$\"3*3+++**eBV'F-
$!3S]LX&pPoW*F-7$$\"36+Dc,#>u_'F-$!3J>joBr(Q/\"!#;7$$\"3L**\\78%zCi'F-
$!3%fvx`.:s9\"F`z7$$\"3a*****\\;kMr'F-$!3;'*eqIQ2]7F`z7$$\"3v**\\(o\"*
[W!oF-$!3y.#fy=koN\"F`z7$$\"3))*\\P%eWA-pF-$!3%*3(fY(H3w9F`z7$$\"\"(F*
$F`zF*-%'COLOURG6&%$RGBG$\"#5!\"\"$F*F*F`\\l-F$6$7S7$F($\"#:F*7$F/$\"3
)*****\\A^wg9F`z7$F4$\"3/+]PlqiE9F`z7$F9$\"3'****\\(\\_B)Q\"F`z7$F>$\"
35++D[*)e\\8F`z7$FC$\"3-+](eKE6J\"F`z7$FH$\"3++]P^lYv7F`z7$FN$\"3.+]P?
HaQ7F`z7$FS$\"33+]P[kN+7F`z7$FX$\"3/+](3W#Hi6F`z7$Fgn$\"30++]I*QJ7\"F`
z7$F\\o$\"3-++D(\\_')3\"F`z7$Fbo$\"3')****\\T*G)\\5F`z7$Fgo$\"3&*****
\\sf%3,\"F`z7$F\\p$\"3\\*****\\e'yK(*F-7$Fap$\"3G++v$QR;R*F-7$Ffp$\"3#
******\\O#)f)*)F-7$F[q$\"3.******fwLU')F-7$F`q$\"3B***\\P<(fU#)F-7$Feq
$\"3_+++5\"f())yF-7$Fjq$\"3<***\\PnU0](F-7$F_r$\"35***\\7#)o38(F-7$Fdr
$\"3c)***\\PH:XnF-7$Fir$\"3')***\\([`%4R'F-7$F^s$\"30,+]7Y))3gF-7$Fcs$
\"39++v$)3.7cF-7$Fhs$\"3Q***\\iaolE&F-7$F]t$\"3]++]d(fM*[F-7$Fbt$\"33,
++q=+3XF-7$Fgt$\"3a++]Fl!48%F-7$F\\u$\"33++v$RZgw$F-7$Fau$\"3q++]KN$4O
$F-7$Ffu$\"3E,++52#p*HF-7$F[v$\"3!))****\\Kf#3EF-7$F`v$\"3#3+]PMugD#F-
7$Fev$\"3'*)****\\8V5(=F-7$Fjv$\"3B,+vt(e(3:F-7$F_w$\"3l++vGs1I6F-7$Fd
w$\"3y)*****\\-F)f(FJ7$Fiw$\"3M3+]P%)>APFJ7$F^x$!3'=,-++S>4\"!#?7$Fcx$
!3c,++v:dGQFJ7$Fhx$!3V5+]i;h9wFJ7$F]y$!33******H*e$46F-7$Fby$!3u)***\\
F!*33:F-7$Fgy$!3y,++!)zrk=F-7$Fbz$!3l)**\\i#)e\\C#F-7$F\\[l$!3^***\\P$
y*)3EF-7$Ff[l$!\"$F*-Fj[l6&F\\\\lF`\\lF]\\lF`\\l-%+AXESLABELSG6$Q\"x6
\"Q!F^fl-%%VIEWG6$;F(Ff[l%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 
45.000000 43.000000 0 0 "Curve 1" "Curve 2" }}}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 243 "f(x) := table([(-1)=2,(1)=3,(3)=5,(5)=1]):\nar:= \+
array([indices(f(x))]):\ns:= convert(ar,set):\na:= min(op(s)):\nb:= ma
x(op(s)):\nh:=abs(s[1] - s[2]):\nstart:=a;                  #vooraan i
n de tabel...\nk:= (b - start)/h;\nfor k from 0 by 1 to k do  " }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "dv(k) := sum('(-1)^i * binomial(k, \+
i) * (f(x)[start + (k - i)*h])','i'=0..k);" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 3 "od;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&startG!\"\"
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"kG\"\"$" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>-%#dvG6#\"\"!\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
>-%#dvG6#\"\"\"F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%#dvG6#\"\"#\"
\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%#dvG6#\"\"$!\"(" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 7 "x1:=-1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x1G!\"
\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "f(x1):=2;" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#>-%\"fG6#!\"\"\"\"#" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 52 "pu:=f(x1)+1*u/1!+1*u*(u-1)/2!+(-7)*u*(u-1)*(u-2)/3!
;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#puG,*\"\"#\"\"\"%\"uGF'*(#F'F&
F'F(F',&F(F'F'!\"\"F'F'*&#\"\"(\"\"'F'*(F(F'F+F',&F(F'F&F,F'F'F," }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "f:=unapply(pu,u);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%\"fGf*6#%\"uG6\"6$%)operatorG%&arrowGF(,*
\"\"#\"\"\"9$F.*(#F.F-F.F/F.,&F/F.F.!\"\"F.F.*&#\"\"(\"\"'F.*(F/F.F2F.
,&F/F.F-F3F.F.F3F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "f(
2.375);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+i:5zX!\"*" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "subs(u=(x+1)/2,pu);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#,*#\"\"&\"\"#\"\"\"*&#F'F&F'%\"xGF'F'*(F)F',&F*F)F
)F'F',&F*F)#F'F&!\"\"F'F'*&#\"\"(\"\"'F'*(F,F'F-F',&F*F)#\"\"$F&F/F'F'
F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "expand(%,x);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#,*#\"#J\"#;\"\"\"*&#F%\"#[F'%\"xGF'F'*
&#\"\"*F&F')F+\"\"#F'F'*&#\"\"(F*F'*$)F+\"\"$F'F'!\"\"" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "sort(%);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#,**$)%\"xG\"\"$\"\"\"#!\"(\"#[*&#\"\"*\"#;F()F&\"\"#F(F
(*&#\"#JF+F(F&F(F(#F4F/F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 
"" }}}}{MARK "6 1" 1 }{VIEWOPTS 1 1 0 3 2 1804 1 1 1 1 }{PAGENUMBERS 
0 1 2 33 1 1 }