Zitat von
grizzly:
Zitat von
franktron:
... Damit man dies Rechenaufgabe unterhalb 1 Woche berechnen kann
Gerade bei so rechenintensiven Aufgaben sollte man dann halt die Ansprüche runterschrauben und mit einer Näherung zufrieden sein. Der folgende Code wird im Schnitt immer schneller, je ungenauer (je größer epsilon) das Ergebnis sein darf:
Delphi-Quellcode:
FUNCTION TurboNegativate(Number: integer; Epsilon: double): double;
BEGIN
Randomize;
Number := Abs(Number);
REPEAT
Result := -(MaxLongint*Random);
UNTIL Abs(Number-Result) < Epsilon;
END;
Ein zusätzlicher Vorteil ist die nicht vorhersagbare Laufzeit, was für den Einsatz in der Kryptographie von Vorteil ist: Angriffe basierend auf dem Laufzeitverhalten der Software sind von vorneherein zum Scheitern verdonnert.
Genauigkeits-Fanatiker sollten sich allerdings ein negatives Epsilon verkneifen. Das Ergebnis wird zwar noch genauer, aber die Wartezeit erhöht sich dann doch leicht auch mal über eine Woche...
Gruß
Michael
ich glaub nicht , dass das klappt. weil -- plus ist und dann rauskommt result = number nicht result = - number
also :
Delphi-Quellcode:
FUNCTION TurboNegativate(Number: integer; Epsilon: double): double;
BEGIN
Randomize;
Number := Abs(Number);
REPEAT
Result := -(MaxLongint*Random);
UNTIL Abs(Number+Result) < Epsilon;
END;