Перепрыгнеть в содержание


* * * * - 6 голосов

Masaniello или «День дурака»


864 ответов в эту тему

#201 OFFLINE   sergei7000

    Специалист


  • mp
  • 2043 сообщения
180

Добавлено 26 May 2015 - 07:55

Spoiler

Отредактировано sergei7000, 26 May 2015 - 07:58.


#202 OFFLINE   sergei7000

    Специалист


  • mp
  • 2043 сообщения
180

Добавлено 26 May 2015 - 08:24

Spoiler


#203 OFFLINE   sergei7000

    Специалист


  • mp
  • 2043 сообщения
180

Добавлено 26 May 2015 - 08:41

МАЗА 2 10/20

26.05.15 10:40 Ставка # 179 Одиночная Сумма: 35 руб
возможный выигрыш 78.40 руб дата события событие ставка кф результат 26.05.15 14:30 Бэйцзин Гоань - Чонбук ТБ(2.5) 2.24

#204 OFFLINE   Bambuk

    Специалист


  • mp
  • 6322 сообщения
602

Добавлено 26 May 2015 - 08:51

Сообщенияefimi, on 25 May 2015 - 19:35, сказал:

Извините, пожалуйста, вам, Поможите, люди добрые!


Может кто-нибудь сжалится над совсем не математиками и выложит рабочий excel-файл с Masaniello :)
Надо продумать как написать код.....там же надо передать в код параметры которые будут меняться в зависимости сколько кефоф введено (то есть какая длина последовательности), а потом переопределять размерность массива и алгоритм там подсчёта вероятностей будет меняться соответственно.....если делать так уж точную версию маза. И надо хоть пока поэкспериментировать...так как не понятно как оптимально можно продлять последовательности в зависимости от наблюдаемого реза---можно попробовать прописать какие-то подсказки--рекомендации в проге. А мы не программисты, поэтому придётся где-то что-то читать и пробовать разные коды на VBA. И надо создать универсальный инструмент маза---чтоб можно было тестировать ретро-последовательности а не тыкать каждую позицию.

Отредактировано Bambuk, 26 May 2015 - 08:58.


#205 OFFLINE   hobby

    Специалист


  • mp
  • 2001 сообщения
485

Добавлено 26 May 2015 - 09:09

СообщенияBambuk, on 26 May 2015 - 08:51, сказал:

Надо продумать как написать код.....там же надо передать в код параметры которые будут меняться в зависимости сколько кефоф введено (то есть какая длина последовательности), а потом переопределять размерность массива и алгоритм там подсчёта вероятностей будет меняться соответственно.....если делать так уж точную версию маза. И надо хоть пока поэкспериментировать...так как не понятно как оптимально можно продлять последовательности в зависимости от наблюдаемого реза---можно попробовать прописать какие-то подсказки--рекомендации в проге. А мы не программисты, поэтому придётся где-то что-то читать и пробовать разные коды на VBA. И надо создать универсальный инструмент маза---чтоб можно было тестировать ретро-последовательности а не тыкать каждую позицию.
Тыкать каждую позицию вполне приемлемо. Если есть возможность и желание, то можно создать версию номер один, самую простую. Можно подключить и программистов, только без троянов, готов поучаствовать финансово.

Отредактировано hobby, 26 May 2015 - 09:10.


#206 OFFLINE   Bambuk

    Специалист


  • mp
  • 6322 сообщения
602

Добавлено 26 May 2015 - 09:23

Сообщенияhobby, on 26 May 2015 - 09:09, сказал:

Тыкать каждую позицию вполне приемлемо. Если есть возможность и желание, то можно создать версию номер один, самую простую. Можно подключить и программистов, только без троянов, готов поучаствовать финансово.
Да это я и сам напишу надо тока подождать чуть-чуть.... Можно же и спросить будет тут на форуме чтоб подсказали что-то...язык не отсохнет..... Я просто малоопытен и могу косяков напороть--все ведь случаи иногда трудно предусмотреть загодя....а это ведь с бабками связано человечачими кровными---не хотелось бы подводить народ под монастырь.... Мне честно сказать самому стало интересно с точки зрения механизма управления---хотел посмотреть на рулетке бетфаировской на кефе 1.5
что там можно .....(для познавательных целей...и так как это быстро можно всё провести в смысле эксперимента---тогда можно будет что-то более определённое сказать в отношении маза).

Отредактировано Bambuk, 26 May 2015 - 09:31.


