Zufallszahlen erstellen

[LPIG]

Hey,

ich habe mit Hilfe von Random(32) einen Roulette Simulator in Delphi erstellt.
Die eigentliche Auswertung einer Zufallszahl geschieht folgendermaßen:

randomize;
x:=random(32);

Das Interessante, wesswegen ich es auch programmieren wollte ist, dass ich einen Knopf habe, der nach dem Prinzip spielt: Sobald ich verliere, verdoppel ich den Einsatz, wenn ich dann einmal gewinne gehe ich wieder auf den Mindesteinsatz, wobei der Mindesteinsatz 2 Euro ist und der Maximaleinsatz 1000 beträgt. Ich kann einstellen, wieoft er pro Klick drehen und nach dem Prinzip setzen soll.

Das Problem:
Wenn randomize bei Form.create steht bekomme ich bei 100000 Versuchen immer eine negative Gesamtbilanz, das heißt, ich mache Verlust. Wenn ich aber Randomize direkt vor dem Auswürfeln der random Zahl mache, so wie ich es oben stehen habe, dann wird die Gesamtbilanz in jedem Fall negativ.
Ich habe Randomize jetzt zweimal hingeschrieben, bin mir aber unsicher, was es nun bewirkt. Ich bekomme jetzt nämlich immer eine positive Gesamtbilanz und das macht mich schon ein wenig stuzig!
Bevor ich also ins Casino gehe und mein Geld verzocke:
Wie bekomme ich eine wirklich zufällige Zahlenreihenfolge hin?

Bedanke mich schon im Vorraus!

lg
LPIG

[Popov]

Random hat immer die gleichen Zufallsazahlen. Jedes mal das gleiche. Randomize holt einen Wett (ich glaube aus der Uhrzeit) und bringt etwas durcheinander.

[Medium]

Zur Frage: Mit einem Stück Hardware, dass den Alpha-Zerfall einer Strahlenquelle misst und in eine Zahl verwurstet.

Zum Problem: Random() erzeugt durchaus ganz okay verteilte Zufallszahlen, jedoch ist wahrscheinlich die Anzahl der Drehs einfach zu gering. Du wirst genau das gleiche Problem auch bei echtem Zufall haben: Für eine 0-Bilanz (nennt man auch bias-Freiheit) müsstest du theoretisch unendlich oft Drehen (und deine Obergrenze entfernen). Da Random() imho eine Periodenlänge von ca. 2^32 hat, müsstest du also nach spätestens rund 4 Mrd. Mal drehen grob bei +/- 0 raus kommen.

Deinem Prinzip fehlt übrigens noch eine Abbruchbedingung: Bei wie viel Gewinn soll aufgehört werden? Das ist bei dieser Strategie nämlich der wichtige Punkt. Spielt man, sobald man mal einen guten Gewinn hat, einfach weiter, so wird man ihn statistisch gesehen auch wieder verzocken. Und durch die Grenze von 1000 limitierst du die Verlust-Auffang-Absicht hinter der Verdopplung nach Verlust auf 9 Mal drehen ohne Gewinn (was 512 sind, da es beim 10. Mal schon 1024 wären). Die Strategie ist folglich nur mit unendlich Kapital verlustfrei spielbar, und auch nur, wenn man es unendlich lange macht. Man verlagert damit also das Glück vom treffen der Zahl auf einen guten Zeitpunkt zum Aufhören, und die Bedingung, dass man von Anfang an steinreich sein muss. Glaub mal, es gäbe sonst keine Casinos mehr.

Ich würde sagen, du hast mit deinem Random einfach viel Pech gehabt, und im Mittel solltest du mit der Strategie mit Limit definitiv Verlust fahren, wenn man nicht bei Gewinn X abbricht. Ob man diesen Gewinnpunkt mit Limit überhaupt erreicht ist dann wieder Glück, und die Wahrscheinlichkeit dürfte sehr genau der entsprechen, mit der man auch bei "normalem" Spielen zu tun hat.

Interessant ist vor allem auch deine Auszahlung bei einer Gewinnrunde. Wenn es einfach 1:1 ist, aber du setzt jeweils eine Zahl aus 32, dann muss man ja fast Verlust fahren! Fazit: Lass die radioaktiven Stoffe weg, und feile besser nochmal an der Strategie

[Popov]

Hier ein Beispiel wie gut oder schlecht Random Zufallswerte produziert. Theoretisch müsste alles schwarz sein, ist aber knapp dran:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  x, y, i, z: Integer;
begin
  z := Width * Height;
  for i := 0 to z do
  begin
    x := Random(Width);
    y := Random(Height);
    Canvas.Pixels[x, y] := clBlack;
  end;
end;

[Medium]

Naja, theoretisch dürfte nicht alles schwarz sein - dann wäre es eine bijektive Funktion. Insofern schon fast zu gut gleichverteilt, aber das ist wohl auch Absicht: Man möchte ja nach möglichst geringer Samplezahl schon möglichst gleichverteilt sein. Bei "echtem" Zufall ist das Universum meist weniger gnädig glaub ich.

[Furtbichler]

Um es anders auszudrücken: Nehmen wir an, eine gute Zufallsfunktion sollte 'alles schwarz machen', weil die Zahlen perfekt verteilt sind. Gleichzeitig soll eine gute Zufallsfunktion gleichverteilte und 'nicht vorhersehbare' Zufallszahlen erzeugen.

So, wie Du dir das vorstellst ('alles schwarz') wäre das bei den letzten paar Pixeln so, das man genau wüsste, welche Zahlen als nächstes kommen (die weißen). Dann wäre aber o.g. Definition des Zufallszahlengenerators nicht erfüllt. Beweis durch Widerspruch: Die Behauptung 'alles schwarz => guter Generator' ist falsch.

[Jonas Shinaniganz]

Die Aufgabe ist als Programmier-Übung geeignet... Allerdings kann ich dir jetzt schon sagen: Was du da machst ist klassischer Martingale.
http://de.wikipedia.org/wiki/Martingalespiel

Aus der Warscheinlichkeitsrechnung: der Erwartungswert bleibt für den Spieler stets negativ.

Du gewinnst eine Einzelne Runde zwar zu: t ≈99,9713 % ABER um einen einzigen "beknackten" Euro zu gewinnen, setzt du teilweise schnell 2048€ oder falls du das Spiel auch verlierst, immernoch um den "Anfangseuro" zurückzugewinnen 4096€ und dann knapp 10.000€ um den Euro erneut "zu versuchen" zu gewinnen.

Die langen Farbfolgen im Roulette die mit unbarmherziger Warscheinlichkeit auftreten werden haben schon alle Zocker, die Ihren Einsatz erhöhen um den Verlust wieder wett zu machen, ruiniert. Das Casino freut sich über Leute die nach "Strategie" spielen. Egal welche "Strategie".

Grüße

[Popov]

Zitat von Furtbichler:

Die Behauptung 'alles schwarz => guter Generator' ist falsch.

Ich denke der Satz ist missverstanden worden. "Theoretisch müsste alles schwarz sein" bezog sich darauf, dass genau so viele Durchläufe stattgefunden haben wie es Pixel gibt. Nicht drauf ob der Generator jeden der Pixel erwischt hat.

[p80286]

Zitat von LPIG:

Ich habe Randomize jetzt zweimal hingeschrieben, bin mir aber unsicher, was es nun bewirkt.

aber vorher warst Du Dir sicher?

Zitat von LPIG:

Wie bekomme ich eine wirklich zufällige Zahlenreihenfolge hin?

Einmal Randomize um den Generator zu initialisieren und dann Random(32) .

So sollte es funktionieren
Ein Beispiel
und der Eintrag aus der OH:

Zitat:

Randomize initialisiert den integrierten Zufallszahlengenerator mit einem zufälligen Wert (der aus der Systemzeit abgeleitet wird). Der Zufallszahlengenerator sollte initialisiert werden, indem die Prozedur Randomize aufgerufen oder der Variablen RandSeed ein Wert zugewiesen wird.

Kombinieren Sie in einer Schleife nicht den Aufruf von Randomize mit Aufrufen der Funktion Random . Normalerweise wird Randomize vor den Aufrufen von Random nur einmal aufgerufen.

Und wenn Du wissen willst ob da wirklich alles mit rechten Dingen zugegangen ist, dann laß Deinen Generator mal über 1000 Runden laufen, dann solltest Du eine ungefähr gleiche Häufigkeit aller Zahlen haben.
Wikipedia zur Wahrscheinlichkeit

Gruß
K-H

[shmia]

Deine Auswertung ist falsch.
Zuerst muss geprüft werden ob die Bank gewonnen hat.
Erst danach darf man prüfen, ob die Zahl gerade oder ungerade war:

Delphi-Quellcode:

x:=random(33);  // liefert 0 .. 32

if x=0 then
begin
  // Bank gewinnt
end
else if Odd(x) then
begin
  // ungerade Zahl
end
else 
begin
  // gerade Zahl
end;

Man beachte, dass bei der Abfrage immer else verwendet wird.

Lnagfristig macht dieses kleine Ungleichgewicht zu Gunsten der Bank einen grossen Unterschied!!