{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 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 62 "r:=mu*(1-exp(-(lambd a-mu)*t))/(lambda-mu*exp(-(lambda-mu)*t)):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 67 "p:=(lambda-mu)*exp(-(lambda-mu)*t)/(lambda-mu*exp(- (lambda-mu)*t)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "PGF:=(r +(1-r)*p*z/(1-(1-p)*z))^i*(p/(1-(1-p)*z))^(a/lambda):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "lambda:=7.04: mu:=8.12: a:=2.34:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "i:=11: t:=(91-38)/60.:" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "M:=subs(z=1,diff(PGF,z)); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"MG$\"+%[T#pb!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "sqrt(subs(z=1,diff(PGF,z,z))+M-M^2) ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+kx]vl!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "aux:=taylor(PGF,z,20):" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 30 "1-add(coeff(aux,z,i),i=0..13);" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#$\"+ra]`6!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "T:=1/mu*add(1/i,i=1..11)*60;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"TG$\"+jkVJA!\")" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "(T-22)*60;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\")y=' )=!\"'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "S:=1/mu*sqrt(add( 1./i^2,i=1..11))*60;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"SG$\"+7%QK A*!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "(S-9)*60;" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#$\"*ZI%R8!\"(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "t:='t': F:=r^11:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "M:=evalf(Int(diff(F,t)*t,t=0..20)): M*60; (%-77)*60; " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+-'*=Nx!\")" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#$\")hP6@!\"'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "sqrt(evalf(Int(diff(F,t)*(t-M)^2,t=0..20)))*60; (%-56)*60;" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+\"*f50c!\")" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"(&fjI!\"'" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 2 "Q2 " }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "pt:= exp(-mu*t): P:=exp(a*(1-pt)/mu*(z-1)): t:=(91-38)/60.:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "M:=eval(diff(P,z),z=1.);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"MG$\"+*Gi&zG!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "sqrt(eval(diff(P,z,z),z=1.)+M-M^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+<`:m`!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "i:=0:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "M: =eval(diff(PGF,z),z=1.);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"MG$\"+ UG2K8!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "sqrt(eval(diff (PGF,z,z),z=1.)+M-M^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+a(HFe#! \"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "eval(P,z=0);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+3T%z\\(!#5" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 54 "t:='t':eval(limit(PGF,t=infinity),z=0);t:=(91- 38)/60.:" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+&p#H9^!#5" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 2 "Q3" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 7 "L:=a*t:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "1-add(L^i/i!,i=0..4)*exp(-L);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"*WU+*e!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "exp(-L)*sum(L^j/j!*(mu/(mu+lambda))^j,j=0..infinity);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+AQTHQ!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 95 "aux1:=taylor((r+(1-r)*p*z/(1-(1-p)*z))^i,z,60): aux2 :=taylor((p/(1-(1-p)*z))^(a/lambda),z,60):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 45 "add(coeff(aux1,z,i)*coeff(aux2,z,i),i=0..59);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+Mw*R&e!#5" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 2 "Q4" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 82 "g(t+int((z*cos(z)-sin(z))/z^2,z)); # where g(x)=1/x^2, getting z^2/ (z*t+sin z)^2" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%\"gG6#,&%\"tG\"\"\" *&-%$sinG6#%\"zGF(F-!\"\"F(" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 2 "Q5 " }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 96 "g(t+ int((1-z)*exp(z)/z^2,z))*exp(-int((1-z)*exp(z)/z^2,z)); # where g(x)= exp(x), getting exp(t)" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&-%\"gG6#,& %\"tG\"\"\"*&-%$expG6#%\"zGF)F.!\"\"F/F)-F,6#F*F)" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "36 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }