| ESBArCoth Function | 
Unit
QESBPCSMath
Declaration
Function ESBArCoth(const X: Extended): Extended;
| Parameters | 
| X | Value to process. | 
Category
Arithmetic Routines for FloatsImplementation
 
| function ESBArCoth (const X: Extended): Extended;
var
     Y: Extended;
begin
     if Abs (X) <= 1 then
          raise EMathError.Create (rsNotDefinedForValue);
     Y := (1 + X) / (X - 1);
     Result := 0.5 * Ln (Y);
End; | 
|  |