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

local function initT(sec,clas,account,client)
   tS={};     tS[0]=0; for i=1,7 do tS[i]={0,0} end  --стоп заяки
   tO={};    tO[0]=0; for i=1,7 do tO[i]={0,0} end  -- заявки
   tOi={};tOi[0]=0; for i=1,7 do tOi[i]={0,0} end  --транзакции заявок
   tSi={};tSi[0]=0; for i=1,7 do tSi[i]={0,0} end  --транзакции стоп-заявок
   id,nOrder,nStop,obal,tbal,nto,nts=0,0,0,0,0,0,0; jD=-1;
   step,lot_size,scale=0,0,0;
--   Log:write("sec="..tostring(sec)..",clas="..tostring(clas)..",tS0="..tostring(tS[0])..",tO0="..tostring(tO[0]).."\n");   Log:flush()
-----------------
end
---------------
local function nkInit()
--   DelAllLabels(tag);
   tinfo=getDataSourceInfo();
   clas=tinfo.class_code;   sec=tinfo.sec_code;    tag=sec;    pname=tinfo.param;
   interval=tinfo.interval;
   Log=io.open(path_Log..name..sec..".log","w")
   client=Settings.client;
--   Log:write("sec="..tostring(sec)..",clas="..tostring(clas)..",client="..tostring(client).."\n");   Log:flush()
    t_acc={};
--- определяем торговый счет
   local N=getNumberOf("trade_accounts");
   for i=0,N-1 do  z=getItem("trade_accounts", i);
      if string.find(z.class_codes,clas,1,true) and z.status==0 then
         firmid=z.firmid;    account=z.trdaccid; break;
      end
   end
-----------------------------
end

function OnCalculate(i)
--------------------
Order("orders",0);  --снять заявку, если она есть 
------------------
if conX("orders")==0 then  
buy_sel(1,1,-1); --выставить заявку на покупку 1 лота, если ее нет
end
---------------
end

depo t1=47.8, таб.стоп_ордер t2=1.8, таб.ордер t3=272.4, ордер t4=30.7
m=1,flag=2.0,nu=6947069167,idt=421
depo t1=40.2, таб.стоп_ордер t2=1.6, таб.ордер t3=67.6, ордер t4=304.5
m=1,flag=1.0,nu=6947069357,idt=423
depo t1=48.1, таб.стоп_ордер t2=1.6, таб.ордер t3=257.6, ордер t4=29.6
m=1,flag=2.0,nu=6947069357,idt=423
depo t1=38.5, таб.стоп_ордер t2=1.9, таб.ордер t3=75.6, ордер t4=309.8
m=1,flag=1.0,nu=6947069489,idt=425
depo t1=52.4, таб.стоп_ордер t2=2.1, таб.ордер t3=339.3, ордер t4=38.9
m=1,flag=2.0,nu=6947069489,idt=425
depo t1=72.4, таб.стоп_ордер t2=3.1, таб.ордер t3=124.2, ордер t4=584.2
m=1,flag=1.0,nu=6947069557,idt=427
depo t1=47.9, таб.стоп_ордер t2=1.7, таб.ордер t3=240.8, ордер t4=27.6
m=1,flag=2.0,nu=6947069557,idt=427
depo t1=64.9, таб.стоп_ордер t2=2.5, таб.ордер t3=123.0, ордер t4=580.2
m=1,flag=1.0,nu=6947069616,idt=429
depo t1=59.9, таб.стоп_ордер t2=2.3, таб.ордер t3=334.9, ордер t4=39.1
m=1,flag=2.0,nu=6947069616,idt=429
depo t1=70.8, таб.стоп_ордер t2=2.5, таб.ордер t3=123.9, ордер t4=518.8
m=1,flag=1.0,nu=6947069717,idt=431
depo t1=62.7, таб.стоп_ордер t2=2.6, таб.ордер t3=397.2, ордер t4=52.4
m=1,flag=2.0,nu=6947069717,idt=431
depo t1=70.3, таб.стоп_ордер t2=3.0, таб.ордер t3=124.9, ордер t4=523.5

t1.PRICE=tostring(price);
t1.QUANTITY=tostring(Q);
t1.TRANS_ID=tostring(id+1);    -- Уникальный идентификационный номер заявки,  от «1» до «2 147 483 647»
local str=sendTransaction(t1); --отправить транзакцию
Log:write("сообщение"..str.."\n");   Log:flush()  -- вывод сообщения в файл
if str=="" then  id=id+1; ji=ji+1; ti[ji]={id,0}; ti[0]=ji;
   Log:write("заявка id"..tostring(id)..",ji="..tostring(ji).."\n");   Log:flush()
end ---если  сообщение пустое то в файл выводится id транзакции

сообщение
заявка id31,ji=1

function OnCalculate(index)
 -- Получение свечей инструментов
   C1=С(index);
   C2=getCandleByTimeCode(Settings.tag2,timeCode).close
   if C2 then
      spr =C1-C2   -- Вычисление спреда
   if index==1 then  max=spr; min=spr - Settings.a;
    -- Вычисление максимума минимума среднего для спреда
   elseif spr>max_p then  max = spr; min = spr - Settings.a;
   elseif spr<min_p then    min = spr;  max = spr + Settings.a; end
   med =  (max+min)/2;
   end
return spr,med,max,min
end

function OnCalculate(index)
 -- Получение свечей инструментов
   C1=С(index);
   C2=getCandleByTimeCode(Settings.tag2,timeCode).close
   if c2 then
      spr =C1-C2   -- Вычисление спреда
   if index==1 then  max=spr; min=spr - Settings.a;
    -- Вычисление максимума минимума среднего для спреда
   elseif spr>max_p then  max = spr; min = spr - Settings.a;
   elseif spr<min_p then    min = spr;  max = spr + Settings.a; end
   med =  (max+min)/2;
   end
return spr,med,max,min
end