ESBCoth Function
Returns the hyperbolic cotangent of X.

Unit
QESBPCSMath

Declaration
Function ESBCoth(const X: Extended): Extended;

Parameters
Value to process.

Category
Arithmetic Routines for Floats

Implementation

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;


HTML generated by Time2HELP
http://www.time2help.com