[coolbininet]

Hallo Leute!

Versucht eine Kubikwurzelfunktion unter VBA zu finden, gibt es aber scheinbar keine, oder?

Egal habe in meinen alten Mathematikbüchern nachgeschaut und folgede Näherungsformel für die Kubikwurzel gefunden:

x -> q/(3x²)+2x/3 q kann zur Näherung die Zahl 1 sein

Liest sich x über q durch (3x²) + 2x/3. Der Schlüssel zu dem ganzen ist das x über q, was soviel bedeutet wie nimm das q ist 1 und x = 27(Radiant zB kubische Wurzel aus 27 [Ergebnis 3]) dann nimm das genäherte Ergebnis und setze es wieder in x ein. Und das ganze solange bis du eine hohe Genauigkeit hast. Mir wurde gesagt dass das zehnmalige einsetzen genügt. Jetzt habe ich eine For-Schleife gebastelt, die leider nicht funkt, warum?

Public Function kubikwurzel(radikant As Double)
Dim q, x, i As Double
x = radikant
q = 1
For i = 1 To 10
x = q / (3 * x * x) + 2 * x / 3
Next i
kubikwurzel = x
End Function

Bitte um eine sinnvolle Antwort!

Grüße

Coolbininet