Zitat von
winkelmesser:
Also mit Rein mathematisch meinte ich nicht das die anderen Lösungsvorschläge NICHT MATHEMATISCH sind sondern das ich keine Delphi Syntax liefern kann weil ich nicht das wissen dafür habe und es mit Microsoft Excel getestet habe.
Na dann, dein erster Beitrag hat sich eben doch ein wenig die vorherigen, einwandfreien Beiträge missachtend angehört.
Noch ein kleiner Hinweis zu deiner Formel (abgesehen davon, dass du daraus gefahrlos ein paar Klammern entfernen kannst): Einen Epsilon-Wert von 0,01 halte ich eindeutig für zu hoch. Allerdings ist es gar nicht leicht, einen guten Wert dafür auszuwählen, ich würde wohl i * Math.DoubleResolution benutzen[*] (was selbst 5.0000000001 noch richtig umwandeln würde). Da diese Konstante aber gar nicht im interface-Teil deklariert ist, mache ich mir dann doch lieber das Leben etwas leichter
und benutze Apollonius' Version, die das ganze Problem elegant umgeht.
[*]Oder natürlich Extended, Hauptsache nicht Single bei solchen Aufgaben.