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