Logarithmen zu beliebiger Basis

[Wolfgang Mix]

Logarithmen scheinen in den Lehrplänen der Kultusminister nicht mehr lukrativ zu sein,
so meine Erfahrung im Fachgymnasium.

Deswegen poste ich hier eine Funktion zur Bestimmung von Logarithmen zu beliebiger Basis
zum Üben für ganze positive Zahlen.

Delphi-Quellcode:

//Wolfgang Mix & DeddyH - 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);//Any Platform, does'nt need Unit Math
  end;
end;

Gruß

Wolfgang

[Apollonius]

Warum sollten Logarithmen mit Basis oder Argument kleiner als Eins ungültig sein? Argument und Basis sollten positiv sein, aber das ist auch schon alles.

[Wolfgang Mix]

Du hast natürlich recht, aber zum Üben habe ich zunächst an ganze positive Zahlen gedacht

Gruß

Wolfgang

[gammatester]

Wo ist hier der Sinn? Warum nicht gleich math.LogN? Oder willst Du die showmessage als Feature verkaufen? Ich halte Popup-Fehlermeldungen in Library-Routinen für ganz schlechten Stil.

[Wolfgang Mix]

Okay, die Fehlermeldungen können auch ganz wegfallen, wenn der User weiß, was er macht.

[s.h.a.r.k]

Nein nein! Bitte nicht wegfallen lassen! Du musst die showMessage-Dialog nur durch Exceptions ersetzen, das wäre sauber :thumb:

[Wolfgang Mix]

Dann ergänze doch einfach 'mal bitte

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

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

[Wolfgang Mix]

Okay, kann man machen.
Übernehme aber erstmal die Version von Detlef.
Übrigens; "divident" schreibt sich Dividend.

Gruß

Wolfgang