Как меняется коэф.
#1 OFFLINE
Добавлено 06 September 2016 - 06:54
#2 OFFLINE
Добавлено 06 September 2016 - 07:32
Hurricane, on 06 September 2016 - 06:54, сказал:
#3 OFFLINE
Добавлено 06 September 2016 - 07:35
Hurricane, on 06 September 2016 - 06:54, сказал:
K(ЗА)=1/(1-e^(MOэйбар*(t/94-1)))
MOэйбар--мат. ожидания числа голов эйбара на матч.
t=15
Отредактировано Bambuk, 06 September 2016 - 07:38.
#4 OFFLINE
Добавлено 06 September 2016 - 07:43
petrovipv, on 06 September 2016 - 07:32, сказал:
#5 OFFLINE
Добавлено 06 September 2016 - 07:57
Hurricane, on 06 September 2016 - 07:37, сказал:
У меня есть приближённая функция (плохо тотал определяет потом при проверке но можете какие-то множители подобрать для своего диапазона кефоф куда ставите для МО1 МО2 ну допустим так 1.02*МО1 1.03*МО2 (ну тут я от балды взял но смысл вот такой).....надо чтоб с линией по разным рынкам или по нужному получше совпадение подобрать....
В модуль VBA вот такое ставите
Function Fmnz(ByVal M1 As Double, ByVal M2 As Double, ByVal K1 As Double, ByVal KX As Double, ByVal K2 As Double, ByVal KTM As Double)
Dim p10, p11, p12, p13, p14, p15, p16, p17, p18 As Double
Dim p20, p21, p22, p23, p24, p25, p26, p27, p28 As Double
Dim PW1, PWX, PW2, PWTM, R_prom As Double
p10 = Exp(-M1)
p11 = M1 * Exp(-M1)
p12 = M1 ^ 2 * Exp(-M1) / 2
p13 = M1 ^ 3 * Exp(-M1) / 6
p14 = M1 ^ 4 * Exp(-M1) / 24
p15 = M1 ^ 5 * Exp(-M1) / 120
p16 = M1 ^ 6 * Exp(-M1) / 720
p17 = M1 ^ 7 * Exp(-M1) / 5040
p18 = M1 ^ 8 * Exp(-M1) / 40320
p20 = Exp(-M2)
p21 = M2 * Exp(-M2)
p22 = M2 ^ 2 * Exp(-M2) / 2
p23 = M2 ^ 3 * Exp(-M2) / 6
p24 = M2 ^ 4 * Exp(-M2) / 24
p25 = M2 ^ 5 * Exp(-M2) / 120
p26 = M2 ^ 6 * Exp(-M2) / 720
p27 = M2 ^ 7 * Exp(-M2) / 5040
p28 = M2 ^ 8 * Exp(-M2) / 40320
PW1 = p18 * (p20 + p21 + p22 + p23 + p24 + p25 + p26 + p27) _
+ p17 * (p20 + p21 + p22 + p23 + p24 + p25 + p26) _
+ p16 * (p20 + p21 + p22 + p23 + p24 + p25) _
+ p15 * (p20 + p21 + p22 + p23 + p24) _
+ p14 * (p20 + p21 + p22 + p23) _
+ p13 * (p20 + p21 + p22) _
+ p12 * (p20 + p21) _
+ p11 * p20
PWX = p10 * p20 + p11 * p21 + p12 * p22 + p13 * p23 + p14 * p24 + p15 * p25 + p16 * p26 + p17 * p27 + p18 * p28
PW2 = 1 - PW1 - PWX
PWTM = p10 * p20 + p11 * p20 + p10 * p21 + p11 * p21 + p12 * p20 + p10 * p22
Fmnz = 1.5 * (1 - 1 / K1 / PW1) ^ 2 + 2 * (1 - 1 / KX / PWX) ^ 2 + (1 - 1 / K2 / PW2) ^ 2 + 2 * (1 - 1 / KTM / PWTM) ^ 2
End Function
Function NURMOD(ByRef rah1 As Range, ByRef rahx As Range, ByRef rah2 As Range, ByRef rahtm As Range, Optional VolatileOn As Boolean = True) As Variant
Application.Volatile VolatileOn
Set Win1 = rah1
Set HX = rahx
Set Win2 = rah2
Set TM = rahtm
Dim ax, bx, ay, by As Variant
Dim i, j, n, A, B As Integer
Dim X1, X2, Y1, Y2 As Double
Dim Ex, Ey, E, R1, R2 As Double
Dim REZ(1) As Double
ax = 0.2
bx = 5.2
ay = 0.1
by = 5.1
E = 0.0001
KX = HX.Value
KTM = TM.Value
n = 4
Ey = 1
Ex = 1
If Win1.Value < Win2.Value Then
K1 = Win1.Value
K2 = Win2.Value
Else
K1 = Win2.Value
K2 = Win1.Value
End If
R2 = Fmnz(5, 5, K1, KX, K2, KTM)
Do While Ex > E Or Ey > E
i = 0
j = 0
For A = 0 To n
Ex = (bx - ax) / n
X1 = ((ax + bx) + j * Ex) / 2
R1 = Fmnz(X1, Y2, K1, KX, K2, KTM)
If R2 > R1 Then
R2 = R1
X2 = X1
End If
X1 = ((ax + bx) - j * Ex) / 2
R1 = Fmnz(X1, Y2, K1, KX, K2, KTM)
If R2 > R1 Then
R2 = R1
X2 = X1
End If
i = i + 1
Ey = (by - ay) / n
Y1 = ((ay + by) - j * Ey) / 2
R1 = Fmnz(X2, Y1, K1, KX, K2, KTM)
If R2 > R1 Then
R2 = R1
Y2 = Y1
End If
Y1 = ((ay + by) + j * Ey) / 2
R1 = Fmnz(X2, Y1, K1, KX, K2, KTM)
If R2 > R1 Then
R2 = R1
Y2 = Y1
End If
j = j + 1
Next A
ax = X2 - Ex
bx = X2 + Ex
ay = Y2 - Ey
by = Y2 + Ey
Loop
If Win1.Value < Win2.Value Then
REZ(0) = X2
REZ(1) = Y2
Else
REZ(0) = Y2
REZ(1) = X2
End If
NURMOD = REZ
End Function
в 2 соседние ячейки екселя вводим (как формулу для массивов) = {NURMOD(адр КП1;адр КХ; адрКп2; адрКТМ2.5)} (фигурные скобки потом сами появляются надо три кнопки сразу нажать...почитайте если не знаете как вводить функцию ТРАНСП(...))
#6 OFFLINE
Добавлено 06 September 2016 - 08:08
Но это примерно так получите МО (для каких-то целей попрёт)
Отредактировано Bambuk, 06 September 2016 - 08:10.
#7 OFFLINE
#8 OFFLINE
Добавлено 06 September 2016 - 09:37
Bambuk, on 06 September 2016 - 07:57, сказал:
У меня есть приближённая функция (плохо тотал определяет потом при проверке но можете какие-то множители подобрать для своего диапазона кефоф куда ставите для МО1 МО2 ну допустим так 1.02*МО1 1.03*МО2 (ну тут я от балды взял но смысл вот такой).....надо чтоб с линией по разным рынкам или по нужному получше совпадение подобрать....
В модуль VBA вот такое ставите
Function Fmnz(ByVal M1 As Double, ByVal M2 As Double, ByVal K1 As Double, ByVal KX As Double, ByVal K2 As Double, ByVal KTM As Double)
Dim p10, p11, p12, p13, p14, p15, p16, p17, p18 As Double
Dim p20, p21, p22, p23, p24, p25, p26, p27, p28 As Double
Dim PW1, PWX, PW2, PWTM, R_prom As Double
p10 = Exp(-M1)
p11 = M1 * Exp(-M1)
p12 = M1 ^ 2 * Exp(-M1) / 2
p13 = M1 ^ 3 * Exp(-M1) / 6
p14 = M1 ^ 4 * Exp(-M1) / 24
p15 = M1 ^ 5 * Exp(-M1) / 120
p16 = M1 ^ 6 * Exp(-M1) / 720
p17 = M1 ^ 7 * Exp(-M1) / 5040
p18 = M1 ^ 8 * Exp(-M1) / 40320
p20 = Exp(-M2)
p21 = M2 * Exp(-M2)
p22 = M2 ^ 2 * Exp(-M2) / 2
p23 = M2 ^ 3 * Exp(-M2) / 6
p24 = M2 ^ 4 * Exp(-M2) / 24
p25 = M2 ^ 5 * Exp(-M2) / 120
p26 = M2 ^ 6 * Exp(-M2) / 720
p27 = M2 ^ 7 * Exp(-M2) / 5040
p28 = M2 ^ 8 * Exp(-M2) / 40320
PW1 = p18 * (p20 + p21 + p22 + p23 + p24 + p25 + p26 + p27) _
+ p17 * (p20 + p21 + p22 + p23 + p24 + p25 + p26) _
+ p16 * (p20 + p21 + p22 + p23 + p24 + p25) _
+ p15 * (p20 + p21 + p22 + p23 + p24) _
+ p14 * (p20 + p21 + p22 + p23) _
+ p13 * (p20 + p21 + p22) _
+ p12 * (p20 + p21) _
+ p11 * p20
PWX = p10 * p20 + p11 * p21 + p12 * p22 + p13 * p23 + p14 * p24 + p15 * p25 + p16 * p26 + p17 * p27 + p18 * p28
PW2 = 1 - PW1 - PWX
PWTM = p10 * p20 + p11 * p20 + p10 * p21 + p11 * p21 + p12 * p20 + p10 * p22
Fmnz = 1.5 * (1 - 1 / K1 / PW1) ^ 2 + 2 * (1 - 1 / KX / PWX) ^ 2 + (1 - 1 / K2 / PW2) ^ 2 + 2 * (1 - 1 / KTM / PWTM) ^ 2
End Function
Function NURMOD(ByRef rah1 As Range, ByRef rahx As Range, ByRef rah2 As Range, ByRef rahtm As Range, Optional VolatileOn As Boolean = True) As Variant
Application.Volatile VolatileOn
Set Win1 = rah1
Set HX = rahx
Set Win2 = rah2
Set TM = rahtm
Dim ax, bx, ay, by As Variant
Dim i, j, n, A, B As Integer
Dim X1, X2, Y1, Y2 As Double
Dim Ex, Ey, E, R1, R2 As Double
Dim REZ(1) As Double
ax = 0.2
bx = 5.2
ay = 0.1
by = 5.1
E = 0.0001
KX = HX.Value
KTM = TM.Value
n = 4
Ey = 1
Ex = 1
If Win1.Value < Win2.Value Then
K1 = Win1.Value
K2 = Win2.Value
Else
K1 = Win2.Value
K2 = Win1.Value
End If
R2 = Fmnz(5, 5, K1, KX, K2, KTM)
Do While Ex > E Or Ey > E
i = 0
j = 0
For A = 0 To n
Ex = (bx - ax) / n
X1 = ((ax + bx) + j * Ex) / 2
R1 = Fmnz(X1, Y2, K1, KX, K2, KTM)
If R2 > R1 Then
R2 = R1
X2 = X1
End If
X1 = ((ax + bx) - j * Ex) / 2
R1 = Fmnz(X1, Y2, K1, KX, K2, KTM)
If R2 > R1 Then
R2 = R1
X2 = X1
End If
i = i + 1
Ey = (by - ay) / n
Y1 = ((ay + by) - j * Ey) / 2
R1 = Fmnz(X2, Y1, K1, KX, K2, KTM)
If R2 > R1 Then
R2 = R1
Y2 = Y1
End If
Y1 = ((ay + by) + j * Ey) / 2
R1 = Fmnz(X2, Y1, K1, KX, K2, KTM)
If R2 > R1 Then
R2 = R1
Y2 = Y1
End If
j = j + 1
Next A
ax = X2 - Ex
bx = X2 + Ex
ay = Y2 - Ey
by = Y2 + Ey
Loop
If Win1.Value < Win2.Value Then
REZ(0) = X2
REZ(1) = Y2
Else
REZ(0) = Y2
REZ(1) = X2
End If
NURMOD = REZ
End Function
в 2 соседние ячейки екселя вводим (как формулу для массивов) = {NURMOD(адр КП1;адр КХ; адрКп2; адрКТМ2.5)} (фигурные скобки потом сами появляются надо три кнопки сразу нажать...почитайте если не знаете как вводить функцию ТРАНСП(...))
Noname, on 06 September 2016 - 09:01, сказал:
Смотри кэф на 1-1. Сразу станет ясно ждать-ли гола от Эйбара.
Вернее совсем не то.
Bambuk, спасибо за разбор и советы, но здесь нужно идти на высшую математику, чтобы разобраться в этом.
#9 OFFLINE
Добавлено 06 September 2016 - 10:22
Hurricane, on 06 September 2016 - 07:43, сказал:
Ничего себе, что уже придумали. Полезная штука, только не могу там найти Обе забьют. И кэфы нужно ставить вверху стартовые, да? А счет сразу ставить 1:0 или как?
#10 OFFLINE
Добавлено 06 September 2016 - 10:23
petrovipv, on 06 September 2016 - 10:22, сказал:
#11 OFFLINE
Добавлено 06 September 2016 - 10:27
Hurricane, on 06 September 2016 - 09:37, сказал:
Надеешься ловить валуйные кэфы?
Так вся эта математика показывает лишь теоретические рассчеты.
А есть еще ликвидность, сам ход матча, да много еще нюансов.
Как рассчитать изменение кэфа, если Реал все 15 минут играл на чужой половине поля?
#12 OFFLINE
Добавлено 06 September 2016 - 10:30
Noname, on 06 September 2016 - 10:27, сказал:
Надеешься ловить валуйные кэфы?
Так вся эта математика показывает лишь теоретические рассчеты.
А есть еще ликвидность, сам ход матча, да много еще нюансов.
Как рассчитать изменение кэфа, если Реал все 15 минут играл на чужой половине поля?
#13 OFFLINE
#14 OFFLINE
#15 OFFLINE
Добавлено 06 September 2016 - 11:28
Hurricane, on 06 September 2016 - 10:33, сказал:
Тогда при голе Реала кэф на ОЗ подскочит.
Реал - явный фаворит, гол достаточно быстрый, все будут ждать сухую победу и грузить ОЗ-Нет
По-моему так.
#16 OFFLINE
Добавлено 06 September 2016 - 12:27
Hurricane, on 06 September 2016 - 09:37, сказал:
Bambuk, спасибо за разбор и советы, но здесь нужно идти на высшую математику, чтобы разобраться в этом.
А дальше работаете как с обычными функциями рабочего листа. Что Вы конкретно хотите знать? Есть же вычислители тут их выкладывали 100 раз по кефам в лайве.
Ну они там не совсем точно покажут но можно на реальном рынке посмотреть и подкорректировать или кефы(фиксированными множителями) или интенсивности (интенсивность это МО/94) ....Можно ж чё угодно дописать в вычислитель(почти что угодно) там же все вероятности исходов по счёту есть.....
Ваша фигня она вообще проста как яйцо перепела. Р обе заб=(1-Рчто первая не забьёт ни ХУ)*(1-Р что вторая ни ХУ) (а кефф это 1/Р)
тогда если брать Пуассон то Рни ХУ=Р(0) ну что команда не забьёт (Р(число голов=0) это вот так =e^-MO(t) a MO(t)=(MO/94)*(94-t)=MO*(1-t/94) ну и так всё для ком1 и ком 2 а потом ставите в синее выражение эти Р1(0) и Р2(0)...) когда одна забила то Р(0)=0 поэтому там один член в скобках=1 и остаётся одна скобка (в синей формуле)...Это 8-класс, а ни какая не вышка....(ну это я когда учился так было, а сейчас ХЗ... может и 5-тый )
Но это без коррекции (а формула для коррекции интенсивности в теме Сектора есть).
#17 OFFLINE
Добавлено 08 September 2016 - 16:43
#18 OFFLINE
#19 OFFLINE
Добавлено 10 September 2016 - 18:51
1-Что такое "функция рабочего листа"?
2-Что такое "фиксированные множители"?
3-Что такое "МО/94"?
4- ....."1-Рчто первая не забьёт"?
5-......"ни ХУ"?
6-......"1-Р что вторая ни "?
7-......" 1/Р"?
8-....."Рни"?
9-....." (Р(число голов=0)"? По вашей формуле по большому счёты выходит ноль при любом раскладе. Ведь любая цифра помноженная на 0 даёт 0
10- Эта формула чего "e^-MO(t)"?
11-Что означает буква а "a MO(t)"
12- "вставить в синее обозначение" о чём речь?
13 "когда одна забила то Р(0)=0" ???
14-"член в скобках=1" ???
15-"скобка (в синей формуле)"
Отредактировано horror1222, 10 September 2016 - 18:51.
#20 OFFLINE
Добавлено 11 September 2016 - 07:43
horror1222, on 10 September 2016 - 18:51, сказал:
1-Что такое "функция рабочего листа"?
2-Что такое "фиксированные множители"?
3-Что такое "МО/94"?
4- ....."1-Рчто первая не забьёт"?
5-......"ни ХУ"?
6-......"1-Р что вторая ни "?
7-......" 1/Р"?
8-....."Рни"?
9-....." (Р(число голов=0)"? По вашей формуле по большому счёты выходит ноль при любом раскладе. Ведь любая цифра помноженная на 0 даёт 0
10- Эта формула чего "e^-MO(t)"?
11-Что означает буква а "a MO(t)"
12- "вставить в синее обозначение" о чём речь?
13 "когда одна забила то Р(0)=0" ???
14-"член в скобках=1" ???
15-"скобка (в синей формуле)"
В начале прочитайте вот эту тему Ссылка Здесь Иначе просто мы будем общаться как Герасим и Муму....
функции рабочего--это набор функций что предоставляет ексель для расчётов www.taurion.ru/excel/10
Когда в модуль VBA помещается код(который я привёл) то мы создадим пользовательскую функцию, которую можно использовать как и функции екселя--вводить в клетки листа.