Ребят не поможете починить данную таблицу ???проблема заключается в том ,что после загрузки матчей во вкладке start   нажимаю на кнопку пуск во вкладке list  загрузка происходит но во вкладке прогноз пусто 

таблиц_форма(ррусский).xlsb

В 26.03.2026 в 22:50, Валерий Иванович сказал:

Я удивляюсь твоей внимательности чувак )))

Даты загруженных матчей видишь на скрине? Там вроде 26.03.2026, сегодняшние (на момент комментария), да?



Видишь дату исправления таблицы? это вчера было, вчера было 25.03.2026, да?


Если табла не грузит кефы (так ты выражаешься), после исправления я подрузил несколько матчей для показухи работоспособности, объясни народу, как в таблицу загрузились матчи 26.03 с кефами, если таблица выложена 25 числа?

Я в заранее предупредил в исправлении, что бы адреса сайтов прописывали каждый самостоятельно, по причине того, что на форуме сидят европейцы и не только. Ставьте свои региональные домены, для своего языка - вот и все. 

Само собой логичный вывод напрашивается касательно доменов: у кого-то flashscore работает у кого-то нет, у кого-то livescore работает, у кого-то нет. Я же не знаю откуда вы, может вы с Китая сидите или с Италии, и у вас livescore или soccer24 не открывается - поэтому ничего и не грузится.     

Куда эти домены прописывать? И что за домены ?

Таблица все грузит, кроме кэфа

4 часа назад, sdf сказал:

Куда эти домены прописывать? И что за домены ?

Таблица все грузит, кроме кэфа

Домен - это название сайта: livescore ru-en, livesport ru-en, soccer24 ru-en, flashscore ru-en, flashfootball, flashscore и т.д. они есть баскетбольные, хоккейные, теннисные, футбольные и другие, все они имеют суффикс. Суффикс это язык сайта, на русском вы грузите игры, украинском, английском и т.д. 

Открываете  свою таблицу с которой на постоянной основе работаете:
Нажимаете ALT+F11 -> открывается режим разработчика такого вида:


Там открываете папку modules - открывается код макросов как на скрине.
Нажимаете CTRL+F открываете такое окно:


В поле Find What пишете текст sourcer,далее выбираете Current Project и нажимаете кнопку Find Next, поисковик начинаете вас тыкать на места где упоминаете искомое слово sourcer:

Ваша работа заключается в том, что бы заменить существующий sourcer = "flashscore.com/"  на тот сайт, который открывается в вашем браузере, стране, регионе и т.п. На скрине видно, что тут есть выбор из 5 сайтов, и они могут не все работать в вашем браузере, стране, регионе и т.п. что бы не копаться в макросах, для удобства разработчики делают вот такие селекторы выбора сайта:
 

Именно для того, что бы каждый сам нашел себе рабочий вариант сайта. Поскольку в макросе изначально заложено всего 5 сайтов, этот список можно расширить или уменьшить или изменить - это вам и нужно сделать. Тут на скрине выбран Livescore.in (RU) - это значит что таблица будет работать с сайтом:
    ElseIf sourcer = 4 Then
        sourcer = "livescore.in/ru/"
        fsid = "60": geocode = ""
        suffix = "_ru_4

Тут вы самостоятельно заходите на данный сайт, смотрите работает он у вас или нет, есть ли там кефы и т.д., и определяете будет таблица что-либо грузить или нет. Если браузер ничего не показывает, говорит сайт не доступен например - то и таблица вам "ФИГ" покажет )))

Некоторые умники ломают работу такой удобной возможности как выбор сайта из селектора вот таким способом:
Заменяют вот такой запрос:
HTTP.Open "GET", "https://www." & sourcer & "x/feed/f_1_" & dayzone & "_" & timezone & suffix, False
На такой:
HTTP.Open "GET", "https://www.livescore.in/ru/x/feed/f_1_" & dayzone & "_" & timezone & "_ru_4", False

