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

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

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

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

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

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