Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

wer kann diese wurzel-funktion optimieren?
Autor: fzimmermann
Datum: 20.03.04 17:54
hallo, ich habe 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. TiA felix

wer kann diese wurzel-funktion optimieren?	917	fzimmermann	20.03.04 17:54
Re: wer kann diese wurzel-funktion optimieren?	650	Zardoz	20.03.04 18:55
Re: wer kann diese wurzel-funktion optimieren?	654	MR_Maloney	20.03.04 20:43
Re: wer kann diese wurzel-funktion optimieren?	547	fzimmermann	21.03.04 16:14

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen