Logarithmen zu beliebiger Basis

[gammatester]

Zitat von Wolfgang Mix:

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

Gruß

Wolfgang

Ich glaube, Du hast die leichte Ironie bei divide nicht verstanden Weiterhin halte ich Deine (auch verbesserte) Routine nicht geeignet für Lehr- und Übungszwecke, es sei denn als Übung für Unlogik und schlechten Programmierstil:

1. not (x > 0) schreibt man besser als x <= 0.0! Warum zwei Operationen? Warum keine Fließkomma-Null wenn's doch eine ist?
2. Wenn base oder number <= 0.0 sind wurde eine Exception geworfen! Warum also noch mal testen, ob sie > 0.0 sind?

Delphi-Quellcode:

function lgx(base,number: double): double;
begin
  if base   <= 0.0 then raise Exception.Create('Invalid base');
  if number <= 0.0 then raise Exception.Create('Invalid number');
  result:= ln(number)/ln(base);
end;

[himitsu]

Ich mach es auch gern mal kurz und schmerzlos

Delphi-Quellcode:

function LgX(base, number: Double): Double; //inline;
begin
  if (base <= 0.0) or (number <= 0.0) then
    System.Error(reInvalidOp);
  Result := Ln(number) / Ln(base);
end;

Wenn die Unit SysUtils eingebunden ist, dann wird hier eine Exception EInvalidOp "Ungültige Gleitkommaoperation." geworfen.

[Hawkeye219]

Hallo,

hier ist - in Anlehnung an Julius' Beitrag - noch ein Testfall:

Value := lgx(1.0, 10.0); Gruß Hawkeye

[Valle]

Zitat von jfheins:

Oder im Mathebuch 8. Klasse.

[OT]10. Klasse Gymnasium Rheinland-Pfalz, keine Ahnung was der Logarithmus ist. [OT]

[b]Edit:// Okay, kleine Berichtigung. Ich weiß schon was das ist, da stolpert man im Laufe der Jahre am Computer einfach mal drüber. Aber der Rest meiner Klasse hat sicherlich keine Ahnung von. (Wobei auch anzunehmen ist, dass die das auch nicht haben würden, selbst wenn wir das durchgenommen hätten... Aber das ist ein anderes Thema. )

Liebe Grüße,
Valle