{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 35 "f:=piecewise(x<-1,0,
x<1,(1-x)/2,0);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fG-%*PIECEWISEG
6%7$\"\"!2%\"xG!\"\"7$,&#\"\"\"\"\"#F0*&#F0F1F0F+F0F,2F+F07$F)%*otherw
iseG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "plot(f,x=-2..2,thic
kness=4);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'
CURVESG6$7jn7$$!\"#\"\"!$F*F*7$$!3MLLL$Q6G\">!#<F+7$$!3bmm;M!\\p$=F/F+
7$$!3MLLL))Qj^<F/F+7$$!3ALLL=Kvl;F/F+7$$!3wmm;C2G!e\"F/F+7$$!3OLL$3yO5
]\"F/F+7$$!3&*****\\nU)*=9F/F+7$$!3SLL$3WDTL\"F/F+7$$!35++]d(Q&\\7F/F+
7$$!3gmmmc4`i6F/F+7$$!3(*****\\(p7U7\"F/F+7$$!3KLLLQW*e3\"F/F+7$$!3!**
**\\izDV1\"F/F+7$$!3qmm;arvU5F/F+7$$!3@+]7LG(>.\"F/F+7$$!3]LL37&)=@5F/
F+7$$!39+Dc^jz:5F/F+7$$!3zm;/\">//,\"F/F+7$$!3+]7y5\"3x+\"F/F+7$$!3VL3
_I?,05F/F+7$$!3(oTg-&fJ-5F/F+7$$!3w++++()>'***!#=$\"3Q+++]$*4)***Fio7$
$!3_++++Y0j&*Fio$\"3E++++t_\"y*Fio7$$!3E++++0\"*H\"*Fio$\"39+++]_&\\c*
Fio7$$!35++++83&H)Fio$\"31+++]1aZ\"*Fio7$$!3\\LLL3k(p`(Fio$\"3umm;/#)[
o()Fio7$$!3Anmmmj^NmFio$\"3hLLL$=exJ)Fio7$$!3)zmmmYh=(eFio$\"3*RLLLtIf
$zFio7$$!3+,++v#\\N)\\Fio$\"3]++]PYx\"\\(Fio7$$!3commmCC(>%Fio$\"3EMLL
L7i)4(Fio7$$!39*****\\FRXL$Fio$\"3c****\\P'psm'Fio7$$!3t*****\\#=/8DFi
o$\"3')****\\74_ciFio7$$!3=mmm;a*el\"Fio$\"34LLL3x%z#eFio7$$!3komm;Wn(
o)!#>$\"3VLL$3s$QMaFio7$$!3IqLLL$eV(>!#?$\"3&omm;zr)4]Fio7$$\"3)Qjmm\"
f`@')Ffs$\"3Iom;/K#*oXFio7$$\"3%z****\\nZ)H;Fio$\"3-,+]ih2&=%Fio7$$\"3
ckmm;$y*eCFio$\"3snmmT3^qPFio7$$\"3f)******R^bJ$Fio$\"3q++++VAULFio7$$
\"3'e*****\\5a`TFio$\"33-++v%HK#HFio7$$\"3'o****\\7RV'\\Fio$\"3d,+]P/$
y^#Fio7$$\"3Y'*****\\@fkeFio$\"3y,++DRqn?Fio7$$\"3_ILLL&4Nn'Fio$\"3uML
LL_Cj;Fio7$$\"3A*******\\,s`(Fio$\"3R+++]#*RJ7Fio7$$\"3%[mm;zM)>$)Fio$
\"3zvmmTg#3S)Ffs7$$\"3M*******pfa<*Fio$\"3N.+++:qATFfs7$$\"3Ckm;zy*zd*
Fio$\"3&)ym;/1,5@Ffs7$$\"39HLLeg`!)**Fio$\"3*[VNL$3(>t*!#@7$$\"3Lmm;W/
8S5F/F+7$$\"3w****\\#G2A3\"F/F+7$$\"3;LLL$)G[k6F/F+7$$\"3#)****\\7yh]7
F/F+7$$\"3xmmm')fdL8F/F+7$$\"3bmmm,FT=9F/F+7$$\"3FLL$e#pa-:F/F+7$$\"3!
*******Rv&)z:F/F+7$$\"3ILLLGUYo;F/F+7$$\"3_mmm1^rZ<F/F+7$$\"34++]sI@K=
F/F+7$$\"34++]2%)38>F/F+7$$\"\"#F*F+-%'COLOURG6&%$RGBG$\"#5!\"\"F+F+-%
*THICKNESSG6#\"\"%-%+AXESLABELSG6$Q\"x6\"Q!Fg[l-%%VIEWG6$;F(Ffz%(DEFAU
LTG" 1 2 0 1 10 4 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1
" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "F:=int(f,x);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%\"FG-%*PIECEWISEG6%7$\"\"!1%\"xG!\"\"7$,(F
+#\"\"\"\"\"#*&#F0\"\"%F0*$)F+F1F0F0F,#\"\"$F4F01F+F07$F02F0F+" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "plot(F,x=-2..2,thickness=4);
" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'CURVESG6$
7U7$$!\"#\"\"!$F*F*7$$!3MLLL$Q6G\">!#<F+7$$!3bmm;M!\\p$=F/F+7$$!3MLLL)
)Qj^<F/F+7$$!3ALLL=Kvl;F/F+7$$!3wmm;C2G!e\"F/F+7$$!3OLL$3yO5]\"F/F+7$$
!3&*****\\nU)*=9F/F+7$$!3SLL$3WDTL\"F/F+7$$!35++]d(Q&\\7F/F+7$$!3gmmmc
4`i6F/F+7$$!3KLLLQW*e3\"F/F+7$$!3qmm;arvU5F/F+7$$!3w++++()>'***!#=$\"3
]]p&HvQ4!Q!#@7$$!3_++++Y0j&*FT$\"3O0ZNzOs@V!#>7$$!3E++++0\"*H\"*FT$\"3
4Qu\\l5j6&)Fgn7$$!35++++83&H)FT$\"3vd(fc+]Aj\"FT7$$!3\\LLL3k(p`(FT$\"3
6-!R8Yh8J#FT7$$!3Anmmmj^NmFT$\"3=O\"f.))*[\"3$FT7$$!3)zmmmYh=(eFT$\"3B
XNdR.5-PFT7$$!3+,++v#\\N)\\FT$\"3%Q<\"4y7L(Q%FT7$$!3commmCC(>%FT$\"3_8
pcew&4'\\FT7$$!39*****\\FRXL$FT$\"37iq3e:vabFT7$$!3t*****\\#=/8DFT$\"3
K<]92Yf&3'FT7$$!3=mmm;a*el\"FT$\"3YDK*3b-Ng'FT7$$!3komm;Wn(o)Fgn$\"3ql
TZdtuYqFT7$$!3IqLLL$eV(>!#?$\"3Gii5j%=,\\(FT7$$\"3)Qjmm\"f`@')Fgn$\"3k
QFWvS\\7zFT7$$\"3%z****\\nZ)H;FT$\"3%pU29v8&[#)FT7$$\"3ckmm;$y*eCFT$\"
3?6uG*zC$y&)FT7$$\"3f)******R^bJ$FT$\"3+]*[Gn`H)))FT7$$\"3'e*****\\5a`
TFT$\"37@\"\\O%HZX\"*FT7$$\"3'o****\\7RV'\\FT$\"3gb)*z))H0m$*FT7$$\"3Y
'*****\\@fkeFT$\"3)*eR&y/gCd*FT7$$\"3_ILLL&4Nn'FT$\"3-%Rz$H:OB(*FT7$$
\"3A*******\\,s`(FT$\"3;W*4()el$[)*FT7$$\"3%[mm;zM)>$)FT$\"3%\\l<=7E%H
**FT7$$\"3M*******pfa<*FT$\"3i(*=MKL+$)**FT7$$\"39HLLeg`!)**FT$\"2'pV(
)G0******F/7$$\"3w****\\#G2A3\"F/$\"\"\"F*7$$\"3;LLL$)G[k6F/Fdv7$$\"3#
)****\\7yh]7F/Fdv7$$\"3xmmm')fdL8F/Fdv7$$\"3bmmm,FT=9F/Fdv7$$\"3FLL$e#
pa-:F/Fdv7$$\"3!*******Rv&)z:F/Fdv7$$\"3ILLLGUYo;F/Fdv7$$\"3_mmm1^rZ<F
/Fdv7$$\"34++]sI@K=F/Fdv7$$\"34++]2%)38>F/Fdv7$$\"\"#F*Fdv-%'COLOURG6&
%$RGBG$\"#5!\"\"F+F+-%*THICKNESSG6#\"\"%-%+AXESLABELSG6$Q\"x6\"Q!Ffy-%
%VIEWG6$;F(Fex%(DEFAULTG" 1 2 0 1 10 4 2 9 1 4 2 1.000000 45.000000 
45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "
\"Q1\":" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "plot(X^2,X=-1..1
);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6%-%'CURVESG
6$7S7$$!\"\"\"\"!$\"\"\"F*7$$!3ommm;p0k&*!#=$\"3c]R_q%=r9*F07$$!3wKL$3
<XZ=*F0$\"3QAYJ&QafV)F07$$!3mmmmT%p\"e()F0$\"3w!Q%*o>`0n(F07$$!3:mmm\"
4m(G$)F0$\"32V'p4YMo$pF07$$!3\"QLL3i.9!zF0$\"3Z6=$z\"z@ViF07$$!3\"ommT
!R=0vF0$\"3(4CONayFj&F07$$!3u****\\P8#\\4(F0$\"30z7`y3zL]F07$$!3+nm;/s
iqmF0$\"3qSopHns\\WF07$$!3[++](y$pZiF0$\"335mBmxO.RF07$$!33LLL$yaE\"eF
0$\"3m(y?Ic&pyLF07$$!3hmmm\">s%HaF0$\"3ej\"3!Go\"z%HF07$$!3Q+++]$*4)*
\\F0$\"3mUqC6(*4)\\#F07$$!39+++]_&\\c%F0$\"3Mc-XV;)Q3#F07$$!31+++]1aZT
F0$\"3?U-MW$4-s\"F07$$!3umm;/#)[oPF0$\"3(3L%\\M.:?9F07$$!3hLLL$=exJ$F0
$\"3@IvIO>v+6F07$$!3*RLLLtIf$HF0$\"3&y?J4F*o>')!#>7$$!3]++]PYx\"\\#F0$
\"3he#)3W3%*3iF]q7$$!3EMLLL7i)4#F0$\"3!\\_(*436US%F]q7$$!3c****\\P'psm
\"F0$\"31!QHT/)yzFF]q7$$!3')****\\74_c7F0$\"3KK)\\N![%)y:F]q7$$!3)3LLL
3x%z#)F]q$\"3M!=Wt2u\\&o!#?7$$!3KMLL3s$QM%F]q$\"3a8,Dp@*o)=Fgr7$$!3]^o
mm;zr)*!#@$\"3+4t+rqAX(*!#C7$$\"3%pJL$ezw5VF]q$\"3Q>$f!R?Fe=Fgr7$$\"3s
*)***\\PQ#\\\")F]q$\"3UZsD4'35k'Fgr7$$\"3GKLLe\"*[H7F0$\"3&e?f/fV;^\"F
]q7$$\"3I*******pvxl\"F0$\"3a([5:F?#[FF]q7$$\"3#z****\\_qn2#F0$\"3um(3
N\"e(HJ%F]q7$$\"3U)***\\i&p@[#F0$\"3!RV,qtl6;'F]q7$$\"3B)****\\2'HKHF0
$\"3;&Rg9Fg$)f)F]q7$$\"3ElmmmZvOLF0$\"3CrsGPKR86F07$$\"3i******\\2goPF
0$\"3+c+Hh^B?9F07$$\"3UKL$eR<*fTF0$\"3[xc,u7\\I<F07$$\"3m******\\)Hxe%
F0$\"3/-\"ew^EZ5#F07$$\"3ckm;H!o-*\\F0$\"3s%H#H+vF!\\#F07$$\"3y)***\\7
k.6aF0$\"3l&3Sd]Jz#HF07$$\"3#emmmT9C#eF0$\"3K$ySR'40!R$F07$$\"33****\\
i!*3`iF0$\"3i6dN#G7,\"RF07$$\"3%QLLL$*zym'F0$\"3CM\\`!GigW%F07$$\"3wKL
L3N1#4(F0$\"3BILi![O(H]F07$$\"3Nmm;HYt7vF0$\"35,!G3;=Tk&F07$$\"3Y*****
**p(G**yF0$\"3tFrt;Y()RiF07$$\"3]mmmT6KU$)F0$\"3+j)pI?K%fpF07$$\"3fKLL
LbdQ()F0$\"3$Q>x^Bqij(F07$$\"3[++]i`1h\"*F0$\"31F(*fd=^#R)F07$$\"3W++]
P?Wl&*F0$\"3]:sFP\"o(\\\"*F07$F+F+-%'COLOURG6&%$RGBG$\"#5F)$F*F*F^[l-%
+AXESLABELSG6$Q\"X6\"Q!Fc[l-%%VIEWG6$;F(F+%(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 15 "solve(x^2=y,x);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6$*$-%%sqrtG6#%\"yG\"\"\",$F#!\"\"" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 41 "FY:=simplify(int(f,x=-sqrt(y)..sqrt(y)));" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#FYG-%*PIECEWISEG6&7$\"\"!2%\"yGF)7$
#!\"$\"\"%/F+F)7$*$-%%sqrtG6#F+\"\"\"2F+F67$F61F6F+" }}}{EXCHG {PARA 
0 "" 0 "" {TEXT -1 51 "The second line is incorrect but luckily irrele
vant" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "
plot(FY,y=-0.5..1.5,thickness=4);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 
300 300 {PLOTDATA 2 "6&-%'CURVESG6$7]o7$$!3++++++++]!#=$\"\"!F,7$$!3om
mm;p0kXF*F+7$$!3ILL$3<XZ=%F*F+7$$!3mmmmT%p\"ePF*F+7$$!3rmmm\"4m(GLF*F+
7$$!3\"QLL3i.9!HF*F+7$$!3\"ommT!R=0DF*F+7$$!3I++]P8#\\4#F*F+7$$!3+nm;/
siq;F*F+7$$!3[++](y$pZ7F*F+7$$!3vILLLyaE\")!#>F+7$$!3X)****\\([j5iFKF+
7$$!39mmm;>s%H%FKF+7$$!3d++]7)*G;KFKF+7$$!3+NLL3x&y8#FKF+7$$!3?-+Dc;k)
f\"FKF+7$$!3Upm;/cUf5FKF+7$$!3II+D\"yv\")*y!#?F+7$$!3NmL$3_&4-_F[oF+7$
$!3SM]i!RbS&QF[oF+7$$!3U-nTg_,1DF[oF+7$$!3Yq$3-8vz:\"F[oF+7$$\"3::'***
***\\1!>!#@$\"3#4CG[jS'y8FK7$$\"3z'*****\\n'=5\"FK$\"3q]!o!4%)p\\5F*7$
$\"3U(*******ps%=#FK$\"3!4O(R.A3y9F*7$$\"31)*****\\senKFK$\"3(R!))*>)o
k2=F*7$$\"3q)******\\Z/N%FK$\"39.ihQEx&3#F*7$$\"35*******\\?vV'FK$\"3=
z)>6$pAPDF*7$$\"3]*******\\$fC&)FK$\"3gC=U^1p>HF*7$$\"3ELL$ez6:B\"F*$
\"3*=W$pN-H4NF*7$$\"3Smmm;=C#o\"F*$\"3-PY)489:5%F*7$$\"3-mmmm#pS1#F*$
\"3*e&\\P3H?VXF*7$$\"3]****\\i`A3DF*$\"3<Q$[zg=#3]F*7$$\"3slmmm(y8!HF*
$\"3i6\\s2[W'Q&F*7$$\"3V++]i.tKLF*$\"3S,*>-[!)Hx&F*7$$\"39++](3zMu$F*$
\"3P*ohvt(R=hF*7$$\"3#pmm;H_?<%F*$\"3kPxq$eU\"fkF*7$$\"3emm;zihlXF*$\"
3%)*)eiAW$pv'F*7$$\"39LLL3#G,*\\F*$\"3S`><_R3kqF*7$$\"3pJL$ezw5V&F*$\"
3O,kduReptF*7$$\"3(*)***\\PQ#\\\"eF*$\"3=R\"e0zkbi(F*7$$\"3GKLLe\"*[Hi
F*$\"35%4<[H6F*yF*7$$\"3I*******pvxl'F*$\"3CDs')4%>&f\")F*7$$\"3#z****
\\_qn2(F*$\"3r,9mAVN7%)F*7$$\"3U)***\\i&p@[(F*$\"3'fH5U]`*\\')F*7$$\"3
B)****\\2'HKzF*$\"3QY$G'[QM1*)F*7$$\"3ElmmmZvO$)F*$\"3,=`l&4$eI\"*F*7$
$\"3i******\\2go()F*$\"33\\Ho223k$*F*7$$\"3UKL$eR<*f\"*F*$\"3cyDzOduq&
*F*7$$\"3m******\\)Hxe*F*$\"3E]]N%Q&p\"z*F*7$$\"37KLeR*)**)y*F*$\"3_RC
\"=+PR*)*F*7$$\"3ckm;H!o-***F*$\"3!z>;,$G8&***F*7$$\"3GLL3A_1?5!#<$\"
\"\"F,7$$\"3))***\\7k.6/\"FbyFcy7$$\"3emmmT9C#3\"FbyFcy7$$\"3\"****\\i
!*3`7\"FbyFcy7$$\"3QLLL$*zym6FbyFcy7$$\"3GLL$3N1#47FbyFcy7$$\"3kmm\"HY
t7D\"FbyFcy7$$\"3%*******p(G**G\"FbyFcy7$$\"3lmm;9@BM8FbyFcy7$$\"3ELLL
`v&QP\"FbyFcy7$$\"30++DOl5;9FbyFcy7$$\"3/++v.Uac9FbyFcy7$$\"3++++++++:
FbyFcy-%'COLOURG6&%$RGBG$\"#5!\"\"F+F+-%*THICKNESSG6#\"\"%-%+AXESLABEL
SG6$Q\"y6\"Q!Fh\\l-%%VIEWG6$;$!\"&F_\\l$\"#:F_\\l%(DEFAULTG" 1 2 0 1 
10 4 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "\"Q2\":" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 40 "The pdf of the third-order statistic is:" }{MPLTEXT 1 0 
0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "f3:=simplify(9!/2!/6
!*F^2*(1-F)^6*f);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#f3G-%*PIECEWIS
EG6%7$\"\"!1%\"xG!\"\"7$,$*(),(F+!\"#*$)F+\"\"#\"\"\"F6\"\"$F,F5F6),(F
+F2F3F6F6F6\"\"'F6,&F+F6F6F,F6#!#j\"&oF$1F+F67$F)2F6F+" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "plot(f3,x=-1..1,thickness=4);" }}
{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'CURVESG6$7[p7
$$!\"\"\"\"!$F*F*7$$!3%pmm\"HU,\"*)*!#=$\"3wR1gu?\"Gx#!#>7$$!3!RLL$e%G
?y*F/$\"3M`Mj;Q.F5F/7$$!3u****\\(oUIn*F/$\"3**H+W/e\"*Q@F/7$$!3ommm;p0
k&*F/$\"3\"*o&oxix\"=NF/7$$!3#HL3-)*G#p%*F/$\"3q2LjCwas[F/7$$!3E++vV5S
u$*F/$\"3$H&ps<iMAjF/7$$!3_m;H2Jdz#*F/$\"3>dC%))*=NGyF/7$$!3wKL$3<XZ=*
F/$\"3A/')3n+2d$*F/7$$!3'fmT&Q75y!*F/$\"3._ql,+$o5\"!#<7$$!39***\\iId9
(*)F/$\"3)oC&Q?l!RF\"Fen7$$!3YL$eRP8['))F/$\"3T0'3lAPUV\"Fen7$$!3mmmmT
%p\"e()F/$\"3kH_JOzo&e\"Fen7$$!3qlm;/'=3l)F/$\"3V>;Q!>8vs\"Fen7$$!3&em
mmwnMa)F/$\"3KLK$)e*Ru&=Fen7$$!3+mm;Hp6O%)F/$\"3iHK#H()3Y(>Fen7$$!3:mm
m\"4m(G$)F/$\"3#*3()yxU[y?Fen7$$!3)****\\i&[3:\")F/$\"3Ud%G_ay[C#Fen7$
$!3\"QLL3i.9!zF/$\"3)GW_r/d#eBFen7$$!3Mnmm\"p[B!yF/$\"3_0M+\\^f$R#Fen7
$$!3'3++Dw$H.xF/$\"3Wsl>OYf=CFen7$$!3inm\"zHmPl(F/$\"3r5-#)e#ptU#Fen7$
$!3RMLLL)QUg(F/$\"3**R'o+gZPV#Fen7$$!3/++vo8ravF/$\"3<dYvS\")zPCFen7$$
!3\"ommT!R=0vF/$\"32N6-B9fRCFen7$$!37MLL$3,RX(F/$\"3z/(3gkY\"RCFen7$$!
3K++]i#=ES(F/$\"3Z=lb^5WOCFen7$$!3ammmTaL^tF/$\"3xwqd#pd:V#Fen7$$!3tKL
$3i_+I(F/$\"3?&3D)\\0eCCFen7$$!3Cmm;zp[(>(F/$\"3;,2MrOo/CFen7$$!3u****
\\P8#\\4(F/$\"35(>(**4)HuP#Fen7$$!3#RLL3FuF)oF/$\"3Fpt5QXh+BFen7$$!3+n
m;/siqmF/$\"3Z)zIp3P5?#Fen7$$!3uLL$e\\g\"fkF/$\"3ARpJq*oX3#Fen7$$!3[++
](y$pZiF/$\"3i<$o5lre&>Fen7$$!3MnmT&Gu,.'F/$\"3=arB\\EO:=Fen7$$!33LLL$
yaE\"eF/$\"3a'pWV8>2n\"Fen7$$!3%)****\\([j5i&F/$\"3Ze%=;w#pU:Fen7$$!3h
mmm\">s%HaF/$\"3vW\")R]R<;9Fen7$$!3]LL$3x&y8_F/$\"39Hlku8dx7Fen7$$!3Q+
++]$*4)*\\F/$\"3mK5\"4@wZ9\"Fen7$$!3E++++t_\"y%F/$\"3Fx.UK=l=5Fen7$$!3
9+++]_&\\c%F/$\"3MM7/l)fr+*F/7$$!33+++]zCcVF/$\"3;lQSZ'>P&zF/7$$!31+++
]1aZTF/$\"3k$\\K\\U`X)pF/7$$!3umm;/#)[oPF/$\"3Wx$)Rn(*GSaF/7$$!3hLLL$=
exJ$F/$\"3;ety4c&3&RF/7$$!3*RLLLtIf$HF/$\"3s[m%GjRg&HF/7$$!3]++]PYx\"
\\#F/$\"3E9>#y$=gj?F/7$$!3EMLLL7i)4#F/$\"3#[Lev?b<Z\"F/7$$!3c****\\P'p
sm\"F/$\"3madp3crP**F27$$!3')****\\74_c7F/$\"39G(Rdv<&*o'F27$$!3)3LLL3
x%z#)F2$\"3567C8ZFBVF27$$!3KMLL3s$QM%F2$\"30:C8,`8KGF27$$!3]^omm;zr)*!
#@$\"3%y&G@juP]<F27$$\"3%pJL$ezw5VF2$\"3I3\"*4R,VJ5F27$$\"3s*)***\\PQ#
\\\")F2$\"3DC%RG2!fVj!#?7$$\"3GKLLe\"*[H7F/$\"3%4\\B`J1hk$Fb]l7$$\"3I*
******pvxl\"F/$\"3G1@p#Q)3*)>Fb]l7$$\"3#z****\\_qn2#F/$\"39$Q`8:e.1\"F
b]l7$$\"3U)***\\i&p@[#F/$\"33sA/r\")ydbFe\\l7$$\"3B)****\\2'HKHF/$\"39
;3,\"Q-oe#Fe\\l7$$\"3ElmmmZvOLF/$\"38T6Ocs)3C\"Fe\\l7$$\"3i******\\2go
PF/$\"3Q:e=D%\\qN&!#A7$$\"3UKL$eR<*fTF/$\"3Ods2CU<mBFf_l7$$\"3m******
\\)Hxe%F/$\"37vX72N7M!*!#B7$$\"3ckm;H!o-*\\F/$\"3%Gq6603JQ$Fa`l7$$\"3y
)***\\7k.6aF/$\"3^]'y+T/\\5\"Fa`l7$$\"3#emmmT9C#eF/$\"30LI\"*QQ<@L!#C7
$$\"33****\\i!*3`iF/$\"3J'4f\"pdK<#)!#D7$$\"3%QLLL$*zym'F/$\"3$oN;q3:_
\"=Fgal7$$\"3wKLL3N1#4(F/$\"3cdIr.goLJ!#E7$$\"3Nmm;HYt7vF/$\"3cAf(fCgx
:%!#F7$$\"3Y*******p(G**yF/$\"3A\"*zAE-5oY!#G7$$\"3]mmmT6KU$)F/$\"3O$*
oL&[]`;#!#H7$$\"3fKLLLbdQ()F/$\"3)RMh8R`![i!#J7$$\"3[++]i`1h\"*F/$\"3d
:$>p&[pDJ!#L7$$\"3W++]P?Wl&*F/$\"3cZ2isc[cg!#P7$$\"\"\"F*F+-%'COLOURG6
&%$RGBG$\"#5F)F+F+-%*THICKNESSG6#\"\"%-%+AXESLABELSG6$Q\"x6\"Q!Fhel-%%
VIEWG6$;F(Fhdl%(DEFAULTG" 1 2 0 1 10 4 2 9 1 4 2 1.000000 45.000000 
45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 14 "Just c
hecking:" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
16 "int(f3,x=-1..1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"\"" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 68 "Or, we could even do this (getting
 the same, correct answer - why?):" }{MPLTEXT 1 0 0 "" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "int(f3,x=-infinity..infinity);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 19 "int(f3,x=-1..-0.5);" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#$\"+6_@@$)!#5" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 26 "The correspond
ing mean is:" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 20 "int(x*f3,x=-1..1.0);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$!+[G'
Rk'!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "\"Q3\":" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "median:=solve(F=1/2,x);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'medianG,&\"\"\"F&*$-%%sqrtG6#\"\"#F
&!\"\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 57 "Note that now we have o
btained a single (correct) answer." }{MPLTEXT 1 0 0 "" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "sigma:=1/2/eval(f,x=median)/sqrt(13
71);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&sigmaG,$*&-%%sqrtG6#\"\"#\"
\"\"-F(6#\"%r8F+#F+\"%UF" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 50 "The a
pproximate (Normal) pdf of the sample median:" }{MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "fm:=1/sqrt(2*Pi)/sigma*exp(-
(x-median)^2/2/sigma^2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 
"plot(fm,x=-1..1);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 
{PLOTDATA 2 "6%-%'CURVESG6$7gp7$$!\"\"\"\"!$\"3wDg!Q:'H65!$?#7$$!3ommm
;p0k&*!#=$\"3#)o@s7\"49#>!$\">7$$!3wKL$3<XZ=*F1$\"3u;(px`(ys#)!$o\"7$$
!3mmmmT%p\"e()F1$\"3BD7*)>6_;G!$V\"7$$!3:mmm\"4m(G$)F1$\"3s&)y%e**yP.*
!$@\"7$$!3\"QLL3i.9!zF1$\"3)3.3\"*QCg\\\"!$+\"7$$!3\"ommT!R=0vF1$\"3!R
hvZeo\")\\*!#%)7$$!3u****\\P8#\\4(F1$\"3q*z(y_]qXD!#o7$$!3+nm;/siqmF1$
\"3+hG)yIq<z\"!#a7$$!3[++](y$pZiF1$\"3QL&4j$4Cs$)!#V7$$!33LLL$yaE\"eF1
$\"3M*4.9*>Re]!#L7$$!3hmmm\">s%HaF1$\"3!eYAoNeW$G!#E7$$!3]LL$3x&y8_F1$
\"3FIbD?(QO.$!#B7$$!3Q+++]$*4)*\\F1$\"3'GY(*[H0s1*!#@7$$!3j++]Pj&R%\\F
1$\"3ZS%[x)=)Q5$!#?7$$!3K+++DL\")*)[F1$\"3RZT'*>tb/)*F\\q7$$!3,++]7.nN
[F1$\"33%3#>zf'y&G!#>7$$!3E++++t_\"y%F1$\"39/zrO9#oo(Fgq7$$!3?+++v7CtY
F1$\"3')*\\\\&>5[pVF17$$!39+++]_&\\c%F1$\"3.P:+@&[3!=!#<7$$!3E+++D%yF^
%F1$\"3!\\6;j%RuwJFgr7$$!3S++++;ggWF1$\"3J>i'zTq2?&Fgr7$$!3X++](=8XV%F
1$\"3%o,3%=rsqkFgr7$$!3_+++vZU3WF1$\"3VYh0bw$>!zFgr7$$!3-++]ijL#Q%F1$
\"3QH8)H%>Hr%*Fgr7$$!33+++]zCcVF1$\"3p+b.:JC96!#;7$$!3;++]P&f,L%F1$\"3
%[,tAp1mG\"Fft7$$!3m*****\\7rSI%F1$\"3'G!=A;`;e9Fft7$$!3s****\\7F)zF%F
1$\"3?XQtaZ/A;Fft7$$!3!)*******H%*=D%F1$\"3c]$))GX\")4x\"Fft7$$!3')***
*\\()e!eA%F1$\"3-QV&[4Vy*=Fft7$$!3#******\\Z<(*>%F1$\"3w75U@#*='*>Fft7
$$!3)*****\\i!HO<%F1$\"3=pZJk7\"31#Fft7$$!31+++]1aZTF1$\"3Ex:?$>*=)3#F
ft7$$!3DL3F%4f,5%F1$\"3x%46-&\\;R?Fft7$$!3Ym;aQvx_SF1$\"3_p\"Q=%zSs=Ff
t7$$!30$3x1w'3HSF1$\"3_eG_T8F`<Fft7$$!3k*\\7G)fR0SF1$\"32Ge]`Kk;;Fft7$
$!3C;z%\\?0<)RF1$\"3GE1GWs*yY\"Fft7$$!3SLL3FW,eRF1$\"3PhX3'[#[78Fft7$$
!3b](=#\\OKMRF1$\"3E@Uwa1gb6Fft7$$!3:nTNrGj5RF1$\"3&[w#p\\C$>+\"Fft7$$
!3w$e*[$4Up)QF1$\"3W,SBu-Ka&)Fgr7$$!3M+]i:8DjQF1$\"3a=e.x#))>>(Fgr7$$!
3&pTgx`g&RQF1$\"3-%H.\"yUFafFgr7$$!3bLe*)f(pe\"QF1$\"3s-GX<JGa[Fgr7$$!
39]7.#)*y@z$F1$\"3EZ!*frg1(*QFgr7$$!3umm;/#)[oPF1$\"3k*RQ&GO#33$Fgr7$$
!3'**\\i:&p97PF1$\"3ecD.dO0c;Fgr7$$!3=L$e*)p0el$F1$\"3m$p1:)\\#)f\")F1
7$$!3%p;ajWk%*f$F1$\"3=(>[K$HT&o$F17$$!3<++v$>BJa$F1$\"3QE(G]Xud_\"F17
$$!3^;zWnD&\\^$F1$\"3j0j)[PV?]*Fgq7$$!3SLe9T>y'[$F1$\"37-y[Tx>!z&Fgq7$
$!3G]P%[J6'eMF1$\"3cxJFBsQ_MFgq7$$!3<n;a)oS/V$F1$\"3v+z/$HmT,#Fgq7$$!3
S+v$fV*4uLF1$\"3S-Rgf=QAkF\\q7$$!3hLLL$=exJ$F1$\"3cn>!*\\i8x=F\\q7$$!3
!QLL$eW%o7$F1$\"3g^v;]Q`@:!#A7$$!3*RLLLtIf$HF1$\"3YbXo\\:uRX!#D7$$!3]+
+]PYx\"\\#F1$\"3GD<W19\\m7!#K7$$!3EMLLL7i)4#F1$\"3I4C!pz(*[&G!#T7$$!3c
****\\P'psm\"F1$\"3%f$y)[x'4$4(!#`7$$!3')****\\74_c7F1$\"3zg>Qw_O1b!#m
7$$!3)3LLL3x%z#)Fgq$\"3NO1'eiK:K)!##)7$$!3KMLL3s$QM%Fgq$\"3c!pJooE(>H!
#)*7$$!3]^omm;zr)*Ffp$\"3#Q'fVxB<aW!$=\"7$$\"3%pJL$ezw5VFgq$\"3,J^ScX$
Q?'!$T\"7$$\"3s*)***\\PQ#\\\")Fgq$\"362&*[)=Ij-\"!$i\"7$$\"3GKLLe\"*[H
7F1$\"3cvOMN%G5G$!$)=7$$\"3I*******pvxl\"F1$\"3Me@)Q>ta1\"!$;#7$$\"3#z
****\\_qn2#F1$\"3Q%oiem-]5\"!$Y#7$$\"3U)***\\i&p@[#F1$\"3Y5gY([D?5\"!$
x#7$$\"3B)****\\2'HKHF1$\"3RB\"o#)[Kp7#!$9$7$$\"3ElmmmZvOLF1$F*F*7$$\"
3i******\\2goPF1Fjdl7$$\"3UKL$eR<*fTF1Fjdl7$$\"3m******\\)Hxe%F1Fjdl7$
$\"3ckm;H!o-*\\F1Fjdl7$$\"3y)***\\7k.6aF1Fjdl7$$\"3#emmmT9C#eF1Fjdl7$$
\"33****\\i!*3`iF1Fjdl7$$\"3%QLLL$*zym'F1Fjdl7$$\"3wKLL3N1#4(F1Fjdl7$$
\"3Nmm;HYt7vF1Fjdl7$$\"3Y*******p(G**yF1Fjdl7$$\"3]mmmT6KU$)F1Fjdl7$$
\"3fKLLLbdQ()F1Fjdl7$$\"3[++]i`1h\"*F1Fjdl7$$\"3W++]P?Wl&*F1Fjdl7$$\"
\"\"F*Fjdl-%'COLOURG6&%$RGBG$\"#5F)FjdlFjdl-%+AXESLABELSG6$Q\"x6\"Q!Fe
hl-%%VIEWG6$;F(Figl%(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 "" {TEXT -1 
64 "The probability of being bigger than  -0.4  is then computed by:" 
}{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "int(fm
,x=-0.4..infinity);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+aQ`$G#!#5" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "int(fm,x=-0.4..1);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+aQ`$G#!#5" }}}{EXCHG {PARA 0 "" 0 
"" {TEXT -1 64 "Note that the two answers are identical (the plot expl
ains why)." }{MPLTEXT 1 0 0 "" }}}}{MARK "28 0 0" 64 }{VIEWOPTS 1 1 0 
1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }