nikolz (Автор тем)

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