Список проголосовавших за комментарий "лет ми спик фром май харт ин инглиш<br/> <br/> falsification of probability<br/> <br/> exploring possibility of falsification of random<br/> qbasic qb64 programs were created in an hour<br/> and a table using formulas<br/> <br/> = CASEBETWEEN(0;1)<br/> = IF (B3 = B2; C2 + 1; 0)<br/> = COUNTIF (C$3: C$55000; D2)<br/> = SUM(E2:E10)<br/> = E2 / E3<br/> <br/> <a class="imgpreview" href="/uploads/images/05/70/34/2019/12/13/dccdcb.png"><img src="/uploads/images/05/70/34/2019/12/13/9451c2.png"/></a><br/> <br/> idea: fake a 50% chance<br/> <br/> results:<br/> <br/> research E green pure excel:<br/> randomly distributed naturally<br/> <br/> research 0 yellow qb 0:<br/> randomly distributed naturally<br/> <br/> Study 1 in red qb 1:<br/> explicit fake equal number in a row<br/> <br/> research 2 violet qb 2:<br/> smart fake but not all programmed<br/> and skew due to algorithm<br/> <br/> Conclusion: identify fake random real<br/> <br/> ' 0.bas<br/> OPEN «0.txt» FOR OUTPUT AS #1<br/> FOR s = 1 TO 50000: PRINT #1, (INT(RND * 1000) MOD 2): NEXT<br/> CLOSE<br/> <br/> ' 1.bas<br/> OPEN «1.txt» FOR OUTPUT AS #1<br/> FOR d = 1 TO 5: FOR s = 1 TO 100<br/> FOR i = 1 TO s: PRINT #1, 1: NEXT<br/> FOR i = 1 TO s: PRINT #1, 0: NEXT<br/> NEXT: NEXT: CLOSE<br/> <br/> ' 2.bas<br/> OPEN «2.txt» FOR OUTPUT AS #1<br/> FOR k = 1 TO 100: FOR s = 1 TO 7 <br/> FOR d = 1 TO 2 ^ (7 — s) <br/> FOR i = 1 TO s: PRINT #1, 1: NEXT<br/> FOR i = 1 TO s: PRINT #1, 0: NEXT<br/> NEXT: NEXT: NEXT: CLOSE<br/> <br/> Conclusion: identify fake random real<br/> <br/> "