Logarithmen zu beliebiger Basis

[DeddyH]

Ich bin mal so frei.

Delphi-Quellcode:

//Wolfgang Mix - Delphi - PRAXiS
function lgx(base,number:double):double;
begin
  if not (base > 0) then 
    raise Exception.Create('Invalid base');
  if not (number > 0) then 
    raise Exception.Create('Invalid number');
  if (number > 0) and (base > 0) then
  begin
    result:= ln(number)/ln(base);
  end;
end;