Игорь М (Все сообщения пользователя)

local SecCode = "RIH1"

function aggrF(direction)
    local value=0                                                                         -- здесь рассчитываю кумулятивное значение из столбца объем таблицы сделок
    for i = 0, getNumberOf("trades") - 1 do
       local trade = getItem ("trades", i)                                                                              -- получение таблицы данных из i-ой строки ТС
       if bit.band(trade.flags, 4) == direction and trade.sec_code == SecCode and trade.datetime.hour >= 12 then        -- сделка на продажу по конкр. инструменту
          value = trade.value+value
       end
    end
    return value
end

  message ("Buy: " .. tostring (aggrF(0)))
  message ("Sell: " .. tostring (aggrF(4)))
  message ("Total: " .. tostring (aggrF(0)+aggrF(4)))

local function get_lots (arg_Sec_Code)
   for i = 0, getNumberOf ("FUTURES_CLIENT_HOLDING") - 1 do
       local fch = getItem ("futures_client_holding", i)   
       if fch and fch.sec_code == arg_Sec_Code then
           return fch.totalnet     -- or 0
       end
   end      
   return 0
end

local function serverTime ()                               -- функция расчета времени сервера

   local ser_time = getInfoParam ("SERVERTIME")

   if ser_time and #ser_time == 8 then
       return string.sub (ser_time, 1, 2) .. string.sub (ser_time, 4, 5) .. string.sub (ser_time, 7, 8) 
     else
       return false 
   end

end

local function serverDate ()                               -- функция расчета даты сервера

   local ser_date = getInfoParam ("TRADEDATE")
   return string.sub (ser_date, 7, 10) .. string.sub (ser_date, 4, 5) .. string.sub (ser_date, 1, 2)

end

message (tostring (serverDate ()) .. "_" .. tostring (serverTime ()))

local function linSearch (t, id, num_1, num_2)             -- функция линейного поиска

   while num_1 <= num_2 do

       local t_trade_num = getItem (t, num_1).trade_num            -- номер сделки в таблице

       if id == t_trade_num then                                   -- сравнение идентификационных номеров
           return num_1
         else
           num_1 = num_1 + 1
       end

   end

end

local function binSearch (t, id, num_1, num_2)             -- функция бинарного поиска

   while num_1 <= num_2 do

       local middle = num_1 + math.floor ((num_2 - num_1) * 0.5)       -- середина диапазона

       local t_trade_num = getItem (t, middle).trade_num               -- номер сделки в таблице

       if id < t_trade_num then                                        -- сравнение идентификационных номеров
           num_2 = middle
         elseif id > t_trade_num then
           num_1 = middle
         else
           return middle
       end

   end

end

local res =  linSearch ("all_trades", 26139171939000, 0, getNumberOf ("all_trades") - 1)           -- вызов

   local label = {}

    label.TEXT = difference
    ......
    label.FONT_HEIGHT = 10

   DelLabel (CHART_TAG_PRICE_1, result)
   result = AddLabel (CHART_TAG_PRICE_1, label)