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

--таблицы
TRADE={}; -- индексы сделок по инструментам
ORDER={}; -- индексы активных заявок по инструментам
STOP={}; -- индексы активных стоп-заявок по инструментам

function OnTrade(tr)
  local n,m;local sec=tr.sec_code;
  local t=TRADE[sec]; --таблица номеров строк сделок в таблице QUIK инструмента sec
  if t then
   m=TRADE[0]; n=t[0];
 else                --создание таблицы инструмента
   m=getNumberOf("trades"); n=0;
   t=SearchItems("trades",n,m-1, function(p1) if p1==sec then return true;end return false; end,"sec_code")
   TRADE[sec]=t;
end
 if m>t[n] then n=n+1; t[n]=m;  t[0]=n; TRADE[0]=m+1; end
end

local function fOrder(tr,T,s)  --функция обработки для колбеков orders и stop_orders
  local n,m,x;local sec=tr.sec_code; local t=T[sec];  --таблица номеров строк в таблице QUIK активных ордеров или стоп_ордеров инструмента sec
  local flag=tr.flags&1; local num=tr.order_num;
  if t then
    m=T[0]; n=t[0];
   for i=1,n do x=getItem(s,i-1);
      if x.num_order==num then
         if flag==0 then n=n-1;if n>0 then t[i]=t[n]; end break; else return; end
      end
   end
 else                --создание таблицы инструмента
   m=getNumberOf(s); n=0;
   t=SearchItems(s,n,m-1, function(p1,p2) if p1==sec and p2&1==1 then return true;end return false; end,"sec_code,flags")
   T[sec]=t;
end
   if flags==1 then n=n+1; t[0]=n; t[n]=m; T[0]=m+1; end
end

function OnOrder(t)   fOrder(t,ORDER,"orders");  end
function OnStopOrder(t) fOrder(t,ORDER,"stop_orders"); end

local beg=os.clock();
local x={}
local function sig(i)   return i end
function main()
      Log:write("main начинаем устанавливать начальные значения"..os.clock()-beg.."\n"); --Log:flush();
   for i=1,10000 do x[i]=math.sin(i); Log2:write("X="..x[i].."\n"); Log2:flush();
   end;
         Log:write("закончили установку нач значений\n"); Log:flush();
    while true do
--       nkevent.wait(event); --ждем события
      Log:write("main основной цикл="..os.clock()-beg.."\n"); Log:flush();
      sleep(10);
   end
end

OnI nit=0.0
main начинаем устанавливать начальные значения0.0010000000002037
On All=0.0020000000004075
On All=0.0020000000004075
On All=0.0020000000004075
...
On All=0.0060000000003129
On All=0.0060000000003129
On All=0.0060000000003129
...
On All=0.029999999999745
On All=0.029999999999745
On All=0.029999999999745
On All=0.029999999999745
On All=0.029999999999745
On All=0.029999999999745
закончили установку нач значений
main основной цикл=0.029999999999745
On All=0.029999999999745
On All=0.029999999999745
On All=0.029999999999745

OnI nit=0.0
main=0.0
OnPa ram=0.072999999999979
OnPa ram=0.072999999999979
OnPa ram=0.072999999999979
OnPa ram=0.072999999999979
OnPa ram=0.073999999999984
OnQu ote=0.074999999999989
OnPa ram=0.074999999999989
OnPa ram=0.074999999999989
OnPa ram=0.074999999999989
OnPa ram=0.074999999999989
main=0.114
OnPa ram=0.17699999999999
OnPa ram=0.17699999999999
main=0.22299999999998
OnPa ram=0.31699999999998
main=0.333
OnPa ram=0.41199999999998
main=0.441
OnPa ram=0.517
OnPa ram=0.517
OnPa ram=0.517
main=0.54999999999998
OnQu ote=0.61199999999999
OnPa ram=0.61199999999999
OnPa ram=0.61199999999999
OnPa ram=0.61199999999999
main=0.65899999999999
main=0.76899999999998
OnPa ram=0.81699999999998
OnPa ram=0.81699999999998
OnPa ram=0.81699999999998

 function   OnCalculate (index)
if index==1 then
x  =   getNumCandles ( 'ACTIVE' )  -- расчет количества баров на дневном графике с идентификатором "ACTIVE" 
ACTIVE, ACTIVE_N, ACTIVE_Name  =   getCandlesByIndex ( 'ACTIVE' ,  0 ,  0 , x)  -- поиск параметров конкретного бара на дневном графике с идентификатором "ACTIVE" 
L1_ACTIVE  =  ACTIVE[ACTIVE_N -  2 ].low  -- low -1 бара 
end
 return  L1_ACTIVE  -- вывожу искомое значение 
 end 

function Init()
return 1
end

function OnCalculate(index)
x = getNumCandles('ACTIVE') -- расчет количества баров на дневном графике с идентификатором "ACTIVE"
ACTIVE, ACTIVE_N, ACTIVE_Name = getCandlesByIndex('ACTIVE', 0, 0, x) -- поиск параметров конкретного бара на дневном графике с идентификатором "ACTIVE"
L1_ACTIVE = ACTIVE[ACTIVE_N-2].low -- low -1 бара
return L1_ACTIVE -- вывожу искомое значение
end

function mark_Fail (zap, mark) - моя функция записи в файл
FileWrite = io.open('D:\\QLUA\\fails\\mark.txt', zap)
FileWrite:write(mark)
if Filewrite then FileWrite:close() end
end