А нужны ли программы?

Программы для анализа и игры в лотереи и у букмекеров

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

Ответить
вадим
Гуру
Гуру
Сообщения: 4633
Зарегистрирован: Вт янв 19, 2010 7:08 pm
Благодарил (а): 1 раз
Поблагодарили: 169 раз

Re: А нужны ли программы?

Сообщение вадим » Пн июн 22, 2020 8:58 pm

Нет нет. Именно разные значения нужно брать в разработку. А вот методы извлечения рационального зерна из этих данных - у каждого могут быть свои.

Combinatorics
Новичок
Новичок
Сообщения: 31
Зарегистрирован: Чт май 28, 2020 10:03 pm
Поблагодарили: 9 раз

Re: А нужны ли программы?

Сообщение Combinatorics » Ср июн 24, 2020 9:36 pm

Вышло новое видео по лото 5х36 от "Лотерейная аналитика от сервиса EpicUreka"
Кто незнаком с идеей то вначале первое видео Индекс редкости комбинаций для 5 из 36 Столото


второе видео Калькулятор 5-го числа комбинации для лотереи 5х36 Столото

Аватара пользователя
иван
Гуру
Гуру
Сообщения: 1449
Зарегистрирован: Пн янв 26, 2009 3:35 pm
Откуда: Краноярск
Благодарил (а): 60 раз
Поблагодарили: 82 раза

Re: А нужны ли программы?

Сообщение иван » Чт июн 25, 2020 11:33 am

Кто нибудь на этом сайте делал прогнозы и какие результаты?

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

Re: А нужны ли программы?

Сообщение DANILIN78 » Пт авг 28, 2020 12:33 pm

Программа решает ребус УДАР + УДАР = ДРАКА
за 5 наносекунд
и перестраивается на другие ребусы за 5 минут

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

' daudar.bas

start = TIMER

FOR u = 1 TO 9
    FOR d = 1 TO 9
        FOR a = 0 TO 9
            FOR r = 0 TO 9
                FOR k = 0 TO 9

IF u = d THEN 22
IF u = a THEN 33
IF u = r THEN 44
IF u = k THEN 55

IF d = a THEN 33
IF d = r THEN 44
IF d = k THEN 55

IF a = r THEN 44
IF a = k THEN 55
IF r = k THEN 55

udar = 1000*u + 100*d + 10*a + r
draka = d*10000 + r*1000 + a*100 + k*10 + a

IF udar + udar = draka THEN PRINT udar, draka

                55 NEXT k
            44 NEXT r
        33 NEXT a
    22 NEXT d
11 NEXT u

finish = TIMER

PRINT finish - start

END
Количество условий сравнения букв вычисляет Комбинаторика
применяемая сочетая КЕНО 2-йки


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

Re: А нужны ли программы?

Сообщение DANILIN78 » Сб авг 29, 2020 2:38 am

Решаем ребус УДАР+УДАР=ДРАКА через массив из 5 букв

Сравнения букв через вложенные циклы

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

' dadraka.bas
start = TIMER
DIM a(5)
FOR u = 1 TO 9: a(1) = u
    FOR d = 1 TO 9: a(2) = d
        FOR a = 0 TO 9: a(3) = a
            FOR r = 0 TO 9: a(4) = r
                FOR k = 0 TO 9: a(5) = k
FOR x = 1 TO 4
   FOR y = x + 1 TO 5
       IF a(x) = a(y) THEN GOTO 55
NEXT y: NEXT x
              udar = 1000 * u + 100 * d + 10 * a + r
              draka = d * 10000 + r * 1000 + a * 100 + k * 10 + a

              IF udar + udar = draka THEN PRINT udar, draka

55 NEXT k: NEXT r: NEXT a: NEXT d: NEXT u

finish = TIMER

PRINT finish - start

END
Визуализация комбинаций


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

Re: А нужны ли программы?

Сообщение DANILIN78 » Сб сен 05, 2020 12:53 pm

Чудеса программирования:
программу решающую ребус: удар + удар = драка
разместил на американском форуме

И там решив похожие примеры создана
!?! программа пишущая мою программу !?!
для решения любых ребусов

ссылка не для гостей и ботов
qb64.org/forum/index.php?topic=2961.msg122317#msg122317

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

Re: А нужны ли программы?

Сообщение DANILIN78 » Вс сен 13, 2020 10:03 pm

Зарубежье дарит обновлённые статьи научные:

https://yadi.sk/d/iFwMdQ3WNLgVJA
yadi.sk/d/iFwMdQ3WNLgVJA

WFBarnes-net-17-08-20

Algebra
Central Forces
Classical Field Theory
Collatz Conjecture
Complex Numbers
Conic Sections
Linear Algebra
Mathedelica
Mathedelics
Measure and Number
Mechalculus
Ordo Ab Chao
Probability and Statistics
Quantum Mechanics (draft)
Quantum Theory of Phonons
Riemannian Geometry
Special Relativity
Statistical Mechanics
Thermodynamics
Vectors and Trigonometry

Всего 12 МБ из них 1 рукопись 5 МБ

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

DJON
Новичок
Новичок
Сообщения: 26
Зарегистрирован: Пн мар 11, 2019 4:29 am
Поблагодарили: 2 раза

Re: А нужны ли программы?

Сообщение DJON » Пн сен 21, 2020 4:06 am

