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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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
Гуру
Гуру
Сообщения: 1558
Зарегистрирован: Пт июн 06, 2014 6:29 pm
Благодарил (а): 217 раз
Поблагодарили: 109 раз
Контактная информация:

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
Гуру
Гуру
Сообщения: 1558
Зарегистрирован: Пт июн 06, 2014 6:29 pm
Благодарил (а): 217 раз
Поблагодарили: 109 раз
Контактная информация:

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
Гуру
Гуру
Сообщения: 1558
Зарегистрирован: Пт июн 06, 2014 6:29 pm
Благодарил (а): 217 раз
Поблагодарили: 109 раз
Контактная информация:

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
Гуру
Гуру
Сообщения: 1558
Зарегистрирован: Пт июн 06, 2014 6:29 pm
Благодарил (а): 217 раз
Поблагодарили: 109 раз
Контактная информация:

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
Гуру
Гуру
Сообщения: 1558
Зарегистрирован: Пт июн 06, 2014 6:29 pm
Благодарил (а): 217 раз
Поблагодарили: 109 раз
Контактная информация:

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

Сообщение 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

Ответить

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

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

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