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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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


Аватара пользователя
sosed
Гуру
Гуру
Сообщения: 3738
Зарегистрирован: Сб июл 22, 2006 4:00 am
Благодарил (а): 51 раз
Поблагодарили: 163 раза

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Сообщение DANILIN78 » Чт мар 05, 2020 3:55 am

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

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

'datable55.bas

n = 12000: s = 0
DIM b(n), d(n), e(n), f(n)
DIM j(n), k(n), m(n), p(16), q(16)

OPEN "bb12.txt" FOR INPUT AS #1
OPEN "zz12.txt" FOR OUTPUT AS #2
 
LOCATE 1, 1: PRINT " TEOP          CPED          MAL           4ET "

FOR i = 2 TO n - 1
    INPUT #1, b(i): 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

    PRINT #2, i, b(i), INT(m), d(i), e(i), f(i), j(i), k(i), m(i)
    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
NEXT

PRINT #2,: PRINT #2, " TEOP          CPED          MAL           4ET ": 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
Результаты:

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

TEOP          CPED          MAL           4ET 

 3000          2971          2915          3028 
 1500          1489          1452          1527 
 750           760           764           756 
 375           401           409           393 
 187           182           181           184 
 93            81            89            74 
 46            47            47            48 
 23            25            29            22 
 11            11            15            8 
 5             3             3             3 
 2             2             4             1 
 1             2             1             4 
Практические распределения соответствуют теоретическим
значит случайная последовательность качественная
и возможно изучить паттерны различных последовательностей

Ответить

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

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

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