Von Kubikwurzeln und ähnlichem Eine flexible Funktion, mit der sich Wurden 3. oder höheren Grades berechnen lassen.
Autor:   E7	Bewertung:     [ Jetzt bewerten ]	Views:  14.287
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 31 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 2.9 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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.