nikolz (Автор тем)

local N= getNumberOf("orders");
local j=1;  while N>=j do
   local z=getItem("orders",jz-1)
   jz=jz+1;
   end

local N= getNumberOf("orders");
local j=1;  while N>=j do
   local mem=math.floor(collectgarbage ("count"))
   local z=getItem("orders",jz-1)
        Log:write(tostring(jz)..","..tostring(mem).."\n");
   jz=jz+1;
   end

1,121

100,654

1000,5395

227851,1205952

qtyB,comission=CalcBuySell(clas,sec,client,acc,price,true,false); --расчитать доступное количество к покупке
qtyS,comission=CalcBuySell(clas,sec,client,acc,price,false,false); --расчитать доступное количество к продаже
local tp=getBuySellInfo (firm,client,clas,sec,price);
Qcur=tp.balance --STRING Текущая позиция по инструменту, в лотах
NQb=tp.can_buy --STRING Оценка количества лотов, доступных на покупку по указанной цене *
NQs=tp.can_sell-- STRING Оценка количества лотов, доступных на продажу по указанной цене *
Dp=tp.share  --STRING   Процентное отношение стоимости позиции по данному инструменту к стоимости всех активов клиента, рассчитанное по текущим ценам
QmaxBuy=tp.can_buy_own  --STRING   Максимально возможное количество инструментов в заявке на покупку этого инструмента на этом классе на собственные средства клиента, исходя из цены лучшего предложения
QmaxSel=tp.can_sell_own  --STRING   Максимально возможное количество инструментов в заявке на продажу этого инструмента на этом классе из собственных активов клиента, исходя из цены лучшего спроса

firm=SPBFUT000000, acc=SPBFUT00049, client=SPBFUT00049, clas=SPBFUT, sec=GDH3

price=1161.5,qtyB=12,qtyS=10

tp={}
Qbuy=nil,Qsel=nilNQb=nil,NQs=nil

31381.046s,240us, 28, 117, 30, 46.us, SFH3,ns_SPBFUT=35,sumT=8188,Norder=277953,jc=2673016,#tparam=1,NNsec=908
31381.172s,613us, 55, 417, 47, 75.us, SiH3,ns_SPBFUT=35,sumT=8188,Norder=277953,jc=2673018,#tparam=3,NNsec=908
31381.173s,284us, 30, 139, 24, 60.us, MXH3,ns_SPBFUT=35,sumT=8188,Norder=277953,jc=2673019,#tparam=2,NNsec=908
31381.173s,214us, 19, 119, 24, 34.us, MMH3,ns_SPBFUT=35,sumT=8188,Norder=277953,jc=2673020,#tparam=1,NNsec=908
31381.177s,361us, 37, 206, 33, 54.us, RMH3,ns_SPBFUT=35,sumT=8188,Norder=277953,jc=2673022,#tparam=2,NNsec=908
31381.177s,210us, 22, 105, 28, 38.us, RIH3,ns_SPBFUT=35,sumT=8188,Norder=277953,jc=2673023,#tparam=1,NNsec=908
31381.244s,385us, 53, 155, 83, 81.us, CRH3,ns_SPBFUT=35,sumT=8188,Norder=277953,jc=2673026,#tparam=2,NNsec=908
31381.244s,195us, 21, 81, 28, 39.us, MXH3,ns_SPBFUT=35,sumT=8188,Norder=277953,jc=2673027,#tparam=1,NNsec=908
31381.247s,312us, 36, 156, 38, 55.us, SVH3,ns_SPBFUT=35,sumT=8188,Norder=277953,jc=2673029,#tparam=1,NNsec=908
31381.249s,231us, 25, 106, 32, 43.us, SiH3,ns_SPBFUT=35,sumT=8188,Norder=277953,jc=2673031,#tparam=1,NNsec=908
31381.254s,3448us, 3115, 216, 41, 3131.us, USD000UTSTOM,ns_CETS=15,sumT=8188,Norder=277953,jc=2673033,#tparam=4,NNsec=908
31381.257s,2656us, 2414, 159, 24, 2429.us, CNYRUB_TOM,ns_CETS=15,sumT=8188,Norder=277953,jc=2673034,#tparam=3,NNsec=908
31381.26s,3379us, 3135, 159, 24, 3150.us, EUR_RUB__TOM,ns_CETS=15,sumT=8188,Norder=277953,jc=2673035,#tparam=2,NNsec=908
31381.263s,2509us, 2292, 137, 23, 2307.us, USDCNY_TOM,ns_CETS=15,sumT=8188,Norder=277953,jc=2673036,#tparam=1,NNsec=908
31381.37s,465us, 60, 223, 90, 83.us, USDRUBF,ns_SPBFUT=35,sumT=8188,Norder=277953,jc=2673037,#tparam=3,NNsec=908
31381.37s,181us, 22, 75, 27, 39.us, TTH3,ns_SPBFUT=35,sumT=8188,Norder=277953,jc=2673038,#tparam=2,NNsec=908
31381.37s,184us, 22, 85, 24, 38.us, SiH3,ns_SPBFUT=35,sumT=8188,Norder=277953,jc=2673039,#tparam=1,NNsec=908
31381.373s,496us, 37, 140, 34, 54.us, GKH3,ns_SPBFUT=35,sumT=8188,Norder=277953,jc=2673041,#tparam=1,NNsec=908
31381.374s,389us, 34, 192, 70, 64.us, GKH3,ns_SPBFUT=35,sumT=8188,Norder=277953,jc=2673043,#tparam=2,NNsec=908
31381.375s,186us, 25, 77, 25, 42.us, SPH3,ns_SPBFUT=35,sumT=8188,Norder=277953,jc=2673044,#tparam=1,NNsec=908

for i=1,#tparam do local t=tparam[i]; if t=="table" then if t[1]==14 and t[3]==s then return end end end
local t={14,c,s}; if #tparam==0 then tparam[1]=t; ESet(event); else table.sinsert(tparam,t); end
end 

Log:write("clas="..clas..",sec="..sec..",firm="..firm..",account="..account..",client="..client.."\n");Log:flush();
local t1=getDepo(client,firm,sec,account);
Log:write("type="..type(t1).."\n");Log:flush();

 clas=CETS,sec=EURUSD000TOM
clas=CETS,sec=EURUSD000TOM,firm=MB1000100000,account=MB1000100002,client=10323
type=table
tim=29.6543,tim1=0.061899999999998

 clas=CETS,sec=USD000UTSTOM
clas=CETS,sec=USD000UTSTOM,firm=MB1000100000,account=MB1000100002,client=10323
type=table
tim=28.3573,tim1=0.041400000000007

 clas=CETS,sec=CNYRUB_TOM
clas=CETS,sec=CNYRUB_TOM,firm=MB1000100000,account=MB1000100002,client=10323
type=table
tim=26.3304,tim1=0.044000000000008

 clas=CETS,sec=USD000000TOD
clas=CETS,sec=USD000000TOD,firm=MB1000100000,account=MB1000100002,client=10323
type=table
tim=26.163,tim1=0.048399999999997

 clas=CETS,sec=EUR_RUB__TOM
clas=CETS,sec=EUR_RUB__TOM,firm=MB1000100000,account=MB1000100002,client=10323
type=table
tim=26.6879,tim1=0.0442

 clas=QJSIM,sec=ALRS
clas=QJSIM,sec=ALRS,firm=NC0011100000,account=NL0011100043,client=10323
type=table
tim=27.8828,tim1=0.052700000000005

 clas=QJSIM,sec=MSTT
clas=QJSIM,sec=MSTT,firm=NC0011100000,account=NL0011100043,client=10323
type=table
tim=27.8581,tim1=0.125

 clas=QJSIM,sec=PLZL
clas=QJSIM,sec=PLZL,firm=NC0011100000,account=NL0011100043,client=10323
type=table
tim=27.1135,tim1=0.051300000000001

 clas=QJSIM,sec=SBER
