| Gamma Function | 
Unit
QESBPCSMath
Declaration
Function Gamma(const X: Extended): Extended;
Description
Defined for all values of X except negative integers and 0.
Accuracy: Gives about 15 digits.
| Parameters | 
| X | Value to process. | 
Category
Arithmetic Routines for FloatsImplementation
 
| function Gamma (const X: Extended): Extended;
var
     Z: Extended;
begin
     if FloatIsZero (X) or (FloatIsNegative (X) and SameFloat (X, Int (X))) then
          raise EMathError.Create (rsNotDefinedForValue);
     Z := InverseGamma (X);
     if FloatIsZero (Z) then
          raise EMathError.Create (rsNotDefinedForValue);
     Result := 1 / Z;
End; | 
|  |