программа для рулетки

обман в лотереях, фэйковые лотереи, лохотрон на лотереях

Модераторы: lotlog, nord73, another

Ответить
Аватара пользователя
DANILIN78
Гуру
Гуру
Сообщения: 1585
Зарегистрирован: Пт июн 06, 2014 6:29 pm
Благодарил (а): 217 раз
Поблагодарили: 112 раз
Контактная информация:

Re: программа для рулетки

Сообщение DANILIN78 » Вт май 21, 2019 4:00 pm

про включение в азартные игры
гуманитарный пример: трамвай

трамваи ночью не ходят
трамваи начинают ходить утром
трамваи ходят днём

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

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

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

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

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

надеясь на деление несовпадений подряд

Аватара пользователя
DANILIN78
Гуру
Гуру
Сообщения: 1585
Зарегистрирован: Пт июн 06, 2014 6:29 pm
Благодарил (а): 217 раз
Поблагодарили: 112 раз
Контактная информация:

Re: программа для рулетки

Сообщение DANILIN78 » Вс июн 23, 2019 2:40 pm

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

напоминаю мою идею:
любые свои системы испытывайте на кено

и лично я за системы кено:

медленный кено 2 из 3 из 20 из 80
=гипергеомет(2;3;20;80)
=0,1388
=1 / 7,2

быстрый кено 1 из 2 из 20 из 80
=гипергеомет(1;2;20;80)
=0,3797
=1 / 2,63

исключая невыпадающие номера достигать бы
кено 1 из 2 из 20 из 40
=гипергеомет(1;2;20;40)
=0,5128
=1 / 1,95

Аватара пользователя
DANILIN78
Гуру
Гуру
Сообщения: 1585
Зарегистрирован: Пт июн 06, 2014 6:29 pm
Благодарил (а): 217 раз
Поблагодарили: 112 раз
Контактная информация:

Re: программа для рулетки

Сообщение DANILIN78 » Чт июн 27, 2019 7:45 pm

Вновь востребованные исследования 0 и 1

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

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

viewtopic.php?p=120981#p120981
viewtopic.php?p=121000#p121000
viewtopic.php?p=121095#p121095

как контроль 0 и 1
как контроль нулей и единиц

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

timofei7772
Новичок
Новичок
Сообщения: 2
Зарегистрирован: Ср авг 14, 2019 6:24 pm

Re: программа для рулетки

Сообщение timofei7772 » Ср авг 14, 2019 7:00 pm

всем привет! как настроение? посоветуйте программы для тото в вставка! спасибо.

Аватара пользователя
DANILIN78
Гуру
Гуру
Сообщения: 1585
Зарегистрирован: Пт июн 06, 2014 6:29 pm
Благодарил (а): 217 раз
Поблагодарили: 112 раз
Контактная информация:

Re: программа для рулетки

Сообщение DANILIN78 » Чт сен 12, 2019 2:27 pm

qbasic игра угадай число: 1 строка

1 IF Russia = 0 THEN Russia = 2222: RANDOMIZE TIMER: num = INT(RND * 100) + 1: GOTO 1 ELSE IF Russia <> 0 THEN INPUT n: IF n < num THEN PRINT "MORE": GOTO 1 ELSE IF n > num THEN PRINT "less": GOTO 1 ELSE IF n = num THEN PRINT "da": END ELSE GOTO 1

qbasic version of "guess my number game" 1 liner

Аватара пользователя
DANILIN78
Гуру
Гуру
Сообщения: 1585
Зарегистрирован: Пт июн 06, 2014 6:29 pm
Благодарил (а): 217 раз
Поблагодарили: 112 раз
Контактная информация:

Re: программа для рулетки

Сообщение DANILIN78 » Чт сен 12, 2019 6:09 pm

qbasic игра угадай число: 1 строка

Код: Выделить всё

1 IF Russia = 0 THEN Russia = 2222: RANDOMIZE TIMER: num = INT(RND * 100) + 1: GOTO 1 ELSE IF Russia <> 0 THEN INPUT n: IF n < num THEN PRINT "MORE": GOTO 1 ELSE IF n > num THEN PRINT "less": GOTO 1 ELSE IF n = num THEN PRINT "da": END ELSE GOTO 1 'DANILIN Russia 9-9-2019 guessnum.bas
1 IF Russia = 0 THEN Russia = 2222: RANDOMIZE TIMER: num = INT(RND * 100) + 1: GOTO 1 ELSE IF Russia <> 0 THEN INPUT n: IF n < num THEN PRINT "MORE": GOTO 1 ELSE IF n > num THEN PRINT "less": GOTO 1 ELSE IF n = num THEN PRINT "da": END ELSE GOTO 1 'DANILIN Russia 9-9-2019 guessnum.bas

qbasic version of "guess my number game" 1 line

c# игра угадай число: 1 строка

Код: Выделить всё

using System; using System.Text;namespace GURU { class Program { static void Main(string[] args) { Random rand = new Random(); int Russia = 0; int n = 0; int num = 0; dav: if(Russia == 0) {Russia = 2222; num = rand.Next(100)+1; goto dav; }else if (Russia != 0) {Console.Write("? "); n = Convert.ToInt32(Console.ReadLine());} if (n < num) { Console.WriteLine("MORE"); goto dav;}else if (n > num) { Console.WriteLine("less"); goto dav;}else if (n == num) {Console.Write("da"); Console.ReadKey(); }else goto dav;}}}// DANILIN Russia 9-9-2019 guessnum.cs
using System; using System.Text;namespace GURU { class Program { static void Main(string[] args) { Random rand = new Random(); int Russia = 0; int n = 0; int num = 0; dav: if(Russia == 0) {Russia = 2222; num = rand.Next(100)+1; goto dav; }else if (Russia != 0) {Console.Write("? "); n = Convert.ToInt32(Console.ReadLine());} if (n < num) { Console.WriteLine("MORE"); goto dav;}else if (n > num) { Console.WriteLine("less"); goto dav;}else if (n == num) {Console.Write("da"); Console.ReadKey(); }else goto dav;}}}// DANILIN Russia 9-9-2019 guessnum.cs