#207 OFFLINE   Bambuk

    Специалист


  • mp
  • 6322 сообщения
602

Добавлено 26 May 2015 - 12:48

Вот начал воять нужно мнение спецов.

Function MAZA_P(ByRef rah As Range, ByRef nmaza As Range, Optional VolatileOn As Boolean = True) As Variant
Application.Volatile VolatileOn

Dim VOZ As Range
Dim N As Range
Dim i As Long
Dim smas() As Single
Set N = nmaza
Set VOZ = rah
ReDim smas(N.Value)

i = 0
Do Until i > N.Value
smas(i) = VOZ.Offset(rowOffset:=i, columnOffset:=0).Value
i = i + 1
Loop


MAZA_P = smas
End Function

rah- это функции передаём адрес начала последовательности (коэфф. БК)
VOZ.Offset(rowOffset:=i, columnOffset:=0).Value—это мы типа смещаемся пошагово от начала последовательности вниз.
nmaza—ячейка где будет число N (для начальной итерации оно может определяться
=СЧЁТЗ(AA8:AA26) AA8:AA26—это область куда будем кефы писать ну тут последний адрес можно хоть на 200 ячеек ниже AA8:AA226 СЧЁТЗ вернёт сколько непустых, а для следующих итер можновычислять исходя от введённых «0» «1» последовательности (считать просто 1 и вычитать из N всей мазы)

Меня интересует насколько корректно я массив smas(i) заполнил значениями кефоф…всё остальное там уже вроде меньше гимора.

Отредактировано Bambuk, 26 May 2015 - 12:54.


#208 OFFLINE   Betamin

    Специалист


  • RSB
  • ПипПипПип
  • 186 сообщения
8

Добавлено 26 May 2015 - 15:11

Я вот так тыкал, два простых примера с формулами Бамбука, но в гугловских таблицах: https://docs.google....dit?usp=sharing

#209 OFFLINE   Bambuk

    Специалист


  • mp
  • 6322 сообщения
602

Добавлено 26 May 2015 - 17:28

Надо мнение!!! Короче ситуация такая---кусок кода который точно считает вероятности я вроде как наляпал...но фигня состоит в том, что для последовательности из 21 кефа
например надо генерить и считать 2^20 вариантов кодов "0" и "1" в последовательности что составляет более миллиона кодов.....херня приличная---ексель уже с 20 начинает включать реальные тормоза. более менее у меня прёт до 15-16 (но надо всё равно ждать даже одно вычислялово в одной клетке а у нас там будет много клеток где придётся обращаться к встроенной функции). Я думаю может ограничить до16 размер для точного вычислялова, а остальное (если больше 16) считать по биному????

#210 OFFLINE   sergei7000

    Специалист


  • mp
  • 2043 сообщения
180

Добавлено 26 May 2015 - 17:44

СообщенияBambuk, on 26 May 2015 - 17:28, сказал:


например надо генерить и считать 2^20 вариантов кодов "0" и "1" в последовательности что составляет более миллиона кодов.....херня приличная---ексель уже с 20 начинает включать реальные тормоза. более менее у меня прёт до 15-16 (но надо всё равно ждать даже одно вычислялово в одной клетке а у нас там будет много клеток где придётся обращаться к встроенной функции). Я думаю может ограничить до16 размер для точного вычислялова, а остальное (если больше 16) считать по биному????

И что , коды не повторяются ? Все будут разные ? Неужели даже часть кода не повторяется ?

#211 OFFLINE   Bambuk

    Специалист


  • mp
  • 6322 сообщения
602

Добавлено 26 May 2015 - 18:06

Сообщенияsergei7000, on 26 May 2015 - 17:44, сказал:

И что , коды не повторяются ? Все будут разные ? Неужели даже часть кода не повторяется ?
Так они ж генерятся просто преобразованием десятичного числа в двоичный код, а десятичные порождаются циклом---там повторения быть не может так как числа десятичные идут от
0 до 2^N-1 степ-бай-степ. Потом коды множатся в цикле на величины обратные кефам или 1-1/К (в зависимости от того что в позиции кода) потом в кодах считается число выпавших 1 если больше или равно заданного то такие произведения суммируются и образуют вероятность. Фигня в том что тут нет иного алгоритма который точно считает.

#212 OFFLINE   sergei7000

    Специалист


  • mp
  • 2043 сообщения
180

Добавлено 26 May 2015 - 18:48

СообщенияBambuk, on 26 May 2015 - 18:06, сказал:

Так они ж генерятся просто преобразованием десятичного числа в двоичный код, а десятичные порождаются циклом---там повторения быть не может так как числа десятичные идут от
0 до 2^N-1 степ-бай-степ. Потом коды множатся в цикле на величины обратные кефам или 1-1/К (в зависимости от того что в позиции кода) потом в кодах считается число выпавших 1 если больше или равно заданного то такие произведения суммируются и образуют вероятность. Фигня в том что тут нет иного алгоритма который точно считает.

Немного непонятно

0 до 2^N-1 степ-бай-степ - это первая повторяющаяся часть кода . Значит следующая ячейка обращается к предыдущей и вызывает эту функцию подставляя номер предыдущей ячейки в формулу .

Потом коды множатся в цикле на величины обратные кефам или 1-1/К (в зависимости от того что в позиции кода) - Дальше вызывается позиция кода и в соответствии от позиции кода вызывается соответствующая функция и происходит вычисление .

потом в кодах считается число выпавших 1 если больше или равно заданного то такие произведения суммируются и образуют вероятность - это третья функция , которая вызывается после ...
и.т.д.

Нужно не вызывать весь код а вызывать поочередно фрагменты кода .

В языке С это просто сделать , в экселе не знаю .

Что касается этого :
" для последовательности из 21 кефа" Тут можно задать один первоначальный кэф для всей последовательности и изменять прогрессию только при изменении каждого кэфа уже в процессе игры . Так у меня на айпаде .

Отредактировано sergei7000, 26 May 2015 - 18:49.


#213 OFFLINE   Bambuk

    Специалист


  • mp
  • 6322 сообщения
602

Добавлено 26 May 2015 - 19:25

РАБОЧАЯ ТЕКУЩЯЯ ВЕРСИЯ (с тормозами) пока её имеем (это функция которой по идее надо бы биномиальную конструкцию заменить.)

Function MAZA_P(ByRef rah As Range, ByRef nmaza As Range, ByRef mi As Range, Optional VolatileOn As Boolean = True) As Variant
Application.Volatile VolatileOn

Dim VOZ As Range
Dim N As Range
Dim M As Range
Dim i, j As Long
Dim smas() As Single
Dim codmas() As Single
Dim P1, S1, PUM1, SUM1, VER1 As Double


Set N = nmaza
Set M = mi
Set VOZ = rah
ReDim smas(N.Value)

i = 0
Do Until i > N.Value
smas(i) = VOZ.Offset(rowOffset:=i, columnOffset:=0).Value
i = i + 1
Loop

VER1 = 0

i = 1
j = 0

For j = 0 To 2 ^ N.Value - 1 Step 1
S1 = j
PUM1 = 1
SUM1 = 0
For i = 1 To N.Value Step 1
P1 = S1 Mod 2
If P1 = 1 Then
PUM1 = PUM1 / smas(i - 1)
SUM1 = SUM1 + P1
S1 = S1 \ 2

Else
PUM1 = PUM1 * (1 - 1 / smas(i - 1))
SUM1 = SUM1 + P1
S1 = S1 \ 2
End If

Next i

If SUM1 >= M.Value Then
VER1 = VER1 + PUM1
Else
VER1 = VER1
End If

Next j



MAZA_P = VER1
End Function



Вводится в яч. =MAZA_P(AA8;X4;Y4)
AA8-первая яч исследуемой последовательности
X4—число кефоф последовательности
Y4---это типа m (на листе там это по идее вычислять ещё надо согласно формулам для маза для E S1 и что там в остатке для m, N)

Аналог такой функции (с погрешностями если кефы разные)
=1-БИНОМ.РАСП(Y4-1;X4;Y25;1)
Y25—это средняя вероятность =СУММ(Y8:Y23)/X4 (если кефы одинаковые то просто 1/К)
Y8:Y23—тут 16 значений 1/кеф а сами кефы АА8:АА23

Я взял 20 ячеек ввел с гимором формулы одинаковые и тормозилово тут реальное…..
Может кто-то что-то придумает поинтереснее……

Отредактировано Bambuk, 26 May 2015 - 19:28.


#214 OFFLINE   Bambuk

    Специалист


  • mp
  • 6322 сообщения
602

Добавлено 26 May 2015 - 23:13

Сообщенияsergei7000, on 26 May 2015 - 18:48, сказал:




Нужно не вызывать весь код а вызывать поочередно фрагменты кода .

В языке С это просто сделать , в экселе не знаю .

Что касается этого :
" для последовательности из 21 кефа" Тут можно задать один первоначальный кэф для всей последовательности и изменять прогрессию только при изменении каждого кэфа уже в процессе игры . Так у меня на айпаде .

Что касается этого :
" для последовательности из 21 кефа" Тут можно задать один первоначальный кэф для всей последовательности и изменять прогрессию только при изменении каждого кэфа уже в процессе игры . Так у меня на айпаде .


Странно, как по одному кефу можно знать что там дальше?


На счёт участков---это понятно что можно разбить на куски, вопрос только как это лучше сделать. Дело в том что я мозгами-то понимаю как можно ускорить допустим из 10
перейти к 20----надо взять два по 10 куска (а как там из последовательности куда-то обратиться .....ну это для меня тёмный лес). Реализация хромает на обе ноги :)
Надо вообще-то подсчитать чё мы тут выигрываем в смысле быстродействия если кусками резать(и выигрываем ли). Главное уйти за 30 а там уже можно биномом---думаю погрешности сносные будут с учётом того, что процесс накапливает и вычислительную погрешность.

#215 OFFLINE   hobby

    Специалист


  • mp
  • 2001 сообщения
485

Добавлено 27 May 2015 - 05:28

Быстродействие. Чего там получается в секундах/минутах? Такой калькулятор вроде не танковый бой, когда пару для ставок выбираешь, то минуты особо не считаешь. У калькулятора какой то минимальный интерфейс будет?

#216 OFFLINE   sergei7000

    Специалист


  • mp
  • 2043 сообщения
180

Добавлено 27 May 2015 - 07:36

Spoiler

Отредактировано sergei7000, 27 May 2015 - 07:37.


#217 OFFLINE   sergei7000

    Специалист


  • mp
  • 2043 сообщения
180

Добавлено 27 May 2015 - 07:48

Spoiler


#218 OFFLINE   hobby

    Специалист


  • mp
  • 2001 сообщения
485

Добавлено 27 May 2015 - 07:58

Когда главный вопрос о работоспособности маза практически доказан, начинаются сомнения о том, хорошо ли 11% прибыли за 20 ставок. Если влет, то отыгрываться надо долго, если еще влет, то почти вечность...
Если сравнить с вилками, то за 20 вилок по 0.5% (за которые никто слова кривого не скажет) результат тот же. Это я видимо сегодня в плохом настроении, извиняюсь...

