Rubrik: Variablen/Strings · Algorithmen/Mathematik | VB-Versionen: VB4, VB5, VB6 | 28.01.03 |
Von Kubikwurzeln und ähnlichem Eine flexible Funktion, mit der sich Wurden 3. oder höheren Grades berechnen lassen. | ||
Autor: E7 | Bewertung: | Views: 13.775 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Wie war noch schnell mal die Wurzel von 9? Drei, klar. Doch wie sieht's mit der Kubikwurzel von 27 aus? Leicht, auch drei. Doch bei der vierten Wurzel von 37,29884 wird's dann schon schwieriger - vor allem wenn's in einem VB-Programm ist. Allerdings lässt sich dieses Problem schnell lösen: da Zahl hoch 0,5 die einfache Wurzel darstellt, 0,333333 die dritte Wurzel etc., kann man folgende Funktion nutzen:
Function Sqr2(ByVal Zahl As Double, _ ByVal Wurzel As Byte) If Wurzel = 0 Then Wurzel = 1 Sqr2 = Zahl ^ (1 / Wurzel) End Function
Anmerkung:
Negative Zahlen lassen sich nicht berechnen, da z.B. -5 * -5 = +25, d. h. von -25 existiert keine Wurzel. Mit 0 klappt's auch nicht, da keine Division durch 0 möglich ist. In dieser Funktion stellt übrigens die Zahl 2 an zweiter Stelle übergeben die normale Quadratwurzel dar.