Positive Zahlen in negative umwandeln

[fishbrain]

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;