| ESBLogBase Function | 
Unit
QESBPCSMath
Declaration
Function ESBLogBase(const X, Base: Extended): Extended;
| Parameters | 
| X | Value to process. | 
| Base | Logarithm Base to use. | 
Category
Arithmetic Routines for FloatsImplementation
 
| function ESBLogBase (const X, Base: Extended): Extended;
begin
     if not FloatIsPositive (X) then // must be Positive
          raise EMathError.Create (rsValueGZero)
     else if not FloatIsPositive (Base) then // must be Positive
          raise EMathError.Create (rsValueGZero)
     else
          Result := ESBLog2 (X) / ESBLog2 (Base);
End; | 
|  |