{VERSION 4 0 "IBM INTEL NT" "4.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{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 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple P
lot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 
0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Title" 0 18 1 {CSTYLE "" -1 -1 "
" 1 18 0 0 0 0 0 1 1 0 0 0 0 0 0 0 }3 0 0 -1 12 12 0 0 0 0 0 0 19 0 }
{PSTYLE "Author" 0 19 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 
0 0 0 }3 0 0 -1 8 8 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 18 "" 0 "" {TEXT -1 49 "Example 7: Relationships \+
Between Random Variables" }}{PARA 19 "" 0 "" {TEXT -1 15 "by Zavan Kar
ian" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 82 "restart: with(plots,
 display): libname:=\"C:/mylib/statistics\",libname: with(stat):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "Z1 := NormalS(0,1,500):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "Z1H := Histogram(Z1, -4..4, \+
9):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "N01 := plot(NormalPD
F(0,1,x), x=-4..4):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "disp
lay(\{Z1H, N01\});" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 
{PLOTDATA 2 "6&-%'CURVESG6$7]o7$$!\"%\"\"!$\"3p`)[wD-$Q8!#@7$$!3ommmmF
iDQ!#<$\"31vC4K;uZEF-7$$!35LLLo!)*Qn$F1$\"3Er6w]K\"pn%F-7$$!3nmmmwxE.N
F1$\"3PO)p#p)Qvi)F-7$$!3YmmmOk]JLF1$\"3Q(>8(4qp^:!#?7$$!3_LLL[9cgJF1$
\"3m:$=!\\gn-FFC7$$!3smmmhN2-IF1$\"3(oz$H#QbVS%FC7$$!3!******\\`oz$GF1
$\"3>%*y>uQ+7rFC7$$!3!omm;)3DoEF1$\"3Ju2T:IzM6!#>7$$!3?+++:v2*\\#F1$\"
3#QF&Hlj(ov\"FX7$$!3BLLL8>1DBF1$\"37K)y;=(>tEFX7$$!3kmmmw))yr@F1$\"3?J
*=**p/Jx$FX7$$!3;+++S(R#**>F1$\"3h'*z_n2J2aFX7$$!30++++@)f#=F1$\"3(H>2
>'=uJvFX7$$!3-+++gi,f;F1$\"3DVZ_Ar]25!#=7$$!3qmmm\"G&R2:F1$\"3AluPQI&3
G\"Fap7$$!3XLLLtK5F8F1$\"3W*o#*fH\\Pl\"Fap7$$!3_LLL$yP2D\"F1$\"3.f8f!p
1[#=Fap7$$!3eLLL$HsV<\"F1$\"3/Z\")eH$\\=+#Fap7$$!3!pmmT2Tb3\"F1$\"3v&4
AHT;K@#Fap7$$!3+-++]&)4n**Fap$\"3:>`8/%owU#Fap7$$!3cpmmT<z!=*Fap$\"3&
\\k\"R7'zuh#Fap7$$!37PLLL\\[%R)Fap$\"3VNh;>nt/GFap7$$!3G)*****\\&y!pmF
ap$\"3gV-2cj'R>$Fap7$$!3Y******\\O3E]Fap$\"3OR[@DF0;NFap7$$!3NKLLL3z6L
Fap$\"3mvD88W`wPFap7$$!3/LLLeGmCDFap$\"3W7_?lgGkQFap7$$!3sLLL$)[`P<Fap
$\"3C?dnhTlHRFap7$$!39nm;aH-88Fap$\"35azJ\">\"=bRFap7$$!3m0++]-6&)))FX
$\"3e$*[dclqtRFap7$$!3')RLLe4**RYFX$\"3w+R`(fI^)RFap7$$!3gSnmmmr[RFC$
\"3%4oq=q\"R*)RFap7$$\"3n=L$3Fr)4=FX$\"33%=mIYp())RFap7$$\"3S6LL3Uh9SF
X$\"3;wKH(>4i)RFap7$$\"38/L$e9d$>iFX$\"3#)z=9OYr\")RFap7$$\"3'oHLL3+TU
)FX$\"371PdEBHvRFap7$$\"3AGL$efeLG\"Fap$\"3w8!oZi/n&RFap7$$\"3yELL$=2V
s\"Fap$\"3<>dR-SbIRFap7$$\"3Khmmm7+#\\#Fap$\"3OE\"Q>A`u'QFap7$$\"3)e**
***\\`pfKFap$\"3m#zPDL/Iy$Fap7$$\"36HLLLm&z\"\\Fap$\"3n_?Goi+NNFap7$$
\"3>(******z-6j'Fap$\"3PF?6iE/-KFap7$$\"3q\"******4#32$)Fap$\"3_ePs\")
GGDGFap7$$\"3q#****\\<!)y6*Fap$\"3)*=[9W#*eKEFap7$$\"3r$*****\\#y'G**F
ap$\"3825dFZ'pV#Fap7$$\"3K****\\FJ*G3\"F1$\"3hyNGu&z&>AFap7$$\"3G*****
*H%=H<\"F1$\"3p%oH4/o_+#Fap7$$\"3qKLLo,\"QD\"F1$\"3R<_l%H*z<=Fap7$$\"3
5mmm1>qM8F1$\"3p(R**\\94rj\"Fap7$$\"3%)*******HSu]\"F1$\"3CU%*z?hw!G\"
Fap7$$\"3'HLL$ep'Rm\"F1$\"3cxN3\">QD***FX7$$\"3')******R>4N=F1$\"3SH<6
IZ=2uFX7$$\"3#emm;@2h*>F1$\"30.!*QjXDTaFX7$$\"3]*****\\c9W;#F1$\"3B#yB
)**[\"R$QFX7$$\"3Lmmmmd'*GBF1$\"3OH:[qH-\\EFX7$$\"3j*****\\iN7]#F1$\"3
]SLCoCUZ<FX7$$\"3aLLLt>:nEF1$\"3e,!f%4Y7Q6FX7$$\"35LLL.a#o$GF1$\"3v/N=
S#4^8(FC7$$\"3ammm^Q40IF1$\"3!y=^:5\"ekVFC7$$\"3y******z]rfJF1$\"3p5hw
7W\"*4FFC7$$\"3gmmmc%GpL$F1$\"3la,=tr*Q_\"FC7$$\"3/LLL8-V&\\$F1$\"3=#z
n%[cVn))F-7$$\"3=+++XhUkOF1$\"3*e))p3H7B%[F-7$$\"3=+++:o<EQF1$\"3Z27-q
]8UEF-7$$\"\"%F*F+-%'COLOURG6&%$RGBG$\"#5!\"\"$F*F*Fa`l-F$6%7F7$F(Fa`l
Fe`l7$$!3;6666666JF1Fa`lFf`lFf`l7$Fg`l$\"3)*************\\8FX7$$!3KAAA
AAAAAF1Fj`l7$F]alFa`lF_al7$F]al$\"3&************\\.\"Fap7$$!3ELLLLLLL8
F1Faal7$FdalFa`lFfal7$Fdal$\"3/+++++]dGFap7$$!3?WWWWWWWWFapFhal7$F[blF
a`lF]bl7$F[bl$\"3'***********\\(R$Fap7$$\"3?WWWWWWWWFapF_bl7$FbblFa`lF
dbl7$Fbbl$\"35++++++5EFap7$$\"3ELLLLLLL8F1Ffbl7$FiblFa`lF[cl7$Fibl$\"3
'***********\\d5Fap7$$\"3KAAAAAAAAF1F]cl7$F`clFa`lFbcl7$F`clFj`l7$$\"3
;6666666JF1Fj`l7$FeclFa`lFgcl7$Fecl$\"3%)************\\AFC7$Fh_lFicl7$
Fh_lFa`l-F[`l6&F]`l$\"*++++\"!\")Fa`lFa`l-%*LINESTYLEG6#\"\"$-%+AXESLA
BELSG6%Q\"x6\"Q!6\"%(DEFAULTG-%%VIEWG6$;F(Fh_lF]el" 1 2 0 1 10 0 2 9 
1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "Y := [seq(Z1[i]^2, i=1..500)]:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "YH := Histogram(Y, 0..12, 16
):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "CH1 := plot(Chisquare
PDF(1,x), x=0..12):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "#int
erface(plotdevice=postscript, plotoutput=Fig7a);" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 19 "display(\{YH, CH1\});" }}{PARA 13 "" 1 "" 
{GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'CURVESG6%7\\o7$$\"\"!F)F(7$F($
\"3=mmmmmm'y(!#=7$$\"3++++++++vF-F+7$F/F(F17$F/$\"3pmmmmmm1@F-7$$\"3++
++++++:!#<F37$F6F(F97$F6$\"3*)************R9F-7$$\"3+++++++]AF8F;7$F>F
(F@7$F>$\"3Gnmmmmmmu!#>7$$\"\"$F)FB7$FFF(FH7$FF$\"3mLLLLLLLXFD7$$\"3++
+++++]PF8FJ7$FMF(FO7$FM$\"3%ommmmmmm#FD7$$\"3++++++++XF8FQ7$FTF(FV7$FT
$\"3#ommmmmm'=FD7$$\"3+++++++]_F8FX7$FenF(Fgn7$Fen$\"3-+++++++;FD7$$\"
\"'F)Fin7$F\\oF(F^o7$F\\o$\"3=+++++++!)!#?7$$\"3+++++++]nF8F`o7$FdoF(F
foFfo7$$F0F8F(FgoFgo7$Fho$\"3;LLLLLLL`Fbo7$$\"3+++++++]#)F8Fjo7$F]pF(F
_pF_p7$$\"\"*F)F(F`pF`p7$Fap$\"3emmmmmmmEFbo7$$\"3+++++++](*F8Fdp7$Fgp
F(FipFfp7$$\"3+++++++]5!#;Fdp7$F[qF(F^qF^q7$$\"3+++++++D6F]qF(F_qF_qF_
q7$$\"#7F)F(Fbq-%'COLOURG6&%$RGBG$\"*++++\"!\")F(F(-%*LINESTYLEG6#FG-F
$6$7]p7$$\"3Y******4G$R<)Fbo$\"3Oet^&Q-YR%F87$$\"3*)*****>c'yM;FD$\"3k
&HKy+zZ4$F87$$\"3%)*****H%)z@X#FD$\"3m%f/UHql^#F87$$\"3')*****\\7t&pKF
D$\"3]7sw!zC0<#F87$$\"3#)*****fSmp3%FD$\"3oxP>V#eM$>F87$$\"3v*****pofV
!\\FD$\"3KFCzc!*zd<F87$$\"3x******oHv@dFD$\"3dW!>'=\"o2i\"F87$$\"3s***
***\\i9RlFD$\"30**))e(=1*4:F87$$\"3O+++J&RlN(FD$\"3\\+1Lkqu<9F87$$\"3q
*****H\"G$R<)FD$\"31ERHPs]R8F87$$\"3K+++%4E8**)FD$\"3;`*>(R4'>F\"F87$$
\"3e*****\\P>(3)*FD$\"3Z%[1D*G%G@\"F87$$\"31+++m7hi5F-$\"3uj^6#440;\"F
87$$\"3(******Rf]V9\"F-$\"3L]bqPMt86F87$$\"3.+++A**3E7F-$\"3uB\\j[-er5
F87$$\"3%*******\\#HyI\"F-$\"3*[3$4B8KL5F87$$\"31+++1zIr9F-$\"393Xli*Q
Hm*F-7$$FirF-$\"3'yZ'*z?VC4*F-7$$\"3++++=_E)z\"F-$\"3[mhgc4t)f)F-7$$\"
3#******\\(Quh>F-$\"3')=j4\">Rc;)F-7$$\"36+++KDAD@F-$\"3=.\")GZoU\"y(F
-7$$\"3%******z=,()G#F-$\"3/Ijnq\"HtV(F-7$$\"31+++W)z@X#F-$\"3K40$f5^m
7(F-7$$\"3*)*******\\ech#F-$\"3y!*RD`r<WoF-7$$\"36+++5B9+HF-$\"3NZYP^7
.3kF-7$$\"3E+++>hi%=$F-$\"3#\\y?W)RvGgF-7$$\"3#*******G*4\"pMF-$\"3'))
pe7R#p%p&F-7$$\"33+++QPf`PF-$\"3%)=lJg,K(R&F-7$$\"3))*****pNhDK%F-$\"3
S3#yf:2&))[F-7$$\"3;+++v*G:*[F-$\"3'*3!z2tAlY%F-7$$\"3&*******pDRJbF-$
\"3yBz>mE*z1%F-7$$\"3e*****H;c7<'F-$\"3(Q4&y()G1IPF-7$$\"3Q+++d(>6\"oF
-$\"39H!Ro0R(QMF-7$$\"3++++]L)4X(F-$\"3Iahnq/D%=$F-7$$\"3X++++M>R()F-$
\"3%4k`ps*zcFF-7$$\"34+++X.u-5F8$\"3Awuj6+48CF-7$$\"3*******f3\\48\"F8
$\"3H[$4E(46J@F-7$$\"3)******z#y:f7F8$\"3UU3[xPH%*=F-7$$\"3'******zl*)
o\\\"F8$\"3#*faH-#eEa\"F-7$$\"3(******z>ZIu\"F8$\"3-7x6V1.k7F-7$$\"31+
++yOi(*>F8$\"3Dz`V9.iR5F-7$$\"3)******zs$Q^AF8$\"3YDPmID)ei)FD7$$\"3;+
++IrS7DF8$\"3CE&e4kGk;(FD7$$\"3.+++&o;Bu#F8$\"3.4E.jOb9hFD7$$\"3@+++!R
S6+$F8$\"3\"4lD#f(Qa8&FD7$$\"3#*******\\o-hKF8$\"3\"3C6m*GBEVFD7$$\"3>
+++5cZ6NF8$\"3UYis(*=RyOFD7$$\"3++++yq!*QPF8$\"3#e&fox6f\"=$FD7$$\"31+
++!4X$4SF8$\"3Y&pdptIQo#FD7$$\"30+++g:WQUF8$\"3;6?F1axFBFD7$$\"3'*****
*z@N\\]%F8$\"3A^Q'Q#H?w>FD7$$\"3m******fs#3u%F8$\"3(f%f2na37<FD7$$\"3I
+++=#Q'**\\F8$\"3kF-3!>;[Y\"FD7$$\"3E+++_u3Y_F8$\"3W8APE!4UE\"FD7$$\"3
P+++v8B.bF8$\"3q)G+Dj*R&3\"FD7$$\"3V+++o(p$RdF8$\"3;\"z)\\.BtW%*Fbo7$$
\"3))*****\\#p2%*fF8$\"3GwaVoDwO\")Fbo7$$\"3%******z2Y'eiF8$\"3g5&R*)p
^i(pFbo7$$\"3y*****>Ia*)['F8$\"3HYZPEQ51hFbo7$$\"3E+++&\\$pPnF8$\"3_!=
:**z\\:H&Fbo7$$\"3e******>am%*pF8$\"3%R7B0'[CnXFbo7$$\"3k*****\\JigC(F
8$\"3QC**R/$ys&RFbo7$$\"3++++Q<I*[(F8$\"3/[Y\"zOPnW$Fbo7$$\"3#)*****\\
kx$fxF8$\"3U=\"zQl$[eHFbo7$$\"3;******fG0-!)F8$\"3Ot*H_#=R!e#Fbo7$$\"3
A+++]/;h#)F8$\"3/'prJ345B#Fbo7$$\"3]*****zV]f\\)F8$\"3Q!zrQ\"RGc>Fbo7$
$\"3q+++5zj_()F8$\"3!p,%p_IB&p\"Fbo7$$\"3A*****z\"3;%**)F8$\"3)4AS@.$3
#[\"Fbo7$$\"3?+++[=iY#*F8$\"3]%Q#*3\\o$)G\"Fbo7$$\"3[******\\'[M\\*F8$
\"3K;]8<])Q7\"Fbo7$$\"3[*****zV`=v*F8$\"3@FN%e1B\\u*!#@7$$\"32+++'zs++
\"F]q$\"3;$Q@_$R'p\\)Fihl7$$\"3(*******4Q_D5F]q$\"3!Qqq\"[@B)Q(Fihl7$$
\"3#******z2k20\"F]q$\"3B*yQ@HtNV'Fihl7$$\"31+++is&R2\"F]q$\"3#R<s&>?$
pm&Fihl7$$\"3*******zER05\"F]q$\"3V!fvnSg8!\\Fihl7$$\"3++++KXJC6F]q$\"
3\\kU$=jVdI%Fihl7$$\"31+++ARm\\6F]q$\"3y;Ykn97^PFihl7$$\"3-+++Al#R<\"F
]q$\"39JbV=i1)G$Fihl7$Fcq$\"3-]&en\"zkaGFihl-Ffq6&Fhq$\"#5!\"\"F(F(-%+
AXESLABELSG6%Q!6\"F]\\m%(DEFAULTG-%%VIEWG6$;F(FcqF_\\m" 1 2 0 1 10 0 
2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 23 "Z2 := NormalS(0,1,500):" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 23 "Z3 := NormalS(0,1,500):" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 46 "Y := [seq(Z1[i]^2+Z2[i]^2+Z3[i]^2, i=1..500)]:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "YH := Histogram(Y, 0..18, 24
):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "CH3 := plot(Chisquare
PDF(3,x), x=0..12):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "#int
erface(plotdevice=postscript, plotoutput=Fig7b);" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 19 "display(\{YH, CH3\});" }}{PARA 13 "" 1 "" 
{GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'CURVESG6$7co7$$\"\"!F)F(7$$\"3
m****\\7G$R<)!#?$\"3i%HLJY=@f$!#>7$$\"3$*****\\ilyM;F0$\"3_v\\7NJIf]F0
7$$\"3!****\\P%)z@X#F0$\"3/e;')\\H3rhF07$$\"3')*****\\7t&pKF0$\"3#RsQI
_*o'4(F07$$\"3z****\\(ofV!\\F0$\"3e*H(RK)y3i)F07$$\"3s******\\i9RlF0$
\"3wWPU%Q(\\t)*F07$$\"3e*****\\P>(3)*F0$\"3eRf&ybV'*=\"!#=7$$\"3%*****
**\\#HyI\"FO$\"3oO)*)4&yS^8FO7$$F3FO$\"3%=B3uR?k[\"FO7$$\"3#******\\(Q
uh>FO$\"3r:$foE*)=g\"FO7$$\"3!*****\\(=,()G#FO$\"3;=Sq5C=-<FO7$$\"3*)*
******\\ech#FO$\"3?g9k9I?!z\"FO7$$\"3-++]PPf`PFO$\"3NR-\\:Z$f-#FO7$$\"
3;+++v*G:*[FO$\"3Uk,^ND\"[=#FO7$$\"3k++]ihDrhFO$\"3>IkUet\">I#FO7$$\"3
++++]L)4X(FO$\"3?pP#RszDP#FO7$$\"3A+++v$)3&4)FO$\"3;([S63HYR#FO7$$\"3X
++++M>R()FO$\"3G1:*yf?#4CFO7$$\"3+++]7fCh!*FO$\"3-hB2@R-9CFO7$$\"3m+++
D%)H$Q*FO$\"3rA_`\"e3tT#FO7$$\"3L,+]P4N0(*FO$\"3*Qzd)o:<>CFO7$$\"34+++
X.u-5!#<$\"3;<ay5Fq>CFO7$$\"31+]i:Z%o1\"Fbr$\"36JH=//7<CFO7$$\"3,++D'3
\\48\"Fbr$\"3#*HAg1!y,T#FO7$$\"3'***\\(oX`]>\"Fbr$\"3i,XZ/=R*R#FO7$$\"
3%*****\\Fy:f7Fbr$\"3IB%p&Q[@&Q#FO7$$\"3#*****\\UP-y8Fbr$\"3uNB!z1!G^B
FO7$$\"3#*****\\d'*)o\\\"Fbr$\"3?yl.4\"*=4BFO7$$\"3$*****\\(>ZIu\"Fbr$
\"3eus!42lK?#FO7$$\"3-++]xOi(*>Fbr$\"3e1_]c,xw?FO7$$\"3%*****\\FPQ^AFb
r$\"3BMu=dr,U>FO7$$\"3;+++IrS7DFbr$\"3+T!=9k)\\+=FO7$$\"3.+++&o;Bu#Fbr
$\"31>i9`U!on\"FO7$$\"3@+++!RS6+$Fbr$\"3\"*e$o!os@T:FO7$$\"3#*******\\
o-hKFbr$\"3;`-_jhz59FO7$$\"3>+++5cZ6NFbr$\"3oK()GV$e;H\"FO7$$\"3'*****
\\xq!*QPFbr$\"3+!4tvPn&*=\"FO7$$\"31+++!4X$4SFbr$\"3uT7we./w5FO7$$\"30
+++g:WQUFbr$\"3'e<*GC+9m)*F07$$\"3#*****\\<_$\\]%Fbr$\"3J^/O^hm-*)F07$
$\"3m******fs#3u%Fbr$\"3dwMw`9q;\")F07$$\"3E++]<#Q'**\\Fbr$\"3hV\\t25b
BtF07$$\"3I++]_u3Y_Fbr$\"3E?Wh36:KmF07$$\"3P+++v8B.bFbr$\"33f!*)>J0K(f
F07$$\"3R++]n(p$RdFbr$\"3M\\W216o?aF07$$\"3))*****\\#p2%*fFbr$\"37#Gmb
2Qs([F07$$\"3!*****\\xgkeiFbr$\"3m,!)QM!*=mVF07$$\"3%)****\\-V&*)['Fbr
$\"3I.MUoGAiRF07$$\"3E+++&\\$pPnFbr$\"3i1d`mSGlNF07$$\"3e******>am%*pF
br$\"3#>Qd!p\\j%>$F07$$\"3k*****\\JigC(Fbr$\"3KRz9>&ou'GF07$$\"3%*****
\\P<I*[(Fbr$\"31XWb;cO\"e#F07$$\"3#)*****\\kx$fxFbr$\"3ca2q#>*f&H#F07$
$\"3;******fG0-!)Fbr$\"3U7-]yJ%[1#F07$$\"3A+++]/;h#)Fbr$\"3Mx)[,SsI%=F
07$$\"3Y****\\P/&f\\)Fbr$\"3)Qudy6\\?m\"F07$$\"3q+++5zj_()Fbr$\"3Mo%H$
3hx$[\"F07$$\"3=****\\<3;%**)Fbr$\"3<@g'RJ4IL\"F07$$\"3;++]Z=iY#*Fbr$
\"3S[;)Qi08>\"F07$$\"3[******\\'[M\\*Fbr$\"3kkv')pW&p1\"F07$$\"3W****
\\PM&=v*Fbr$\"3&\\K,C:1J]*F-7$$\"32+++'zs++\"!#;$\"3I7!3-[#e(\\)F-7$$
\"3,++]5Q_D5F[_l$\"3GT:mkz!od(F-7$$\"33++vxSw]5F[_l$\"3AXc?;x;gnF-7$$
\"31+++is&R2\"F[_l$\"3+j)zczUg3'F-7$$\"3.++]o#R05\"F[_l$\"3o!)p,#eRTR&
F-7$$\"3++++KXJC6F[_l$\"3E@xLO,,T[F-7$$\"3/++v@Rm\\6F[_l$\"3mxCJB!HDJ%
F-7$$\"3/++DAl#R<\"F[_l$\"3o)y*\\N\"[*fQF-7$$\"#7F)$\"3Yg-6+vdDMF--%'C
OLOURG6&%$RGBG$\"#5!\"\"F(F(-F$6%7\\qF'7$F($\"3RLLLLLLL<FO7$$\"3++++++
++vFOFabl7$FdblF(Ffbl7$Fdbl$\"3\\mmmmmm1DFO7$$\"3++++++++:FbrFhbl7$F[c
lF(F]cl7$F[cl$\"3/++++++?>FO7$$\"3+++++++]AFbrF_cl7$FbclF(Fdcl7$Fbcl$
\"3wmmmmmmY:FO7$$\"\"$F)Ffcl7$FiclF(F[dl7$Ficl$\"35++++++!o\"FO7$$\"3+
++++++]PFbrF]dl7$F`dlF(Fbdl7$F`dl$\"3ummmmmmm5FO7$$\"3++++++++XFbrFddl
7$FgdlF(Fidl7$Fgdl$\"3&*************R5FO7$$\"3+++++++]_FbrF[el7$F^elF(
F`el7$F^el$\"35+++++++SF07$$\"\"'F)Fbel7$FeelF(Fgel7$Feel$\"3oLLLLLLL`
F07$$\"3+++++++]nFbrFiel7$F\\flF(F^fl7$F\\fl$\"3#ommmmmm'=F07$$FeblFbr
F`fl7$FcflF(Fdfl7$Fcfl$\"3ULLLLLLL8F07$$\"3+++++++]#)FbrFffl7$FiflF(F[
gl7$Fifl$\"3GLLLLLLLHF07$$\"\"*F)F]gl7$F`glF(Fbgl7$F`gl$\"3=+++++++!)F
-7$$\"3+++++++](*FbrFdgl7$FgglF(FiglFfgl7$$\"3+++++++]5F[_lFdgl7$F[hlF
(F]hl7$F[hl$\"3;LLLLLLL`F-7$$\"3+++++++D6F[_lF_hl7$FbhlF(FdhlFahl7$Fba
lF_hl7$FbalF(FfhlFfhl7$$\"3+++++++v7F[_lF(FghlFghlFghl7$$\"3+++++++]8F
[_lF(FjhlFjhlFjhl7$$\"3+++++++D9F[_lF(F]ilF]ilF]il7$$\"#:F)F(F`ilF`ilF
`il7$$\"3+++++++v:F[_lF(FcilFcil7$Fdil$\"3emmmmmmmEF-7$$\"3+++++++];F[
_lFgil7$FjilF(F\\jlF\\jl7$$\"3+++++++D<F[_lF(F]jlF]jlF]jl7$$\"#=F)F(F`
jl-Fgal6&Fial$\"*++++\"!\")F(F(-%*LINESTYLEG6#Fjcl-%+AXESLABELSG6%Q\"x
6\"Q!6\"%(DEFAULTG-%%VIEWG6$;F(FbalFb[m" 1 2 0 1 10 0 2 9 1 4 2 
1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 41 "Z := [seq(NormalS(37, 16, 3), i=1..200)]:" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 54 "S := [seq(sum( (Z[i][j]-37)^2/16, j=1..3), i=1
..200)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 62 "T := [seq(sum( \+
(Z[i][j]-Mean(Z[i]))^2/16, j=1..3), i=1..200)]:" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 30 "SH := Histogram(S, 0..20, 16):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "TH := Histogram(T, 0..20, 16):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "CH2 := plot(ChisquarePDF(2,x
), x=0..20):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "CH3 := plot
(ChisquarePDF(3,x), x=0..20):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 52 "#interface(plotdevice=postscript, plotoutput=Fig8a);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "display(\{CH3, SH\});" }}{PARA 13 "
" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'CURVESG6%7\\o7$$\"\"!F)
F(7$F($\"3))************fB!#=7$$\"3+++++++]7!#<F+7$F/F(F27$F/$\"33++++
++g>F-7$$\"3++++++++DF1F47$F7F(F97$F7$\"3-++++++!G\"F-7$$\"3+++++++]PF
1F;7$F>F(F@7$F>$\"3?+++++++'*!#>7$$\"\"&F)FB7$FFF(FH7$FF$\"3w*********
****>&FD7$$\"3+++++++]iF1FJ7$FMF(FO7$FM$\"3s*************f$FD7$$\"3+++
+++++vF1FQ7$FTF(FV7$FT$\"35+++++++SFD7$$\"3+++++++]()F1FX7$FenF(Fgn7$F
en$FY!#?7$$\"#5F)Fin7$F\\oF(F^oF[o7$$\"3+++++++D6!#;Fin7$F`oF(FcoFco7$
$F0FboF(FdoFdo7$Feo$\"3=+++++++!)Fjn7$$\"3+++++++v8FboFgo7$FjoF(F\\pF
\\p7$$\"#:F)F(F]pF]pF]p7$$\"3+++++++D;FboF(F`pF`pF`p7$$\"3+++++++]<Fbo
F(FcpFcpFcp7$$\"3+++++++v=FboF(FfpFfpFfp7$$\"#?F)F(Fip-%'COLOURG6&%$RG
BG$\"*++++\"!\")F(F(-%*LINESTYLEG6#\"\"$-F$6$7aoF'7$$\"3gmmTN@Ki8FD$\"
3w#[_Q\"pyCYFD7$$\"3ALL$3FWYs#FD$\"3Qfv=eo.'\\'FD7$$\"3%)***\\iSmp3%FD
$\"3;`&ov))y>!zFD7$$\"3WmmmT&)G\\aFD$\"3K0qv\"[yC1*FD7$$\"3m****\\7G$R
<)FD$\"3?Hg)f@/\\4\"F-7$$\"3GLLL3x&)*3\"F-$\"3yKK(GizrC\"F-7$$\"3$****
*\\ilyM;F-$\"3%=B3uR?k[\"F-7$$\"3emmm;arz@F-$\"3)G=?tyO-n\"F-7$$\"3%HL
L3FWYs#F-$\"3k\"e`Y)))=<=F-7$$\"3')*****\\7t&pKF-$\"3%4tHuIDr$>F-7$$\"
3ymm;z>]9QF-$\"3:jSLMa4O?F-7$$\"39LLLL3VfVF-$\"3\"*3O?<:<=@F-7$$\"3]**
**\\i&*)fD'F-$\"3Wu#p16oyI#F-7$$\"3%pmm;H[D:)F-$\"3i#oC@^=iR#F-7$$\"3%
4+DJ&zw&o)F-$\"3ZW=>0(p#3CF-7$$\"3#QL$e9w)*=#*F-$\"30okW5j\"eT#F-7$$\"
3qm;/ws?_(*F-$\"3YjI\"**eH$>CF-7$$\"3'****\\PpU&G5F1$\"3O%4L*\\OA>CF-7
$$\"3CLe*)fY'=3\"F1$\"3O!RNVpkeT#F-7$$\"3am;/Em=N6F1$\"3=iJAk$y&4CF-7$
$\"3/+v=#f3&)=\"F1$\"3x/XVPcl+CF-7$$\"3MLLLe0$=C\"F1$\"3%[Dxpid$*Q#F-7
$$\"3[LLLLA`c9F1$\"3yh3&QZyUK#F-7$$\"3iLLL3RBr;F1$\"3!Gs]\"oJFOAF-7$$
\"3imm;zjf)4#F1$\"30;hJW<\"Q-#F-7$$\"3ULL$e4;[\\#F1$\"3dq%=wqM+\"=F-7$
$\"3!)****\\i'y]!HF1$\"3oTKQp(f4f\"F-7$$\"3oLL$ezs$HLF1$\"3%Ht)*zx7wP
\"F-7$$\"3=++]7iI_PF1$\"3iUJ&)H)RP=\"F-7$$\"3Onmm;_M(=%F1$\"3PS@#))\\D
g+\"F-7$$\"3%QLL$3y_qXF1$\"3o-\"HH'>#zn)FD7$$\"3]+++]1!>+&F1$\"3c>O8Nh
#pJ(FD7$$\"3J+++]Z/NaF1$\"3O0#[aOb>9'FD7$$\"3;+++]$fC&eF1$\"3)o?j9W(*G
<&FD7$$\"3qLL$ez6:B'F1$\"3z;bS5\\A;WFD7$$\"3/nmm;=C#o'F1$\"31_\"QYx-/l
$FD7$$\"3Mnmmm#pS1(F1$\"3rWD4Et%45$FD7$$\"3<++]i`A3vF1$\"3+XM^$*[GgDFD
7$$\"3Rmmmm(y8!zF1$\"3c*Gh2)*Qx:#FD7$$\"3K,+]i.tK$)F1$\"31i0()p1(fy\"F
D7$$\"3!3++v3zMu)F1$\"39@a'pU1)*[\"FD7$$\"3Yomm\"H_?<*F1$\"3D0M?'Rl:B
\"FD7$$\"3-nm;zihl&*F1$\"3Q(yokGXI.\"FD7$$\"39LLL3#G,***F1$\"3ph*y/v4#
Q&)Fjn7$$\"3WLLezw5V5Fbo$\"3%z*G2_3M)*pFjn7$$\"3/++v$Q#\\\"3\"Fbo$\"3k
(4rUDQ:)eFjn7$$\"3]LL$e\"*[H7\"Fbo$\"3;(*\\T8q@r[Fjn7$$\"3-+++qvxl6Fbo
$\"3rxo8(>!\\1SFjn7$$\"31++]_qn27Fbo$\"3nALg%o0rI$Fjn7$$\"37++Dcp@[7Fb
o$\"3IXmh!fy_u#Fjn7$$\"3+++]2'HKH\"Fbo$\"3UwxSWW=JAFjn7$$\"3`mmmwanL8F
bo$\"3_K9n$4a4&=Fjn7$$\"35+++v+'oP\"Fbo$\"3&4;*>F*[a^\"Fjn7$$\"3CLLeR<
*fT\"Fbo$\"3%p\\,][FPE\"Fjn7$$\"3C+++&)Hxe9Fbo$\"3KV(Q1Tjc.\"Fjn7$$\"3
gmm\"H!o-*\\\"Fbo$\"3gqCL&H(e%e)!#@7$$\"3:++DTO5T:Fbo$\"3Y=GyEi!G0(Fbc
l7$$\"3emmmT9C#e\"Fbo$\"3nQFW(*)>x\"eFbcl7$$\"3\"****\\i!*3`i\"Fbo$\"3
Eu\"o@5fSv%Fbcl7$$\"3_LLL$*zym;Fbo$\"3%f!3(y\"fg7RFbcl7$$\"3fLL$3N1#4<
Fbo$\"3]*ypD=))[?$Fbcl7$$\"3!pm;HYt7v\"Fbo$\"3-,4Y>VsGEFbcl7$$\"3A+++q
(G**y\"Fbo$\"37$eE>))=0>#Fbcl7$$\"3'pmmT6KU$=Fbo$\"33)oOEDeox\"Fbcl7$$
\"3eLLL`v&Q(=Fbo$\"3KdnmpZ:t9Fbcl7$$\"30++DOl5;>Fbo$\"3&4;>sH+g?\"Fbcl
7$$\"3A++v.Uac>Fbo$\"3]&*zCA2tb**!#A7$Fjp$\"3q<\"*3c4\"**4)Fjfl-F]q6&F
_q$F]o!\"\"F(F(-%+AXESLABELSG6%Q!6\"Fegl%(DEFAULTG-%%VIEWG6$;F(FjpFggl
" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "C
urve 2" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "#interface(plotd
evice=postscript, plotoutput=Fig8b);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 19 "display(\{CH2, TH\});" }}{PARA 13 "" 1 "" {GLPLOT2D 
400 300 300 {PLOTDATA 2 "6&-%'CURVESG6%7\\o7$$\"\"!F)F(7$F($\"3')*****
********f$!#=7$$\"3+++++++]7!#<F+7$F/F(F27$F/$\"3-+++++++AF-7$$\"3++++
++++DF1F47$F7F(F97$F7$\"3)*************z5F-7$$\"3+++++++]PF1F;7$F>F(F@
7$F>$\"35+++++++S!#>7$$\"\"&F)FB7$FFF(FH7$FF$\"3/+++++++CFD7$$\"3+++++
++]iF1FJ7$FMF(FO7$FM$\"3=+++++++!)!#?7$$\"3++++++++vF1FQ7$FUF(FW7$FU$
\"31+++++++GFD7$$\"3+++++++]()F1FY7$FfnF(Fhn7$Ffn$FCFS7$$\"#5F)Fjn7$F
\\oF(F^oF[o7$$\"3+++++++D6!#;Fjn7$F`oF(FcoF_o7$$F0FboFjn7$FeoF(FfoFfo7
$$\"3+++++++v8FboF(FgoFgoFgo7$$\"#:F)F(FjoFjoFjo7$$\"3+++++++D;FboF(F]
pF]pF]p7$$\"3+++++++]<FboF(F`pF`pF`p7$$\"3+++++++v=FboF(FcpFcpFcp7$$\"
#?F)F(Ffp-%'COLOURG6&%$RGBG$\"*++++\"!\")F(F(-%*LINESTYLEG6#\"\"$-F$6$
7Z7$F($\"3++++++++]F-7$$\"3GLLL3x&)*3\"F-$\"3cy][Ii#[t%F-7$$\"3emmm;ar
z@F-$\"3k3zd')er$[%F-7$$\"3')*****\\7t&pKF-$\"3+[B'z6BfC%F-7$$\"39LLLL
3VfVF-$\"3OB-JI;u?SF-7$$\"3]****\\i&*)fD'F-$\"3MVUP%z#)pl$F-7$$\"3%pmm
;H[D:)F-$\"34=Y3KM8ELF-7$$\"3'****\\PpU&G5F1$\"3+[mu>1o*)HF-7$$\"3MLLL
e0$=C\"F1$\"3QQaen9E(o#F-7$$\"3[LLLLA`c9F1$\"35;_MWks8CF-7$$\"3iLLL3RB
r;F1$\"3#*o6g;W.o@F-7$$\"3C++vV^\"\\)=F1$\"3)4$G?!4X$[>F-7$$\"3imm;zjf
)4#F1$\"3=G\"Qj7<4v\"F-7$$\"3ULL$e4;[\\#F1$\"3*Q;*)R$=CO9F-7$$\"3!)***
*\\i'y]!HF1$\"3S(4[.'p()p6F-7$$\"3oLL$ezs$HLF1$\"3e>r_$*)*\\i%*FD7$$\"
3=++]7iI_PF1$\"3SFpZ4<\"*ewFD7$$\"3Onmm;_M(=%F1$\"3kCw.FdohhFD7$$\"3%Q
LL$3y_qXF1$\"3!=e[DNgt3&FD7$$\"3]+++]1!>+&F1$\"3(*=Bg79N+TFD7$$\"3J+++
]Z/NaF1$\"3\"er2h[3>I$FD7$$\"3;+++]$fC&eF1$\"3!*pT'p6P*zEFD7$$\"3qLL$e
z6:B'F1$\"3>%['35([s@#FD7$$\"3/nmm;=C#o'F1$\"3CI&4(>H')p<FD7$$\"3Mnmmm
#pS1(F1$\"3g<lA'enAY\"FD7$$\"3<++]i`A3vF1$\"3C0c7u61r6FD7$$\"3Rmmmm(y8
!zF1$\"3q)*zhRir?'*FS7$$\"3K,+]i.tK$)F1$\"3o*)3sWUEaxFS7$$\"3!3++v3zMu
)F1$\"3M%\\Gf:EYJ'FS7$$\"3Yomm\"H_?<*F1$\"3m(Ql8JUm4&FS7$$\"3-nm;zihl&
*F1$\"3m<]r^uA'=%FS7$$\"39LLL3#G,***F1$\"3Yr;n3Nk&Q$FS7$$\"3WLLezw5V5F
bo$\"3ZI<;)=adr#FS7$$\"3/++v$Q#\\\"3\"Fbo$\"3qv_F1?]TAFS7$$\"3]LL$e\"*
[H7\"Fbo$\"35M'HK8q=#=FS7$$\"3-+++qvxl6Fbo$\"3%Q'e6!>t1Z\"FS7$$\"31++]
_qn27Fbo$\"3%f3$H1Qq#>\"FS7$$\"37++Dcp@[7Fbo$\"3O%*z#[^2(Q(*!#@7$$\"3+
++]2'HKH\"Fbo$\"3OF!oE+Cgx(Fc]l7$$\"3`mmmwanL8Fbo$\"3]\\,>LFH_jFc]l7$$
\"35+++v+'oP\"Fbo$\"3%QR:tmg'=^Fc]l7$$\"3CLLeR<*fT\"Fbo$\"3#)ziS!eR!4U
Fc]l7$$\"3C+++&)Hxe9Fbo$\"3![xv\"y*z%)R$Fc]l7$$\"3gmm\"H!o-*\\\"Fbo$\"
3+)4we96*yFFc]l7$$\"3:++DTO5T:Fbo$\"3#[73VNw;D#Fc]l7$$\"3emmmT9C#e\"Fb
o$\"3Y#Q9IoeI$=Fc]l7$$\"3\"****\\i!*3`i\"Fbo$\"3)pN%Gj\"RzZ\"Fc]l7$$\"
3_LLL$*zym;Fbo$\"3OA;^A&=6?\"Fc]l7$$\"3fLL$3N1#4<Fbo$\"3#)p,G**Ht:(*!#
A7$$\"3!pm;HYt7v\"Fbo$\"35ZiNryxsyF[al7$$\"3A+++q(G**y\"Fbo$\"3OQ(>#3(
o\"*['F[al7$$\"3'pmmT6KU$=Fbo$\"39[v*=E(y*>&F[al7$$\"3eLLL`v&Q(=Fbo$\"
3]PWVhh?lUF[al7$$\"30++DOl5;>Fbo$\"3[t$eRa2IX$F[al7$$\"3A++v.Uac>Fbo$
\"3sZhM=O!4#GF[al7$Fgp$\"3QUU7)['**pAF[al-Fjp6&F\\q$F]o!\"\"F(F(-%+AXE
SLABELSG6%Q!6\"Fdcl%(DEFAULTG-%%VIEWG6$;F(FgpFfcl" 1 2 0 1 10 0 2 9 1 
4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}}{MARK "3
0 1" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }