Logarithmen zu beliebiger Basis

[jfheins]

Bitte jetzt keinen persönlichen Angriff in meinem Post sehen.

Aber ich finde, dass die Funktion nicht die Schöpfungshöhe erreicht, die ich von der Codelibrary erwarte.

Damit will ich sagen: Den Logarithmus einer Zahl zu einer beliebigen Basis zu ziehen ist nicht schwer. Wenn man's nicht weis, guckt man in Wikipedia nach. Oder im Mathebuch 8. Klasse. Oder in einer Matheformelsammlung.
Und ein Minimum an Schöfungshöhe ist in meinen Augan schon notwendig - denn sonst könnten wir ja auch direkt die CL weglassen, mit dem Argument "steht doch im Forum"

Ich weis, dass ich das bei deinem letzten Codeschnipsel auch gesagt habe. Da haben wir dann (statt der abc-Formel) eine Implementierung gefunden, die für Fließkommaberechnungen besonders geeignet ist. Aber ich bezweifele, dass wir das hier auch schaffen.

Oder um das ganze etwas überspitzt darzustellen - was hältst du von dem hier:

Delphi-Quellcode:

function Divide(dividend: Double; divisor: Double)
begin
if Math.IsZero(divisor) then
  raise EDivByZero.Create('Division by zero is undefined!'); 
else
  Result := dividend/divisor;
end;