Пример торгового робота

Я предлагал когда-то примерно то же самое. Только код робота тут почти бесполезен - я предлагал обсудить базовые алгоритмы, нюансы реализации, вплоть до кодов некоторых утилит - всё это благополучно умерло. Да и не программирует тут на Lua почти никто.

Самый простой робот далеко не прост. Алгоритмически простейший - тот, который позволяет торговать вручную, но сам никаких решений не принимает. Но и это немалый пласт инструментария - прорисовка таблиц, обработка событий от юзера, отправка заявок и вообще взаимодействие с брокером, работа с файлами и массивами. Проблема еще и в том, что инструментарий этот тесно перевязан, так что способен порождать разные наведённые ошибки, и отлаживать нужно сразу всё в комплексе. Короче, придётся вам, господа, набивать собственные шишки. Зато это самый надёжный и эффективный метод обучения!  

Господа, нашел пример простого робота со скользящей средней на сайте  QLua (o-s-a.net)
Давайте это обсудим.


-- переменная для прырывания цикла при срабатывании функции обратного вызова OnStopis_run = true

-- присванивание переменным начальных базовых значений торгового алгоритма

Account = "NL0011100043"     -- торговый счет
Class_Code = "QJSIM"         -- класс торгуемого инструмента
Sec_Code = "SBER"            -- код торгуемого инструмента
TF = INTERVAL_M1             -- торговый таймфрейм
g_lots = 1                   -- количество торгуемых лот

function main()
   -- подписываемся на получение данных свечей по инструменту в массив ds
   ds = CreateDataSource(Class_Code, Sec_Code, TF)
   while is_run do
         sleep(1000)            -- обрабатываем цикл с задержкой 1сек.
         ds:SetEmptyCallback()  -- обновляем данные по инструменту в массиве ds
         local serv_time=tonumber(timeformat(getInfoParam("SERVERTIME"))) -- помещене в переменную времени сервера в формате HHMMSS                  
         if isConnected()==1 and serv_time>=10000 and serv_time<235000 then -- проверка наличия соеденения с сервером и поподания в торговое окно
            -- место для размещения торговой логики
            -- расчет значения скользящей средней
            local SMA = 0
            local period = 20
            local count_candle = ds:size()
            if count_candle>20 then
               local sum = 0
               for i=0 , period-1 do                                                  
                   sum = sum + ds:C(count_candle-i)
               end
               SMA = sum / period
               local lots = get_lots()            

               -- получение количества лот в клиентском портфеле по инструменту
               if ds:C(count_candle)>SMA and lots<g_lots then
                   -- получение минимального шага цены для организации величины проскальзываня в ордере
                   local step=tonumber(getParamEx(Class_Code, Sec_Code, "SEC_PRICE_STEP").param_value)
                   local price_order = ds:C(count_candle)+(step*20)
                   -- цена для ордера будет = цена закрытия + 20-ть минимальных шагов инст.
                   send_order("B", math.abs(g_lots-lots) , price_order)
               end
               if ds:C(count_candle)<SMA and lots>(g_lots*(-1)) then
                   -- получение минимального шага цены для организации величины проскальзываня в ордере
                   local step=tonumber(getParamEx(Class_Code, Sec_Code, "SEC_PRICE_STEP").param_value)
                   local price_order = ds:C(count_candle)-(step*20)    
                   -- цена для ордера будет = цена закрытия - 20-ть минимальных шагов инст.
                   send_order("S", math.abs(g_lots+lots) , price_order)
               end
            end                  
          end
   end
end

-- функция возвращает количество лот в клиентском портфеле по заданному инструменту
function get_lots()
   local lots = 0
   local n = getNumberOf("futures_client_holding")
   local futures_client_holding={}                    
   for i=0,n-1 do            
      futures_client_holding = getItem("futures_client_holding", i)
      if tostring(futures_client_holding["sec_code"])==Sec_Code then
         lots=tonumber(futures_client_holding["totalnet"])
      end
   end      
   return lots
end
----------------------

-- отправка транзакции
function send_order(operation, quantity, price)      
   -- получение минимального шага цены для округления цены отправляемого ордера
   local step=tonumber(getParamEx(Class_Code, Sec_Code, "SEC_PRICE_STEP").param_value)
   local trans_params =
         {
           CLIENT_CODE = Account,
           CLASSCODE = Class_Code,
           SECCODE = Sec_Code,
           ACCOUNT = Account,
           TYPE = "L",
           TRANS_ID = tostring(1),
           OPERATION = tostring(operation),
           QUANTITY = tostring(math.abs(quantity)),
           PRICE = tostring(math.floor(tonumber(price)/step)*step),  -- округление цены при отправлении транзакции
           ACTION = "NEW_ORDER"
         }
   local res = sendTransaction(trans_params)
   if string.len(res) ~= 0 then
       message('Error: '..res,3)
       return 0
   else
       return trans_id
   end      
end

function OnStop(stop_flag)              
    is_run=false
    stop_flag=1
    ds:Close()
end


function timeformat(time_unf)
    local in1, in2=0,0
    local time_form=0      
    in1=string.find(time_unf,":" , 0)
    if in1~=nil and in1~=0 then
       in2=string.find(time_unf,":" , in1+1)
       time_form=string.sub(time_unf, 0 ,in1-1)..string.sub(time_unf, in1+1 ,in2-1)..string.sub(time_unf, in2+1 ,string.len(time_unf))
    end
    return time_form
end

Игорь, А чего тут обсуждать? Лично я в код вообще смотреть не хочу - постановка задачи должна быть на русском языке. И скользящая средняя мне нафиг не нужна - она только захламляет код.

Владимир, Спасибо что просмотрели код и разнесли его в пух и прах
Вопрос по торговым индикаторам-  в квике уже есть много разных торговых индикаторов. Значит не нужно писать громоздкий код по созданию индикаторов, нужно  вызвать их из квика и создать условия для покупки продажи? (может криво сформулировал вопрос уповаю на ваше понимание)
Нашел еще одного робота выкладывать сюда на обозрение?  

Да не стоит брать чужих роботов, бед только хлебнете.
Пишите с нуля неспешно, чтобы понимать полностью весь код.

Дело в том, что чистый код робота это по сути-то получил позиции, получил данные на основе которых выдал/не выдал сигнал, после чего и создал заявку и так по кругу
Но в реальной торговле это совершенно не жизнеспособно.

А в результате чуть ли ни половина кода робота будет обработка не стандартных ситуаций возникающих при торговле и устранение косяков qlua через разнообразные костыли.

BlaZed, Наверное так правильно да, просто кажется бесконечным. Чем больше узнаешь, понимаешь как много ты еще не знаешь)

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

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

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

Для меня как раз таки очень сложный показался. И самое главное,непонятный абсолютно. Я как то читал вопросы,которые форумчане задают разработчикам квика,и ответ в основном один - К сожалению такой возможности нет,но мы примем к сведению ваше пожелание- ... Вот лично я пока вообще не могу понять,как с этими таблицами работать,как данные получать и т.д... Вообщем одним словом,нужно разбираться.

Именно так я учился писать на mql4-5. Сначала смотрел видео уроки и пробовал по ним,потом начинал разбираться в каждой строчке кода и в итоге без проблем получается на этом языке. Но qlua для меня пока темный лес-куча дров.

Maksimus, Ну, не знаю... я-то уже добрым десятком языков владел, когда впервые увидел Lua (сентябрь прошлого года). Другое дело, что после знакомства с С ничего другого искать и писать на чём-то ином просто НЕ ХОЧЕТСЯ - гениальный язык! Ну, а где-то на другом конце помещается Lua.

А чего там "с этими таблицами работать"? Строки - они и в Африке строки. А больше тут ничего и нет.

Пугнуть, что ли, каким-нить своим оператором?   Ну вот, скажем:
if tostring(a[i][12][j][0])==tostring(s.trans_id) and a[i][12][j][1]==0 then a[i][12][j][0]=s.order_num;end;

Пугнуть у вас получилось!!!)))) Ну может и я когда нибудь буду с лёгкостью писать такие строки!)  

Меню можно сделать

Че то не открывается картинка

Maksimus, Много лет назад один умный человек сказал: "Визуальное программирование создаёт у чайника иллюзию, что он тоже программист".  

да

Константин Рейм, Самое разумное. У меня тоже так: основная таблица по тикерам есть головное меню, а при клике правой кнопкой по строке с интересующим тикерам открывается дочернее. Очень просто и удобно.

Константин Рейм, Опа! А вот редактора значений полей у меня нет! И как тут это делается?

Огромное,человеческое спасибо! Обязательно почитаю эту ветку. Значит буду начинать именно с вывода значений различных таблиц. Думаю все так и начинали.

Maksimus, Так ВЫВОДА, а не ВВОДА!  

А как сделать ввод параметров?

А поле ввода как сделать? Есть какая то функция?

nikolz, Лапуль, а Вы-то кто? Вы же и есть самый натуральный, без подмесу, чайник.

1)  Толку-то от этих учебников? Давно известно: "Кто умеет - тот делает, кто не умеет - тот учит, как надо делать".

2) Чтобы "изучить язык программирования LUA и умееть писать на нем программы" требуется примерно полчаса.

3) Какие, в жопу, "конечные автоматы"? Какие, в жопу, "некоторые рутинные действия"?

4) Ну вот МОЙ робот "не сливает счет а даже приносит прибыль" - и чего? В рынках я ни уха ни рыла, а ИИстов я уже лет 20 гоняю стихами Маршака:
Мой мальчик! Тебе эту песню дарю.
Рассчитывай силы свои.
И, если сказать не умеешь "хрю-хрю", -
Визжи, не стесняясь: "ИИ!"....