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