фальсификация случайности

другие темы:

Математика жизни 22 ключевые и МЫ Mathematics of Life 22 keywords & WE

Социальный Экспорт: Лидер Ведомый Жертва
всепоглощающие новые миры WarCraft2: стратегии и МЫ
IQ и МЫ
? неужели сбывается мой прогноз курса валют 9 августа 2018 ?

вопрос президенту о грамотности экспортной

сливающие интеграл логарифмически и МЫ

Учу EXCEL за 6 минут

Всероссийский финансовый зачёт finzachet и МЫ

Учим C# Windows Forms зная Basic
Учим C# зная basic

Интеграл побеждает Логарифм: реальность и зазеркалье

Интеграл обманывает чужих и МЫ

Волны вероятности повышают надёжность

Инь и Ян вероятности и МЫ

Пиковая Дама Управление рисками Queen Spades Risk Management

Интеграл Логарифм Комбинаторика и МЫ

Русская сортировка половинами: человеческая сортировка быстрее в 4 раза и МЫ

чуйка и вы и математика и интеграл и мы

бесплатные лекции анимации могут создавать все

ЭКСПОРТ Лидер Ведомый Жертва EXPORT leader slave victim

лучшая кредитка и МЫ best credit card and WE

логарифм жизни и МЫ

Интеграл жизни и МЫ

Рефинансирование кредитов 2-х типов и МЫ

объяснение убытков после повышения ставок и МЫ

Россия и Украина и Европа и МЫ

Данилин: АнтиИгроМаниЯ // Danilin: AntiGambling

Квадрат Экономии Данилиных QED

Деление несовпадений подряд и МЫ

Экспорт и отличие Инвестиций и фальшь-инвестиций

 
Никому никогда ничего не рекомендую и всегда пишу только про себя

КОМБИНАТОРИКА понятно школа просто детский сад Данилин COMBINATORY

ЛОГАРИФМ понятно школа просто детский сад Данилин LOGARITHM

ИНТЕГРАЛ понятно школа просто детский сад Данилин INTEGRAL

лет ми спик фром май харт ин инглиш

falsification of probability

exploring possibility of falsification of random
qbasic qb64 programs were created in an hour
and a table using formulas

= CASEBETWEEN(0;1)
= IF (B3 = B2; C2 + 1; 0)
= COUNTIF (C$3: C$55000; D2)
= SUM(E2:E10)
= E2 / E3



idea: fake a 50% chance

results:

research E green pure excel:
randomly distributed naturally

research 0 yellow qb 0:
randomly distributed naturally

Study 1 in red qb 1:
explicit fake equal number in a row

research 2 violet qb 2:
smart fake but not all programmed
and skew due to algorithm

Conclusion: identify fake random real

' 0.bas
OPEN «0.txt» FOR OUTPUT AS #1
FOR s = 1 TO 50000: PRINT #1, (INT(RND * 1000) MOD 2): NEXT
CLOSE

' 1.bas
OPEN «1.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

' 2.bas
OPEN «2.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

Conclusion: identify fake random real

одновременно сбывается моя тема

мой курс иносранщины

• 09 августа 2018, 14:54

вижу курс иносранщины по месяцам
на 1-вые числа месяцев:

сентябрь: 65,5
октябрь: 65
ноябрь: 64,5
декабрь: 64
январь: 63

проверим дальновидность

сегодня: 62,84

тема развивается на форуме программистов США
после вопроса их админов мол что за спам непонятный

сразу там нашлись 5 понимающих
и через онлайн переводчик доказал им правильность

qb64.org/forum/index.php?topic=1976.0

используя программу синтеза случайных
и разделив на малые 0 и большие 1
синтезированы 55000 случайных и проверены

несмотря на нормальность количества подряд 0...7
большее число подряд невозможно
поэтому последовательность хуже обычного rnd

'rndxx.bas
OPEN «rndxxx.txt» FOR OUTPUT AS #1

FOR i = 1 TO 55555: r = Rand
    IF r < 0.5 THEN PRINT #1, 0 ELSE PRINT #1, 1
    'IF r <= 0.5 THEN PRINT #1, 0 ELSE PRINT #1, 1
    'IF r <= 0.7 THEN PRINT #1, 0 ELSE PRINT #1, 1
NEXT: CLOSE

FUNCTION Rand: STATIC Seed
x1 = (Seed * 214013 + 2531011) MOD 2 ^ 24
Seed = x1: Rand = x1 / 2 ^ 24
END FUNCTION



using a random synthesis program
and dividing into small 0 and large 1
synthesized 55000 random and tested

despite normality of number of consecutive 0...7
a larger number in a row is not possible
therefore sequence is worse than usual rnd

Программа peretas.bas создаёт последовательность
случайные a: 0 и 1 алгоритмом ручным из интернета

и программа создаёт случайные d: 0… 77777
для перетасовки и сортируя массив d упорядочили массив a
и возможно против повторения лучше тасуемых 1000000


'peretas.bas
DIM a(55555), d(55555)

OPEN «aa.txt» FOR OUTPUT AS #1: OPEN «dd.txt» FOR OUTPUT AS #2
OPEN «aaaa.txt» FOR OUTPUT AS #3: OPEN «dddd.txt» FOR OUTPUT AS #4

FOR i = 1 TO 55555: r = Rand: a(i) = INT(r * 2): PRINT #1, a(i): NEXT
FOR i = 1 TO 55555: r = Rand: d(i) = INT(r * 77777): PRINT #2, d(i): NEXT

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

FOR i = 1 TO 55555: PRINT #3, a(i): PRINT #4, d(i): NEXT
CLOSE

FUNCTION Rand
STATIC Seed
x1 = (Seed * 214013 + 2531011) MOD 2 ^ 24
Seed = x1
Rand = x1 / 2 ^ 24
END FUNCTION


Теоретические значения в эксцель excel через формулы

=C3/2
=D3+C4
=D4*55000

показывают: из 55000 за 7 шагов охватывается 54570
номеров в своих последовательностях
и вероятно отклонение выдаёт фальшивую случайность

и перетасовав задействовано 54885 близко к теории

Program peretas.bas creates a sequence
random a: 0 and 1 by manual algorithm from Internet

and program creates random d: 0… 77777
for shuffling and sorting an array d array a is ordered
and perhaps against repetition it is better to shuffle cards 1000000


'peretas.bas
DIM a(55555), d(55555)

OPEN «aa.txt» FOR OUTPUT AS #1: OPEN «dd.txt» FOR OUTPUT AS #2
OPEN «aaaa.txt» FOR OUTPUT AS #3: OPEN «dddd.txt» FOR OUTPUT AS #4

FOR i = 1 TO 55555: r = Rand: a(i) = INT(r * 2): PRINT #1, a(i): NEXT
FOR i = 1 TO 55555: r = Rand: d(i) = INT(r * 77777): PRINT #2, d(i): NEXT

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

FOR i = 1 TO 55555: PRINT #3, a(i): PRINT #4, d(i): NEXT
CLOSE

FUNCTION Rand
STATIC Seed
x1 = (Seed * 214013 + 2531011) MOD 2 ^ 24
Seed = x1
Rand = x1 / 2 ^ 24
END FUNCTION


Theoretical values in Excel Excel via formulas

=C3/2
=D3+C4
=D4*55000

show: out of 55000 for 7 steps covered 54570
numbers in their sequences
and probably deviation betrays a false accident

and shuffling involved 54885 close to theory

Theoretical values in Excel Excel via formulas

Тема предсказуемо развивается на форумах США
qb64.org/forum/index.php?topic=1976
csharpforums.net/threads/falsification-of-probability.5109

где дарят программы расчёта случайных
referencesource.microsoft.com/#mscorlib/system/random.cs,56

и осталось объединить мой дизайн

https://ideone.com/lgxbXJ

using System;using System.Linq;
using System.Collections.Generic;
using System.Text.RegularExpressions;
namespace Rextester
{ public class Program
    { public static void Main(string[] args)
        { Random rand = new Random();
for (int i = 1; i < 55; i++)
{ double d = rand.Next(2);
Console.WriteLine(Math.Ceiling(d));
}}}}

