Фальсификация случайности и и преобразование сортировкой псевдослучайных последовательностей

Цель: доказать возможность фальсификации случайности и реальность преодоления фальсификации случайности.

Случайность натуральная, разделённая на интегральные логарифмические спектры, предсказуемо показывает короткие дистанции повторов и дистанции повторов длинные массово отсутствуют, зато сортировка последовательности приводит спектры разделения в вид теоретический.

Пробел Просвещения России и СССР и СНГ: интеграл и логарифм в младших классах не изучают и впоследствии считают простейшее якобы сложным.



Используемые обозначения следует понимать буквально: случайность натуральная — природная, созданная без ЭВМ.



Программа «Фальшь случайность 1»

В последовательности увеличивается количество одинаковых подряд.

' dafalse11.bas qbasic
OPEN "da11.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

Столбец G показывает абсурдное распределение при среднем 0,5.
Столбец А – наименование эксперимента;
В1 =СРЗНАЧ(C1:C50000) — среднее значение последовательности;
Столбцы C…F – исследование количества подряд;
Столбец J – случайные для перестановки;
Столбец K – последовательность после перестановки;
M1 =СРЗНАЧ(N1:N50000) — среднее значение последовательности;
Столбцы N…R – исследование количества подряд.

Исследуя другие критерии — возможно применять другие формулы, зато освещаемая методика доступна для понимания в младших классах школы.

До перестановки 500 ячеек: неудовлетворительно



После перестановки 500 ячеек: нормально.



Вывод: выявлена явная подделка вида: равное число одинаковых подряд и преобразована.

Программа «Фальшь случайность 2»

В последовательности увеличивается количество одинаковых подряд, специально учитывая алгоритм проверочный.

' dafalse22.bas qbasic
OPEN "da22.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

До перестановки 500 ячеек: неудовлетворительно



После перестановки 500 ячеек: нормально



Вывод: выявлена умная подделка, ведь не запрограммированы все возможные варианты и виден перекос из-за алгоритма синтеза.

Последовательность фальшивая перетасованная превращается в последовательность случайную.

Вывод: определить фальшивые последовательности реально.

Программами datasov.bas и datasov.cs осуществляется перестановка элементов массива исходного путём сортировки массива инвертированного.

Программа перестановки на языке qbasic

' datasov.bas
DIM a(55000), d(55000)
OPEN "aa.txt" FOR INPUT AS #1
OPEN "dd.txt" FOR OUTPUT AS #2

FOR i = 1 TO 55000
    INPUT #1, a(i): d(55000 - i + 1) = a(i):NEXT

FOR i = 1 TO 54999: FOR j = i TO 55000
        IF d(i) > d(j) THEN SWAP d(i), d(j): SWAP a(i), a(j)
NEXT: NEXT

FOR i = 1 TO 55000: PRINT #2, a(i): NEXT: CLOSE

Программа перестановки на языке C#

// datasov.cs
using System; using System.Linq;
using System.Collections.Generic;
using System.Text; using System.IO;
namespace tasov
{ class Program
    { static long[] a; static long[] d;
        static void Main(string[] args)
        { a = new long[55500]; d = new long[55500]; 
var inpFile = new StreamReader("aa.txt");
for (int i = 1; i <= 55000; i++) 
{ a[i] = Convert.ToInt64(inpFile.ReadLine());
d[55000-i+1] = a[i]; }
for (int i = 1; i <= 54999; i++) 
for (int j = i; j <= 55000; j++) 
if (d[i] > d[j])
{ var temp = d[i]; d[i] = d[j]; d[j] = temp;
temp = a[i]; a[i] = a[j]; a[j] = temp; }
var outFile = new StreamWriter("vv.txt");
for (int i = 1; i <= 55000; i++) 
outFile.WriteLine(a[i]);
Console.ReadKey();}}}

Алгоритм без встроенного RND считывает массив исходный и сразу создаётся массив инвертированный и далее сортировка обратного массива перетасовывает исходный массив и получается последовательность нормальная.

Вывод: случайность достоверная – 2-сторонняя интегральная случайность.

Что и требовалось доказать.


Нобелевская премия сама себя не получит

Возможное продолжение:

Исследование цифр числа пи
Эксперименты исследования случайностей
Волнообразность вероятности логарифмическая
Разработки 2020 года иностранных единомышленников