{VERSION 2 3 "SGI IRIS UNIX" "2.3" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 
0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 
0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 
{CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 
0 0 0 0 -1 0 }{PSTYLE "Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 
0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "" 0 "" {TEXT 
-1 92 "The gamma function is defined as GAMMA(z) =  int( exp(-t)*t^(z-
1), t=0..infinity ).  For the" }}{PARA 0 "" 0 "" {TEXT -1 92 "special \+
cases when z is a positive integer, GAMMA(z) = (z-1)!  [factorial].  O
ften one needs" }}{PARA 0 "" 0 "" {TEXT -1 103 "to evaluate integrals \+
of powers of t times exp(-t).  If the limits are from 0 to infinity, t
his is made" }}{PARA 0 "" 0 "" {TEXT -1 84 "easy with the GAMMA functi
on, and when the powers of t are integral, the answer is a" }}{PARA 0 
"" 0 "" {TEXT -1 10 "factorial." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "GAMMA(1);" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "G
AMMA(2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"\"" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 9 "GAMMA(3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6
#\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "GAMMA(4);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"'" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 9 "GAMMA(5);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#C" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "GAMMA(6);" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#\"$?\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "
GAMMA(10);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"'!)GO" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "GAMMA(20);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#\"3+?$)3/5X;7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 30 "plot(log10(GAMMA(x)),x=0..10);" }}{PARA 13 "" 1 "" {INLPLOT "6%-
%'CURVESG6$7S7$$\"+;arz@!#5$\"+#R]NA'F*7$$\"+\"y%*z7$F*$\"+&QR&oXF*7$$
\"+XTFwSF*$\"+)p*)fP$F*7$$\"+\"z_\"4iF*$\"++p&Hf\"F*7$$\"+S&phN)F*$\"+
(*f5t^!#67$$\"+*=)H\\5!\"*$!+wP-^6FA7$$\"+[!3uC\"FE$!+=I6UUFA7$$\"+J$R
DX\"FE$!+./Mu_FA7$$\"+)R'ok;FE$!+&fR!fWFA7$$\"+1J:w=FE$!+O&4M0#FA7$$\"
+3En$4#FE$\"+#='\\S=FA7$$\"+/RE&G#FE$\"+7T\"\\J'FA7$$\"+D.&4]#FE$\"+L]
ER7F*7$$\"+vB_<FFE$\"+QKL\\>F*7$$\"+v'Hi#HFE$\"+v.P>FF*7$$\"+(*ev:JFE$
\"+$RDb[$F*7$$\"+347TLFE$\"+(46IZ%F*7$$\"+LY.KNFE$\"+o>(*p`F*7$$\"+\"o
7Tv$FE$\"+)p!HykF*7$$\"+$Q*o]RFE$\"+fj,9vF*7$$\"+\"=lj;%FE$\"+WL(eq)F*
7$$\"+V&R<P%FE$\"+\")Hy\"*)*F*7$$\"+Xh-'e%FE$\"+4.$z6\"FE7$$\"+R\"3Gy%
FE$\"+20XS7FE7$$\"+.T1&*\\FE$\"+]Q)pP\"FE7$$\"+(RQb@&FE$\"+aFRB:FE7$$
\"+=>Y2aFE$\"+q=[a;FE7$$\"+yXu9cFE$\"+8zq*z\"FE7$$\"+\\y))GeFE$\"+M$fN
&>FE7$$\"+i_QQgFE$\"+u4o2@FE7$$\"+!y%3TiFE$\"+X22gAFE7$$\"+O![hY'FE$\"
+I?!HV#FE7$$\"+#Qx$omFE$\"+d5M\"f#FE7$$\"+u.I%)oFE$\"+k$yOw#FE7$$\"+(p
e*zqFE$\"+)RyD#HFE7$$\"+C\\'QH(FE$\"+$e\"=*4$FE7$$\"+8S8&\\(FE$\"+>&>!
oKFE7$$\"+0#=bq(FE$\"+Wp=ZMFE7$$\"+2s?6zFE$\"+i<$\\i$FE7$$\"+IXaE\")FE
$\"+=dm8QFE7$$\"+l*RRL)FE$\"+XG$z*RFE7$$\"+`<.Y&)FE$\"+-_$))=%FE7$$\"+
8tOc()FE$\"+-@b!Q%FE7$$\"+\\Qk\\*)FE$\"+:3xeXFE7$$\"+p0;r\"*FE$\"+hdQl
ZFE7$$\"+lxGp$*FE$\"+3lE_\\FE7$$\"+!oK0e*FE$\"+;Xj`^FE7$$\"+<5s#y*FE$
\"+yrO[`FE7$$\"#5\"\"!$\"+LIwfbFE-%'COLOURG6&%$RGBG$Ffz!\"\"FgzFgz-%+A
XESLABELSG6$%\"xG%!G-%%VIEWG6$;FgzFez%(DEFAULTG" 2 374 374 374 2 0 1 
0 2 9 0 4 2 1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 30 "plot(log10(GAMMA(x)),x=-2..1);" }}{PARA 13 "" 1 "" {INLPLOT "6
%-%'CURVESG6$7N7$$!+Q&3Y$>!\"*$\"+YVWB\"*!#57$$!+d,;1>F*$\"+WdM(p(F-7$
$!+w<rx=F*$\"+,_E+nF-7$$!+;as8=F*$\"+g`%\\D&F-7$$!+9\\J\\<F*$\"+!fEfS%
F-7$$!+V0@&o\"F*$\"+\"z()[\"RF-7$$!+'exdi\"F*$\"+YBy#o$F-7$$!+,#QUc\"F
*$\"+1SmBOF-7$$!+\"3%f+:F*$\"+J(HLt$F-7$$!+oS:P9F*$\"+ks+3SF-7$$!+=#)*
=P\"F*$\"+8V5qWF-7$$!+H3U98F*$\"+7t<[]F-7$$!+.\\r\\7F*$\"+F)R*QfF-7$$!
+)GVZ=\"F*$\"+,!oc>(F-7$$!+)4J@7\"F*$\"+\"=*>%**)F-7$$!+JKFl5F*$\"+m\"
Rd<\"F*7$%%FAILGFdp7$$\"':K^F*$\"+*4s&*G$F*7$$\"+jI\\PD!#7$\"+J8'\\f#F
*7$$\"+D6xhXF]q$\"+t.tRBF*7$$\"+)=\\ge'F]q$\"+t%R(z@F*7$$\"+]sK5')F]q$
\"+j#[G1#F*7$$\"+Q$))eE\"!#6$\"+T\")[%*=F*7$$\"+]Ruq;Fbr$\"+f2+t<F*7$$
\"+v^X![#Fbr$\"+HxY*f\"F*7$$\"++k;!H$Fbr$\"+,\\\"\\Z\"F*7$$\"+]))e4\\F
br$\"+'[)[(H\"F*7$$\")8,HlF*$\"+&zh-<\"F*7$$\"++h)QY*Fbr$\"+qnE.5F*7$$
\"*4w)R7F*$\"+s4D2))F-7$$\"*y%f\")=F*$\"+()[@**oF-7$$\"*/-a[#F*$\"+*)=
p?cF-7$$\"*ial6$F*$\"+*HC_e%F-7$$\"*j@Ot$F*$\"+T'>zw$F-7$$\"*fL'zVF*$
\"+5(*>fIF-7$$\"*!*>=+&F*$\"+:y>%[#F-7$$\"*E&4QcF*$\"+S2N#)>F-7$$\"*%>
5piF*$\"+8!Q]b\"F-7$$\"*bJ*[oF*$\"+mjR97F-7$$\"*r\"[8vF*$\"+iA!\\w)Fbr
7$$\"*Ijy5)F*$\"+1YedhFbr7$$\"*/)fT()F*$\"+-];ePFbr7$$\"*1j\"[$*F*$\"+
'>Y3z\"Fbr7$$\"\"\"\"\"!F\\y-%'COLOURG6&%$RGBG$\"#5!\"\"F\\yF\\y-%+AXE
SLABELSG6$%\"xG%!G-%%VIEWG6$;$!\"#F\\yFjx%(DEFAULTG" 2 374 374 374 2 
0 1 0 2 9 0 4 2 1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 0 
0 0 0 0 0 1 1 0 0 0 3 4124 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 31 "plot(log10(GAMMA(x)),x=-4..-2);" }}{PARA 13 "" 1 "" 
{INLPLOT "6%-%'CURVESG6$7>7$$!+#p0k&R!\"*$\"+CI395!#67$$!+0,WPRF*$!+zM
wH8!#57$$!+<XZ=RF*$!+5vTPBF37$$!+Wp\"e(QF*$!+tL?FQF37$$!+4m(G$QF*$!+8%
G:v%F37$$!+i.9!z$F*$!+e5!4N&F37$$!+!R=0v$F*$!+]/+<dF37$$!+M@\\4PF*$!+T
#\\V&fF37$$!+?F1nOF*$!+9OozgF37$$!+z$pZi$F*$!+TYI.hF37$$!+yaE\"e$F*$!+
yEcNgF37$$!+>s%Ha$F*$!+/[L0fF37$$!+N*4)*\\$F*$!+:mz$o&F37$$!+Db\\cMF*$
!+-2(GQ&F37$$!+lSv9MF*$!+vC2<]F37$$!+?)[oP$F*$!+$z8ph%F37$$!+=exJLF*$!
+i*>([SF37$$!+tIf$H$F*$!+k:1yMF37$$!+ku<\\KF*$!+NyL!p#F37$$!+B@')4KF*$
!+#\\2I&=F37$$!+kpsmJF*$!+=ZXvsF-7$$!+\"4_c7$F*$\"+:A\"4X'F-7$$!+KMA/J
F*$\"+=%=:a\"F37$$!+rZz#3$F*$\"+==oJEF37$$!+sl6jIF*$\"+?Cz)*QF37$$!+s$
QM/$F*$\"+(z9^h&F37$$!+zr)4+$F*$\"+Z\\\"pA#F*7$%%FAILGF\\t-%'COLOURG6&
%$RGBG$\"#5!\"\"\"\"!Fdt-%+AXESLABELSG6$%\"xG%!G-%%VIEWG6$;$!\"%Fdt$!
\"#Fdt%(DEFAULTG" 2 374 374 374 2 0 1 0 2 9 0 4 2 1.000000 45.000000 
45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "plot(GAMMA(x),x=-4..-2);
" }}{PARA 13 "" 1 "" {INLPLOT "6%-%'CURVESG6$7bo7$$!+#p0k&R!\"*$\"+t[i
B5F*7$$!+0,WPRF*$\"+J>Zit!#57$$!1+++<XZ=R!#:$\"1/\"GUZ@z$e!#;7$$!1+++W
p\"e(QF6$\"17*>kajE9%F97$$!1+++4m(G$QF6$\"1$oqYvv%[LF97$$!1+++i.9!z$F6
$\"1lqez<#o\"HF97$$!1+++!R=0v$F6$\"1>kz*Q>5o#F97$$!1+++M@\\4PF6$\"1pxN
B$H%QDF97$$!1+++?F1nOF6$\"1.?q&**=iY#F97$$!1+++z$pZi$F6$\"1VmV&yTGX#F9
7$$!1+++yaE\"e$F6$\"1[LLh:S\"\\#F97$$!1+++>s%Ha$F6$\"1=hJ)GSsc#F97$$!1
+++N*4)*\\$F6$\"1T'z%*e&f,FF97$$!1+++Db\\cMF6$\"1&pwj1Ha*GF97$$!1+++lS
v9MF6$\"1+A&o)3()\\JF97$$!1+++?)[oP$F6$\"1PRdV4*QX$F97$$!1+++=exJLF6$
\"1Hhct3mORF97$$!1+++tIf$H$F6$\"1*pHKGd%*[%F97$$!1+++ku<\\KF6$\"18.$\\
7zAQ&F97$$!1+++B@')4KF6$\"1zmJfTyElF97$$!1+++kpsmJF6$\"1/8\"\\6nvX)F97
$$!1+++\"4_c7$F6$\"1N(pWeO,;\"F67$$!1+++rZz#3$F6$\"1:!G$HT-L=F67$$!1++
+sl6jIF6$\"1#\\1_YESX#F67$$!1+++s$QM/$F6$\"1$)>(f!)QMk$F67$$!1+++ub#G.
$F6$\"1P8w+!\\,)[F67$$!1+++wF@AIF6$\"1Gwq5b9-tF67$$!1+++xj!p,$F6$\"1a6
%4[:_l*F67$$!1+++y**f6IF6$\"1OYpxsG;9!#97$$!1+++zn%*3IF6$\"1d#QPPrA%=F
ft7$$!1+++zNH1IF6$\"1%4F)z`]FEFft7$$!1+++!)p'\\+$F6$\"1i;dZluMLFft7$$!
1+++!QSO+$F6$\"1k`W1*zub%Fft7$$!1+++!y8B+$F6$\"14u$4-tB=(Fft7$$!1+++zr
)4+$F6$\"13LSfFA'o\"!#87$$!1+++;#4'**HF6$!1G:0#pDqE%Fev7$$!1+++_7B)*HF
6$!11s9TS'QW*Fft7$$!1+++)G`o*HF6$!1!*>bC(*e<`Fft7$$!1+++B`Z&*HF6$!12Or
uIh/PFft7$$!1+++&R>F*HF6$!1w$**4U-/J#Fft7$$!1+++lM'**)HF6$!193V(4A>o\"
Fft7$$!1+++3;X%)HF6$!1#Q#300Y$4\"Fft7$$!1+++](R*yHF6$!1bTTl#o88)F67$$!
1+++Ng\"z'HF6$!1\"Qnpc1nT&F67$$!1+++?B*o&HF6$!1_-Br/$G4%F67$$!1+++o**p
PHF6$!1\">AL&)G*4HF67$$!1+++;w]=HF6$!1j&HF+!R)G#F67$$!1+++%3^q(GF6$!1k
F)RDw%=;F67$$!1+++ICAMGF6$!1e?9$)yx!H\"F67$$!1+++ZHK#z#F6$!1&H8\">f]76
F67$$!1+++WIy^FF6$!1h-grT/35F67$$!1+++#Rqnq#F6$!1U:YPMh%Q*F97$$!1+++BX
KmEF6$!1%[hn1#RR!*F97$$!1+++D*RJi#F6$!1:ocZ>()))))F97$$!1+++g#3Se#F6$!
1QGg?y8:*)F97$$!1+++:qATDF6$!1DL<=Ca1\"*F97$$!1+++(>t4]#F6$!1r6L!e')HW
*F97$$!1+++fj*)eCF6$!1:T$)eM%=(**F97$$!1+++e&exT#F6$!1,yWhDTp5F67$$!1+
++%4\"puBF6$!1%et\\2lA<\"F67$$!1+++2?@LBF6$!1:#\\%G*4iI\"F67$$!1+++\\O
z!H#F6$!1.))=h&HH\\\"F67$$!1+++Pls[AF6$!1tW+el4_<F67$$!1+++I725AF6$!1Y
dHk]z#4#F67$$!1+++')ywl@F6$!1\"*4C^a)[p#F67$$!1+++ZC9E@F6$!12KO,$36h$F
67$$!1+++cz,0@F6$!1o**QcwI\"R%F67$$!1+++kM*Q3#F6$!1yAuW*oEd&F67$$!1+++
'zbM/#F6$!1*HwO:)R36Fft7$%%FAILGFaal-%'COLOURG6&%$RGBG$\"#5!\"\"\"\"!F
ial-%+AXESLABELSG6$%\"xG%!G-%%VIEWG6$;$!\"%Fial$!\"#Fial%(DEFAULTG" 2 
374 374 374 2 0 1 0 2 9 0 4 2 1.000000 45.000000 45.000000 0 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "1 4 0" 10 }{VIEWOPTS 1 1 0 1 1 
1803 }