Rubrik: Variablen/Strings · Algorithmen/Mathematik | VB-Versionen: VB4, VB5, VB6 | 08.11.06 |
Logarithmus zu beliebiger Basis Funktion, die den Logarithmus zu einer beliebigen Basis berechnet | ||
Autor: sandro | Bewertung: | Views: 17.317 |
www.sandrosoft.2.ag | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Sicherlich bietet VB die Möglichkeit Logarithmen zu berechnen. Wer das aber schon einmal versucht hat, wird enttäuscht feststellen müssen, dass sich mit der "log"-Funktion nur - wie auf den meisten Taschenrechnern - 10er-Logarithmen berechnen lassen .
Wenn man aber nun nicht 10 als Basis hat, sondern eine andere Zahl, was dann?
Folgende kurze Funktion schafft Abhilfe:
' Berechnet den Logarithmus zur Basis "dBasis" von "dWert" Public Function LogN(ByVal dBasis As Double, _ ByVal dWert As Double) As Double LogN = Log(dWert) / Log(dBasis) End Function
Und so wird sie im Code aufgerufen:
' Kleines Anwendungsbeispiel ' Logarithmus 64 zur Basis 2 berechnen MsgBox "log2(64) = " & LogN(2, 64)