{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 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 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 2 "Q1" }{MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "p:=exp(-3.6*12/60);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"pG$\"+gD_n[!#5" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 16 "P:=(1-p+p*z)^13;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"PG*$),&$\"+SuZK^!#5\"\"\"*&$\"+gD_n[F*F+%\"zGF+F+\"
#8F+" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 2 "a)" }{MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "mean:=eval(diff(P,z),z=1);" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%meanG$\"+G$zxK'!\"*" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "sqrt(eval(diff(P,z,z),z=1)+mean-mea
n^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+WF9-=!\"*" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 2 "b)" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 16 "prob:=expand(P);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%%probG,>$\"+$p]\\r\"!#8\"\"\"*&$\"+)HXV6#!#7F)%\"zGF)
F)*&$\"+Cw6.7!#6F))F.\"\"#F)F)*&$\"+9\"*p$=%F2F))F.\"\"$F)F)*&$\"+,!3$
>**F2F))F.\"\"%F)F)*&$\"+&\\.Lp\"!#5F))F.\"\"&F)F)*&$\"+Zj=T@FBF))F.\"
\"'F)F)*&$\"+o9lI?FBF))F.\"\"(F)F)*&$\"+lqOW9FBF))F.\"\")F)F)*&$\"+lM-
5wF2F))F.\"\"*F)F)*&$\"+**y'o)GF2F))F.\"#5F)F)*&$\"+CC$oY(F-F))F.\"#6F
)F)*&$\"+Z%G-=\"F-F))F.\"#7F)F)*&$\"+&))4+h)!#9F))F.\"#8F)F)" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "add(coeff(prob,z,i),i=0..8);
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+`#zH'))!#5" }}}{EXCHG {PARA 0 
"" 0 "" {TEXT -1 2 "c)" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 37 "add(1/i,i=1..13)/3.6*60;  #in minutes" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#$\"+EHA+`!\")" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 47 "sqrt(add(1./i^2,i=1..13))/3.6*60;   #in minutes" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+/<#*)3#!\")" }}}{EXCHG {PARA 0 "" 
0 "" {TEXT -1 2 "Q2" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 62 "restart: a:=17.4;  mu:=1./(12/60+41/3600);  i:=24:   \+
t:=7/60.;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"aG$\"$u\"!\"\"" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#muG$\"+3whIZ!\"*" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>%\"tG$\"+nmmm6!#5" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 14 "p:=exp(-t*mu);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%
\"pG$\"+Ra^ed!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "P:=exp(
a*(1-p)/mu*(z-1))*(1-p+p*z)^i;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"
PG*&-%$expG6#,&%\"zG$\"+8()3g:!\"*$\"+8()3g:F-!\"\"\"\"\"),&$\"+hX[TU!
#5F1*&$\"+Ra^edF6F1F*F1F1\"#CF1" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 2 
"a)" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "m
ean:=eval(diff(P,z),z=1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%meanG$
\"+wD0Q:!\")" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "sqrt(eval(d
iff(P,z,z),z=1)+mean-mean^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+k
eLCF!\"*" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 2 "b)" }{MPLTEXT 1 0 0 "
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "prob:=series(P,z,31);" 
}}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%%probG+]o%\"zG$\"+*=d[T#!#>\"\"!$
\"+i0IX#)!#=\"\"\"$\"+OaAa8!#;\"\"#$\"+y/aC9!#:\"\"$$\"+rn5y5!#9\"\"%$
\"+Cec^iF9\"\"&$\"+prK))G!#8\"\"'$\"+NLk\"4\"!#7\"\"($\"+OmyQMFD\"\")$
\"+Gt%H:*FD\"\"*$\"+7eiz?!#6\"#5$\"+&*4lkSFN\"#6$\"+\"Q1Q(oFN\"#7$\"+.
4;55!#5\"#8$\"+Px8%H\"FX\"#9$\"+<]d[9FX\"#:$\"+<#>)=9FX\"#;$\"+$Hsr@\"
FX\"#<$\"+B\"=4:*FN\"#=$\"+M\"*eJgFN\"#>$\"+v!Go[$FN\"#?$\"+K74p<FN\"#
@$\"+7Kt')yFD\"#A$\"+K&4_4$FD\"#B$\"+hRKs5FD\"#C$\"+Ni_\"H$F@\"#D$\"+e
+!>**)F9\"#E$\"+$f!Q(>#F9\"#F$\"+\\Z!*H[F5\"#G$\"+A'pEg*F1\"#H$\"+%GPl
t\"F1\"#I-%\"OG6#F.\"#J" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "
1-add(coeff(prob,z,k),k=0..20);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"
*IA#>I!#5" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 2 "c)" }{MPLTEXT 1 0 0 "
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "P:=exp(-a/mu);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"PG$\"+Of#p_#!#6" }}}{EXCHG {PARA 
0 "" 0 "" {TEXT -1 2 "Q3" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 65 "restart: c:=3;  lambda:=2.3;  mu:=1./(1+12/60);   \+
rho:=lambda/mu;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"cG\"\"$" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'lambdaG$\"#B!\"\"" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#>%#muG$\"+LLLL$)!#5" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#>%$rhoG$\"++++gF!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "
G:=add(rho^k/k!,k=0..c-1)+rho^c/c!/(1-rho/c);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"GG$\"++++P^!\")" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 
-1 2 "a)" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
29 "rho^c/c!/G*rho/c/(1-rho/c)^2;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$
\"+*[-c!)*!\"*" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 2 "b)" }{MPLTEXT 1 
0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "add(rho^k/k!,k=0..
3)/G;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+2!=b:#!#5" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 2 "c)" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 6 "rho/c;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"
+++++#*!#5" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 2 "d)" }{MPLTEXT 1 0 0 
"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "1-add(rho^k/k!,k=0..2)
/G;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+i3hE&)!#5" }}}{EXCHG {PARA 
0 "" 0 "" {TEXT -1 2 "Q4" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 39 "restart: lambda:=n->15*(1-(n/(n+1))^2);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%'lambdaGf*6#%\"nG6\"6$%)operatorG%&arrowGF
(,&\"#:\"\"\"*(F-F.9$\"\"#,&F0F.F.F.!\"#!\"\"F(F(F(" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 15 "mu:=n->60/12.:\n" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 44 "paux:=n->product(lambda(k-1)/mu(k),k=1..n);\n" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%pauxGf*6#%\"nG6\"6$%)operatorG%&ar
rowGF(-%(productG6$*&-%'lambdaG6#,&%\"kG\"\"\"F5!\"\"F5-%#muG6#F4F6/F4
;F59$F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "S:=sum(paux(
n),n=0..infinity);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"SG$\"+nRL.
)*!\")" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 2 "a)" }{MPLTEXT 1 0 0 "" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "1-paux(0)/S;" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#$\"+')Q*z*)*!#5" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 2 "b)" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 37 "mean:=sum(paux(n)*n,n=0..infinity)/S;" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%%meanG$\"+#)e&*Ha!\"*" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 46 "sqrt(sum(paux(n)*n^2,n=0..infinity)/S-mean^2);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+b!p)oC!\"*" }}}{EXCHG {PARA 0 "" 
0 "" {TEXT -1 2 "Q5" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 
"lambda:=[0,4.3,4,3.7,3.1,0]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 28 "mu:=[0,2.9,3.1,3.6,4.2,4.9]:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 
-1 2 "a)" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
8 "w(0):=0:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "w(1):=add(pr
oduct(lambda[k]/mu[k],k=2..n-1)/mu[n],n=2..6);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>-%\"wG6#\"\"\"$\"+&Hx*=@!\"*" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 106 "for k to 4 do w(k+1):=evalf((1+mu[k+1]/lambda[k
+1])*w(k)-mu[k+1]/lambda[k+1]*w(k-1)-1/lambda[k+1]) end do;" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>-%\"wG6#\"\"#$\"+mo\\:L!\"*" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>-%\"wG6#\"\"$$\"+L&*z#*R!\"*" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>-%\"wG6#\"\"%$\"+_k_\"Q%!\"*" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>-%\"wG6#\"\"&$\"+'33ce%!\"*" }}}}{MARK "25 0 0" 0 }
{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }