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

[галочка] Автосохранение каждые [число] минут

function dos2win(s)
  local str=""
  for i=1,string.len(s) do
    local byte=string.byte(s,i)
    local char=string.char(byte)
    if(byte>=128)and(byte<=175)then char=string.char(byte+64) end
    if(byte>=224)and(byte<=239)then char=string.char(byte+16) end
    if(byte==240)              then char=string.char(168) end
    if(byte==241)              then char=string.char(184) end
    str=str..char
  end
  return str
end

https://raw.githubusercontent.com/FasminCode/FasminCode/main/script_update.ini

isRun = true

base_time = "22:16:30"
base_hour,base_min,base_sec = string.match(base_time,"(%d*):(%d*):(%d*)")
base_offset=base_hour*3600+base_min*60+base_sec

function main()
  while isRun do
    srv_hour,srv_min,srv_sec = string.match(getInfoParam('SERVERTIME'),"(%d*):(%d*):(%d*)")
    srv_offset=srv_hour*3600+srv_min*60+srv_sec
    if(srv_offset>=base_offset)then
      message("go")
      isRun = false
    else
      message("wait")
    end
      sleep(100)
   end
end

function FindSecCode(class_code,pref,dtmd) -- Определяем инструмент для торговли
  local sec_list=getClassSecurities(class_code) -- Получаем список инструментов
  for test_sec_code in string.gmatch(sec_list,"("..pref.."[^,]+)") do -- Перебираем список
    local param=getParamEx(class_code,test_sec_code,"DAYS_TO_MAT_DATE")
    if(param.result=="1")and(param.param_image~="")and(param.param_type~="0")then -- Параметр получен корректно?
      if(tonumber(param.param_value)>=dtmd)then return test_sec_code end -- Проверяем дни до экспирации
    end
  end
end

sec_code=FindSecCode("SPBFUT","BR",3)
if(sec_code)then message("actual futures is "..sec_code) end

    local param=getParamEx2(class_code,sec_code,"TRADINGSTATUS")  -- Состояние сессии
    if(param.result=="1")and(param.param_image~="")and(param.param_type=="4")and(tonumber(param.param_value)>=0)then params["TRADINGSTATUS"] =tonumber(param.param_value) end

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