Фальсификация случайности и и преобразование сортировкой псевдослучайных последовательностей
Цель: доказать возможность фальсификации случайности и реальность преодоления фальсификации случайности.
Случайность натуральная, разделённая на интегральные логарифмические спектры, предсказуемо показывает короткие дистанции повторов и дистанции повторов длинные массово отсутствуют, зато сортировка последовательности приводит спектры разделения в вид теоретический.
Пробел Просвещения России и СССР и СНГ: интеграл и логарифм в младших классах не изучают и впоследствии считают простейшее якобы сложным.
Используемые обозначения следует понимать буквально: случайность натуральная — природная, созданная без ЭВМ.
Программа «Фальшь случайность 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 года иностранных единомышленников