Отредактировано hobby, 27 May 2015 - 08:00.


#219 OFFLINE   Bambuk

    Специалист


  • mp
  • 6322 сообщения
602

Добавлено 27 May 2015 - 13:26

Вот для экспериментов файл https://yadi.sk/i/P8WbTtnJguCsB
оставил 12 длину. после неё считается по биному. Кому надо сами там поменяйте условие в двух верхних яч. для K(m-1) и K(m) например вместо 12 попробуйте 15-16
может у Вас не будет так тормозить ексель.... потом ячейки просто протащить надо вниз чтоб формулы сами заполнили остальные яч.

пример (условия выделены)
=ЕСЛИ(F9>12;ЕСЛИ(G9=0;1;1/(1-БИНОМ.РАСП(G9-1;F9;C9;1)));1/MAZA_P(J10;F9;G9))

=ЕСЛИ(F9>12;1/(1-БИНОМ.РАСП(G9;F9;C9;1));1/MAZA_P(J10;F9;B9))

#220 OFFLINE   hobby

    Специалист


  • mp
  • 2001 сообщения
485

Добавлено 27 May 2015 - 14:57

Сообщенияhobby, on 27 May 2015 - 07:58, сказал:

Когда главный вопрос о работоспособности маза практически доказан, начинаются сомнения о том, хорошо ли 11% прибыли за 20 ставок. Если влет, то отыгрываться надо долго, если еще влет, то почти вечность...
Если сравнить с вилками, то за 20 вилок по 0.5% (за которые никто слова кривого не скажет) результат тот же. Это я видимо сегодня в плохом настроении, извиняюсь...
Все таки я неправ. Маза она ведь на любой вкус. Можно взять короткую последовательность и получить нужный процент. Риск, конечно, тоже. Тут от общего процента прохода каждый сам решает, каждому по способностям (так меня в семидесятых учили).