Kubikwurzel?

coolbininet · 04.05.2005, 09:04

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

-=[ BladeX ]=- · 04.05.2005, 10:18

Hallo

Du kannst auch 27^(1/3) (27 hoch 1/3) rechnen

für die Quadratwurzel wäre es dann 27^(1/2)

mfg

coolbininet · 04.05.2005, 10:37

Kann mir aber trotzdem noch wer helfen, warum klappt das da bei mir nicht!

Grüsse Coolbininet

-=[ BladeX ]=- · 04.05.2005, 11:38

Hallo

Ich kenne deine Folge zwar nicht aber es gibt eine Näherungformel nach Newton (siehe Anhang):

Public Function kubikwurzel(radikant as double)
Dim x as Double
dim i as Long
x=radikant/3

For i = 1 To 10
x = (2*x+radikant/(x*x))/3
Next
kubikwurzel = x
End Function

vielleicht hilft dir das.

mfg

-=[ BladeX ]=- · 04.05.2005, 11:40

hab' den Anhang vergessen

04.05.2005, 09:04	#1
coolbininet Hero Registriert seit: 19.09.2001 Alter: 46 Beiträge: 859	Kubikwurzel? 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 ____________________________________ Wenn du eine helfende Hand brauchst, tust du gut wenn, du sie an den eigenen Armen suchst! Website RI Nur der Kleingeist hält Ordnung das Genie überblick das Chaos! Genie und Wahnsinn liegen dicht nebeneinander, sie können und sollen nicht getrennt werden. \|Marktorientierter Sozialist\|Menschenfreund\|Teamfähig\|Analytiker\|Logi ker\| If you want to see the Sky, fuck a Duck and learn to fly! Mein Glück ist nicht von dieser Welt, insbesondere im Umgang mit Microsoft Produkten! Möge die MACHT mit uns sein!

04.05.2005, 10:37	#3
coolbininet Hero Registriert seit: 19.09.2001 Alter: 46 Beiträge: 859	OK, das geht, danke! Kann mir aber trotzdem noch wer helfen, warum klappt das da bei mir nicht! Grüsse Coolbininet ____________________________________ Wenn du eine helfende Hand brauchst, tust du gut wenn, du sie an den eigenen Armen suchst! Website RI Nur der Kleingeist hält Ordnung das Genie überblick das Chaos! Genie und Wahnsinn liegen dicht nebeneinander, sie können und sollen nicht getrennt werden. \|Marktorientierter Sozialist\|Menschenfreund\|Teamfähig\|Analytiker\|Logi ker\| If you want to see the Sky, fuck a Duck and learn to fly! Mein Glück ist nicht von dieser Welt, insbesondere im Umgang mit Microsoft Produkten! Möge die MACHT mit uns sein!

04.05.2005, 10:18	#2
-=[ BladeX ]=- Jr. Member Registriert seit: 15.12.2003 Beiträge: 44	Hallo Du kannst auch 27^(1/3) (27 hoch 1/3) rechnen für die Quadratwurzel wäre es dann 27^(1/2) mfg

04.05.2005, 11:38	#4
-=[ BladeX ]=- Jr. Member Registriert seit: 15.12.2003 Beiträge: 44	Hallo Ich kenne deine Folge zwar nicht aber es gibt eine Näherungformel nach Newton (siehe Anhang): Public Function kubikwurzel(radikant as double) Dim x as Double dim i as Long x=radikant/3 For i = 1 To 10 x = (2x+radikant/(xx))/3 Next kubikwurzel = x End Function vielleicht hilft dir das. mfg

04.05.2005, 11:40	#5
-=[ BladeX ]=- Jr. Member Registriert seit: 15.12.2003 Beiträge: 44	hab' den Anhang vergessen

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)