{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 Output" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 
0 1 2 2 2 2 2 2 1 1 1 1 }1 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple P
lot" -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 11 "\"binomial\":" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "f:=binomial(n,i)*p^i*q^(n-i)
;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fG*(-%)binomialG6$%\"nG%\"iG
\"\"\")%\"pGF*F+)%\"qG,&F)F+F*!\"\"F+" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 14 "sum(f,i=0..n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 21 "simplify(%,symbolic):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 14 "subs(q=1-p,%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"\"" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "sum(i*f,i=0..n):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "simplify(%,symbolic):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "subs(q=1-p,%);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#*&%\"nG\"\"\"%\"pGF%" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 18 "sum(i^2*f,i=0..n):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 21 "simplify(%,symbolic):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 14 "subs(q=1-p,%):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 18 "factor(%-n^2*p^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*(%\"n
G\"\"\"%\"pGF&,&!\"\"F&F'F&F&F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 23 "n:=20: p:=1./6: q:=5/6:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 15 "sum(f,i=4..12);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+k__MV!#
5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}{PARA 
7 "" 1 "" {TEXT -1 50 "Warning, the name changecoords has been redefin
ed\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "pointplot([seq([i,f
],i=0..20)]);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6
#-%'POINTSG677$$\"\"!F($\"+I`S3E!#67$$\"\"\"F($\"+K@OV5!#57$$\"\"#F($
\"+_!)Q#)>F17$$\"\"$F($\"+ic')yBF17$$\"\"%F($\"+9e.A?F17$$\"\"&F($\"+@
H5%H\"F17$$\"\"'F($\"+0Y^qkF+7$$\"\"(F($\"+We?)e#F+7$$\"\")F($\"+#**o;
T)!#77$$\"\"*F($\"+K<6VAFU7$$\"#5F($\"+5e%[$\\!#87$$\"#6F($\"+IpWs*)!#
97$$\"#7F($\"+Sq'eM\"F`o7$$\"#8F($\"+U<Xc;!#:7$$\"#9F($Fjo!#;7$$\"#:F(
$\"+%Rh^K\"!#<7$$\"#;F($\"+9(eAG)!#>7$$\"#<F($\"+8N`(*Q!#?7$$\"#=F($\"
+Qy<*H\"!#@7$$\"#>F($\"+Q76NF!#B7$$\"#?F($\"+R76NF!#D" 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 45 "with(stats):   random[binomiald[20,1/6]](50
);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6T\"\"$\"\"#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'F%F%F$\"\"!F&F%F$F%
F$\"\")F#F%F#F$F'F*F&F#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "
\"poisson\":" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "f:=lambda^i
/i!*exp(-lambda);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fG*()%'lambda
G%\"iG\"\"\"-%*factorialG6#F(!\"\"-%$expG6#,$F'F-F)" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 21 "sum(f,i=0..infinity):" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 12 "simplify(%);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "sum(i*f,i=0
..infinity):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "simplify(%)
;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%'lambdaG" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 25 "sum(i^2*f,i=0..infinity):" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 21 "simplify(%-lambda^2);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#%'lambdaG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 
"lambda:=2.4:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "sum(f,i=5.
.infinity);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+U!foe*!#6" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "pointplot([seq([i,f],i=0..9)
]);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6#-%'POINTS
G6,7$$\"\"!F($\"+H`zr!*!#67$$\"\"\"F($\"+z3Bx@!#57$$\"\"#F($\"+bqn7EF1
7$$\"\"$F($\"+W;9!4#F17$$\"\"%F($\"+')\\3a7F17$$\"\"&F($\"+Mzg>gF+7$$
\"\"'F($\"+uJ%yS#F+7$$\"\"(F($\"+4BYb#)!#77$$\"\")F($\"+%pQmZ#FP7$$\"
\"*F($\"+Z)pVg'!#8" 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 25 "
random[poisson[2.4]](50);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6T\"\"%\"\"
$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$F&F(F(F%F&F$F(F&F$F&F#F)F$F&F$F&" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 55 "restart: \"Negative Binomial\": with(plots): w
ith(stats):" }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changeco
ords has been redefined\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
33 "f:=binomial(i-1,k-1)*p^k*q^(i-k);" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#>%\"fG*(-%)binomialG6$,&%\"iG\"\"\"F+!\"\",&%\"kGF+F+F,F+)%\"pGF.F+
)%\"qG,&F*F+F.F,F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "sum(f
,i=k..infinity):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "simplif
y(subs(q=1-p,%),symbolic);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"\"" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "sum(i*f,i=k..infinity):" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "simplify(subs(q=1-p,%),sy
mbolic);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&%\"kG\"\"\"%\"pG!\"\"" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "sum(i^2*f,i=k..infinity):
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "simplify(subs(q=1-p,%)-
k^2/p^2,symbolic);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*(%\"kG\"\"\",
&!\"\"F&%\"pGF&F&F)!\"#F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
23 "k:=4: p:=1./6:  q:=5/6:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
22 "sum(f,i=20..infinity);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+XN')
pg!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "pointplot([seq([i,
f],i=4..80)]);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "
6#-%'POINTSG6io7$$\"\"%\"\"!$\"+*Q\\gr(!#87$$\"\"&F)$\"+jk,sD!#77$$\"
\"'F)$\"+JwOe`F27$$\"\"(F)$\"+?FhI*)F27$$\"\")F)$\"+@5Q-8!#67$$\"\"*F)
$\"+H!3lt\"FB7$$\"#5F)$\"+O]jq@FB7$$\"#6F)$\"+G$*3%e#FB7$$\"#7F)$\"+)o
N4'HFB7$$\"#8F)$\"+W&G**G$FB7$$\"#9F)$\"+b#*3kNFB7$$\"#:F)$\"+lY4!y$FB
7$$\"#;F)$\"+4')fPRFB7$$\"#<F)$\"+wEcQSFB7$$\"#=F)$\"+.3k'3%FB7$$\"#>F
)$\"+-3k'3%FB7$$\"#?F)$\"+G;2WSFB7$$\"#@F)$\"+0hxkRFB7$$\"#AF)$\"+PMka
QFB7$$\"#BF)$\"+*y#R>PFB7$$\"#CF)$\"+!4=Wc$FB7$$\"#DF)$\"+%*Qo%R$FB7$$
\"#EF)$\"+yFm9KFB7$$\"#FF)$\"+;bIGIFB7$$\"#GF)$\"+@k.RGFB7$$\"#HF)$\"+
Ftw\\EFB7$$\"#IF)$\"+fZ#HY#FB7$$\"#JF)$\"+))e[!G#FB7$$\"#KF)$\"+=(>S5#
FB7$$\"#LF)$\"+v2tM>FB7$$\"#MF)$\"+6K]t<FB7$$\"#NF)$\"+&zV4i\"FB7$$\"#
OF)$\"+IFUx9FB7$$\"#PF)$\"+s:6V8FB7$$\"#QF)$\"+Zy,=7FB7$$\"#RF)$\"+[h,
-6FB7$$\"#SF)$\"+!*ov[**F27$$\"#TF)$\"+WS%G'*)F27$$\"#UF)$\"+'\\(pe!)F
27$$\"#VF)$\"+?W;KsF27$$\"#WF)$\"+fR\")ykF27$$\"#XF)$\"+k71%z&F27$$\"#
YF)$\"+%)*oK<&F27$$\"#ZF)$\"+S*G=h%F27$$\"#[F)$\"+=lA0TF27$$\"#\\F)$\"
+R-4\\OF27$$\"#]F)$\"+a'G#RKF27$$\"#^F)$\"+3mlrGF27$$\"#_F)$\"+AEhUDF2
7$$\"#`F)$\"+')*o&[AF27$$\"#aF)$\"+PfB')>F27$$\"#bF)$\"+@6c_<F27$$\"#c
F)$\"+Z`sW:F27$$\"#dF)$\"+Eb8g8F27$$\"#eF)$\"+4bT'>\"F27$$\"#fF)$\"+Za
R^5F27$$\"#gF)$\"+%p,5B*F,7$$\"#hF)$\"+2*pt4)F,7$$\"#iF)$\"+?G$o4(F,7$
$\"#jF)$\"+11u9iF,7$$\"#kF)$\"+I!)*yV&F,7$$\"#lF)$\"+kjWaZF,7$$\"#mF)$
\"+%=]P:%F,7$$\"#nF)$\"+V)*GEOF,7$$\"#oF)$\"+],cjJF,7$$\"#pF)$\"+:b(zv
#F,7$$\"#qF)$\"+*p\"y-CF,7$$\"#rF)$\"+;T(>4#F,7$$\"#sF)$\"+wDA?=F,7$$
\"#tF)$\"+TA!Ge\"F,7$$\"#uF)$\"+=0`v8F,7$$\"#vF)$\"+0'4Z>\"F,7$$\"#wF)
$\"+5V2P5F,7$$\"#xF)$\"+^$[u**)!#97$$\"#yF)$\"+x9%=!yFfbl7$$\"#zF)$\"+
YffhnFfbl7$$\"#!)F)$\"+3U3deFfbl" 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 36 "random[negativebinomial[4,1/6]](50);" }}{PARA 12 "" 
1 "" {XPPMATH 20 "6T\"#9\"#=\"#?\"#E\"\"&\"#D\"#@F&\"#7\"#8\"#GF'\"\"(
\"#U\"#H\"#<\"#A\"#P\"#T\"\"*F4\"#;\"#>F+\"#6\"#B\"#JF8F+F,F&F1F#\"\"#
F-F1F4F8F4\"#aF0F&F$F7\"#I\"#b\"\")F#F,F1" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 17 "\"hypergeometric\":" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 49 "f:=binomial(K,i)*binomial(N-K,n-i)/binomial(N,n);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fG*(-%)binomialG6$%\"KG%\"iG\"\"\"
-F'6$,&%\"NGF+F)!\"\",&%\"nGF+F*F0F+-F'6$F/F2F0" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 19 "N:=52: K:=4: n:=13:" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 24 "sum(i*f,i=0..4);  n*K/N;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"\"" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "sum((i-1)^2*f,i=0..4);   n*K
/N*(N-K)/N*(N-n)/(N-1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6##\"#7\"#<" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6##\"#7\"#<" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 31 "pointplot([seq([i,f],i=0..4)]);" }}{PARA 13 "" 1 "
" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6#-%'POINTSG6'7$$\"\"!F($\"+q_<QI
!#57$$\"\"\"F($\"+!Rv%)Q%F+7$$\"\"#F($\"+uR$\\8#F+7$$\"\"$F($\"+>![+7%
!#67$$\"\"%F($\"+Bk0TE!#7" 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 0 "
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "47 0 0" 0 }
{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }