STABW berechnen-Qualität des Zufallszahlengenerators beurteilen

[Gollum]

Zitat von mabstudent:

IF checkbox1.checked=true THEN //von unten nach oben auftragen
begin

...

FOR i:=0 TO image1.width-1 DO
begin
r:=random(bereich);
inc(zaehler[r]); //inkrementiert den Zählerplatz i um die Zufalsszahl r
IF checkbox3.checked=true THEN image1.canvas.pen.color:=clred;
IF checkbox4.checked=true THEN image1.canvas.pen.color:=clgreen;
IF checkbox5.checked=true THEN image1.canvas.pen.color:=clblue;
image1.canvas.moveto(i,200); //nach unten links fahren
image1.canvas.lineto(i,200-r); //Linie ziehen zur Zufallszahl
anzzz:=anzzz+1;
mittelwert:=mittelwert+r;

end;

Delphi-Quellcode:

  1: statt if CheckBox1.Checked=True then // es genügt if CheckBox1.Checked then
  2: statt Inc(zaehler[r]) // müsste es nicht zaehler[i]:=Random(bereich) heissen?
  3: if CheckBox3.Checked=True, ...  // siehe 1
  4: mittelwert:=mittelwert+zaehler[i] // somit ist r überflüssig

Warum müssen die Farben nach jedem Schleifendurchlauf gesetzt werden? Reicht dies nicht einmal vor Beginn der Schleife?