| ESBCoth Function | 
Unit
QESBPCSMath
Declaration
Function ESBCoth(const X: Extended): Extended;
| Parameters | 
| X | Value to process. | 
Category
Arithmetic Routines for FloatsImplementation
 
| function ESBCoth (const X: Extended): Extended;
var
     Y, Z, InvZ: Extended;
begin
     Z := Exp (X);
     InvZ := 1 / Z;
     Y := Z - InvZ;
     if FloatIsZero (Y) then
          raise EMathError.Create (rsNotDefinedForValue);
     Result := (Z + InvZ) / Y;
End; | 
|  |