и расчёты
для вычисления 55000 случайных через онлайн компиляторы

Проверка на случайность цифр числа ПИ

Используя 55000 цифр числа пи
сначала в Word переведено в столбик заменой
в Excel составлены формулы разделения на:
чётные \ нечётные и малые \ большие

и далее использованы мои таблицы
заодно сравнивая с теоретическим разделением 

Результаты: среднее у обоих разделений: 0,5
и разделение соостветствует случайности истинной
и ещё возможно перетасовать
и ещё возможно исследовать другие константы и корни





Смысл задачи: истинная случайность для людей неестественна
и возможно синтезировать маломощные человеческие вероятности

Зато если речь о преодолении случайности
понимающий волны вероятности повышает надёжность

Волны вероятности повышают надёжность:
моя разработка минувшего 10-летия

Ближайший шаг: перетасовка слабым алгоритмом
случайности слабой делает ли случайность нормальной

Взята последовательность плохая
и вставлена в эксцель в 2 столбца на расстоянии
и слева впритык 2-го столбца столбец чисел подряд
и сортированы столбцы впритык от максимума к минимуму

Группируются вместе: последовательности обратная и прямая
и далее сортировка обоих урорядочивая обратную
одновременно перетасовывается последовательность прямая 

Проверка показывает нормальность в перетасованной
последовательности чёт\нечет и больших\малых

Автоматический алгоритм без rnd считывает массив прямой
и сразу есть массив обратный:… это же компьютер ...

Сортировка обратного массива перетасовывает прямой массив
и получается последовательность нормальная

'tasov.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

//tasov.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();}}}

Nearest step: shuffling by weak algorithm
weak randomness is randomness of normal

Sequence is bad
and inserted into Excel in 2 columns at a distance
and to left end-to-end of 2nd column is a column of numbers in a row
and columns are sorted end to end from maximum to minimum

Grouped together: reverse and forward sequences
and then sort both by ordering reverse
sequence is shuffled simultaneously. 

test shows normality of a shuffled
sequences of even\odd and large\small

An automatic algorithm without rnd reads array straight
and immediately there is an array reverse:… it's a computer ...

Sorting reverse array shuffles forward array
and it turns out sequence is normal

'tasov.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


//tasov.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();}}}

пиша через онлайн перевод всегда слежу
чтобы иностранцам лишнее не выдать

и на зарубежном форуме начав тему в прошлом
году вызвал знания от молчавшего
единомышленника в начавшемся году
и понявшего: теряет приоритет

barnes.x10host.com/index.html

Probability and Statistics
Quantum Theory of Phonons
Vectors and Trigonometry
Classical Field Theory
Statistical Mechanics
Riemannian Geometry
Special Relativity
Number and Measure
Strange Creatures
Quantum Mechanics
Complex Numbers
Thermodynamics
Ordo Ab Chao

новейшее заокеанское:

barnes.x10host.com/index.html

Разработки нескольких лет оформленные в новогодние выходные
получили государственное свидетельство о регистрации пр.ЭВМ

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

и в интернете зафиксирована формула

N=LOG(1-c)/LOG(1-p)

Реферат включает таблицы и формулы и графики
поэтому публиковать возможно изображения страниц



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



Developments of several years issued on new year's weekend
received a state certificate of registration of computer system

Research and transformation of sorting of pseudorandom sequences

and formula is fixed on internet

N=LOG(1-c)/LOG(1-p)

Abstract includes tables and formulas and graphs
therefore it is possible to publish images of pages

Research and transformation of sorting of pseudorandom sequences

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

[code]'datable99.bas

RANDOMIZE TIMER
tb = TIMER: s = 0
OPEN «zz99.txt» FOR OUTPUT AS #2
n = VAL(MID$(TIME$, 7, 2)) * 10 ^ 5
DIM b(n), d(n), e(n), f(n)
DIM j(n), k(n), m(n), p(16), q(16)
LOCATE 1, 1: PRINT " THEORY        Average       BIG           EVEN "

FOR i = 2 TO n — 1
    b(i) = INT(RND * 900) + 100: s = s + b(i): m = s / i

    IF b(i) < m THEN d(i) = 0 ELSE d(i) = 1
    IF b(i) / 2 = INT(b(i) / 2) THEN j(i) = 0 ELSE j(i) = 1

    IF d(i) = d(i — 1) THEN e(i) = e(i — 1) + 1 ELSE e(i) = 0
    IF e(i) = 0 THEN f(i) = e(i — 1) ELSE f(i) = 12
    IF f(i) > 12 THEN f(i) = 12

    IF j(i) = j(i — 1) THEN k(i) = k(i — 1) + 1 ELSE k(i) = 0
    IF k(i) = 0 THEN m(i) = k(i — 1) ELSE m(i) = 12
    IF m(i) > 12 THEN m(i) = 12

    p(f(i)) = p(f(i)) + 1: q(m(i)) = q(m(i)) + 1

    IF i / 1000 = INT(i / 1000) THEN LOCATE 3, 1: PRINT i, " from ", n, INT(100 * i / n); " %",
NEXT

LOCATE 3, 1: FOR t = 1 TO 12
    PRINT INT(n / (2 ^ (t + 1))), INT((p(t — 1) + q(t — 1)) / 2), p(t — 1), q(t — 1)
NEXT

te = TIMER
PRINT: PRINT te — tb; «second», INT(n / (te — tb)); " in second  "
PRINT n, " elements ",

PRINT #2, te — tb; «second», INT(n / (te — tb)); " in second  "
PRINT #2, n, " elements ",: PRINT #2,

PRINT #2,: PRINT #2, " THEORY        Average       BIG           EVEN ": PRINT #2,
FOR t = 1 TO 12
    PRINT #2, INT(n / (2 ^ (t + 1))), INT((p(t — 1) + q(t — 1)) / 2), p(t — 1), q(t — 1)
NEXT[/code]

Results:

[code] 40 second             139555  in second 
 5600000       elements    

 THEORY        Average       BIG           EVEN

 1400000       1400610       1399595       1401625
 700000        700026        700122        699931
 350000        349716        349508        349925
 175000        174823        174892        174755
 87500         87424         87564         87285
 43750         43837         43931         43744
 21875         22028         21983         22074
 10937         10850         10865         10835
 5468          5481          5496          5466
 2734          2755          2732          2778
 1367          1388          1396          1380
 687           687           687           687 [/code]

Практические распределения соответствуют теоретическим
значит случайная последовательность качественная
и возможно изучить паттерны различных последовательностей

Биномиальное Логарифмическое Интегральное Пирамидальное распределение
БЛИП распределение случайных чисел

Особенность программы: индексы индексов p(f(i)) & q(m(i))

Думаю у случайных проблемы с чётностью:
слишком резко меняется чётность случайных

Program distribution for the random spectra
number of consecutive identical features
less \ more and even \ odd

[code]'datable99.bas

RANDOMIZE TIMER
tb = TIMER: s = 0
OPEN «zz99.txt» FOR OUTPUT AS #2
n = VAL(MID$(TIME$, 7, 2)) * 10 ^ 5
DIM b(n), d(n), e(n), f(n)
DIM j(n), k(n), m(n), p(16), q(16)
LOCATE 1, 1: PRINT " THEORY        Average       BIG           EVEN "

FOR i = 2 TO n — 1
    b(i) = INT(RND * 900) + 100: s = s + b(i): m = s / i

    IF b(i) < m THEN d(i) = 0 ELSE d(i) = 1
    IF b(i) / 2 = INT(b(i) / 2) THEN j(i) = 0 ELSE j(i) = 1

    IF d(i) = d(i — 1) THEN e(i) = e(i — 1) + 1 ELSE e(i) = 0
    IF e(i) = 0 THEN f(i) = e(i — 1) ELSE f(i) = 12
    IF f(i) > 12 THEN f(i) = 12

    IF j(i) = j(i — 1) THEN k(i) = k(i — 1) + 1 ELSE k(i) = 0
    IF k(i) = 0 THEN m(i) = k(i — 1) ELSE m(i) = 12
    IF m(i) > 12 THEN m(i) = 12

    p(f(i)) = p(f(i)) + 1: q(m(i)) = q(m(i)) + 1

    IF i / 1000 = INT(i / 1000) THEN LOCATE 3, 1: PRINT i, " from ", n, INT(100 * i / n); " %",
NEXT

LOCATE 3, 1: FOR t = 1 TO 12
    PRINT INT(n / (2 ^ (t + 1))), INT((p(t — 1) + q(t — 1)) / 2), p(t — 1), q(t — 1)
NEXT

te = TIMER
PRINT: PRINT te — tb; «second», INT(n / (te — tb)); " in second  "
PRINT n, " elements ",

PRINT #2, te — tb; «second», INT(n / (te — tb)); " in second  "
PRINT #2, n, " elements ",: PRINT #2,

PRINT #2,: PRINT #2, " THEORY        Average       BIG           EVEN ": PRINT #2,
FOR t = 1 TO 12
    PRINT #2, INT(n / (2 ^ (t + 1))), INT((p(t — 1) + q(t — 1)) / 2), p(t — 1), q(t — 1)
NEXT[/code]

Results:

[code] 40 second             139555  in second 
 5600000       elements    

 THEORY        Average       BIG           EVEN

 1400000       1400610       1399595       1401625
 700000        700026        700122        699931
 350000        349716        349508        349925
 175000        174823        174892        174755
 87500         87424         87564         87285
 43750         43837         43931         43744
 21875         22028         21983         22074
 10937         10850         10865         10835
 5468          5481          5496          5466
 2734          2755          2732          2778
 1367          1388          1396          1380
 687           687           687           687 [/code]

Practical distributions correspond to theoretical ones
so random sequence is qualitative
and it is possible to study patterns of different sequences

Binomial Logarithmic Integral Pyramidal Distribution
BLIP distribution of Random numbers

Feature of program: index of indixes p(f(i)) & q(m(i))

I think random have problems with parity:
parity of random changes too sharply

Number of consecutive matches is calculated by formula N = log(1-C)/log(1-P),
where N is step, P is probability, C is reliability of probability.
 
Substituting C and P: N = log(1-0.99)/log(1-0.5) = 6.7 = natural value 7,
that means that 7th step of distribution should include
about 1% of half data, due to counting repetitions and 0 and 1, in amount of 100%.

Distribution step number:
at C = P = 0.5; N = 1 = log0.5/log0.5 = log(1-1/2)/log(1-1/2) = 1
at C = 0.25; P = 0.5; N = 2 = log0.75/log0.5 = log(1-1/4)/log(1-1/2) = 2, etc.
 
Multiplication of constant probabilities c+p^n = 1
personifies reliability of probability and creates a formula
N = log(1-c)/log(1-p)
c — probability of winning guaranteed
p — probability of winning event.

for example: with a probability of 99% for a probability of 48.65%
number of mismatches in a row n = log(1-0,99)/log(1-0,4865) = 7
and that means about 50% probability is easy to guess 7 times in a row.

it is simpler to calculate by formula N=7+(5*(1/p-2))
for example p = 0.1 N = 47 is normal and p = 0.78 N = 4 is normal
and same formulas are valid for probabilities above 50%.



what I was required to prove
what we wanted to prove

преодолеваем обман использующий сайты рандом:

1. программа выдаёт число чётное или нечётное
и множество людей должны угадать чётность

олимпийская задача: сочинить псевдо алгоритм на родном языке

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

цель: предостеречь своих от игромании

преодолеваем обман использующий сайты рандом:

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

олимпийская задача: сочинить псевдо алгоритм на родном языке

где программа запрашивает сайт рандома множество раз
обязательно доказывая получение числа с сайта рандома
ради доказательств случайности и получив цепочку чисел

шифрует и сообщает игроку до прогнозов но в реальности
содержа запрограммированное преодоление системы игрока

цель: предостеречь своих от игромании

данные темы защищают приоритет России
на форумах иностранных получая плюсы и подписки
тоже интересующихся алгоритмами быстрыми

Проверка Wolframalpha: надёжность выиграть и проиграть
и вероятность выигрыша и проигрыша создают 4 комбинации:
C+p^N=1 … (1-C)+p^N=1 … C+(1-p)^N=1 … (1-C)+(1-p)^N=1

Причём всё взаимозаменяемо:
C=1-c… c=1-C… P=1-p… p=1-P

Искусственный интеллект Wolframalpha знает логарифм:
solve C+(1-p)^N=1 for N

https://wolframalpha.com/input/?i=solve+C%2B%281-p%29%5EN%3D1+for+N




Checking in Wolframalpha: reliability win and lose
both probability of winning and losing create 4 combinations:
C+p^N=1 ... … (1-C)+p^N=1… C+(1-p)^N=1… (1-C)+(1-p)^N=1

Everything is interchangeable:
C=1-c… c=1-C… P=1-p… p=1-P

Artificial intelligence of Wolframalpha knows logarithm:
solve C+(1-p)^N=1 for N

https://wolframalpha.com/input/?i=solve+C%2B%281-p%29%5EN%3D1+for+N

Большие C & P: выигрыш
Малые c & p: проигрыш

Изначальная формула Excel Эксцель:

=log(1-0,99)/log(1-0,25)
=16

Значит после 16 нулей подряд
для вероятности 0,25=25%=1/4
далее надёжность 99% единицы

Значит буквы большие или малые:

=log(1-C)/log(1-P)
=log©/log(p)
=log(0,01)/log(0,75)
=16

C+(1-P)^N=1
C+p^N=1
= 0,99 + 0,75^16 = 1



Big C & P: winning
Small c & p: losing

Original Excel formula:

=log(1-0,99)/log(1-0,25)
=16

So after 16 zeros in a row
for probability 0.25=25%=1/4
further reliability of 99% of one

So letters are big or small:

=log(1-C)/log(1-P)
=log©/log(p)
=log(0,01)/log(0,75)
=16

C+(1-P)^N=1
C+p^N=1
= 0,99 + 0,75^16 = 1

Тема развивается создавая Приоритет России

Waves of probability increase reliability. Priority of Russia
dev.to/andreydanilin/waves-of-probability-increase-reliability-46bk

Guess number: 1-line C# & qbasic learning algorithm. Priority of Russia
dev.to/andreydanilin/guess-number-1-line-c-qbasic-learning-algorithm-priority-of-russia-1h4g

Falsification of randomness and transformation by sorting of pseudorandom sequences. Priority of Russia
dev.to/andreydanilin/falsification-of-randomness-and-transformation-by-sorting-of-pseudorandom-sequences-priority-of-russia-30fi

Research and transformation by sorting pseudorandom sequences. Priority of Russia
dev.to/andreydanilin/research-and-sorting-transformation-pseudo-random-sequences-priority-of-russia-37ah

PI and randomness of digits after decimal point. Priority of Russia
dev.to/andreydanilin/pi-and-randomness-of-digits-after-decimal-point-priority-of-russia-43g8

Интеграл букв: все комбинации букв всех слов

Дан словарь тысяч слов без лишних символов
12345.txt

Моя программа каждое слово раскладывает на буквы
и составляет таблицу 54321.txt
количества сочетаний всех букв

=26*25/2 = 25*13 = 325

Пока сортировка не реализована
упорядочил в Excel:

33648    E    R
32356    E    S
30022    E    I
28976    A    E
28664    I    N
...
24    K    X
18    Q    X
10    J    X
10    Q    W
8    J    Q

Integral of letters: all combinations of letters of all words

Given a dictionary of thousands of words without extra characters
12345.txt

My program decomposes each word into letters
and creates a table 54321.txt
number of combinations of all letters

'izhitsaUS.bas
'=26*25/2 = 13*25 = 325
DIM a(26, 26)
OPEN «12345.txt» FOR INPUT AS #1
OPEN «135.txt» FOR OUTPUT AS #2
OPEN «54321.txt» FOR OUTPUT AS #3
start = TIMER
z = 1: FOR a = 1 TO 45400
    INPUT #1, s$: s = LEN(s$) ': PRINT s$ ' or all words in memory
    FOR m = 1 TO s — 1: FOR n = m + 1 TO s
            IF MID$(s$, m, 1) = MID$(s$, n, 1) THEN s$ = MID$(s$, 1, n — 1) + MID$(s$, n + 1, LEN(s$))
    NEXT: NEXT: s = LEN(s$)
    LOCATE 1, 1: PRINT z, s$; "          ";: PRINT #2, s$: z = z + 1

    FOR x = 1 TO s: FOR y = 1 TO s
            v = ASC(MID$(s$, x, 1)) — 64
            w = ASC(MID$(s$, y, 1)) — 64
    a(v, w) = a(v, w) + 1: NEXT: NEXT

    FOR u = 1 TO 25: FOR v = u + 1 TO 26
            a(u, v) = a(u, v) + a(v, u): a(v, u) = 0
    NEXT: NEXT
NEXT: finish = TIMER

z = 1: FOR i = 1 TO 25: FOR j = i + 1 TO 26
        PRINT z, a(i, j), CHR$(i + 64), CHR$(j + 64)
        PRINT #3, z; CHR$(9); a(i, j); CHR$(9); CHR$(i + 64); CHR$(9); CHR$(j + 64)
z = z + 1: NEXT: PRINT: PRINT #3,: NEXT
PRINT finish — start
PRINT #2, finish — start

Интеграл букв: все комбинации букв всех слов

Русские буквы: 32 без буквы Ё надеюсь правильно 192=А и 223=Я
плюс промежуточный файл выявляет лишние буквы

Массив свыше 400'000 слов исследован за 20 секунд
записывая на RAM-disk для экономии

Частые сочетания:

269466    А    О
255418    Е    О
252248    А    И
249166    Н    О
245402    А    Р
242352    И    О
239686    О    Р
238594    А    Е
237210    Е    Н
229864    А    Н
...
542    Ж    Ъ
536    Ж    Э
462    Ж    Ф
348    Ф    Щ
232    Щ    Ъ
222    Ч    Ъ
106    Ф    Ъ
106    Щ    Э
88    Ц    Ъ
56    Ъ    Э

Редкие сочетания упорядочиваются вниз

'izhitsa.bas
'=32*31/2 = 31*16 = 496
DIM a(32, 32)
OPEN «12345ru.txt» FOR INPUT AS #1
OPEN «321ru.txt» FOR OUTPUT AS #2
OPEN «54321ru.txt» FOR OUTPUT AS #3
start = TIMER
z = 1: FOR a = 1 TO 2 '4'30028
    INPUT #1, s$: s = LEN(s$) ': PRINT s$ ' or all words in memory
    FOR m = 1 TO s — 1: FOR n = m + 1 TO s
            IF MID$(s$, m, 1) = MID$(s$, n, 1) THEN s$ = MID$(s$, 1, n — 1) + MID$(s$, n + 1, LEN(s$))
    NEXT: NEXT: s = LEN(s$)
    LOCATE 1, 1: PRINT z, s$; "          ";: PRINT #2, s$: z = z + 1

    FOR x = 1 TO s: FOR y = 1 TO s
            v = ASC(MID$(s$, x, 1)) — 191
            w = ASC(MID$(s$, y, 1)) — 191
    a(v, w) = a(v, w) + 1: NEXT: NEXT

    FOR u = 1 TO 31: FOR v = u + 1 TO 32
            a(u, v) = a(u, v) + a(v, u): a(v, u) = 0
    NEXT: NEXT
NEXT: finish = TIMER

z = 1: FOR i = 1 TO 31: FOR j = i + 1 TO 32
        PRINT z, a(i, j), CHR$(i + 191), CHR$(j + 191)
        PRINT #3, z; CHR$(9); a(i, j); CHR$(9); CHR$(i + 191); CHR$(9); CHR$(j + 191)
z = z + 1: NEXT: PRINT: PRINT #3,: NEXT
PRINT finish — start
PRINT #2, finish — start

Integral of letters: all combinations of letters of all words

Given a dictionary of thousands of words without extra characters
12345.txt

My program decomposes each word into letters
and creates a table 54321.txt
number of combinations of all letters

=26*25/2 = 25*13 = 325

While sorting is not implemented
I ordered in Excel