Random(2) in schnell

[glkgereon]

Hi,

Ich habe ein Programm in dem ich sehr oft eine 1:1 wahrscheinlichkeit berechnen muss.
nun stehe ich vor dem Problem das Random(2) vermutlich den größten Teil meiner Laufzeit in Anspruch nimmt....was etwas unbefriedigend ist.

Das Problem ist dass ich nicht genau testen kann wieviel Random in anspruch nimmt, da die benötigten Durchläufe direkt vom ergebnis von Random abhängen. Wenn ich also immer 1 nehme ist mein Programm zwar sofort durch, hat aber auch nur einen winzigen Bruchteil an durchläufen gehabt, wenn ich 0 nehme ist es eine endlosschleife.

Nun stellt sich natürlich die Frage nach alternativen...

Ich habe es bereits mit GetTickCount (Auflösung zu gering), QueryPerformanceFrequency (Nicht zufällig genug??? jedenfalls ne endlosschleife) und Mouse (u.ä. auch net zufällig genug) versucht...reicht aber alles nicht.

Was gäbe es noch an Alternativen?

[SirThornberry]

Wenn du "Random(1)" machst kannst du auch gleich 0 schreiben. Schau dir am besten mal die hilfe zu random an.

[glkgereon]

Zitat von SirThornberry:

Wenn du "Random(1)" machst kannst du auch gleich 0 schreiben. Schau dir am besten mal die hilfe zu random an.

Schande über mich , ich meinte natürlich Random(2);

[cruiser]

Nur eine Idee... generiere eine Zufallszahl, mehrere Bytes, und speichere die Bitfolge in meinetwegen einem Array of Boolean. Das Array berechnest du dann halt alle 32, 64, whatever Durchläufe neu.

[glkgereon]

Zitat von cruiser:

Nur eine Idee... generiere eine Zufallszahl, mehrere Bytes, und speichere die Bitfolge in meinetwegen einem Array of Boolean. Das Array berechnest du dann halt alle 32, 64, whatever Durchläufe neu.

Vielen Dank
Das hat mich immerhin schonmal von 43 auf 36 Sekunden gebracht bei einem 32Bit Integer als Zwischenspeicher...
Nicht schlecht
Leider scheint Random kein Int64 zu unterstützen

Sonst irgendwelche Ideen?

[Dax]

Benutz doch jeweils einen QPC-Ergebniswert als Quelle für 64 Bits. Oder benutz einen Mersenne Twister. Oder...

[glkgereon]

Zitat von Dax:

Benutz doch jeweils einen QPC-Ergebniswert als Quelle für 64 Bits. Oder benutz einen Mersenne Twister. Oder...

Sry, aber QPC sagt mir gar nichts

Der Mersenne Twister hört sich interessant an...
Gibt es von dem eine Implementation in Delphi? *zu negaH schiel *

[3_of_8]

QPC ist QueryPerformanceCounter.

[alzaimar]

Zitat von glkgereon:

Der Mersenne Twister hört sich interessant an...
Gibt es von dem eine Implementation in Delphi? *zu negaH schiel *

Der Mersenne Twister ist viel langsamer als das native Random von Delphi. Aber es gibt eine in Delphi.

Was willst du überhaupt machen?

[Der_Unwissende]

Zitat von glkgereon:

Leider scheint Random kein Int64 zu unterstützen

Hi,
dafür unterstützt es als Ausgabe 80Bit-Extended Werte