{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 "Warning" -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 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 45 "f:=piecewise(x<-1,0,
x<0,1-x,x<1,1+x,x<2,1,0);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fG-%*
PIECEWISEG6'7$\"\"!2%\"xG!\"\"7$,&\"\"\"F/F+F,2F+F)7$,&F/F/F+F/2F+F/7$
F/2F+\"\"#7$F)%*otherwiseG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
16 "plot(f,x=-2..3);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 
{PLOTDATA 2 "6%-%'CURVESG6$7dp7$$!\"#\"\"!$F*F*7$$!3smm;HU,\"*=!#<F+7$
$!3SL$3FH'='z\"F/F+7$$!3gmmTgBa*o\"F/F+7$$!3amm\"H_\">#e\"F/F+7$$!3ML$
3_!4Nv9F/F+7$$!3km;/wfHw8F/F+7$$!3;+]PM.tt7F/F+7$$!3em;/,oln6F/F+7$$!3
5L$eR7!z96F/F+7$$!3%)**\\(oWB>1\"F/F+7$$!31$e9\"4NtM5F/F+7$$!3]mTNrNa2
5F/F+7$$!3S9T8H[9/5F/F+7$$!3JiS\"p3Y2+\"F/F+7$$!33-,%pWtM(**!#=$\"3?5S
pWtM(*>F/7$$!35\"eRZ-'[R**FZ$\"35eRZ-'[R*>F/7$$!39R&Q.=6:()*FZ$\"3#R&Q
.=6:()>F/7$$!3H)\\PfLON!)*FZ$\"3%*\\PfLON!)>F/7$$!3[:a8Zmen'*FZ$\"3cTN
rk'en'>F/7$$!3eJLLepjJ&*FZ$\"3;LL$epjJ&>F/7$$!3])**\\(=(eE0*FZ$\"3u**
\\(=(eE0>F/7$$!3Ulm;z/ot&)FZ$\"3amm\"z/ot&=F/7$$!3u)****\\P[_\\(FZ$\"3
))****\\P[_\\<F/7$$!3A*****\\7)Q7kFZ$\"3#*****\\7)Q7k\"F/7$$!3e*****\\
i^)o`FZ$\"3'*****\\i^)o`\"F/7$$!3vlmT50A@WFZ$\"3dm;/^?7U9F/7$$!3OKLLea
R%H$FZ$\"3CLL$eaR%H8F/7$$!3kJLLLo#)RBFZ$\"3<LLL$o#)RB\"F/7$$!3f***\\Pf
O%H7FZ$\"3'***\\PfO%H7\"F/7$$!35omT&Q[*zt!#>$\"3omT&Q[*zt5F/7$$!3MSLLL
3`lCF`s$\"3SLLL3`lC5F/7$$!3noTN'4dv6\"F`s$\"3rTN'4dv6,\"F/7$$\"3+I+D1k
;/B!#?$\"3(*\\iSmTI-5F/7$$\"3ouTgx.Ry:F`s$\"3mTgx.Ry:5F/7$$\"3LYLe9TOE
HF`s$\"3dLe9TOEH5F/7$$\"3n*oT&)e6Bi&F`s$\"3'pT&)e6Bi0\"F/7$$\"3+L+]i!f
#=$)F`s$\"3K+]i!f#=$3\"F/7$$\"3+-+v=xpe=FZ$\"3?+](=xpe=\"F/7$$\"3<rm;H
28IHFZ$\"37nm\"H28IH\"F/7$$\"3`nm\"zpSS\"RFZ$\"3um;zpSS\"R\"F/7$$\"3)G
LL3_?`(\\FZ$\"3GLL3_?`(\\\"F/7$$\"3!fL$e*)>pxgFZ$\"3fL$e*)>pxg\"F/7$$
\"3w++v$f4t.(FZ$\"33+]Pf4t.<F/7$$\"3OPL$e*Gst!)FZ$\"3uLLe*Gst!=F/7$$\"
3\"*om\"H2\"34')FZ$\"3)om\"H2\"34'=F/7$$\"3Y+++]#RW9*FZ$\"30+++DRW9>F/
7$$\"3s+]i:5J1%*FZ$\"3'**\\i:5J1%>F/7$$\"3'4+]7y#=o'*FZ$\"35+]7y#=o'>F
/7$$\"3a+D1k'=\"*z*FZ$\"31]iSm=\"*z>F/7$$\"3A,](oaa+$**FZ$\"3C+voaa+$*
>F/7$$\"3AF\"yv^)yi**FZ$\"3s7yv^)yi*>F/7$$\"37_7G)[Ab***FZ$\"3AD\"G)[A
b**>F/7$$\"3qP%)*ekDG+\"F/$\"\"\"F*7$$\"3>](oH/*415F/Fez7$$\"3<v$4r$ek
75F/Fez7$$\"3:++DJE>>5F/Fez7$$\"3A+v$4^n)p5F/Fez7$$\"3F+]i!RU07\"F/Fez
7$$\"3+++v=S2L7F/Fez7$$\"3Jmmm\"p)=M8F/Fez7$$\"3B++](=]@W\"F/Fez7$$\"3
5L$e*[$z*R:F/Fez7$$\"3e++]iC$pk\"F/Fez7$$\"3[m;H2qcZ<F/Fez7$$\"3O+]7.
\"fF&=F/Fez7$$\"3TLek`8=/>F/Fez7$$\"3Ymm;/Ogb>F/Fez7$$\"3=e*[o=i!p>F/F
ez7$$\"3o\\7`p2_#)>F/Fez7$$\"3K&Rs31]#*)>F/Fez7$$\"3;TN@_$zf*>F/Fez7$$
\"359T)y*RM**>F/Fez7$$\"3.(oaNk3F+#F/F+7$$\"3'*f_A*Gtg+#F/F+7$$\"3*G$e
*[$zV4?F/F+7$$\"3L;/E+^NO?F/F+7$$\"3w**\\ilAFj?F/F+7$$\"3ym\"zW7@^6#F/
F+7$$\"3yLLL$)*pp;#F/F+7$$\"3)RL$3xe,tAF/F+7$$\"3Cn;HdO=yBF/F+7$$\"3a+
++D>#[Z#F/F+7$$\"3SnmT&G!e&e#F/F+7$$\"3#RLLL)Qk%o#F/F+7$$\"37+]iSjE!z#
F/F+7$$\"3a+]P40O\"*GF/F+7$$\"\"$F*F+-%'COLOURG6&%$RGBG$\"#5!\"\"F+F+-
%+AXESLABELSG6$Q\"x6\"Q!Fhal-%%VIEWG6$;F(F[al%(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 18 "c:=int(f,x=-1..2):" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 17 "f:=simplify(f/c);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"fG-%*PIECEWISEG6'7$\"\"!2%\"xG!\"\"7$,&#\"\"\"\"\"%
F0*&#F0F1F0F+F0F,2F+F)7$,&F/F0*&F/F0F+F0F02F+F07$F/2F+\"\"#7$F)1F;F+" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "mu:=int(x*f,x=-1..2);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#muG#\"\"$\"\")" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 29 "var:=int((x-mu)^2*f,x=-1..2):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "F:=int(f,x):" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 28 "F:=simplify(F-eval(F,x=-1)):" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 16 "plot(F,x=-2..3);" }}{PARA 13 "" 1 "" 
{GLPLOT2D 400 300 300 {PLOTDATA 2 "6%-%'CURVESG6$7gn7$$!\"#\"\"!$F*F*7
$$!3smm;HU,\"*=!#<F+7$$!3SL$3FH'='z\"F/F+7$$!3gmmTgBa*o\"F/F+7$$!3amm
\"H_\">#e\"F/F+7$$!3ML$3_!4Nv9F/F+7$$!3km;/wfHw8F/F+7$$!3;+]PM.tt7F/F+
7$$!3em;/,oln6F/F+7$$!35L$eR7!z96F/F+7$$!3%)**\\(oWB>1\"F/F+7$$!31$e9
\"4NtM5F/F+7$$!3]mTNrNa25F/F+7$$!3H)\\PfLON!)*!#=$\"3E4S+Rd$\\x*!#?7$$
!3eJLLepjJ&*FT$\"3gOM)fr%R9B!#>7$$!3])**\\(=(eE0*FT$\"3!p&\\NoW_CYFgn7
$$!3Ulm;z/ot&)FT$\"3s\"*yA#=*HxoFgn7$$!3u)****\\P[_\\(FT$\"3%*[Kr`N&R<
\"FT7$$!3A*****\\7)Q7kFT$\"3w([H/&*=Hj\"FT7$$!3e*****\\i^)o`FT$\"3%e=4
m**zu/#FT7$$!3vlmT50A@WFT$\"34@UP()\\N+CFT7$$!3OKLLeaR%H$FT$\"3kv!ou6Q
2z#FT7$$!3kJLLLo#)RBFT$\"3CL=a@%3m4$FT7$$!3f***\\PfO%H7FT$\"3'\\&oLApu
BMFT7$$!3MSLLL3`lCFgn$\"3s,/)Q(=g(o$FT7$$\"3+L+]i!f#=$)Fgn$\"3qe8zbcgm
RFT7$$\"3+-+v=xpe=FT$\"3/\"e3[*)eyD%FT7$$\"3<rm;H28IHFT$\"3)Hv;%3N&)*e
%FT7$$\"3`nm\"zpSS\"RFT$\"3)p,\"z1m+?\\FT7$$\"3)GLL3_?`(\\FT$\"3N[6x3G
D.`FT7$$\"3!fL$e*)>pxgFT$\"3v,*)RYA:JdFT7$$\"3w++v$f4t.(FT$\"3\"G2;u(R
PGhFT7$$\"3OPL$e*Gst!)FT$\"39F@WTKC$e'FT7$$\"3Y+++]#RW9*FT$\"3oc<YF%p8
3(FT7$$\"3:++DJE>>5F/$\"3O+]7y:)za(FT7$$\"3F+]i!RU07\"F/$\"3o+DcwfN,yF
T7$$\"3+++v=S2L7F/$\"3++](o/&o#3)FT7$$\"3Jmmm\"p)=M8F/$\"3zlm;H<ZN$)FT
7$$\"3B++](=]@W\"F/$\"3f++voaP0')FT7$$\"35L$e*[$z*R:F/$\"3wKeRs$[*\\))
FT7$$\"3e++]iC$pk\"F/$\"3Y,+Dc6L<\"*FT7$$\"3[m;H2qcZ<F/$\"3=m\"H#=v\"*
o$*FT7$$\"3O+]7.\"fF&=F/$\"3!4]7yv(*=j*FT7$$\"3TLek`8=/>F/$\"3_$e9TQ`/
w*FT7$$\"3Ymm;/Ogb>F/$\"39mmT5!4!*))*FT7$$\"3o\\7`p2_#)>F/$\"3iB\"GQ#>
Ic**FT7$$\"3*G$e*[$zV4?F/$\"\"\"F*7$$\"3L;/E+^NO?F/Ffx7$$\"3w**\\ilAFj
?F/Ffx7$$\"3ym\"zW7@^6#F/Ffx7$$\"3yLLL$)*pp;#F/Ffx7$$\"3)RL$3xe,tAF/Ff
x7$$\"3Cn;HdO=yBF/Ffx7$$\"3a+++D>#[Z#F/Ffx7$$\"3SnmT&G!e&e#F/Ffx7$$\"3
#RLLL)Qk%o#F/Ffx7$$\"37+]iSjE!z#F/Ffx7$$\"3a+]P40O\"*GF/Ffx7$$\"\"$F*F
fx-%'COLOURG6&%$RGBG$\"#5!\"\"F+F+-%+AXESLABELSG6$Q\"x6\"Q!Fg[l-%%VIEW
G6$;F(Fjz%(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 24 "
median:=solve(F=1/2.,x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'medianG
$\"+Cc8UT!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "eval(f,x=me
dian);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+1R`NN!#5" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "SIQD:=(solve(F=3/4.,x)-solve(F=1/4.
,x))/2;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%SIQDG$\"+7y1rq!#5" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(stats):" }}{PARA 7 "" 
1 "" {TEXT -1 116 "Warning, these names have been redefined: anova, de
scribe, fit, importdata, random, statevalf, statplots, transform\n" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "X:=[seq(solve(F=random[unif
orm](),x),i=1..1000)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "w
ith(statplots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "histogra
m(X,area=count);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 
2 "6%-%)POLYGONSG6.7&7$$!+h0,&***!#5\"\"!7$F($\"++++]6!\"(7$$!+\")o3'
\\(F*F-7$F1F+7&F37$F1$\"+,+++')!\")7$$!+,K;(*\\F*F67$F:F+7&F<7$F:$\"+,
+++\"*F87$$!+@&R#)\\#F*F?7$FBF+7&FD7$FB$\"+*******R'F87$$\"'fToF*FG7$F
JF+7&FL7$FJ$\"+,+++rF87$$\"+Ryg*\\#F*FO7$FRF+7&FT7$FR$\"+++++!)F87$$\"
+>:`)*\\F*FW7$FZF+7&Ffn7$FZ$\"+-+++(*F87$$\"+*>bu\\(F*Fin7$F\\oF+7&F^o
7$F\\o$\"++++]9F/7$$\"+z)yj***F*Fao7$FdoF+7&Ffo7$Fdo$\"+'******H&F87$$
\"+c-`\\7!\"*Fio7$F\\pF+7&F_p7$F\\p$\"+********eF87$$\"+CEU*\\\"F^pFbp
7$FepF+7&Fgp7$Fep$\"+,+++wF87$$\"+#*\\J\\<F^pFjp7$F]qF+7&F_q7$F]q$\"+)
******H'F87$$\"+gt?**>F^pFbq7$FeqF+-%&COLORG6&%$RGBG$\"\"(!\"\"F\\r$\"
#5F^r-%%VIEWG6$;$!+)*=P*H\"F^p$\"+-#y!*H#F^p%(DEFAULTG" 1 2 0 1 10 0 
2 6 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 44 "f3:=simplify(binomial(9,3)*3*F^2*(1-F)^6*
f):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "plot(f3,x=-1..2);" }
}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6%-%'CURVESG6$7]p
7$$!\"\"\"\"!$F*F*7$$!3u****\\(oUIn*!#=$\"3KSbg**f)R&H!#>7$$!3[*****\\
P&3Y$*F/$\"3o81s>k8O5F/7$$!3I**\\il:gh!*F/$\"3a6\"o:pOF!>F/7$$!3C++Dcx
6x()F/$\"3-2rW>Li!)GF/7$$!3[*\\7y&=:<')F/$\"3C+!*e3Gv_MF/7$$!3%)**\\Pf
f=d%)F/$\"3EcZ_+$z\"GSF/7$$!3?+v$41?sH)F/$\"33)Q)y5Bl)f%F/7$$!3b++]iTD
P\")F/$\"3y98FNhFd^F/7$$!3m***\\i!zAwzF/$\"3;e,#)>M(=q&F/7$$!3*)******
\\;?:yF/$\"3$=O/c\\sRA'F/7$$!37++v$RvTl(F/$\"3qLqsJ6\")>nF/7$$!3A****
\\P\"\\J\\(F/$\"3aEki%[pk=(F/7$$!3U**\\P%GFE<(F/$\"3rx8S8^[?!)F/7$$!3g
***\\7V0@&oF/$\"3KJ(=Oa-2s)F/7$$!3=++vV1%\\b'F/$\"3Aqp$[;<![#*F/7$$!3w
++DcexdiF/$\"3-'49f/n-m*F/7$$!3?++DJ*y+&fF/$\"3mCrX0vRr**F/7$$!3j***\\
i+#QUcF/$\"3*[c/?/ss,\"!#<7$$!39***\\iqrK[&F/$\"3'4v$R-RoB5Fbq7$$!3y**
*\\iShTK&F/$\"3?5bG:NbF5Fbq7$$!3a***\\iD1YC&F/$\"37\\wF5-eG5Fbq7$$!3U+
+D160l^F/$\"3[x*>=$f-H5Fbq7$$!3=++Dcf\\&3&F/$\"3I*pjA64*G5Fbq7$$!3$***
*\\i!3%f+&F/$\"3p!30^@[#G5Fbq7$$!3s*****\\xSt%[F/$\"34UfY%R!QD5Fbq7$$!
31++vV2u)o%F/$\"30$)*e'H*o0-\"Fbq7$$!3R++]729IXF/$\"31J=;du&R,\"Fbq7$$
!3;++D\"oS:P%F/$\"3LCN**>po05Fbq7$$!3!***\\7G9EXSF/$\"3MgJ\"Q/`.%)*F/7
$$!3h*****\\<#)*=PF/$\"3Q[Z/)=&zq&*F/7$$!3#*****\\(G3U9$F/$\"3c))\\cP#
f%)**)F/7$$!3Y*****\\-\\r\\#F/$\"3!evcr)otd#)F/7$$!3?+++vGVZ=F/$\"397
\"fw(*HgY(F/7$$!3_*****\\(4J@7F/$\"3a([fNN:yp'F/7$$!3;,+]iIKFlF2$\"3y$
QehXO\">gF/7$$!3))***\\i!z%o9$F2$\"3H_Db]YMIcF/7$$\"3(R,++]siL#!#?$\"3
9hX$p9?(z_F/7$$\"3O,++DJL(4$F2$\"3Y(f[(zTtf_F/7$$\"3K,+++!R5'fF2$\"3W%
4KhF\"eA_F/7$$\"3!)***\\P/QBE\"F/$\"3!)pihy?_p]F/7$$\"39******\\\"o?&=
F/$\"3U$=:J%o#z&[F/7$$\"3k++vVb4*\\#F/$\"3UpO%yG4!\\XF/7$$\"3w++DJ'=_6
$F/$\"37Y:9vm+*=%F/7$$\"3#4++vVy!ePF/$\"3K-6T3K,ePF/7$$\"3'4+](=WU[VF/
$\"3*G3.zw>mK$F/7$$\"3s****\\7B>&)\\F/$\"3-f7xj5pSGF/7$$\"3w***\\P>:mk
&F/$\"3N?!30V)4MBF/7$$\"3d***\\iv&QAiF/$\"3*f/&=,$e&3>F/7$$\"3j++]PPBW
oF/$\"3!fzj*)4\"G\"[\"F/7$$\"3%*)*****\\Nm'[(F/$\"3Ky>)Ri\"e*3\"F/7$$
\"36****\\(yb^6)F/$\"39=`[HuUdwF27$$\"3')***\\PMaKs)F/$\"3;R>IOjSL^F27
$$\"3a****\\7TW)R*F/$\"3@B^E=toJIF27$$\"3g)*\\(=7;,b*F/$\"3E;1_lWvbEF2
7$$\"3t)**\\78)y,(*F/$\"3X@T]6v\"HJ#F27$$\"3M*\\Pf8Cwx*F/$\"3en_t!f<N:
#F27$$\"3'))*\\iS,Y`)*F/$\"3=h\"H^&f!>+#F27$$\"3i[(oH9y8*)*F/$\"3]=$*z
5e'*G>F27$$\"3Q)\\7`9'HH**F/$\"3#)3%*Q8g!z&=F27$$\"3qsV[Y^D[**F/$\"3&[
.$eaS2B=F27$$\"39[ilZT@n**F/$\"3Czz-3Nq)y\"F27$$\"3eB\"G)[J<')**F/$\"3
u*zW[V\"za<F27$$\"3z*****\\@80+\"Fbq$\"3FneZUw2G')F`w7$$\"3#****\\Pm,H
.\"Fbq$\"3@lN)*)GwVB(F`w7$$\"31++]7,Hl5Fbq$\"3zbu*zV?P-'F`w7$$\"3()**
\\P4w)R7\"Fbq$\"3,ad9$ea(RUF`w7$$\"3;++]x%f\")=\"Fbq$\"3KakXjuY(z#F`w7
$$\"3!)**\\P/-a[7Fbq$\"3\"Gc/JV=n#=F`w7$$\"3/+](=Yb;J\"Fbq$\"3C;?=ogY@
6F`w7$$\"3')****\\i@Ot8Fbq$\"3pP@<g-[Bm!#@7$$\"3')**\\PfL'zV\"Fbq$\"3;
a_wURQ\"e$Fhal7$$\"3>+++!*>=+:Fbq$\"3qAwEY;<O=Fhal7$$\"3-++DE&4Qc\"Fbq
$\"3F:Wf?W/4%)!#A7$$\"3=+]P%>5pi\"Fbq$\"3>q:tKAZ5MFhbl7$$\"39+++bJ*[o
\"Fbq$\"3CFE+\"*Ryx7Fhbl7$$\"33++Dr\"[8v\"Fbq$\"3A%*yirTJ(>$!#B7$$\"3+
+++Ijy5=Fbq$\"3lI8D+YE1k!#C7$$\"31+]P/)fT(=Fbq$\"3+W()\\$R,(Hd!#D7$$\"
31+]i0j\"[$>Fbq$\"3ANPS5tnT6!#E7$$\"\"#F*F+-%'COLOURG6&%$RGBG$\"#5F)F+
F+-%+AXESLABELSG6$Q\"x6\"Q!Fhel-%%VIEWG6$;F(F\\el%(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 26 "mu3:=int(x*f3*1.,x=-1..2);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$mu3G$!+<s50B!#5" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 32 "var3:=int((x-mu3)^2*f3,x=-1..2);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%%var3G$\"+PAlZ<!#5" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 18 "int(f3*1.,x=0..1);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#$\"+aI#Q!G!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 38 "f:=piecewise(x<1,3/2*x^2,3/2*(x-2)^2);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"fG-%*PIECEWISEG6$7$,$*$)%\"xG\"\"#\"\"\"#\"\"$F-2F,
F.7$,$*$),&F,F.F-!\"\"F-F.F/%*otherwiseG" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 12 "F:=int(f,x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"F
G-%*PIECEWISEG6$7$,$*$)%\"xG\"\"$\"\"\"#F.\"\"#1F,F.7$,&*$),&F,F.F0!\"
\"F-F.F/F.F.2F.F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "fmed:=
(2*k+1)!/(k!)^2*F^k*(1-F)^k*f:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 23 "sigma:=1/3/sqrt(2*k+1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 47 "fnor:=exp(-(x-1)^2/2/sigma^2)/sqrt(2*Pi)/sigma:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "k:=32:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 28 "plot(\{fmed,fnor\},x=.9..1.1);" }}{PARA 13 "" 1 "" 
{GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'CURVESG6$7W7$$\"3A+++++++!*!#=
$\"3kuDZ%*R<y^F*7$$\"3nLLL3VfV!*F*$\"3]t6')G(p`k'F*7$$\"3%pm;H[D:3*F*$
\"3Wb$y]]$*>=)F*7$$\"3nLL$e0$=C\"*F*$\"32Os(=^-N-\"!#<7$$\"3%QLL3RBr;*
F*$\"3;Jz3:/^o7F<7$$\"3Smm\"zjf)4#*F*$\"3[&\\;a7NQb\"F<7$$\"3?LLe4;[\\
#*F*$\"3WmFtv%*ed=F<7$$\"3o++Dmy]!H*F*$\"3u%4,Fm(H8AF<7$$\"3>LLezs$HL*
F*$\"3wNpd>QjDEF<7$$\"3G++D@1Bv$*F*$\"3wO6WYWi!3$F<7$$\"3Onmm@Xt=%*F*$
\"3aM#[&RTg\"f$F<7$$\"3yLL$3y_qX*F*$\"3C`@UcQ!R2%F<7$$\"3T+++l+>+&*F*$
\"3wmN/WSxYYF<7$$\"3)3++]Z/Na*F*$\"39oX%ev(HX_F<7$$\"3w+++NfC&e*F*$\"3
<i[2p\">S$eF<7$$\"3bLLez6:B'*F*$\"3[^cG*4(>pjF<7$$\"3)pmm;=C#o'*F*$\"3
/q^:)o9H*pF<7$$\"3\\nmmEpS1(*F*$\"3#\\6g!Q&)y)\\(F<7$$\"31++DOD#3v*F*$
\"3M_r[?,lY!)F<7$$\"3!pmmm(y8!z*F*$\"3wY$4A\"3$G[)F<7$$\"3$4+]i.tK$)*F
*$\"3YV#>\"phh&*))F<7$$\"3!3+](3zMu)*F*$\"3H<BU>4l8#*F<7$$\"3\"zmm\"H_
?<**F*$\"3sm[v=0ed%*F<7$$\"3Sn;aGM)o$**F*$\"3%4%=(=AWt`*F<7$$\"3)om;zi
hl&**F*$\"3C;d_'4=gf*F<7$$\"3)4+vVA(yx**F*$\"3')eJ.Q2@N'*F<7$$\"3)RLL3
#G,****F*$\"3UO'y#p*)4\\'*F<7$$\"3NL3-Dg5-5F<$\"3]!fy#=khO'*F<7$$\"3TL
$ezw5V+\"F<$\"39Jj1]9#of*F<7$$\"3*ommJ+Ii+\"F<$\"3x]RX)[,-a*F<7$$\"3:+
]PQ#\\\"35F<$\"3%og,')Q,NY*F<7$$\"3TLLe\"*[H75F<$\"3Jf:w4%z<B*F<7$$\"3
3+++dxd;5F<$\"3X^D+&zLQ!*)F<7$$\"3;++D0xw?5F<$\"3@*yz[f)\\0&)F<7$$\"3.
+]i&p@[-\"F<$\"3[$>1ea-z0)F<7$$\"32++vgHKH5F<$\"3n')[:\"HoM](F<7$$\"3$
ommwanL.\"F<$\"3]Pf'zc0r'pF<7$$\"31++]2goP5F<$\"3WF6wp!R!pjF<7$$\"3YL$
eR<*fT5F<$\"3$\\`,9#**\\;eF<7$$\"3+++])Hxe/\"F<$\"3r\")R.:QT8_F<7$$\"3
mm;H!o-*\\5F<$\"3%>8*y>!=ul%F<7$$\"3/+]7k.6a5F<$\"39`#*)oW)y(4%F<7$$\"
3mmm;WTAe5F<$\"3irNLyXpzNF<7$$\"3;+]i!*3`i5F<$\"3e!fl12`X2$F<7$$\"3KLL
L*zym1\"F<$\"3/q$)f<'\\%GEF<7$$\"3MLL3N1#42\"F<$\"3nJ^f%*R#f@#F<7$$\"3
%om\"HYt7v5F<$\"3-M?.f$Q9&=F<7$$\"37+++xG**y5F<$\"3;7yC)Qb`b\"F<7$$\"3
'om;9@BM3\"F<$\"3G?=S9M:g7F<7$$\"3[LLLbdQ(3\"F<$\"3;\"zD!)e<Q.\"F<7$$
\"33+]i`1h\"4\"F<$\"3SNfIl\\i'G)F*7$$\"3/+]P?Wl&4\"F<$\"3=J\">(z8ASmF*
7$$\"33+++++++6F<$\"3MTDZ%*R<y^F*-%'COLOURG6&%$RGBG$\"#5!\"\"$\"\"!Fd
\\lFc\\l-F$6$7U7$F($\"3h=a[#fMD$oF*7$F.$\"3[#G.uh'>#Q)F*7$F3$\"3#oG_eP
)Rb**F*7$F8$\"3b*Gos0j+?\"F<7$F>$\"3t)=r'zg3Q9F<7$FC$\"3M!)p>)e`%4<F<7
$FH$\"3%)f`B*GRN*>F<7$FM$\"3]N-n0b*=K#F<7$FR$\"3S^qHYvr)p#F<7$FW$\"3^'
G'*e%)f<6$F<7$Ffn$\"3S6()y[a<uNF<7$F[o$\"3Wdzc)4r2,%F<7$F`o$\"3Q>]Xp>B
JXF<7$Feo$\"3Qr=vUs,z]F<7$Fjo$\"3#*)f[78JPi&F<7$F_p$\"3RJlaNppDhF<7$Fd
p$\"3Zm3>b.R@nF<7$Fip$\"3AKm5A(4b@(F<7$F^q$\"35*)>8r!*flxF<7$Fcq$\"3Y=
6G!QN!>#)F<7$Fhq$\"3)oWL!R;Rn')F<7$F]r$\"3a\\nMwC_M!*F<7$Fbr$\"3G'f)QO
GKV$*F<7$F\\s$\"3oY3r7Zu]&*F<7$Fas$\"3JW*o69\"pH'*F<7$Ffs$\"39,SO&)*oV
o*F<7$F[t$\"3XFpFz0HL'*F<7$F`t$\"3sKu\"GUc@b*F<7$Fjt$\"3UNH.;0S^$*F<7$
F_u$\"3oo\"[=#)fj0*F<7$Fdu$\"3=&p'*\\J#ew')F<7$Fiu$\"3#H95#z+4V#)F<7$F
^v$\"3'*yO([f*4xxF<7$Fcv$\"35,Rk3h8?sF<7$Fhv$\"3G#*y(\\Kqkp'F<7$F]w$\"
3CJ7\\\"eZb7'F<7$Fbw$\"3t#*\\7]#=ug&F<7$Fgw$\"3Mej>07q\\]F<7$F\\x$\"3'
R$G;s@$4a%F<7$Fax$\"3\"QSep#)=C.%F<7$Ffx$\"3Gj2r=>SjNF<7$F[y$\"3i[g4;)
fi5$F<7$F`y$\"3/ZXx>3G,FF<7$Fey$\"3^*Hifm1VK#F<7$Fjy$\"3sMJW:]#y)>F<7$
F_z$\"3u4]'RI')3r\"F<7$Fdz$\"3jw<;ZO0I9F<7$Fiz$\"3t[@A\")>?57F<7$F^[l$
\"3x%[i!eT515F<7$Fc[l$\"3))poql$\\oP)F*7$Fh[l$\"3*>O&[#fMD$oF*-F]\\l6&
F_\\lFc\\lF`\\lFc\\l-%+AXESLABELSG6$Q\"x6\"Q!Fgfl-%%VIEWG6$;$\"\"*Fb\\
l$\"#6Fb\\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" }}}}}{MARK "28" 0 }{VIEWOPTS 1 1 0 
1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }