fzimmermann
Grünschnabel
hallo,
ich habe in vb6 eine wurzelfunktion zum auflösen von aufgaben nach dem schema x^y=z geschrieben. sie ruft sich selber immer wieder auf,. zu grunde liegt das verfahren von heron von alexandria.
der quellcode:
Function w(art As Integer, rad, x) As Double
If art <= 2 Then w = Sqr(rad): Exit Function 'benutzte,sofern möglich sqr()
Do
y = w(art - 1, rad / x, Sqr(x)) berechne art-1te-wurzel
x = (x + y) / 2 'mittelwert
Loop Until Abs(Round(rad, 9 - art) - Round(x ^ art, 9 - art)) < 0.00000001 * 10 ^ art 'breche 'bei genügender genauigkeit ab
w = Round(x, 10 - art) 'übegebe wrt
End Function
die parameter:
art - hoch was?
rad-die artte wurzel von welcher zahl?
x-startwert
ich würde mich um jede verbesserung oder alternative freuen, da meine funktion bei hohen werten von art sehr lange braucht.
ideal wäre,wenn jemand die funktion in einer vc++ dll unterbringen könnte. in diesem fall würde ich mich um eine vollständige projektdatei an thunder1989(at)web.de freuen
TiA
felix
ich habe in vb6 eine wurzelfunktion zum auflösen von aufgaben nach dem schema x^y=z geschrieben. sie ruft sich selber immer wieder auf,. zu grunde liegt das verfahren von heron von alexandria.
der quellcode:
Function w(art As Integer, rad, x) As Double
If art <= 2 Then w = Sqr(rad): Exit Function 'benutzte,sofern möglich sqr()
Do
y = w(art - 1, rad / x, Sqr(x)) berechne art-1te-wurzel
x = (x + y) / 2 'mittelwert
Loop Until Abs(Round(rad, 9 - art) - Round(x ^ art, 9 - art)) < 0.00000001 * 10 ^ art 'breche 'bei genügender genauigkeit ab
w = Round(x, 10 - art) 'übegebe wrt
End Function
die parameter:
art - hoch was?
rad-die artte wurzel von welcher zahl?
x-startwert
ich würde mich um jede verbesserung oder alternative freuen, da meine funktion bei hohen werten von art sehr lange braucht.
ideal wäre,wenn jemand die funktion in einer vc++ dll unterbringen könnte. in diesem fall würde ich mich um eine vollständige projektdatei an thunder1989(at)web.de freuen
TiA
felix