вадим писал(а):
Пн июн 22, 2020 9:44 am
Думаю что Ван Чэнчжоу не достаточно сильный знаток лотерей. 400 долл. США, вкладывая в букмекерскую контору, могут приносить доход, в лотерее это всегда проигрыш. Да и книги можно писать дома. Маме 76 лет, сын мог бы вести себя по другому..... ( В прочем, не я судья чужих поступков ).
Пусть хоть на книгах заработает.
А как привлечь к себе внимание ?
Стандартная схема,набрался знаний но не знает что с ними делать.Что бы найти эту иголку в стоге сена,которая будет кому то полезной,нужно будет прочитать три книги )

вадим
Гуру
Гуру
Сообщения: 4633
Зарегистрирован: Вт янв 19, 2010 7:08 pm
Благодарил (а): 1 раз
Поблагодарили: 169 раз

Re: А нужны ли программы?

Сообщение вадим » Пн сен 21, 2020 11:57 am

Может быть так что в этих книгах и нет этой иголки. Очередная болтовня на тему лотерей. Но... каждый пишущий надеется что его труд шедевр.
Выводы сделают читатели.

DJON
Новичок
Новичок
Сообщения: 26
Зарегистрирован: Пн мар 11, 2019 4:29 am
Поблагодарили: 2 раза

Re: А нужны ли программы?

Сообщение DJON » Чт сен 24, 2020 3:23 pm

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

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

Re: А нужны ли программы?

Сообщение DANILIN78 » Чт окт 08, 2020 1:16 am

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

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

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



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

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

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

1	18912	E	S
2	17898	I	N
3	14121	A	E
4	13913	E	R
5	13057	E	N
6	12980	I	S
7	12694	A	N
8	12372	A	I
9	12010	A	T
10	11760	R	S

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

'izhitsaUS.bas
DIM a(26, 26)
OPEN "12345.txt" FOR INPUT AS #1
OPEN "54321.txt" FOR OUTPUT AS #2

FOR a = 1 TO 45400
    INPUT #1, s$: s = LEN(s$) ': PRINT s$ ' or all in memory

    FOR x = 1 TO s - 1: FOR y = x + 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: NEXT

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 #2, z; CHR$(9); a(i, j); CHR$(9); CHR$(i + 64); CHR$(9); CHR$(j + 64)
z = z + 1: NEXT: PRINT: PRINT #2,: NEXT
Интеграл букв: все комбинации букв всех слов

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

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

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

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

1	141574	Е	Н
2	134736	А	И
3	123388	А	Н
4	115612	Н	О
5	113545	А	Е
6	106810	О	Т
7	105007	Е	О
8	99756	А	О
9	97112	Е	И
10	94669	А	Т
Редкие сочетания упорядочиваются вниз

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

'izhitsa.bas
'=32*31/2 = 31*16 = 496
DIM a(32, 32)
OPEN "b:/12345ru.txt" FOR INPUT AS #1
OPEN "b:/54321ru.txt" FOR OUTPUT AS #2
OPEN "b:/321ru.txt" FOR OUTPUT AS #3
start = TIMER
u = 1: FOR a = 1 TO 430028
    INPUT #1, s$: s = LEN(s$) ': PRINT s$ ' or all words in memory
    LOCATE 1, 1: PRINT u, s$; "          ";: PRINT #3, s$: u = u + 1
    FOR x = 1 TO s - 1: FOR y = x + 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: 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 #2, z; CHR$(9); a(i, j); CHR$(9); CHR$(i + 191); CHR$(9); CHR$(j + 191)
z = z + 1: NEXT: PRINT: PRINT #2,: 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

DJMC
Знаток
Знаток
Сообщения: 193
Зарегистрирован: Вт мар 13, 2018 5:45 pm
Благодарил (а): 54 раза
Поблагодарили: 7 раз

Re: А нужны ли программы?

Сообщение DJMC » Чт окт 08, 2020 3:55 pm

DANILIN78 писал(а):
Чт окт 08, 2020 1:16 am
Интеграл букв: все комбинации букв всех слов

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

Моя программа каждое слово раскладывает на буквы
и составляет таблицу 54321.txt
количества сочетаний всех букв
Привет, возможно глупый вопрос, а для чего это программа написана и как ее можно применить в том же тото ? :smu:sche_nie:

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

Re: А нужны ли программы?

Сообщение DANILIN78 » Чт окт 08, 2020 7:33 pm

главная цель: опередить иностранцев форума qb64
заинтересовавшихся комбинациями цифр и букв
и там размещено раньше всех форумов

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

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

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

DJON
Новичок
Новичок
Сообщения: 26
Зарегистрирован: Пн мар 11, 2019 4:29 am
Поблагодарили: 2 раза

Re: А нужны ли программы?

Сообщение DJON » Вт окт 13, 2020 9:50 pm

DANILIN78 писал(а):
Чт окт 08, 2020 7:33 pm
главная цель: опередить иностранцев форума qb64
заинтересовавшихся комбинациями цифр и букв
и там размещено раньше всех форумов

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

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

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

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

Re: А нужны ли программы?

Сообщение DANILIN78 » Ср окт 14, 2020 9:20 am

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

Развитие: из слов вычищены повторы букв
и создаётся промежуточный файл для контроля

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

'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 430028
    INPUT #1, s$: s = LEN(s$) 
    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-1: FOR y = x+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
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

Результаты:

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

80082	А	И
70009	Е	Н
69739	А	Н
69542	О	Т
68574	А	Е
...
27	Ь	Э
22	Ц	Ъ
10	Щ	Ъ
5	Щ	Э
2	Ъ	Э

Ответить

Вернуться в «Программы для лотереи и букмекеров»

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

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