Entwickler-Ecke

Sonstiges (Delphi) - Logarithmus


Fabian - Fr 26.07.02 15:02
Titel: Logarithmus
Hallo,
Wie kann ich den Logarithmus einer Zahl berechnen ?


hitstec - Fr 26.07.02 16:35

Einfach


Quelltext
1:
uses ... System;                    

und


Quelltext
1:
LN(123.456);                    

Das ist der natürliche Logarithmus mit Basis e. Den 10er-Logarithmus kann man daraus ableiten.

PS: In der Delphi-Hilfe stehts auch drin.


Fabian - Fr 26.07.02 18:51

Danke funktioniert ohne Probleme

Aber wie kann ich denn 10er Logarithmus aus dem natürlichen Logarithmus ableiten ?


hitstec - Fr 26.07.02 19:10

Die allgemeine Gleichung zum Umrechnen des Logarithmus heißt:

loga(x) = logb(x) / logb(a)

In unserem speziellen Fall also:

log(x) = ln(x) / ln(10)

Als Delphi-Code:


Quelltext
1:
2:
3:
4:
function ZehnerLog(x: Real): Real;
begin
  result:=ln(x) / ln(10);
end;

Ausgabe:


Quelltext
1:
ShowMessage(Format('%f',[ZehnerLog(10)]));                    


b.brecht - Sa 27.07.02 00:08

Oder machs so:

Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
uses Math;

...

function log(x,basis : real):real;
begin
Result:=log10(x) / log10(basis);
end;