Первый запрос будет работать от того, какой сайт\домен был выбран в селекторе. Второй запрос уже не будет реагировать на селектор, потому что в строке жестко прописан определенный домен "livescore.in/ru/" - который в свою очередь именно у вас и может не открываться. sourcer по прежнему будет изменяться в зависимости от выбора в селекторе, но он уже не будет использоваться в самом макросе\запросе. 

Ваша задача состоит в том, что бы заменить домен и суффикс на рабочий в вашем браузере, стране, регионе и т.п. либо же вернуть sourcer  в работу (но я понял что это не для вас). Поэтому оптимальный вариант написать сайт\домен прямо в адрес запроса таким способом:
HTTP.Open "GET", "https://www.livescore.in/ru/x/feed/f_1_" & dayzone & "_" & timezone & "_ru_4", False

И не выкладывать уже поломанную таблицу в общество, что бы не засорять стоковые нормальные таблицы.


Я в своем LuckyBet уже несколько лет назад перешел на такой блок:


Все меняется в одном месте, модуле. Не нужно ничего нигде искать, написал рабочие домены и суффиксы и кайфую. Не парюсь что нужно искать где-то "https://d." что бы заменить на "https://www.". Прописал в одном месте, делаю вызов selectSource перед запросом:
selectSource
Call Download_site("https://" & sourcer & "x/feed/df_hh_1_" & match_id & suffix, fs_input)

И знаю что везде это применится: таблицы, история, кефы, карты, live статистика, составы и т.д.

Изменено 28 марта28 март пользователем Валерий Иванович

Возможно меня могут осудить авторы, но все же мне "все ровно".
Назар в теме  Enigma делал на сайте калькулятор: 

Вот код макросом, выдает результаты идентично сайту, но в потоке, без ручного вода:
 

' Функция для извлечения последних результатов команд (забитые и пропущенные мячи)
Function GetLastResults(wsHome As Worksheet, wsAway As Worksheet) As Variant
Const ROWS_COUNT As Integer = 5
Dim scoredHome() As Variant, missedHome() As Variant, scoredAway() As Variant, missedAway() As Variant
Dim i As Integer
ReDim scoredHome(1 To ROWS_COUNT)
ReDim missedHome(1 To ROWS_COUNT)
ReDim scoredAway(1 To ROWS_COUNT)
ReDim missedAway(1 To ROWS_COUNT)
Dim homeScoredVals As Variant: homeScoredVals = wsHome.Range("T15:T19").value
Dim homeMissedVals As Variant: homeMissedVals = wsHome.Range("U15:U19").value
For i = 1 To ROWS_COUNT
If IsArray(homeScoredVals) Then
If i <= UBound(homeScoredVals, 1) And IsNumeric(homeScoredVals(i, 1)) Then
scoredHome(i) = homeScoredVals(i, 1)
Else
scoredHome(i) = 0
End If
Else
scoredHome(i) = IIf(IsNumeric(homeScoredVals) And i = 1, homeScoredVals, 0)
End If
If IsArray(homeMissedVals) Then
If i <= UBound(homeMissedVals, 1) And IsNumeric(homeMissedVals(i, 1)) Then
missedHome(i) = homeMissedVals(i, 1)
Else
missedHome(i) = 0
End If
Else
missedHome(i) = IIf(IsNumeric(homeMissedVals) And i = 1, homeMissedVals, 0)
End If
Next i
Dim awayScoredVals As Variant: awayScoredVals = wsAway.Range("T15:T19").value
Dim awayMissedVals As Variant: awayMissedVals = wsAway.Range("U15:U19").value
For i = 1 To ROWS_COUNT
If IsArray(awayScoredVals) Then
If i <= UBound(awayScoredVals, 1) And IsNumeric(awayScoredVals(i, 1)) Then
scoredAway(i) = awayScoredVals(i, 1)
Else
scoredAway(i) = 0
End If
Else
scoredAway(i) = IIf(IsNumeric(awayScoredVals) And i = 1, awayScoredVals, 0)
End If
If IsArray(awayMissedVals) Then
If i <= UBound(awayMissedVals, 1) And IsNumeric(awayMissedVals(i, 1)) Then
missedAway(i) = awayMissedVals(i, 1)
Else
missedAway(i) = 0
End If
Else
missedAway(i) = IIf(IsNumeric(awayMissedVals) And i = 1, awayMissedVals, 0)
End If
Next i
Dim result(1 To 4) As Variant
result(1) = scoredHome
result(2) = missedHome
result(3) = scoredAway
result(4) = missedAway
GetLastResults = result
End Function

' Функция для расчёта СИР на основе калькулятора
Function CalculateSIR(scoredHome As Variant, missedHome As Variant, scoredAway As Variant, missedAway As Variant) As Variant
Dim weights(1 To 5) As Double: weights(1) = 1.3: weights(2) = 1.15: weights(3) = 1: weights(4) = 0.9: weights(5) = 0.8
If Not IsArray(scoredHome) Or Not IsArray(missedHome) Or Not IsArray(scoredAway) Or Not IsArray(missedAway) Or Not IsArray(weights) Then
CalculateSIR = Array(0, 0, 0, 0, 0, 0, 0, 0, "Ошибка данных")
Exit Function
End If
If UBound(scoredHome) - LBound(scoredHome) + 1 <> 5 Or UBound(missedHome) - LBound(missedHome) + 1 <> 5 Or _
UBound(scoredAway) - LBound(scoredAway) + 1 <> 5 Or UBound(missedAway) - LBound(missedAway) + 1 <> 5 Or _
UBound(weights) - LBound(weights) + 1 <> 5 Then
CalculateSIR = Array(0, 0, 0, 0, 0, 0, 0, 0, "Неверная размерность")
Exit Function
End If
Dim sumWeight As Double: sumWeight = 0
Dim sumHomeScored As Double: sumHomeScored = 0
Dim sumHomeMissed As Double: sumHomeMissed = 0
Dim sumAwayScored As Double: sumAwayScored = 0
Dim sumAwayMissed As Double: sumAwayMissed = 0
Dim sumTotal As Double: sumTotal = 0
Dim sumTotalAlt As Double: sumTotalAlt = 0
Dim sumBothScored As Double: sumBothScored = 0
Dim sumBothScoredAlt As Double: sumBothScoredAlt = 0
Dim sumHomeClean As Double: sumHomeClean = 0
Dim sumAwayClean As Double: sumAwayClean = 0
Dim sumHomeNoScore As Double: sumHomeNoScore = 0
Dim sumAwayNoScore As Double: sumAwayNoScore = 0
Dim sumOver25 As Double: sumOver25 = 0
Dim sumOver25Alt As Double: sumOver25Alt = 0
Dim i As Integer
For i = 1 To 5
Dim w As Double: w = weights(i)
sumWeight = sumWeight + w
sumHomeScored = sumHomeScored + scoredHome(i) * w
sumHomeMissed = sumHomeMissed + missedHome(i) * w
sumAwayScored = sumAwayScored + scoredAway(i) * w
sumAwayMissed = sumAwayMissed + missedAway(i) * w
Dim totalMatch As Double: totalMatch = scoredHome(i) + missedHome(i)
Dim totalMatchAlt As Double: totalMatchAlt = scoredAway(i) + missedAway(i)
sumTotal = sumTotal + totalMatch * w
sumTotalAlt = sumTotalAlt + totalMatchAlt * w
If scoredHome(i) > 0 And missedHome(i) > 0 Then sumBothScored = sumBothScored + w
If scoredAway(i) > 0 And missedAway(i) > 0 Then sumBothScoredAlt = sumBothScoredAlt + w
If missedHome(i) = 0 Then sumHomeClean = sumHomeClean + w
If scoredAway(i) = 0 Then sumAwayClean = sumAwayClean + w
If scoredHome(i) = 0 Then sumHomeNoScore = sumHomeNoScore + w
If missedAway(i) = 0 Then sumAwayNoScore = sumAwayNoScore + w
If scoredHome(i) + missedHome(i) > 2 Then sumOver25 = sumOver25 + w
If scoredAway(i) + missedAway(i) > 2 Then sumOver25Alt = sumOver25Alt + w
Next i
If sumWeight = 0 Then
CalculateSIR = Array(0, 0, 0, 0, 0, 0, 0, 0, "Нет весов")
Exit Function
End If
Dim avgHomeScored As Double: avgHomeScored = sumHomeScored / sumWeight
Dim avgHomeMissed As Double: avgHomeMissed = sumHomeMissed / sumWeight
Dim avgAwayScored As Double: avgAwayScored = sumAwayScored / sumWeight
Dim avgAwayMissed As Double: avgAwayMissed = sumAwayMissed / sumWeight
Dim xGH As Double: xGH = (avgHomeScored + avgAwayMissed) / 2
If xGH < 0.05 Then xGH = 0.05
If xGH > 5 Then xGH = 5
Dim xGA As Double: xGA = (avgAwayScored + avgHomeMissed) / 2
If xGA < 0.05 Then xGA = 0.05
If xGA > 5 Then xGA = 5
Dim avgTotal As Double: avgTotal = sumTotal / sumWeight
Dim avgTotalAlt As Double: avgTotalAlt = sumTotalAlt / sumWeight
Dim avgTotalComb As Double: avgTotalComb = (avgTotal + avgTotalAlt) / 2
Dim totalExp As Double: totalExp = xGH + xGA
Dim diffExp As Double: diffExp = xGH - xGA
Dim kCorr As Double: kCorr = 1 + (avgTotalComb - 2.4) * 0.1
If kCorr > 1.12 Then kCorr = 1.12
If kCorr < 0.9 Then kCorr = 0.9
Dim totalExpAdj As Double: totalExpAdj = totalExp * kCorr
Dim probDrawRaw As Double: probDrawRaw = 0.12 + Exp(-Abs(diffExp) * 2.2) * 0.16 - Application.WorksheetFunction.Max(0, totalExp - 3.2) * 0.03
Dim probDraw As Double: probDraw = probDrawRaw
If probDraw < 0.08 Then probDraw = 0.08
If probDraw > 0.3 Then probDraw = 0.3
Dim probNotDraw As Double: probNotDraw = 1 - probDraw
Dim probHomeGivenNotDraw As Double: probHomeGivenNotDraw = 1 / (1 + Exp(-diffExp / 0.55))
Dim probHome As Double: probHome = probNotDraw * probHomeGivenNotDraw
Dim probAway As Double: probAway = probNotDraw * (1 - probHomeGivenNotDraw)
Dim probTM25Theor As Double: probTM25Theor = Exp(-totalExpAdj) * (1 + totalExpAdj + totalExpAdj ^ 2 / 2)
If probTM25Theor < 0 Then probTM25Theor = 0
If probTM25Theor > 1 Then probTM25Theor = 1
Dim probTB25Theor As Double: probTB25Theor = 1 - probTM25Theor
Dim probTB25Emp As Double: probTB25Emp = sumOver25 / sumWeight
Dim probTB25EmpAlt As Double: probTB25EmpAlt = sumOver25Alt / sumWeight
Dim probTB25EmpAvg As Double: probTB25EmpAvg = (probTB25Emp + probTB25EmpAlt) / 2
Dim probTB25Comb As Double: probTB25Comb = probTB25Theor * 0.74 + probTB25EmpAvg * (1 - 0.74)
Dim pTB As Double: pTB = probTB25Comb
If pTB < 0.03 Then pTB = 0.03
If pTB > 0.97 Then pTB = 0.97
Dim odds As Double: odds = pTB / (1 - pTB)
Dim logOdds As Double: logOdds = Log(odds)
Dim adjustedLogOdds As Double: adjustedLogOdds = logOdds * 1.16
Dim probTB25 As Double: probTB25 = 1 / (1 + Exp(-adjustedLogOdds))
If probTB25 < 0 Then probTB25 = 0
If probTB25 > 1 Then probTB25 = 1
Dim probTM25 As Double: probTM25 = 1 - probTB25
Dim probHomeNoScore As Double: probHomeNoScore = Exp(-xGH)
Dim probAwayNoScore As Double: probAwayNoScore = Exp(-xGA)
Dim probBothScoreTheor As Double: probBothScoreTheor = (1 - probHomeNoScore) * (1 - probAwayNoScore)
If probBothScoreTheor < 0 Then probBothScoreTheor = 0
If probBothScoreTheor > 1 Then probBothScoreTheor = 1
Dim probBothScoreEmp As Double: probBothScoreEmp = sumBothScored / sumWeight
Dim probBothScoreEmpAlt As Double: probBothScoreEmpAlt = sumBothScoredAlt / sumWeight
Dim probBothScoreEmpAvg As Double: probBothScoreEmpAvg = (probBothScoreEmp + probBothScoreEmpAlt) / 2
Dim probHomeCleanEmp As Double: probHomeCleanEmp = sumHomeClean / sumWeight
Dim probAwayCleanEmp As Double: probAwayCleanEmp = sumAwayClean / sumWeight
Dim probHomeNoScoreEmp As Double: probHomeNoScoreEmp = sumHomeNoScore / sumWeight
Dim probAwayNoScoreEmp As Double: probAwayNoScoreEmp = sumAwayNoScore / sumWeight
Dim probCleanAvg As Double: probCleanAvg = (probHomeCleanEmp + probAwayCleanEmp + probHomeNoScoreEmp + probAwayNoScoreEmp) / 4
Dim probBothScoreComb As Double: probBothScoreComb = probBothScoreTheor * 0.72 + probBothScoreEmpAvg * (1 - 0.72) - probCleanAvg * 0.08
Dim pBtts As Double: pBtts = probBothScoreComb
If pBtts < 0.03 Then pBtts = 0.03
If pBtts > 0.97 Then pBtts = 0.97
Dim oddsBtts As Double: oddsBtts = pBtts / (1 - pBtts)
Dim logOddsBtts As Double: logOddsBtts = Log(oddsBtts)
Dim adjustedLogOddsBtts As Double: adjustedLogOddsBtts = logOddsBtts * 1.18
Dim probBtts As Double: probBtts = 1 / (1 + Exp(-adjustedLogOddsBtts))
If probBtts < 0 Then probBtts = 0
If probBtts > 1 Then probBtts = 1
Dim probBttsNo As Double: probBttsNo = 1 - probBtts
Dim probs(1 To 7) As Double
Dim labels(1 To 7) As String
probs(1) = probHome: labels(1) = "П1"
probs(2) = probDraw: labels(2) = "Х"
probs(3) = probAway: labels(3) = "П2"
probs(4) = probTB25: labels(4) = "ТБ 2.5"
probs(5) = probTM25: labels(5) = "ТМ 2.5"
probs(6) = probBtts: labels(6) = "ОЗ Да"
probs(7) = probBttsNo: labels(7) = "ОЗ Нет"
Dim maxProb As Double: maxProb = probs(1)
Dim maxIndex As Integer: maxIndex = 1
For i = 2 To 7
If probs(i) > maxProb Then
maxProb = probs(i)
maxIndex = i
End If
Next i
Dim bestPrediction As String: bestPrediction = labels(maxIndex) & " (" & Format(maxProb, "0.0%") & ")"
Dim result(1 To 9) As Variant
result(1) = xGH
result(2) = xGA
result(3) = probHome
result(4) = probDraw
result(5) = probAway
result(6) = probTB25
result(7) = probTM25
result(8) = probBtts
result(9) = bestPrediction
CalculateSIR = result
End Function

GetLastResults извлекает данные для калькулятора в таком виде {1,2,3,0,0} для кормления самого калькулятора CalculateSIR.

В заранее инициализируем листы примерно так:
Dim wsHome As Worksheet: Set wsHome = ThisWorkbook.Sheets("Home")
Dim wsAway As Worksheet: Set wsAway = ThisWorkbook.Sheets("Away")
Вызов функции: 
Dim lastResults As Variant: lastResults = GetLastResults(wsHome, wsAway)

Там же есть диапазон для забитых и пропущенных мячей, у меня они берутся отсюда (но можете сменить на общий, текущий турнир, дд, гг, или дг,гд):


Eще момент (у меня столбец T - забили, в категории Форма Хозяев (На Выезде) видно такие счета 2:1, но в соседнем столбце идет перестановка 1 vs 2, это не ошибка, так сделано специально, что бы столбец T всегда отображал забитые, да и макросам легче считывать данные.

Если кому-то трудно что-либо переделывать в листах, меняйте положение забитых-пропущенных мячей тут:
Dim homeScoredVals As Variant: homeScoredVals = wsHome.Range("T15:T19").value
Dim homeMissedVals As Variant: homeMissedVals = wsHome.Range("U15:U19").value
Dim awayScoredVals As Variant: awayScoredVals = wsAway.Range("T15:T19").value
Dim awayMissedVals As Variant: awayMissedVals = wsAway.Range("U15:U19").value

После того как GetLastResults отработал и вернул массивы вот так:
Dim lastResults As Variant: lastResults = GetLastResults(wsHome, wsAway)
Dim scoredHome() As Variant: scoredHome = lastResults(1)
Dim missedHome() As Variant: missedHome = lastResults(2)
Dim scoredAway() As Variant: scoredAway = lastResults(3)
Dim missedAway() As Variant: missedAway = lastResults(4)

Кормим этими данными сам калькулятор:
Dim sirResults As Variant: sirResults = CalculateSIR(scoredHome, missedHome, scoredAway, missedAway)

После того как CalculateSir отработал и вернул массивы вот так:
Dim lambda_home_e As Double: lambda_home_e = sirResults(1)
Dim lambda_away_e As Double: lambda_away_e = sirResults(2)
Dim prob_home_e As Double: prob_home_e = sirResults(3)
Dim prob_draw_e As Double: prob_draw_e = sirResults(4)
Dim prob_away_e As Double: prob_away_e = sirResults(5)
Dim prob_tb_e As Double: prob_tb_e = sirResults(6)
Dim prob_tm_e As Double: prob_tm_e = sirResults(7)
Dim prob_btts_e As Double: prob_btts_e = sirResults(8)

Просто записываем их в нужные столбцы или ячейки. В итоге получите потоковый калькулятор Enigma. Который будет писать такие данные (у меня они в столбце Q-V):



P.S. ЭТО ВАЖНО (!): какими данными кормите калькулятор, такие результаты он и покажет.

За вчера вот такие результаты отображает Enigma. Сумма ставки 10Р.
При должной фильтрации, или сопоставлении с другими алгоритмами будете в плюсе. 

1 час назад, Валерий Иванович сказал:

За вчера вот такие результаты отображает Enigma. Сумма ставки 10Р.
При должной фильтрации, или сопоставлении с другими алгоритмами будете в плюсе. 

Вот еще одна стата, даже если ставить на все подряд, все равно выйти в плюс можно 😄

 

Изменено 29 марта29 март пользователем Валерий Иванович

26 минут назад, Валерий Иванович сказал:

Вот еще одна стата, даже если ставить на все подряд, все равно выйти в плюс можно 😄

 

Слишком хорошо, чтобы быть правдой)
Это по параметру Strongest Signal (общие матчи) или может есть дополнительная фильтрация?