clas=QJSIM,sec=SBER,firm=NC0011100000,account=NL0011100043,client=10323

local isRun=0;  --флаг завершения функции main
local fstop=true;  -- флаг остановки скрипта при запуске по расписанию
local Ts={"12:53:00","12:54:00","12:55:00","12:56:00","12:57:00","12:58:00","12:59:00",}
for i=1,#Ts do local x=Ts[i] Ts[i]=60*(60*string.sub(x,1,2)+string.sub(x,4,5))+string.sub(x,7,8); end
------------
function main()
   local jT,x=0,0;
   while isRun do
      if #Ts>jT then  local dt=-1;
         if fstop then fstop=false;  -- в колбеках первой строкой поставить if fstop then return end
            x= getInfoParam("SERVERTIME"); --      local x=os.date("%X");
            local z=60*(60*string.sub(x,1,2)+string.sub(x,4,5))+string.sub(x,7,8);
            while #Ts>jT and 0>dt do jT=jT+1; dt=Ts[jT]-z; end
         end
         if dt>=0 then message(x.." до старта "..dt.."сек"); sleep(1000*dt); else sleep(1); end
      end
      if fstop==false then  x= getInfoParam("SERVERTIME");    message("старт "..x.." fstop="..tostring(fstop) ); end
  -- исполнение скрпита
      fstop=true;  --- остановить скрипт
      if fstop then    x= getInfoParam("SERVERTIME");  message("стоп  "..x.." fstop="..tostring(fstop) ); end
   end
end

Settings={ i1="MOV2",i2="MOV1", Name = 'nk_bot', }
------------------
local function gI(s,j,i)
 local t=getCandlesByIndex(s,j,i-1,1); if t then return t[0].close; else return 0 end
end --значение индикатора
-------------------------
local function cross(s1,j1,s2,j2,i)
   local m=i; local x= gI(s1,j1,m) local x1=gI(s2,j2,m);
    while m>1 and x~=0 and x1~=0 and x>x1 do m=m-1; x=gI(s1,j1,m); x1=gI(s2,j2,m) end
    if m>1 and i>m then return m end
end  --пересечение
--------------------------
function OnCalculate(i)
   local Bu,Se; local i1=i-1;
   if i>1 then
      local jU_,jD_=jU,jD;
      jU=cross(Settings.i1,0,Settings.i2,0,i1); --MOV1 пересекает MOV2 снизу вверх
      jD=cross(Settings.i2,0,Settings.i1,0,i1); --MOV1 пересекает MOV2 сверху вниз
      if jU and jU_==nil then jBu=i; Bu=L(i)-0.1; end
      if jD and jD_==nil then jSe=i; Se=H(i)+0.1; end
      if i==Size() then  -- последняя свеча
      end
   end
return Se,Bu;
end
-----
function Init()
local t={};
   t[#t+1]={Name = "Se",Color = RGB(255,0,0),Type = 11,Width =3};   ---sell
   t[#t+1]={Name = "Bu",Color = RGB(0,255,0),Type = 10,Width =3};   ---buy
Settings.line=t;
return #t;
end

--title="Arbitr <nikolz> "-- арбитраж
name='arb_nk'
Settings={
sec ="SB_arb",  --идентификатор 2-го инструмента (графика)
LEMA = 30,
Name = name,
}
-------
function OnCalculate(i)
   if i==1 then
      AL=1/Settings.LEMA; y,Ma,Mi,Me,x=nil;
   else
      local C1=C(i)
      if T(i-1).hour>T(i).hour then y,Ma,Mi,Me,x=nil  end
      local t=getCandlesByIndex(Settings.sec,0,i,1);  t=t[#t];
      if t  then
         local C2=t.close;
         if C2  and C1 then
            x1=C1-C2;
            if Ma==nil or x1>Ma then Ma=x1 end
            if Mi==nil or Mi>x1 then Mi=x1 end
            if Ma and Mi then
            Me=(Ma+Mi)/2; x=x1;
            if y==nil then y=x; end y=(1-AL)*y+AL*x;
            end
         end
      end
   end
   return Me,Ma,Mi,x,y
end
-----
function Init()
 Settings.line={};
   Settings.line[1] =    {Name = "Me",Color = RGB(0,255,0),      Type =1,Width = 2   };
   Settings.line[2] =    {Name = "Ma",Color = RGB(255,0,0),      Type =1,Width = 2   };
   Settings.line[3] =    {Name = "Mi",Color = RGB(0,0,255),      Type =1,Width = 2   };
   Settings.line[4] =    {Name = "x",Color = RGB(255,255,255),   Type =1,Width = 1   };
   Settings.line[5] =    {Name = "eMA",Color = RGB(255,32,255),   Type =1,Width = 2   };
   return #Settings.line;
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

onAllTrade QJSIM;SMLT;2738.000000,1,0,20220626,131036,0,101420,36
interval=0,QJSIM,SMLT;2738.000000
onAllTrade QJSIM;SMLT;2738.000000,1,0,20220626,131037,0,221,17
interval=0,QJSIM,SMLT;2738.000000
onParam QJSIM;SMLT;2738.000000
onParam QJSIM;SMLT;2737.400000
onAllTrade QJSIM;SMLT;2737.400000,1,0,20220626,131047,0,79827,33
interval=0,QJSIM,SMLT;2737.400000
onParam QJSIM;SMLT;2737.400000
onParam QJSIM;SMLT;2739.000000
onAllTrade QJSIM;SMLT;2737.400000,9,0,20220626,131057,0,98496,32
interval=0,QJSIM,SMLT;2737.400000
onAllTrade QJSIM;SMLT;2737.400000,1,0,20220626,131057,0,202,15
interval=0,QJSIM,SMLT;2737.400000
onAllTrade QJSIM;SMLT;2737.500000,40,0,20220626,131057,0,142,14
interval=0,QJSIM,SMLT;2737.500000
onAllTrade QJSIM;SMLT;2737.500000,1,0,20220626,131057,0,209,16
interval=0,QJSIM,SMLT;2737.500000
onAllTrade QJSIM;SMLT;2738.000000,10,0,20220626,131057,0,165,20
interval=0,QJSIM,SMLT;2738.000000
onAllTrade QJSIM;SMLT;2738.000000,1,0,20220626,131057,0,160,16
interval=0,QJSIM,SMLT;2738.000000
onAllTrade QJSIM;SMLT;2738.000000,2,0,20220626,131057,0,158,12
interval=0,QJSIM,SMLT;2738.000000
onAllTrade QJSIM;SMLT;2738.000000,1,0,20220626,131057,0,149,11
interval=0,QJSIM,SMLT;2738.000000
onAllTrade QJSIM;SMLT;2738.500000,22,0,20220626,131057,0,129,11
interval=0,QJSIM,SMLT;2738.500000
onAllTrade QJSIM;SMLT;2738.500000,1,0,20220626,131057,0,126,11
interval=0,QJSIM,SMLT;2738.500000
onAllTrade QJSIM;SMLT;2738.500000,48,0,20220626,131057,0,122,11
interval=0,QJSIM,SMLT;2738.500000
onAllTrade QJSIM;SMLT;2739.000000,8,0,20220626,131057,0,131,11
interval=0,QJSIM,SMLT;2739.000000
onAllTrade QJSIM;SMLT;2739.000000,1,0,20220626,131057,0,134,19
interval=0,QJSIM,SMLT;2739.000000
onAllTrade QJSIM;SMLT;2739.000000,44,0,20220626,131057,0,125,12
interval=0,QJSIM,SMLT;2739.000000
onParam QJSIM;SMLT;2739.500000

message("всего=.. getNumberOf("client_codes") );
for i=0,getNumberOf("client_codes")-1 do
local x=getItem("client_codes",i);
message("i="..i..",cod="..tostring(x) );
end