home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 2002 July 1 / VMAG130101.iso / ONLINE / monthly / calc / CLPCA511.LZH / ClipCalc / EXTFUNC / gamma.cef < prev    next >
Encoding:
Text File  |  2002-08-18  |  174 b   |  10 lines
  1. #!/usr/local/bin/clip
  2. #âKâôâ}è╓Éö gamma function
  3. #\!- <val>
  4. :float \16
  5.  
  6. if @0 < 0
  7.     return !pi / (sin (!pi * @0) * exp (!loggamma (1 - @0)))
  8. endif
  9. exp (!loggamma @0)
  10.