AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Random ist kein reiner Zufall

Ein Thema von dino · begonnen am 31. Mär 2007 · letzter Beitrag vom 6. Apr 2007
 
Benutzerbild von Sunlight7
Sunlight7

Registriert seit: 17. Sep 2006
Ort: Sonnensystem, Zentral
1.522 Beiträge
 
Delphi 5 Standard
 
#11

Re: Random ist kein reiner Zufall

  Alt 31. Mär 2007, 18:23
Abend allerseits!

Zitat von dino:
sun und ich haben entdeckt, dass die delphi zufallsfunktion etwas nicht zufälliges hat:
Da muß ich mich auch zu Wort melden.

Also um das etwas zu verdeutlichen, wir haben ein Random, das 3 Zustände ausgeben kann (0, 1, 2)...
Dann zählen wir in einer Schleife mit, welcher Zustand wie oft dran kommt.
Sobald alle Zustände gleich oft erzeugt wurden wird die Schleife abgebrochen.

Das Interessante dabei ist, das die Schleife entweder sofort wieder abgebrochen wird, weil alle Zustände nur nach wenigen Durchläufe gleich auf sind, oder es läuft zu ner Zahl, die ca. zwischen 1411655764 und 1431655764 liegt...

Nur einmal kam ein EIntOverflow , das war wohl nur zufällig

Und so kommt die Frage auf, wie kommt das zustande?

Grüßle!

PS: Zum ansehen das ganze als Quelltext:

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
   var i0, i1, i2:integer;
begin
  Randomize;

  i0:=0;
  i1:=0;
  i2:=0;

  Repeat
    Case Random(3) of
       0: Inc(i0);
       1: Inc(i1);
       2: Inc(i2);
    end;
  until (i0=i1) and (i0=i2) and (i1=i2);

  Beep;
  Edit1.text:=IntToStr(i0)+' - '+IntToStr(i1)+' - '+IntToStr(i2);
end;
Windows: Ja - Microsoft: Nein -> www.ReactOS.org
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:45 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz