Wunderschönen Tag, zu der Vermutung bin Ich gekommen, als ich mir ein Programm bastelte wo ganz oft Würfelt also Zahlen von 1 - 6 Generiert und diese dann aufschreibt zum vergleichen. mir ist aufgefallen, dass es nur sehr kleine abweichungen gibt!
hier meine Ergebnisse von 10 000 mal würfeln:
Ergebnisse des des Zufallstest:
Anzahl der Zahl 1: 1710
Anzahl der Zahl 2: 1708
Anzahl der Zahl 3: 1585
Anzahl der Zahl 4: 1658
Anzahl der Zahl 5: 1661
Anzahl der Zahl 6: 1668
ist da meine vermutung richtig?
unten findet ihr den Code, um nachzuprüfen...
Spoiler anzeigen
hotKeySet("{F2}", "write")Func write() if $write = 1 then $weiter = 1 EndFunc$max = InputBox("test","wieviele Zahlen soll der Computer generieren?")MsgBox(0,"zufall?"," kennt ein Computer zufälle? dieses Programm lälsst den Computer " & $max & " mal eine zufällige Zahl zwischen 1 und 6 generieren.")$a = 0$b = 0$c = 0$d = 0$e = 0$f = 0$anzahl = 0$write = 0$weiter = 0While 1
$zahl = Random(1,6,1)if $zahl = 1 then $a = $a + 1if $zahl = 2 then $b = $b + 1if $zahl = 3 then $c = $c + 1if $zahl = 4 then $d = $d + 1if $zahl = 5 then $e = $e + 1if $zahl = 6 then $f = $f + 1$anzahl = $anzahl + 1if $anzahl = $max then ExitLoop $prozent1 = $anzahl / $max $prozent = $prozent1 * 100 ToolTip($prozent & " %") Sleep(20)WEndToolTip("100 %")$write = 1While 1 ToolTip("mit F2 kann der Text geschrieben werden") Sleep(25) if $weiter = 1 then ExitLoopWEnd sleep(2000)Send("Ergebnisse des des Zufallstest:")Send("{enter}")Send("{enter}")Send("Anzahl der Zahl 1: " & $a)Send("{enter}")Send("Anzahl der Zahl 2: " & $b)Send("{enter}")Send("Anzahl der Zahl 3: " & $c)Send("{enter}")Send("Anzahl der Zahl 4: " & $d)Send("{enter}")Send("Anzahl der Zahl 5: " & $e)Send("{enter}")Send("Anzahl der Zahl 6: " & $f)Send("{enter}")Exit