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