Изменено 29 марта29 март пользователем Sweet Mask

9 минут назад, Sweet Mask сказал:

Слишком хорошо, чтобы быть правдой)
Это по параметру Strongest Signal (общие матчи) или может есть дополнительная фильтрация?

Ну, это претензии к Назару предъявляйте, что его калькулятор такой ROI показывает ))
Я лишь реализовал копию на vba, для потока (автоматическую) ))  

Изменено 29 марта29 март пользователем Валерий Иванович

4 минуты назад, Валерий Иванович сказал:

Ну, это претензии к Назару предъявляйте, что его калькулятор такой ROI показывает ))
Я лишь реализовал копию на vba, для потока (автоматическую) ))  

Претензий нет) 
Просто как раз смотрел Юж. Корею и Австралию и поймал 4 минуса с небольшой выборки.

42 минуты назад, Валерий Иванович сказал:

Вот еще одна стата, даже если ставить на все подряд, все равно выйти в плюс можно

Стоп, что значит на все подряд? Там же в калькуляторе есть ячейка прогноз!!! Это резы по этой ячейке?

14 минут назад, KGB сказал:

Стоп, что значит на все подряд? Там же в калькуляторе есть ячейка прогноз!!! Это резы по этой ячейке?

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

Тут прогнозы Enigma в столбце V (код скидывал выше) 

 
Дальше запускаю этот самый калькулятор для столбца V, который разбирает прогнозы из столбца (Тоталы, ОЗ, Исходы)



и получаю отчет о прогнозах и их результатах (если они есть).



Вот пример:



ROI рассчитывается на коэффициентах БК (если нет кеф на ставку из столбца, учет не ведется), даже если попадется прогноз на ничью с кефом 10, и такая ставка будет сделана, это скажется на ROI, с остальным так же )

Изменено 29 марта29 март пользователем Валерий Иванович

14 минут назад, Sweet Mask сказал:

Претензий нет) 
Просто как раз смотрел Юж. Корею и Австралию и поймал 4 минуса с небольшой выборки.

Так и у меня в отчете не 100% проходимость 🙂

7 минут назад, Валерий Иванович сказал:

Так и у меня в отчете не 100% проходимость 🙂

Само собой, но показатель РОЙ 40+, а я за 11 матчей уже имею 6+ 5- и коэффициенты там ниже 2, поэтому у меня складываются сомнения.

Изменено 29 марта29 март пользователем Sweet Mask

30 минут назад, Sweet Mask сказал:

Само собой, но показатель РОЙ 40+, а я за 11 матчей уже имею 6+ 5- и коэффициенты там ниже 2, поэтому у меня складываются сомнения.

Проведем эксперимент с помощью ИИ на достоверность правильного расчета моего калькулятора для ROI.
У вас в кефах <2, у меня попадаются >2.

