{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 25 "restart: est:=(y-x^ 2)/x:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "mtaylor(est,[x=alp ha*beta,y=alpha*beta^2+alpha^2*beta^2],3):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 57 "subs(\{x=X+alpha*beta,y=Y+alpha*beta^2+alpha^2*beta ^2\},%):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "collect(%,[X,Y] ,simplify);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,***%%betaG!\"\",&%&alp haG\"\"\"F)F)F)F(!\"#%\"XG\"\"#F)*&,&*(%\"YGF)F(F*F%F*F&*&,&*&F,F)F(F) F)F)F)F)F(F&F&F)F+F)F)F%F)*(F0F)F(F&F%F&F)" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 62 "mtaylor(x/est,[x=alpha*beta,y=alpha*beta^2+alpha^2* beta^2],3):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "subs(\{x=X+a lpha*beta,y=Y+alpha*beta^2+alpha^2*beta^2\},%):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 26 "collect(%,[X,Y],simplify);" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#,,**%%betaG!\"#,(\"\"\"F(*&\"\"&F(%&alphaGF(F(*&\"\"% F()F+\"\"#F(F(F(F+!\"\"%\"XGF/F(*&,&*,F/F(F%!\"$,&*&F/F(F+F(F(F(F(F(F+ F0%\"YGF(F0*(F/F(F%F0,&F+F(F(F(F(F(F(F1F(F(F+F(*(F8F/F%!\"%F+F0F(*&F8F (F%F&F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "assume(alpha>0): assume(beta>0):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "f:=x^(al pha-1)*exp(-x/beta)/GAMMA(alpha)/beta^alpha:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "factor(int(f*(x-alpha*beta)^2,x=0..infinity));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&)%&beta|irG\"\"#\"\"\"%'alpha|irGF '" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "factor(int(f*(x^2-alph a*(1+alpha)*beta^2)^2,x=0..infinity));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*,\"\"#\"\"\")%&beta|irG\"\"%F&%'alpha|irGF&,&*&F%F&F*F&F&\"\" $F&F&,&F*F&F&F&F&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 73 "fact or(int(f*(x-alpha*beta)*(x^2-alpha*(1+alpha)*beta^2),x=0..infinity)); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$**\"\"#\"\"\")%&beta|irG\"\"$F&% 'alpha|irGF&,&F*F&F&F&F&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "12 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 } {PAGENUMBERS 0 1 2 33 1 1 }