c# version of "guess my number game" 1 line

Аватара пользователя
DANILIN78
Гуру
Гуру
Сообщения: 1585
Зарегистрирован: Пт июн 06, 2014 6:29 pm
Благодарил (а): 217 раз
Поблагодарили: 112 раз
Контактная информация:

Re: программа для рулетки

Сообщение DANILIN78 » Ср дек 04, 2019 3:29 pm

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

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

неудивительно: в учебниках теории вероятностей искомые формулы
случайно отсутствуют но могли бы смоделировать в excel

DANILIN78 » Пт июл 05, 2019 10:17 pm viewtopic.php?p=123053#p123053

на примере вероятности 50% сколько раз было 7 раз подряд
и другие количества признаков подряд
чтоб соответствовали формулам включающим логарифм
иначе генератор случайных чисел ... фальшивый

DANILIN78 » Пт мар 01, 2019 3:13 pm viewtopic.php?p=121078#p121078

видим результаты типа того:

Код: Выделить всё

	2598	81	%
1	463	14	%
2	102	3	%
3	27	1	%
4	7		%
5	3		%
6			%
7			%

Аватара пользователя
DANILIN78
Гуру
Гуру
Сообщения: 1585
Зарегистрирован: Пт июн 06, 2014 6:29 pm
Благодарил (а): 217 раз
Поблагодарили: 112 раз
Контактная информация:

простейшая вероятность

Сообщение DANILIN78 » Чт дек 12, 2019 10:43 am

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

=СЛУЧМЕЖДУ(0;1)
=ЕСЛИ(B3=B2;C2+1;0)
=СЧЁТЕСЛИ(C$3:C$55000;D2)
=СУММ(E2:E10)
=E2/E3



идея: фальсифицировать вероятность 50%

результаты:

исследование E зелёным чисто excel:
случайные распределились закономерно

исследование 0 жёлтым qb 0:
случайные распределились закономерно

исследование 1 красным qb 1:
явная подделка равное число подряд

исследование 2 лиловым qb 2:
умная подделка но не запрограммированы все возможные
и виден перекос из-за алгоритма

вывод: определить фальшивые случайные реально

Код: Выделить всё

' 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

Аватара пользователя
DANILIN78
Гуру
Гуру
Сообщения: 1585
Зарегистрирован: Пт июн 06, 2014 6:29 pm
Благодарил (а): 217 раз
Поблагодарили: 112 раз
Контактная информация:

последовательность фальшивая перетасованная

Сообщение DANILIN78 » Вс дек 15, 2019 11:46 pm

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

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



причём эксцель нагляднее программ
зато возможны программы синтеза c# онлайн


sosed
Гуру
Гуру
Сообщения: 3621
Зарегистрирован: Сб июл 22, 2006 4:00 am
Благодарил (а): 47 раз
Поблагодарили: 144 раза

Re: программа для рулетки

Сообщение sosed » Чт дек 19, 2019 1:40 pm

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

Аватара пользователя
DANILIN78
Гуру
Гуру
Сообщения: 1585
Зарегистрирован: Пт июн 06, 2014 6:29 pm
Благодарил (а): 217 раз
Поблагодарили: 112 раз
Контактная информация:

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

Сообщение DANILIN78 » Вс дек 22, 2019 3:25 am

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

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

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

Код: Выделить всё

'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


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

in C# randomness is also low-power
I suppose understood by people as supposedly normal

Код: Выделить всё

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 < 5555; i++)
{ var d = rand.Next(2);
if (d<0.5)
    Console.WriteLine("0"); 
     else Console.WriteLine("1"); 
}}}}
ссылка не для гостей и ботов

Аватара пользователя
DANILIN78
Гуру
Гуру
Сообщения: 1585
Зарегистрирован: Пт июн 06, 2014 6:29 pm
Благодарил (а): 217 раз
Поблагодарили: 112 раз
Контактная информация:

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

Сообщение DANILIN78 » Сб дек 28, 2019 11:22 pm

достоверная случайность: перетасованная
то бишь 2-сторонняя то бишь интегральная вероятность

Программа 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 близко к теории




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

Аватара пользователя
DANILIN78
Гуру
Гуру
Сообщения: 1585
Зарегистрирован: Пт июн 06, 2014 6:29 pm
Благодарил (а): 217 раз
Поблагодарили: 112 раз
Контактная информация:

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

Сообщение DANILIN78 » Вт дек 31, 2019 3:39 am

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

Используя 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

Аватара пользователя
DANILIN78
Гуру
Гуру
Сообщения: 1585
Зарегистрирован: Пт июн 06, 2014 6:29 pm
Благодарил (а): 217 раз
Поблагодарили: 112 раз
Контактная информация:

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

Сообщение DANILIN78 » Сб янв 04, 2020 4:25 am

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

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

Ответить

Вернуться в «Лохотроны в сети»

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и 1 гость