Randomize-Chaos

[Popov]

Zitat von Delphi-Laie:

Wer behauptet denn so etwas? Man kann ihn ständig bzw. nach jedem ersten random neu initialisieren. Dann hätte man wohl eine echte Zufallszahlenfolge.

Jajn. Eine kleine Erweiterung des oberen Beispiels:

Delphi-Quellcode:

var
  x, y: Integer;
begin
  with Canvas do
    for x := 0 to ClientWidth - 1 do
      for y := 0 to ClientHeight - 1 do
      begin
        Randomize;
        Pixels[Random(ClientWidth), Random(ClientHeight)] := clBlack;
      end;
end;

Die Verteilung ist immer noch fast gleichmäßig. Nur sind hier doch tatsächlich Rechtecke zu erkennen

[Delphi-Laie]

Mit diesem beeindruckenden Ergebnis läßt sich schlecht diskutieren.

Soweit ich weiß, ist die Quelle des Randomizes die Systemzeit. Anscheinend ist die abgerufene Auflösung nicht allzu hoch. Die Struktur ist viel zu regelmäßig, was vermutlich darauf zurückzuführen ist, daß die Schleifendauer mit der eingestellten Auflösung als ziemlich regelmäßig bzw. konstant erkannt wird.