Результат моего калькулятора:
 


Скормленая информация для калькулятора и для ИИ:


Результат ИИ:



Детали от ИИ.
детали.txt

Изменено 29 марта29 март пользователем Валерий Иванович

32 минуты назад, Валерий Иванович сказал:

Проведем эксперимент с помощью ИИ на достоверность правильного расчета моего калькулятора для ROI.
У вас в кефах <2, у меня попадаются >2.

Результат моего калькулятора:
 


Скормленая информация для калькулятора и для ИИ:


Результат ИИ:



Детали от ИИ.
детали.txt

Проверять 600+- матчей вручную я не буду и конечно там есть коэффициенты выше 2, но давайте рассуждать адекватно. Мы вносим информацию забитых/пропущенных и больше ничего. Чем больше забили и пропустили, тем большая вероятность прогноза на ТБ и чаще всего коэффициент будет ниже.

Хочется верить, что калькулятор не врёт, поэтому ещё пересмотрю матчи и проходимость.

Изменено 29 марта29 март пользователем Sweet Mask

24 минуты назад, Sweet Mask сказал:

Проверять 600+- матчей вручную я не буду и конечно там есть коэффициенты выше 2, но давайте рассуждать адекватно. Мы вносим информацию забитых/пропущенных и больше ничего. Чем больше забили и пропустили, тем большая вероятность прогноза на ТБ и чаще всего коэффициент будет ниже.

Хочется верить, что калькулятор не врёт, поэтому ещё пересмотрю матчи и проходимость.

Может дискуссию о таблице Назара будите вести в его теме. И если он даст добро, могу сбросить архив с начало года.

2 часа назад, Sweet Mask сказал:

Проверять 600+- матчей вручную я не буду и конечно там есть коэффициенты выше 2, но давайте рассуждать адекватно. Мы вносим информацию забитых/пропущенных и больше ничего. Чем больше забили и пропустили, тем большая вероятность прогноза на ТБ и чаще всего коэффициент будет ниже.

Хочется верить, что калькулятор не врёт, поэтому ещё пересмотрю матчи и проходимость.

Все зависит от того, какие исходы матчей проверяются. Мы можем говорить об одном и том же, но имееть разные представления что именно учитываем в прогнозах )

 

Я смотрю все: ТБ, ТМ, П1, П2, Ничья, ОЗ да, ОЗ Нет - в калькуляторе все это отображается. 600+ матчей, разные исходы, в чем проблема то получить ROI свыше 50% по всем прогнозам? Плюс я совершенно не мотивирован спорить с кем-либо о правильности работы моего макроса - моей уверенности мне достаточно 🙂

 

