{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 31 "Example 8: Confidence Int
ervals" }}{PARA 19 "" 0 "" {TEXT -1 15 "by Zavan Karian" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 81 "restart: with(plots,display): libna
me:=\"C:/mylib/statistics\",libname: with(stat):" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 50 "ListOfSamples := [seq(NormalS(40,12,5), i=1..
50)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "CIVarUnknown := Co
nfIntMean(ListOfSamples, 80):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 52 "#interface(plotdevice=postscript, plotoutput=Fig9a);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "ConfIntPlot(CIVarUnknown, 40);" }}
{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6X-%'CURVESG6#7$7$
$\"38+++%HmPj$!#;$\"\"\"\"\"!7$$\"3D+++%\\%HMTF*F+-F$6#7$7$$\"3I+++8e^
pMF*$\"\"#F-7$$\"3++++F#Q%zTF*F7-F$6#7$7$$\"3)******fNeD%RF*$\"\"$F-7$
$\"39+++K$zqT%F*FB-F$6#7$7$$\"3C+++(*zB))RF*$\"\"%F-7$$\"37+++*>()*RUF
*FM-F$6#7$7$$\"3F+++_8BNOF*$\"\"&F-7$$\"3\"******f\\%\\-TF*FX-F$6#7$7$
$\"3#)*****RyFhn$F*$\"\"'F-7$$\"3\")*****>:>)GSF*F]o-F$6#7$7$$\"3!)***
**\\Rh^T$F*$\"\"(F-7$$\"3o*****Hn%))\\PF*Fho-F$6#7$7$$\"33+++^H>0QF*$
\"\")F-7$$\"3K+++@Rw8UF*Fcp-F$6#7$7$$\"3$******zC(4WPF*$\"\"*F-7$$\"3w
*****R5ZFF%F*F^q-F$6#7$7$$\"3M+++U!G:q$F*$\"#5F-7$$\"33+++eEa)G%F*Fiq-
F$6#7$7$$\"3I+++*[=Gy$F*$\"#6F-7$$\"3@+++2'zr$RF*Fdr-F$6#7$7$$\"3M+++&
)eX.UF*$\"#ZF-7$$\"3<+++:hD4YF*F_s-F$6#7$7$$\"3z*****R#RpTPF*$\"#[F-7$
$\"3%)******z64.VF*Fjs-F$6#7$7$$\"3!******RRZWx$F*$\"#\\F-7$$\"3#)****
*>'[6xTF*Fet-F$6#7$7$$\"3%******4G(f%o$F*$\"#]F-7$$\"3<+++rHg<SF*F`u-F
$6#7$7$$\"#SF-F+7$FiuF`u-F$6#7$7$$\"3w*****zL#yoQF*$\"#XF-7$$\"3m*****
>;u(zUF*Fbv-F$6#7$7$$\"3w*****>Dnsb$F*$\"#YF-7$$\"3G+++okV@VF*F]w-F$6#
7$7$$\"3#******R8$)*GPF*$\"#WF-7$$\"3')*****fE5W*QF*Fhw-F$6#7$7$$\"3o*
****\\eD7\"RF*$\"#DF-7$$\"3l*****\\.Ui5%F*Fcx-F$6#7$7$$\"36+++$)R[ONF*
$\"#EF-7$$\"3C+++<0l3SF*F^y-F$6#7$7$$\"3y******Q:dZQF*$\"#FF-7$$\"3q**
***pJ`'=VF*Fiy-F$6#7$7$$\"3B+++y$p,/%F*$\"#GF-7$$\"3++++m*pa_%F*Fdz-F$
6#7$7$$\"3!******z$3(R*QF*$\"#HF-7$$\"33+++e#p%[VF*F_[l-F$6#7$7$$\"3))
*****fST1h$F*$\"#IF-7$$\"31+++mO_aQF*Fj[l-F$6#7$7$$\"3)*******)Q3/n$F*
$\"#JF-7$$\"3))*****pCJ`G%F*Fe\\l-F$6#7$7$$\"3(******zJpV\"QF*$\"#KF-7
$$\"3++++]HKmVF*F`]l-F$6#7$7$$\"3w*****\\W#HqPF*$\"#LF-7$$\"3u*****4BS
(yWF*F[^l-F$6#7$7$$\"35+++?l$op$F*$\"#MF-7$$\"3!******zKd9*RF*Ff^l-F$6
#7$7$$\"3E+++5hntOF*$\"#NF-7$$\"3?+++Q?J4VF*Fa_l-F$6#7$7$$\"3z*****R>u
f#QF*$\"#OF-7$$\"3v*****zL9<`%F*F\\`l-F$6#7$7$$\"3;+++!o9L3%F*$\"#PF-7
$$\"3?+++O2k%R%F*Fg`l-F$6#7$7$$\"3-+++*eMft$F*$\"#QF-7$$\"37+++V=E&4%F
*Fbal-F$6#7$7$$\"3B+++&=)=SRF*$\"#RF-7$$\"3u*****H?QU4%F*F]bl-F$6#7$7$
$\"3=+++F6sjRF*Fiu7$$\"38+++tnF/VF*Fiu-F$6#7$7$$\"3%********z<I+%F*$\"
#TF-7$$\"3G+++_R](f%F*Facl-F$6#7$7$$\"37+++%H#plRF*$\"#UF-7$$\"3M+++yw
\"\\:%F*F\\dl-F$6#7$7$$\"3C+++@-g[SF*$\"#VF-7$$\"3I+++v%fTO%F*Fgdl-F$6
#7$7$$\"3u*****\\!*GQw$F*$\"#AF-7$$\"3))******yNq8RF*Fbel-F$6#7$7$$\"3
w*****z#e.bOF*$\"#BF-7$$\"3%******R-u(QVF*F]fl-F$6#7$7$$\"3*)*****4^&z
5QF*$\"#CF-7$$\"32+++H'HVI%F*Fhfl-F$6#7$7$$\"3!)*****\\Xq[\"QF*$\"#7F-
7$$\"30+++`!))eL%F*Fcgl-F$6#7$7$$\"3))*****pYYzf$F*$\"#8F-7$$\"3u*****
HLq$)>%F*F^hl-F$6#7$7$$\"3-+++gt3<NF*$\"#9F-7$$\"3A+++_\"4Z:%F*Fihl-F$
6#7$7$$\"3#)*****R]0kR$F*$\"#:F-7$$\"3;+++KW>#>%F*Fdil-F$6#7$7$$\"3r**
***fvR*RTF*$\"#;F-7$$\"3'******f6Fmb%F*F_jl-F$6#7$7$$\"3#)*****RnI[=%F
*$\"#<F-7$$\"3v*****R:>n@%F*Fjjl-F$6#7$7$$\"3')*****H?Q6*QF*$\"#=F-7$$
\"3:+++dM36VF*Fe[m-F$6#7$7$$\"3++++4?rzQF*$\"#>F-7$$\"3I+++z?o)*RF*F`
\\m-F$6#7$7$$\"3%)*****Hlf>=%F*$\"#?F-7$$\"3F+++R!y+]%F*F[]m-F$6#7$7$$
\"3%)*****fAG)[OF*$\"#@F-7$$\"3,+++M>D@VF*Ff]m-%'COLOURG6&%$RGBG$F-F-F
_^m$\"*++++\"!\")-%+AXESLABELSG6$Q!6\"Ff^m-%%VIEWG6$%(DEFAULTGF[_m" 1 
2 0 1 10 0 2 6 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve
 2" "Curve 3" "Curve 4" "Curve 5" "Curve 6" "Curve 7" "Curve 8" "Curve
 9" "Curve 10" "Curve 11" "Curve 12" "Curve 13" "Curve 14" "Curve 15" 
"Curve 16" "Curve 17" "Curve 18" "Curve 19" "Curve 20" "Curve 21" "Cur
ve 22" "Curve 23" "Curve 24" "Curve 25" "Curve 26" "Curve 27" "Curve 2
8" "Curve 29" "Curve 30" "Curve 31" "Curve 32" "Curve 33" "Curve 34" "
Curve 35" "Curve 36" "Curve 37" "Curve 38" "Curve 39" "Curve 40" "Curv
e 41" "Curve 42" "Curve 43" "Curve 44" "Curve 45" "Curve 46" "Curve 47
" "Curve 48" "Curve 49" "Curve 50" "Curve 51" }}}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 49 "CIVarKnown := ConfIntMean(ListOfSamples, 80, 12)
:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "#interface(plotdevice=
postscript, plotoutput=Fig9b);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 28 "ConfIntPlot(CIVarKnown, 40);" }}{PARA 13 "" 1 "" {GLPLOT2D 
400 300 300 {PLOTDATA 2 "6X-%'CURVESG6#7$7$$\"35+++>!4=*Q!#;$\"#K\"\"!
7$$\"3))******[K)))G%F*F+-F$6#7$7$$\"#SF-$\"\"\"F-7$F5$\"#]F--F$6#7$7$
$\"3'*******yK\\&o$F*F77$$\"3s******3vc#3%F*F7-F$6#7$7$$\"3!******\\!*
Rfi$F*$\"\"#F-7$$\"3n*****\\89I-%F*FK-F$6#7$7$$\"3#)******G<G\")RF*$\"
\"$F-7$$\"3I+++ffNyVF*FV-F$6#7$7$$\"3%******H[vb\"RF*$\"\"%F-7$$\"3r**
***Hr\\EJ%F*F[o-F$6#7$7$$\"3')******3eKqOF*$\"\"&F-7$$\"3M+++R+SnSF*Ff
o-F$6#7$7$$\"3G+++`j$Rl$F*$\"\"'F-7$$\"31+++$e550%F*Fap-F$6#7$7$$\"3')
******=f)RQ$F*$\"\"(F-7$$\"3M+++\\,1\"y$F*F\\q-F$6#7$7$$\"3'******4KT4
\"QF*$\"\")F-7$$\"3t*****4b:!3UF*Fgq-F$6#7$7$$\"3&******41&))4QF*$\"\"
*F-7$$\"3s*****4Hfp?%F*Fbr-F$6#7$7$$\"3'******\\B)\\'z$F*$\"#5F-7$$\"3
u*****\\YsN>%F*F]s-F$6#7$7$$\"3m*****H$>YhOF*$\"#6F-7$$\"39+++jh`eSF*F
hs-F$6#7$7$$\"3/+++R@%o(QF*$\"#7F-7$$\"3#)******oj\"RF%F*Fct-F$6#7$7$$
\"3=+++,61<PF*$\"#QF-7$$\"3&******4LNT6%F*F^u-F$6#7$7$$\"35+++zgn=QF*$
\"#RF-7$$\"3))******3.v:UF*Fiu-F$6#7$7$$\"3F+++N=YNRF*F57$$\"3/+++lg`K
VF*F5-F$6#7$7$$\"3A+++hPs,TF*$\"#TF-7$$\"3++++\"*zz)\\%F*F]w-F$6#7$7$$
\"3++++rywhQF*$\"#UF-7$$\"3w*****45U)eUF*Fhw-F$6#7$7$$\"3n*****HtUy+%F
*$\"#VF-7$$\"3:+++jp\"\\S%F*Fcx-F$6#7$7$$\"3l*****\\efJh$F*$\"#WF-7$$
\"39+++:QB5SF*F^y-F$6#7$7$$\"3#)*****\\8Td(QF*$\"#XF-7$$\"3I+++l`\"GF%
F*Fiy-F$6#7$7$$\"38+++XZ\"3u$F*$\"#YF-7$$\"3\"******\\(*))y8%F*Fdz-F$6
#7$7$$\"3l*****\\))=y?%F*$\"#ZF-7$$\"39+++:J*[g%F*F_[l-F$6#7$7$$\"3G++
+Pa&Q#QF*$\"#[F-7$$\"30+++n'H4A%F*Fj[l-F$6#7$7$$\"3)******H,Wsx$F*$\"#
\\F-7$$\"3u*****HC=V<%F*Fe\\l-F$6#7$7$$\"3;+++6Ic_OF*F:7$$\"3%******4C
P'\\SF*F:-F$6#7$7$$\"3A+++B#zf#RF*$\"#LF-7$$\"3*******HX`IK%F*Fi]l-F$6
#7$7$$\"3w******3)4ck$F*$\"#MF-7$$\"3C+++RSoUSF*Fd^l-F$6#7$7$$\"3)****
***ep&Hz$F*$\"#NF-7$$\"3w******)=J+>%F*F__l-F$6#7$7$$\"3C+++^rI!)RF*$
\"#OF-7$$\"3-+++\"Q\"QxVF*Fj_l-F$6#7$7$$\"3H+++$fS//%F*$\"#PF-7$$\"32+
++B[^PWF*Fe`l-F$6#7$7$$\"3o*****\\'H]'y$F*$\"#@F-7$$\"3;+++&>xN=%F*F`a
l-F$6#7$7$$\"3#******p7H-k$F*$\"#AF-7$$\"3q*****pN.t.%F*F[bl-F$6#7$7$$
\"3'******4\"yO)z$F*$\"#BF-7$$\"3u*****4/Ua>%F*Ffbl-F$6#7$7$$\"3u*****
\\XD!fQF*$\"#CF-7$$\"3A+++&o*4cUF*Facl-F$6#7$7$$\"3y*****\\p'>5QF*$\"#
DF-7$$\"3E+++D4F2UF*F\\dl-F$6#7$7$$\"3I+++N,.uNF*$\"#EF-7$$\"31+++lV5r
RF*Fgdl-F$6#7$7$$\"3')*****HJvX)QF*$\"#FF-7$$\"3M+++V&\\;G%F*Fbel-F$6#
7$7$$\"3C+++dDG%3%F*$\"#GF-7$$\"3++++(yc8[%F*F]fl-F$6#7$7$$\"36+++LHoA
RF*$\"#HF-7$$\"3))*****H;d(>VF*Fhfl-F$6#7$7$$\"3s*****4UXS`$F*$\"#IF-7
$$\"3@+++^'>6$RF*Fcgl-F$6#7$7$$\"3/+++.FLzPF*$\"#JF-7$$\"3#)*****H$pSw
TF*F^hl-F$6#7$7$$\"3#******\\G@'*p$F*$\"#8F-7$$\"3o*****\\^&p'4%F*Fihl
-F$6#7$7$$\"3B+++T6OPOF*$\"#9F-7$$\"3,+++r`VMSF*Fdil-F$6#7$7$$\"35+++`
Gw&f$F*$\"#:F-7$$\"3')*****H3PG*RF*F_jl-F$6#7$7$$\"3%******4KY(\\TF*$
\"#;F-7$$\"3s*****4b?oa%F*Fjjl-F$6#7$7$$\"3D+++*zPA+%F*$\"#<F-7$$\"3-+
++H?J*R%F*Fe[m-F$6#7$7$$\"3x*****\\rtD!RF*$\"#=F-7$$\"3E+++Xzk*H%F*F`
\\m-F$6#7$7$$\"3E+++H*f1u$F*$\"#>F-7$$\"3/+++fTtPTF*F[]m-F$6#7$7$$\"3<
+++J<[UTF*$\"#?F-7$$\"3%******4'fbRXF*Ff]m-%'COLOURG6&%$RGBG$F-F-F_^m$
\"*++++\"!\")-%+AXESLABELSG6$Q!6\"Ff^m-%%VIEWG6$%(DEFAULTGF[_m" 1 2 0 
1 10 0 2 6 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" 
"Curve 3" "Curve 4" "Curve 5" "Curve 6" "Curve 7" "Curve 8" "Curve 9" 
"Curve 10" "Curve 11" "Curve 12" "Curve 13" "Curve 14" "Curve 15" "Cur
ve 16" "Curve 17" "Curve 18" "Curve 19" "Curve 20" "Curve 21" "Curve 2
2" "Curve 23" "Curve 24" "Curve 25" "Curve 26" "Curve 27" "Curve 28" "
Curve 29" "Curve 30" "Curve 31" "Curve 32" "Curve 33" "Curve 34" "Curv
e 35" "Curve 36" "Curve 37" "Curve 38" "Curve 39" "Curve 40" "Curve 41
" "Curve 42" "Curve 43" "Curve 44" "Curve 45" "Curve 46" "Curve 47" "C
urve 48" "Curve 49" "Curve 50" "Curve 51" }}}}}{MARK "8 1" 0 }
{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }