[C#][basic][qb64][Excel] Учим C# зная Basic & Excel & qb64

[Arigato]

Что здесь вообще происходит?

[сфинкс]

данная тема показывает пробелы просвещения России

ведь на нескольких форумах США
понимают даже через перевод перевода

зато россияне и русскоязычные предсказуемо не понимают простейшее

почему понимаю я?

потому что додумался сам сначала в школе в прошлом ... веке
и далее был повод применять в среднем каждую 5-летку

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

https://www.youtube.com/watch?v=fTgoXOUUcfY

[Arigato]

Сообщение от сфинкс

ведь на нескольких форумах США
понимают даже через перевод перевода

Я так и подумал, что вы через гугл-переводчик общаетесь. Ну а учитывая, что ваш родной язык должен быть русский, делаете вы так: пишете текст на русском, затем переводите его на английский, затем переводите перевод на китайский, а с китайского опять на русский. Что на выходу получилось, разбиваете на отдельные строки по несколько слов. Итог и попадает на форум...

[сфинкс]

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

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

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

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



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

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

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


Check for randomness of digits of number of PI

Using 55,000 digits of pi
first in Word translated to column by replacement
Excel compiles formulas for dividing into:
even \ odd and small \ big

and then my tables are used
at same time comparing with theoretical separation

Results: average for both divisions: 0.5
and separation matches chance by true
and it’s still possible to shuffle
and it’s still possible to explore other constants and roots



Meaning of task: true chance for people is unnatural
and it is possible to synthesize low-power human probabilities

But if we are talking about overcoming chance
understanding wave of probability increases reliability

Probability waves increase reliability:
my development of past 10th anniversary

[Arigato]

А эту информацию как-то можно применить при создании алгоритма архиватора, который бы сжимал лучше любого из ныне существующих?

[сфинкс]

обсуждение на всех форумах приходит
к пониманию: решается

вероятностная интегральная транспортная задача
освещаемая 3-мя ютюбами подряд

ИНТЕГРАЛ понятно школа просто детский сад Данилин INTEGRAL
https://www.youtube.com/watch?v=e5iNHnyuEJQ

ЛОГАРИФМ понятно школа просто детский сад Данилин LOGARITHM
https://www.youtube.com/watch?v=GMBGQbEBbfY

КОМБИНАТОРИКА понятно школа просто детский сад Данилин COMBINATORY
https://www.youtube.com/watch?v=cesSFpUl7uI

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

а также американцы подарили ссылку про случайность чисел

Анализ первых 10 миллионов цифр числа pi
https://blogs.sas.com/content/iml/20...its-of-pi.html

переводится через яндекс переводчик
https://translate.yandex.ru/translate

[сфинкс]

ровно 9 месяцев назад 04.04.2019

придуманный мной наобум алгоритм гсч
https://programmersforum.ru/showpost...99&postcount=3
где используется тригонометрия

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

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

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

'VYUGA.bas
DIM a(55555)
RANDOMIZE TIMER: CLS
OPEN "VYUGA.txt" FOR OUTPUT AS #1
d=37
a(1) = INT(RND*d)+1
PRINT #1, a(1)
FOR i = 2 TO 55555
    a(i) = a(i-1) + INT(RND*3*d)+1
    22 IF a(i) > d THEN a(i) = a(i)-d: GOTO 22
    PRINT #1, a(i)
NEXT

https://ideone.com/cPYZad

//VYUGA.cs
using System;using System.Linq;
using System.Collections.Generic;
using System.Text.RegularExpressions;
namespace VYUGA
{ public class Program
    { static double w; 
	static void Main(string[] args) 
        { Random rand = new Random();
int d=37;
double s = rand.Next(5000000);
double a = Math.Round(d*s/5000000)+1;
Console.WriteLine(a);

for (int i = 1; i < 255; i++)
{ w = rand.Next(3000000)+1;
double v = Math.Round(w*d/1000000)+1;
a=a+v;
da: if (a>d) 
{ a=a-d; goto da; }
Console.WriteLine(a);}
Console.ReadKey(); }}}

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

посему ищу алгоритм вида Мерсенна вихрь

Копия темы вызвала ответ из США:
As for your C# code above, why not just change this:

a=a+v;
da: if (a>d) 
{ a=a-d; goto da; }

to:

a=(a+v) % (d+1);

конец цитат из США и я применил
https://ideone.com/lQzPTg

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

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

и вьюга вдруг сделает нормальной случайность тригонометрическую

заодно ниже проявилась разница форумов русских и иностранных
русские: зачем сделал? делать что ли нечего?
иностранные: классно сделал

+ в ответ на ответы: американцы пишут понимая
и думаю: причина: пробел школьного Просвещения России

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

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

[kvitaliy]

Сообщение от сфинкс

я придумал алгоритм Вьюга

Я пытался сравнить этот алгоритм со встроенным RND
Для визуальной наглядности генерируем только числа от 1 до 10 всего 15 штук за сессию
tst.jpg

Нажимал кнопки поочередно. Можете определить, где алгоритм Вьюга, а где RND?
Я не смог. И не увидел ни какой разницы. А если не видно разницы, то смысл изобретать кучу лишнего кода?

[Alar]

Сообщение от сфинкс

заодно ниже проявилась разница форумов русских и иностранных
русские: зачем сделал? делать что ли нечего?
иностранные: классно сделал

Тему не читал, но обратил внимание на это.
Пролистал на страницу назад и там именно

Какая полезная, и очень нужная программа!

https://programmersforum.ru/showpost...2&postcount=51

А так, у разных людей разные мнения, разные реакции, если у многих реакция одинаковая, то это как минимум подозрительно )

[сфинкс]

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

Взята последовательность плохая
и вставлена в эксцель в 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();}}}

https://www.youtube.com/watch?v=YIJmgOTnkTU