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; |
|