Список проголосовавших за комментарий "Программа распределения случайных на спектры<br/> количества подряд одинаковых признаков<br/> меньше \ больше и чётный \ нечётный<br/> <br/> [code]'datable99.bas<br/> <br/> RANDOMIZE TIMER<br/> tb = TIMER: s = 0<br/> OPEN «zz99.txt» FOR OUTPUT AS #2<br/> n = VAL(MID$(TIME$, 7, 2)) * 10 ^ 5<br/> DIM b(n), d(n), e(n), f(n)<br/> DIM j(n), k(n), m(n), p(16), q(16)<br/> LOCATE 1, 1: PRINT " THEORY Average BIG EVEN "<br/> <br/> FOR i = 2 TO n — 1<br/> b(i) = INT(RND * 900) + 100: s = s + b(i): m = s / i<br/> <br/> IF b(i) < m THEN d(i) = 0 ELSE d(i) = 1<br/> IF b(i) / 2 = INT(b(i) / 2) THEN j(i) = 0 ELSE j(i) = 1<br/> <br/> IF d(i) = d(i — 1) THEN e(i) = e(i — 1) + 1 ELSE e(i) = 0<br/> IF e(i) = 0 THEN f(i) = e(i — 1) ELSE f(i) = 12<br/> IF f(i) > 12 THEN f(i) = 12<br/> <br/> IF j(i) = j(i — 1) THEN k(i) = k(i — 1) + 1 ELSE k(i) = 0<br/> IF k(i) = 0 THEN m(i) = k(i — 1) ELSE m(i) = 12<br/> IF m(i) > 12 THEN m(i) = 12<br/> <br/> p(f(i)) = p(f(i)) + 1: q(m(i)) = q(m(i)) + 1<br/> <br/> IF i / 1000 = INT(i / 1000) THEN LOCATE 3, 1: PRINT i, " from ", n, INT(100 * i / n); " %",<br/> NEXT<br/> <br/> LOCATE 3, 1: FOR t = 1 TO 12<br/> PRINT INT(n / (2 ^ (t + 1))), INT((p(t — 1) + q(t — 1)) / 2), p(t — 1), q(t — 1)<br/> NEXT<br/> <br/> te = TIMER<br/> PRINT: PRINT te — tb; «second», INT(n / (te — tb)); " in second "<br/> PRINT n, " elements ",<br/> <br/> PRINT #2, te — tb; «second», INT(n / (te — tb)); " in second "<br/> PRINT #2, n, " elements ",: PRINT #2,<br/> <br/> PRINT #2,: PRINT #2, " THEORY Average BIG EVEN ": PRINT #2,<br/> FOR t = 1 TO 12<br/> PRINT #2, INT(n / (2 ^ (t + 1))), INT((p(t — 1) + q(t — 1)) / 2), p(t — 1), q(t — 1)<br/> NEXT[/code]<br/> <br/> Results:<br/> <br/> [code] 40 second 139555 in second <br/> 5600000 elements <br/> <br/> THEORY Average BIG EVEN<br/> <br/> 1400000 1400610 1399595 1401625<br/> 700000 700026 700122 699931<br/> 350000 349716 349508 349925<br/> 175000 174823 174892 174755<br/> 87500 87424 87564 87285<br/> 43750 43837 43931 43744<br/> 21875 22028 21983 22074<br/> 10937 10850 10865 10835<br/> 5468 5481 5496 5466<br/> 2734 2755 2732 2778<br/> 1367 1388 1396 1380<br/> 687 687 687 687 [/code]<br/> <br/> Практические распределения соответствуют теоретическим<br/> значит случайная последовательность качественная<br/> и возможно изучить паттерны различных последовательностей<br/> <br/> Биномиальное Логарифмическое Интегральное Пирамидальное распределение<br/> БЛИП распределение случайных чисел<br/> <br/> Особенность программы: индексы индексов p(f(i)) & q(m(i))<br/> <br/> Думаю у случайных проблемы с чётностью:<br/> слишком резко меняется чётность случайных"