На счёт моего макроса, который взят с калькулятора на сайте Назара и его результатов - это вы общайтесь с Назаром. Это его калькулятор такие прогнозы выдает, я лишь написал код vba для удобства ))

Изменено 29 марта29 март пользователем Валерий Иванович

2 часа назад, Sweet Mask сказал:

Проверять 600+- матчей вручную я не буду и конечно там есть коэффициенты выше 2, но давайте рассуждать адекватно. Мы вносим информацию забитых/пропущенных и больше ничего. Чем больше забили и пропустили, тем большая вероятность прогноза на ТБ и чаще всего коэффициент будет ниже.

Хочется верить, что калькулятор не врёт, поэтому ещё пересмотрю матчи и проходимость.

Вот вам еще один аргумент правильности расчетов калькулятора )))
Как в предыдущем примере (вчерашние матчи), сегодня на все подряд ставить бессмысленно ))  

Сегодняшние матчи, которые уже прошли (3 алгоритма + Машинное обучение):

Изменено 29 марта29 март пользователем Валерий Иванович

В 27.03.2026 в 14:29, DmLStreak сказал:

Ребят не поможете починить данную таблицу ???проблема заключается в том ,что после загрузки матчей во вкладке start   нажимаю на кнопку пуск во вкладке list  загрузка происходит но во вкладке прогноз пусто 

таблиц_форма(ррусский).xlsb 160.66 kB · 22 загрузки

Привет. Подскажите пожалуйста как отбирать матчи? На что обращать внимание? Заранее благодарю за ответ.

28 минут назад, Erika Blumm сказал:

Привет. Подскажите пожалуйста как отбирать матчи? На что обращать внимание? Заранее благодарю за ответ.

Боюсь, отбор матчей волнует тут каждого - ведь именно от него все и зависит )
Я бы тоже не отказался от такого знания 🙂

1 час назад, Erika Blumm сказал:

Привет. Подскажите пожалуйста как отбирать матчи? На что обращать внимание? Заранее благодарю за ответ.

По сути главные листы это ODD и tabl2 по которых нужно анализировать движение коэффициентов и положение в турнирных таблицах (общая, дома, гости, 5 общих, 5 дома и 5 гости).

Без дополнительного анализа лист прогноз считаю бесполезным.

Есть у кого-нибудь архив в таком формате?



ЧЕМПИОНАТ,ХОЗЯЕВА,ГОСТИ,СЧЕТ, MATCH_ID, и вытекающие таблицы:

Таблица Турнирная Общая Таблица Турнирная Домашняя/Гостевая Таблица Формы Общая Таблица Формы Домашняя/Гостевая

Хотел сделать архив, распарсив флешскор по match_id, данные на 74к записей есть, но проблема в том, что таблицы показывают финальный результат команд, а не тот, что был на момент матча.

 

Здравствуйте, есть вопрос, нужен какой-нибудь парсер или таблица эксель, которая выдает 5 последних результатов (только счет) в чемпионате команды 1 только в домашних матчах и команды 2 только в гостевых матчах на целый день с 0.00 до 24.00 всех чемпионатов. Спасибо

9 часов назад, Валерий Иванович сказал:

Есть у кого-нибудь архив в таком формате?



ЧЕМПИОНАТ,ХОЗЯЕВА,ГОСТИ,СЧЕТ, MATCH_ID, и вытекающие таблицы:

Таблица Турнирная Общая Таблица Турнирная Домашняя/Гостевая Таблица Формы Общая Таблица Формы Домашняя/Гостевая

Хотел сделать архив, распарсив флешскор по match_id, данные на 74к записей есть, но проблема в том, что таблицы показывают финальный результат команд, а не тот, что был на момент матча.

 

Есть какие-то наблюдения? Могу спарсить эти данные только по лигам, если есть в этом толк.

2 часа назад, The Iron Wizard сказал:

Есть какие-то наблюдения? Могу спарсить эти данные только по лигам, если есть в этом толк.

Нет, мне просто архив нужен для обучения ml.