{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 }} {SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 2 "Q1" }{MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "PGF:=(1-37/60*12.3*(z-1))^(- 3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$PGFG*&\"\"\"F&*$),&$\"++++&e )!\"*F&*&$\"++++&e(F,F&%\"zGF&!\"\"\"\"$F&F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "mu:=eval(diff(PGF,z),z=1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#muG$\"+++]vA!\")" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "sqrt(eval(diff(PGF,z,z),z=1)+mu-mu^2);" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#$\"+OEo(R\"!\")" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "1-eval(mtaylor(PGF,z,24),z=1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+'fRk-%!#5" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 2 "Q2 " }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "rest art: with(linalg):" }}{PARA 7 "" 1 "" {TEXT -1 80 "Warning, the protec ted names norm and trace have been redefined and unprotected\n" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 84 "A:=matrix([[9,0,23,18,10,14] ,[33,11,0,20,0,25],[41,0,27,0,9,30],[20,14,7,30,0,23]]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "A:=stackmatrix(matrix([[0,0,0,0,0,0 ]]),A,matrix([[0,0,0,0,0,0]])):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "for i to 6 do A[i,i]:=-add(A[i,j],j=1..6) end do:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "exp(-8.9*19/60);" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#$\"+!)o`qf!#6" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "Re(exponential(A*.1,19./60.)[3,3]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+wOD(p)!#6" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "Re(exponential(A*1.,2)[3,6]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #$\"+eSA&R%!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "assume(t: :real):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "F:=Re(exponentia l(A*.1,t)[3,1]+exponential(A*.1,t)[3,6]);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%\"FG,.*($\"+K3777!#5\"\"\"-%$expG6#,$*&$\"+W6ZM#*!\"* F*%#t|irGF*!\"\"F*-%$sinG6#,$*&$\"+=[:I9F)F*F3F*F*F*F**&$\")$zFM\"!#!)F)F*-F,6#,$*&$\"+>Z*y6&F2F*F3F*F4F*F4*($\"+X\"o;S#F )F*F+F*-%$cosGF7F*F4*&$\"+XY,4U!#6F*-F,6#,$*&$\"+*H;8G\"!\")F*F3F*F4F* F*$\"+$*********F)F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 184 "F: =.1212120838*exp(-9.234471144*t)*sin(.1430154818*t)+.9999999993-.24016 68156*exp(-9.234471144*t)*cos(.1430154818*t)+.4209014645e-1*exp(-12.81 316299*t)-.8019233313*exp(-5.117894719*t):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 35 "mu:=int(diff(F,t)*t,t=0..infinity);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#muG$\"+TL.#z\"!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "sqrt(int(diff(F,t)*(t-mu)^2,t=0..infinity));" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+$esy%=!#5" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 2 "Q3" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "L:=n->15.3*.79^max(0,n-2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "M:=n->60/(4+46/60.)*min(n,2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "p:=n->product(L(i)/M(i+1),i=0..n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "S:=add(p(n),n=0..20):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "SUF:=(p(1)/S+2*(1-p(1)/S-p(0)/S))/2;" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%$SUFG$\"+)[;!*>%!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "PLC:=1-add(.79^max(0,n-2)*p(n)/S,n= 0..20);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$PLCG$\"*5(\\)R$!#5" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "add((n-2)*p(n)/S,n=3..20)/15 .3/(1-PLC);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+rqR%>\"!#6" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "L(0)*p(0)/S;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+07-2o!\"*" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 2 "Q4" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "restart: with(stats):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Z :=z->1-statevalf[cdf,normald](z):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "c:=5.7: a:=-1.3: x:=6: t:=158/60.: y:=3:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "Z((y-x)/sqrt(c*t))-Z((x+y-2* a)/sqrt(c*t));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+;Ze#z(!#5" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "Z((a-x)/sqrt(c*t))-Z((x-a)/s qrt(c*t))-Z((y-x)/sqrt(c*t))+Z((x+y-2*a)/sqrt(c*t));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+e$o?h\"!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "y:='y':" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 64 " f:=(exp(-(y-x)^2/2/c/t)-exp(-(y+x-2*a)^2/2/c/t))/sqrt(2*Pi*c*t):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "P:=2*Z((x-a)/sqrt(c*t)):" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "P*a^2+int(f*y^2,y=a..infini ty):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "%-x^2;" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#$\"+ " 0 "" {MPLTEXT 1 0 22 "restart: with(linalg):" }}{PARA 7 "" 1 "" {TEXT -1 80 "Warning, th e protected names norm and trace have been redefined and unprotected\n " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 94 "A:=matrix([[0,-1,-2,0,2 ],[13/3,8,10/3,8/3,-10],[2,2,5,0,-4],[1,1,2,1,-2],[8/3,4,8/3,4/3,-5]]) :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "eigenvalues(A);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6'\"\"$F#\"\"\"F$F$" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 140 "solve(\{c1+c2=A^0,3*c1+d1+c2+d2=A,9*c1+6*d1 +c2+2*d2+2*e2=A^2,27*c1+27*d1+c2+3*d2+6*e2=A^3,\n81*c1+108*d1+c2+4*d2+ 12*d2=A^4\},\{c1,c2,d1,d2,e2\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "assign(%):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "B:=evalm(c1*ln(3.)+d1/3+d2-e2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #>%\"BG-%'matrixG6#7'7'$!*ShI\\&!\"*$!*RhI\\&F,$!+yAh)4\"F,$\"\"!F2$\" +yAh)4\"F,7'$\"*gE.Q#!\")$\"+pH9XQF,$\"*Y?5$=F8$\"*P;[Y\"F8$F.F87'F3F3 $\"+fXA(>#F,F1$!*cCs>#F87'$\"*RhI\\&F,FFF3$!\"\"F,F/7'F=$\"*cCs>#F8F=$ \"*&=3CtF,$!+Jo$eH$F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "ex ponential(B);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7'7'$\"+D .RNB!#<$!+q'*******!#5$!+k******>!\"*$\"++!zya%!#=$\"+c******>F07'$\"+ 5KLLVF0$\"+%y*****zF0$\"+LKLLLF0$\"+'fmmm#F0$!+_(*******F07'$\"+]***** *>F0$\"+J******>F0$\"+L******\\F0$!+_+PG6F*$!+9******RF07'$\"+c(****** *F-$\"+q'*******F-$\"+k******>F0$\"+X********F-$!+c******>F07'$\"+3mmm EF0$\"+/******RF0$\"+7mmmEF0$\"+/LLL8F0$!+&))*****\\F0" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 2 "Q6" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 22 "restart: with(linalg):" }}{PARA 7 "" 1 "" {TEXT -1 80 "Warning, the protected names norm and trace have been red efined and unprotected\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "L:=[31,43,9,24,36]: M:=[32,40,13,26,17]:" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 71 "A:=matrix(6,6,0): for i to 5 do A[i,i+1]:=L[i]: A[ i+1,i]:=M[i] end do:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "for i to 6 do A[i,i]:= -add(A[i,j],j=1..6) end do:" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 24 "s:=exponential(A*1.,10);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"sG-%'matrixG6#7(7($\"*xlBs\"!\"*$\"*$>ao;F,$\"*W#o$ z\"F,$\"+h,yT7!#5$\"+7'ei9\"F3$\"+$=rtU#F37($\"*tlBs\"F,$\"*)=ao;F,$\" *S#o$z\"F,$\"+e,yT7F3$\"+:'ei9\"F3$\"+\"=rtU#F37($\"+-dOA " 0 "" {MPLTEXT 1 0 42 "for i to 6 do A[1,i]:=0: A[6 ,i]:=0 end do:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "exponenti al(A*1.,10)[3,6];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"*n([V@!\"*" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "1/(-A[3,3])/s[3,3]-1/(-A[3, 3]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+Vf)pL*!#6" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 2 "Q7" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "re start:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "g(t+int((1-ln(z)) /z^2,z))*exp(-int(1/z,z)); # g(x)=1/x" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&-%\"gG6#,&%\"tG\"\"\"*&%\"zG!\"\"-%#lnG6#F+F)F)F)F+F," }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 2 "Q8" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 21 "restart: with(stats):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Z:=z->1-statevalf[cdf,normald](z):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "c:=5.7: x1:=2.3: x2:=-.9: t1:=0: t2:=2. 5:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "Z((0-x2)/sqrt(c*0.5)) ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+xLxpH!#5" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 75 "t:=2: M:=(x2*(t-t1)+x1*(t2-t))/(t2-t1): s: =sqrt(c*(t-t1)*(t2-t)/(t2-t1)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "Z((0-M)/s);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+;RW;V!#5" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "evalf(2/Pi*arccos(sqrt(.5/ 1.25)));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+o@%4k&!#5" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 2 "Q9" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "L:=12: M:=14: a:=5:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "E:=exp((M-L)*t): r:=M*(1-E)/(L-M*E): p:=(L-M)*E/(L-M *E):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "PGF:=(r+(1-r)*z*p/( 1-(1-p)*z))^17*(p/(1-(1-p)*z))^(a/L):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "1-eval(mtaylor(eval(PGF,t=1.),z,13),z=1.);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+t(e\"35!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "eval(r,t=2.)^17-eval(r,t=1.)^17;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+uf0\"p#!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "q:=14/26: simplify(sum(q^i*5^i/i!,i=0..infinity)*exp(-5.));" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+[!e!\\**!#6" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 3 "Q10" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "p:=(1-L/M): evalf(p^(a/L)*a);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+L2_AA!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "evalf(a/M);exp(a/M*(z-1));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$ \"+r&G9d$!#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%$expG6#,&*(\"\"&\"\" \"\"#9!\"\"%\"zGF)F)#F(F*F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 75 "evalf(simplify(limit(p/(1-(1-p)*z),t=infinity))^(a/L)); 6/7.; 1./7 ^(5/12.);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*$),$*&$\"\"\"\"\"!F(,&$ \"\"(F)!\"\"*&$\"\"'F)F(%\"zGF(F(F-F-#\"\"&\"#7F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+r&G9d)!#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+l9 /XW!#5" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 3 "Q11" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "G:=piecewise(t<2*Pi,0,t<3*Pi,(1-cos(t))/2 ,1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "L:=7.2:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "p:=evalf(int(1-G,t=0..15)/15):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "Lx:=L*15*p: Ly:=L*15*(1-p): sum(Lx^i/i!*Ly^i/i!,i=0..infinity)*exp(-Lx-Ly);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+3xP4M!#6" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "p:=eval(G,t=7.): sum((L/3*p)^i/i!,i=0..infinity)*exp(-L/3);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+9M%)=7!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "Linf:=L*evalf(int(1-G,t=0..infinity));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%LinfG$\"+xn'[l&!\")" }}}}{MARK "77 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }