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