herrlich, was hier geschieht: es sieht sehr nach copy+paste aus
Nun dann will ich noch etwas zum Thema beitragen:
Max(random(49), 1)
verzerrt die Verteilung, sprich die Wahrscheinlichkeit von Zahlen kleiner eins wird auf 1.000 übertragen, damit ist die eins häufiger als alle anderen Zahlen. Nicht machen!
fast korrekt ist
min(round(random*49 + 0.5),49)
Sinn dieses Ansatzes ist es, gleiche Quantilbreiten zu bekommen. Würde man nur round(random*49) machen, so würden die Werte derart auf die integer-Klassen entfallen:
Zitat:
0 .. 0,4999(9) -> "0"
0,5.. 1,4999(9) -> "1"
...
um zu verhindern, dass für die Randquantile nur die halbe Häufigkeit entsteht, wird um 0,5 verschoben. Ebenso könnte man ceil oder floor nehmen, aber ich habe mich erst dieses Wochenende über die schlechte Performance dieser Funktionen unter Delphi7 aufgeregt.
Ich empfehle, eine Histogrammklasse zu implementieren, um die Gleichverteilung zu testen, indem man sie mit sehr vielen Testwerten füttert.