BlaZed (Все сообщения пользователя)

function OnStop()
   assert(runStatus == 3, "Unexpected runStatus in OnStop: " .. runStatus)
   runStatus = runStatus - 1
   while runStatus == 2 do
      sleep(10)
   end
--   runStatus = runStatus - 1
end

function main()
   onMainInit()
   runStatus = 3
   while runStatus == 3 do
      onTimeStep()
      sleep(mainLoopTimeout)
   end
   do
      local s, e = pcall(onMainCleanup)
      runStatus = runStatus - 1
--      while runStatus == 1 do
--         sleep(10)
--      end
      if not s then error(e) end
   end
end

function Q_lot()
  local default_lot=1 -- количество лотов при отсутствии прибыли
  lot=default_lot+math.max(0,math.floor(Profit/35000))
end 

function main()
  ema_cache={}  -- Кзш со значениями EMA Close
  period=15 -- Период EMA
  ds,error_desc=CreateDataSource("SPBFUT","SiZ1",INTERVAL_H1) -- Создаем датасурс
  n=0 -- Счетчик
  while(ds:Size()==0)and(n<100)do sleep(100) n=n+1 end -- Ждем загрузки датасурса
  if(n==100)then message("Ошибка:"..tostring(error_desc)) return false end -- Если не дождались - выход
  ema(ds,period) -- Вычисляем EMA, заполняем кзш
  message("EMA "..ema_cache[ds:Size()])   -- Пример получения EMA последней свечи
  message("EMA "..ema_cache[ds:Size()-1]) -- Пример получения EMA предпоследней свечи
end
function ema(datasource,period) -- Расчет EMA Close
  local k=2/(period+1) -- Коэффициент взвешивания
  for i=1,datasource:Size() do -- Пробегаемся по всем свечам
    if i==1 then ema_cache[i]=datasource:C(i) -- EMA Close первой свечи
            else ema_cache[i]=k*datasource:C(i)+(1-k)*ema_cache[i-1] -- EMA Close всех остальных свеч
    end
  end
end

local keyNumber = math.floor(row.order_num)

function main()
  ds={}
  intervals={INTERVAL_M15,INTERVAL_M30,INTERVAL_H1,INTERVAL_H2,INTERVAL_H4,INTERVAL_D1}
  tikers={{"SPBFUT","SiZ1"},{"SPBFUT","SiH2"},{"SPBFUT","SiM2"},{"SPBFUT","SiU2"}}
  for i=1,#intervals do
    for j=1,#tikers do
      ds[tikers[j][1]]=ds[tikers[j][1]] or {}
      ds[tikers[j][1]][tikers[j][2]]=ds[tikers[j][1]][tikers[j][2]] or {}
      ds[tikers[j][1]][tikers[j][2]][intervals[i]]=CreateDataSource(tikers[j][1],tikers[j][2],intervals[i])
      while(ds[tikers[j][1]][tikers[j][2]][intervals[i]]:Size()==0) do sleep(1) end
    end                                                                 
  end
-- Пример получения свечи
  local need_ds=ds["SPBFUT"]["SiZ1"][INTERVAL_H1]
  local size=need_ds:Size()
  message("O="..need_ds:O(size).." H="..need_ds:H(size).." L="..need_ds:L(size).." C="..need_ds:C(size))
end

function OnTransReply(trans_reply) -- Функция вызывается терминалом QUIK при получении ответа на транзакцию пользователя
  local str="OnTransReply:"
  for k,v in pairs(trans_reply) do
    str=str.."\n"..tostring(k).."="..tostring(v)
  end
  message(str)
end

f=io.open(getScriptPath().."\\bot.txt","r")
line1=tostring(f:read("*l"))
line2=tostring(f:read("*l"))
f:close()
v1,v2,v3,v4=string.match(line2,"(%d*);(%d*);(%d*);(%d*)")
message("find: "..v4)

C:\Scripts\Autologin\quik_autologin.lua    // Автологин QUIK
C:\Scripts\Starters\starter_base.lua       // Стартовый скрипт, торговля на основном счете
C:\Scripts\Modules\mod_trading.lua         // Основной торговый модуль
C:\Scripts\Testers\tester_15_25.lua        // Тестер стратегий 15 25 H1
C:\Scripts\Indicators\ind_15_25.lua        // Индикатор 15 25 H1
C:\Open_Broker_QUIK\LuaIndicators\load.lua // Стартовый скрипт запуска индикатора
C:\Open_Broker_QUIK\Keys\pubring.txk       // Публичный ключ
C:\Open_Broker_QUIK\Keys\secring.txk       // Секретный ключ
C:\Open_Broker_QUIK\info.ini               // Настройки QUIK
C:\Open_Broker_QUIK\info.wnd               // Настройки окон QUIK
C:\Open_Broker_QUIK\ip.cfg                 // Настройки серверов подключения
C:\Open_Broker_QUIK\qcrypto.ini            // Настройки криптопровайдера
C:\Open_Broker_QUIK\qrypto.cfg             // Настройки ключей
C:\Open_Broker_QUIK\KeyGen\qrypto.cfg      // Настройки генератора ключей

delta=5 -- время задержки в секундах
is_run=true
function main()
  while is_run do
    if(os.time()>=(last or 0)+delta)then last=os.time() message("Чпок раз в "..delta.." секунд") end
    sleep(100)
  end
end
function OnStop()
  is_run=false
end

  ds,error_desc=CreateDataSource(class_code,sec_code,interval)
  local n=0
  while(ds:Size()==0)and(n<100)do sleep(100) n=n+1 end -- Ждем загрузки данных не более 10 секунд
  if(ds:Size()>0)then message("Данные графика получены") else message("Ошибка получения данных") end

    local sec_list=getClassSecurities(class_code)
    for test_sec_code in string.gmatch(sec_list,"("..pref.."[^,]+)") do
      -- в test_sec_code инструмент с нужным префиксом, далее ищите по mat_date нужный вам, мне лень писать
    end

function OnCalculate(i)
  if(sec_code~=getDataSourceInfo().sec_code)or(class_code~=getDataSourceInfo().class_code)or(interval~=getDataSourceInfo().interval)then
    lines={} -- Массив со кешем рабочих линий
    interval=getDataSourceInfo().interval
    sec_code=getDataSourceInfo().sec_code
    class_code=getDataSourceInfo().class_code
  end
  if CandleExist(i) and lines[i]==nil then
    -- тут мои вычисления
    lines[i]={}
    lines[i]["S"]=sell
    lines[i]["B"]=buy
  end
  return lines[i]["S"],lines[i]["B"]
end