фальсификация случайности

фальсификация случайности

исследуя возможность фальсификации случайных
за час были созданы программы qbasic qb64
и таблица использующая формулы

=СЛУЧМЕЖДУ(0;1)
=ЕСЛИ(B3=B2;C2+1;0)
=СЧЁТЕСЛИ(C$3:C$55000;D2)
=СУММ(E2:E10)
=E2/E3





идея: фальсифицировать вероятность 50%

результаты: 

исследование E зелёным чисто excel:
случайные распределились закономерно

исследование 0 жёлтым qb 0:
случайные распределились закономерно

исследование 1 красным qb 1:
явная подделка равное число подряд

исследование 2 лиловым qb 2:
умная подделка но не запрограммированы все возможные
и виден перекос из-за алгоритма

вывод: определить фальшивые случайные реально

' 0.bas
OPEN "0.txt" FOR OUTPUT AS #1
FOR s = 1 TO 50000: PRINT #1, (INT(RND * 1000) MOD 2): NEXT
CLOSE

' 1.bas
OPEN "1.txt" FOR OUTPUT AS #1
FOR d = 1 TO 5: FOR s = 1 TO 100
FOR i = 1 TO s: PRINT #1, 1: NEXT
FOR i = 1 TO s: PRINT #1, 0: NEXT
NEXT: NEXT: CLOSE

' 2.bas
OPEN "2.txt" FOR OUTPUT AS #1
FOR k = 1 TO 100: FOR s = 1 TO 7
FOR d = 1 TO 2 ^ (7 - s)
FOR i = 1 TO s: PRINT #1, 1: NEXT
FOR i = 1 TO s: PRINT #1, 0: NEXT
NEXT: NEXT: NEXT: CLOSE

вывод: определить фальшивые случайные реально