Zufallsbild: Seltsame Konstruktionen

[Delphi-Narr]

Hallo,
ich habe in meinem Programm die Funktion eingebaut, ein Zufallsbild zu erzeugen.
Doch ich sehe häufig seltsame Konstruktionen. Z.B. eine Ellipse in einem Rechteck (Liegen genau ineinander), obwohl beide Aufrufe separat geschehen...
Weiß jemand, wodurch das hervorgerufen wird?

Hier meine Aufrufe:

Delphi-Quellcode:

          5:begin
                 randomize;
                 Bild.canvas.Rectangle(Random(Bild.width), 
                                       Random(Bild.height),
                                       Random(Bild.width), 
                                       Random(Bild.height));
            end;
          6:begin
                 randomize;
                 Bild.canvas.ellipse(Random(Bild.width), 
                                     Random(Bild.height), 
                                     Random(Bild.width),
                                     Random(Bild.height));
            end;

Liebe Grüße!

[Klaus01]

Guten Abend,

randomize nicht bei jedem Aufruf ausführen.
Einmal beim Programmstart reicht.

Grüße
Klaus

[himitsu]

randomize ... den (Pseudo)Zufallsgenerator initialisiert man nur einmal bei Programmstart, bzw. spätestens vor der ersten Nutzung.

Mehrfache Initialisierung kann negativ auf die statistische Gleichverteilung der Zufallszahlen wirken.

[Delphi-Narr]

Danke, ist schon etwas besser geworden, aber wie kann so was denn passieren? Es werden exakt die gleichen Koordinaten gewählt...

Liebe Grüße!

[himitsu]

Welche Delphiversion nutzt du denn?
In älteren Versionen initialisiert Randomize über GetTickCount, welches bei Aufrufen kurz hintereinander (innerhalb von 16 Millisekunden) natürlich mit dem selben Wert initialisiert und somit auch gleiche Zufallsreihen startet ... was also gleiche Positionen bedeutet.

[Delphi-Narr]

Ich habe noch Delphi 5...

Danke für die Antworten!

[himitsu]

PS: wowas kann man ganz gut im Profil angeben

Nja, das ist auch ein Grund, warum "neuerdings" über QueryPerormanceCounter initialisiert wird, weil einfach zuviele diesen Fehler machen.

[Delphi-Narr]

Steht in meinem Profil drin... Delphi 5 Standard
Naja, also jetzt sieht es schon besser aus.

[himitsu]

Tschuldschung, war es gewohnt dieses auch gleich links unterm Ava zu sehn und dort war nix.