Free кодинг
#1 OFFLINE
Posted 30 July 2015 - 17:22
#2 OFFLINE
Posted 30 July 2015 - 20:36
#3 OFFLINE
#4 OFFLINE
Posted 31 July 2015 - 05:37
#5 OFFLINE
Posted 31 July 2015 - 09:06
Какова вероятность, что после твоего успешного тестирования автор идеи получит работоспособного бота?
#6 OFFLINE
Posted 31 July 2015 - 09:14
al_m, on 31 July 2015 - 09:06, сказал:
Какова вероятность, что после твоего успешного тестирования автор идеи получит работоспособного бота?
Во-первых, это может быть не обязательно бот, сервис, парсер, автоматизация.
Во-вторых, автор идеи, стратегии и т. п. получит все что будет сделано, детали обсуждаются.
В-третьих, я тут не торгуюсь, а предлагаю помочь.
#7 OFFLINE
Posted 31 July 2015 - 13:21
media-monster, on 31 July 2015 - 09:14, сказал:
Во-вторых, автор идеи, стратегии и т. п. получит все что будет сделано, детали обсуждаются.
В-третьих, я тут не торгуюсь, а предлагаю помочь.
Edited by FIX, 31 July 2015 - 13:29.
#8 OFFLINE
Posted 31 July 2015 - 13:35
#9 OFFLINE
Posted 01 August 2015 - 07:21
Допустим нам надо выбрать всех коней на сегодняшнюю дату с определённым полом, которые бегут дистанцию больше/меньше заданной. Руками долго, а подобной прогой дело быстрое.
#10 OFFLINE
Posted 01 August 2015 - 12:56
#11 OFFLINE
Posted 01 August 2015 - 14:41
Все проблемы(а их там несколько) связанные с построением более "продвинутой" функции можно тут я думаю обсудить (если на то у Вас будет желание).... Коэффициенты а0 ,а1 для треков вот так считались Ссылка Здесь
Но там надо делать два варианта---для длинных дистанций свою функцию потом в какой-то точке сопрягать линейные зависимости (чтоб считать с длинных на короткие и обратно...а то там кривые сильно отличаются так как скорости у нас очень разные для допустим 7ф и 2мили).....
Возникла собственно вот какая проблема---есть в целом БД по забегам но там ситуация такова что лошади-то несколько раз бегают и там данные для части случаев как бы повторяются(то есть не уникальны и их надо отдельно обрабатывать что лишний гимор просто...помимо остального и по сути можно считать что база не удовлетворяет неким требованиям...там и ко всему прочему нет некоторых важных параметров для забега с моей точки зрения....это и послужило поводом сделать предложение......можно набрать конечно забеги но это время надо да и хлопотно лично для меня...так как я не программирую).
Edited by Bambuk, 01 August 2015 - 14:41.
#12 OFFLINE
Posted 01 August 2015 - 15:29
media-monster, on 01 August 2015 - 12:56, сказал:
#13 OFFLINE
Posted 03 August 2015 - 09:44
Cobal't, on 01 August 2015 - 15:29, сказал:
Ваш вариант нет смысла делать отдельно, его можно просто прогнать на истории.
Bambuk, on 01 August 2015 - 14:41, сказал:
Все проблемы(а их там несколько) связанные с построением более "продвинутой" функции можно тут я думаю обсудить (если на то у Вас будет желание).... Коэффициенты а0 ,а1 для треков вот так считались Ссылка Здесь
Но там надо делать два варианта---для длинных дистанций свою функцию потом в какой-то точке сопрягать линейные зависимости (чтоб считать с длинных на короткие и обратно...а то там кривые сильно отличаются так как скорости у нас очень разные для допустим 7ф и 2мили).....
Возникла собственно вот какая проблема---есть в целом БД по забегам но там ситуация такова что лошади-то несколько раз бегают и там данные для части случаев как бы повторяются(то есть не уникальны и их надо отдельно обрабатывать что лишний гимор просто...помимо остального и по сути можно считать что база не удовлетворяет неким требованиям...там и ко всему прочему нет некоторых важных параметров для забега с моей точки зрения....это и послужило поводом сделать предложение......можно набрать конечно забеги но это время надо да и хлопотно лично для меня...так как я не программирую).
Да, имею. Если поэтапно все разберем, можно реализовать.
#14 OFFLINE
Posted 05 August 2015 - 09:40
media-monster, on 03 August 2015 - 09:44, сказал:
Типовая зависимость такая. Но тут вот качество покрытия не учитывалось А можно попробовать хотя б на 2 группы разбить--обозвать условно хорошее-плохое
и для них отдельно строить. И ещё подумать до какой дистанции брать--можно наверно взять 1мили 4-6 ф за точку сопряжения двух кривых--первую строить для точек до 1м6ф например а остальные считать что это длинная дист и там своя будет кривая. Фактически надо найти ток коэффициенты уравнения А0 и А1
там по ссылкам выше в теме есть как находить (ни чё сложного особо нет)..... Тогда если это всё сделать то думаю треки поточнее будут пересчитываться на одну дистанцию и один трек (на котором сейчас бегут)...А дальше там уже можно просто моделировать забег по этим данным у нас несколько точек будет на лошадь--вот допустим пересчитали 8 точек --можно найти среднее их и дисперсию(или стандартное отклонение времени)--этих данных достаточно для моделирования всего забега (так как по каждой лошади будут такие данные). То есть деление --классы, покрытие(2 варианта)+дист (короткие-длинные). Вот это для каждого ипподрома надо по идее.
Attached Files
Edited by Bambuk, 05 August 2015 - 09:43.
#15 OFFLINE
Posted 05 August 2015 - 10:25
Public Sub Racing_P(ByRef zag As Range, ByRef vgr As Range, ByRef Num As Range)
Dim Z, V As Range
Dim N As Range
Dim i, j, m, l As Integer
Dim Tsec(), Otkl(), Amatr(), Bmatr() As Double
Dim REZ(), Summat() As Integer
Dim c_pi As Single
Dim Gf, Gr, SGEN As Double
Set N = Num
Set Z = zag
Set V = vgr
ReDim Tsec(N.Value - 1)
ReDim Otkl(N.Value - 1)
ReDim Amatr(N.Value - 1)
ReDim Bmatr(N.Value - 1)
ReDim Summat(N.Value - 1, N.Value - 1)
i = 0
Do Until i >= N.Value
Tsec(i) = Z.Offset(rowOffset:=i, columnOffset:=0).Value
Otkl(i) = Z.Offset(rowOffset:=i, columnOffset:=1).Value
i = i + 1
Loop
c_pi = 3.14159265358979
j = 1
For j = 1 To 5000
i = 0
Do Until i >= N.Value
Gr = Rnd()
Gr = Rnd()
SGEN = ((-2 * Log(Gr)) ^ 0.5)
Amatr(i) = Tsec(i) - 1 + SGEN * Otkl(i)
Bmatr(i) = Amatr(i)
i = i + 1
Loop
Call Sort_1(Bmatr)
l = 0
Do Until l >= N.Value
m = 0
Do
If Amatr(l) = Bmatr(m) Then
Summat(l, m) = Summat(l, m) + 1
End If
m = m + 1
Loop Until Amatr(l) = Bmatr(m - 1)
l = l + 1
Loop
Next j
j = 0
Do Until j >= N.Value
i = 0
Do Until i >= N.Value
V.Offset(rowOffset:=i, columnOffset:=j).Value = Summat(i, j) / 5000
i = i + 1
Loop
j = j + 1
Loop
End Sub
Public Sub Sort_1(a() As Double)
Dim n_1, i_1, j_1 As Integer
n_1 = UBound(a, 1)
For i_1 = 0 To n_1 - 1
For j_1 = i_1 + 1 To n_1
If a(j_1) < a(i_1) Then
Tmp = a(i_1)
a(i_1) = a(j_1)
a(j_1) = Tmp
End If
Next j_1
Next i_1
End Sub
Sub RacingMain() 'Эту процедуру связываем с кнопкой, например, на листе…
'
' RacingMain Макрос
'
'
Dim a1, b1, c1 As Range
Set a1 = Range("$G$8")
Set b1 = Range(a1.Offset(rowOffset:=0, columnOffset:=6).Address)
Set c1 = Range(a1.Offset(rowOffset:=-2, columnOffset:=0).Address)
Call Racing_P(a1.Cells(1, 1), b1.Cells(1, 1), c1.Cells(1, 1))
End Sub
Где жирным там собственно и моделируем, вот эта процедура Sub Sort_1 она просто расставляет данные по убыванию в другой массив потом определяем какой лошади относится
и подсчитываем места..... Вот тут в файле более понятно будет https://yadi.sk/i/O_KZ5mVGiHDCb
Весь гимор вот с этой функцией Function FTDI_2 она в 3 модуле.
Edited by Bambuk, 05 August 2015 - 10:27.
#16 OFFLINE
Posted 05 August 2015 - 10:56
Edited by Bambuk, 05 August 2015 - 11:01.
#17 OFFLINE
Posted 07 October 2015 - 09:58
#18 OFFLINE
Posted 07 October 2015 - 14:13