Москва

Россия

Есть исходный код на Си, нужно перенести его на Delphi.
Код содержит в себе 1 функцию HPF (Hodrick Prescott Filter, который в т.ч. используется для графического отображения тренда заданного массива движения цен и его сглаживания) и состоит примерно из 50 строк.

Я пробовал портировать его сам, но в получившийся Delphi-код закралась неизвестная мне ошибка и график переодически "уезжает" вверх или вниз. Что немудрено, учитывая мои нулевые познания в языке Си. Предположительно ошибка может быть в следствии отсутствия в коде на Си обработки ситуации с делением на 0, которую на Delphi приходится обрабатывать.

Жду ваши предложения.

Портировать 50 строк кода с С++ на Delphi

Delphi

Положительные

Программирование Механичкских Торговых Систем ( МТС )

В проекте есть библиотека TRANS2QUIK.dll, при помощи которой происходит обмен данными с QUIK.
Юнит QuikExt является интерфейсом для работы с этой библиотекой.
В main.pas реализована демонстрационная работа с этим интерфейсом: при получении котировок от QUIK робот будет бесконечно торговать одним лотом, выставляя лимитные ордера по текущим ценам - их можно наблюдать в стакане QUIK, они там выделяются жирным шрифтом.

Основная логика работы примерно следующая. Используя функцию Quik.SendASyncTransaction( TransStr ) по API в QUIK отправляется сделка, далее в интерфейс QuikExt приходят асинхронные ивенты от QUIK в 4 функции (ConnectionStatusCallbackClass, TransReplyStatusCallbackClass, OrderStatusCallbackClass, TradeStatusCallbackClass), в которых происходит формирование классов с данными от полученных ивентови добавление их в Queue.List (TThreadList). Далее, после каждого ивента, отправляется PostMessage для обработки обновленного листа в procedure TQuik.WMInsertQueue(var Message: TWMSysCommand), в котором полученные классы отправляются дальше (в цикле пробегая лист) в основное приложение.

Проблема в отсутствии синхронизации: ивенты приходят асинхронно и лочат лист, и процедура обработки листа делает тоже самое. Может прийти несколько ивентов практически одновременно.

Проект прилагается.

Для тестирования работы проекта понадобится программа QUIK-Junior, её версию, настроенную под проект, вышлю позже. 
Так же в проекте используется SmartInspect 3.2.3 для логирования (в uses SiAuto) - есть на рутрекере.

В проекте есть библиотека TRANS2QUIK.dll, при помощи которой происходит обмен данными с QUIK.
Юнит QuikExt является интерфейсом для работы с этой библиотекой.
В main.pas реализована демонстрационная работа с этим интерфейсом: при получении котировок от QUIK робот будет бесконечно торговать одним лотом, выставляя лимитные ордера по текущим ценам - их можно наблюдать в стакане QUIK, они там выделяются жирным шрифтом.

Основная логика работы примерно следующая. Используя функцию Quik.SendASyncTransaction( TransStr ) по API в QUIK отправляется сделка, далее в интерфейс QuikExt приходят асинхронные ивенты от QUIK в 4 функции (ConnectionStatusCallbackClass, TransReplyStatusCallbackClass, OrderStatusCallbackClass, TradeStatusCallbackClass), в которых происходит формирование классов с данными от полученных ивентови добавление их в Queue.List (TThreadList). Далее, после каждого ивента, отправляется PostMessage для обработки обновленного листа в procedure TQuik.WMInsertQueue(var Message: TWMSysCommand), в котором полученные классы отправляются дальше (в цикле пробегая лист) в основное приложение.

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

Проект прилагается.

Для тестирования работы проекта понадобится программа QUIK-Junior, её версию, настроенную под проект, вышлю позже. 
Так же в проекте используется SmartInspect 3.2.3 для логирования (в uses SiAuto) - есть на рутрекере.

Сделать синхронизацию, Delphi

Доработка интерфейса-обертки для работы с платформой QUIK по API.

Язык: Delphi 7

Вводная:

В интерфейсе - 4 каллбека, в них асинхронно поступают данные от QUIK и добавляются в TThreadList в виде объектов.
Обработчику листа TThreadList отправляются PostMessage-ивенты о факте получения новых записей.
Далее обработчик отправляет эти объекты в основное приложение.

Проблема заключается в синхронизации TThreadList.LockList между обработчиком и каллбеками:
когда в процессе выполнения обработчика в некоторые каллбеки приходит больше 1 записи происходит двойной лок.


Контекст разработки:

Основное приложение, использующее вышеописанный интерфейс, включает в себя
достаточно много различных библиотек/компонентов и его миграция затруднительна.

Поэтому необходима локальная разработка с использованием Teamviewer.



ТЗ:

Реализация механизма синхронизации между асинхронными каллбеками и
их обработчиком при помощи Lock-free queue list, Thread pool или другими методами.

Желательна разработка наиболее быстрого и эффективного варианта.

Использование Teamviewer или других менеджеров удаленных десктопов.

Доработка интерфейса-обертки для работы с платформой QUIK по API.

Язык: Delphi 7

Вводная:

В интерфейсе - 4 каллбека, в них асинхронно поступают данные от QUIK и добавляются в TThreadList в виде объектов.
Обработчику листа TThreadList отправляются PostMessage-ивенты о факте получения новых записей.
Далее обработчик отправляет эти объекты в основное приложение.

Проблема заключается в синхронизации TThreadList.LockList между обработчиком и каллбеками:
когда в процессе выполнения обработчика в некоторые каллбеки приходит больше 1 записи происходит двойной лок.


Контекст разработки:

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

Поэтому необходима локальная разработка с использованием Teamviewer.



ТЗ:

Реализация механизма синхронизации между асинхронными каллбеками и
их обработчиком при помощи Lock-free queue list, Thread pool или другими методами.

Желательна разработка наиболее быстрого и эффективного варианта.

Использование Teamviewer или других менеджеров удаленных десктопов.

Доработка интерфейса-обертки, Delphi

Есть исходный код на Си, нужно перенести его на Delphi.
Код содержит в себе 1 функцию HPF (Hodrick Prescott Filter, который в т.ч. используется для графического отображения тренда заданного массива движения цен и его сглаживания) и состоит примерно из 50 строк.

Я пробовал портировать его сам, но в получившийся Delphi-код закралась неизвестная мне ошибка и график переодически "уезжает" вверх или вниз. Что немудрено, учитывая мои нулевые познания в языке Си. Предположительно ошибка может быть в следствии отсутствия в коде на Си обработки ситуации с делением на 0, которую на Delphi приходится обрабатывать.

Жду ваши предложения.

Денис Ariloum