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

local run = true

function main()
  while run do
      for sec in getClassSecurities("SPBFUT"):gmatch("([^,]+)") do
        local price = getParamEx("SPBFUT", sec, "PRICEMIN").param_value
        if price and price ~= 0 then
          local qty = CalcBuySell("SPBFUT", sec, "", Account, price, true)
          if qty <= 0 then
            message(sec .. ' B: ' .. qty, 2)
          end
        end
        price = getParamEx("SPBFUT", sec, "PRICEMAX").param_value
        if price and price ~= 0 then
          local qty = CalcBuySell("SPBFUT", sec, "", Account, price, false)
          if qty <= 0 then
            message(sec .. ' S: ' .. qty, 2)
          end
        end
      end
      sleep(60000)
  end
end
function OnStop()
  run = nil
  return 100
end

local run = true
function main()
  local id = AllocTable()
  AddColumn(id, 1, 'Количество', true, QTABLE_INT_TYPE, 13)
  CreateWindow(id)
  InsertRow(id, -1)
  while run do
    local len = getNumberOf('all_trades')
    SetCell(id, 1, 1, tostring(len), len)
    sleep(100)
  end
end
function OnStop()
  run = nil
end

local run = true

local AllTrades = {}
function OnAllTrade(alltrade)
  table.sinsert(AllTrades, alltrade)
  --[[table.ssort({0, 0}, function()
      AllTrades[#AllTrades+1] = alltrade
    return true
  end)]]
end

function main()
  while run do
    while #AllTrades > 0 do
      table.sremove(AllTrades, 1)
    end
    sleep(1)
  end
end

function OnStop()
  run = nil
end

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
  return nil
end

local os_clock = os.clock
local function test1(n, TradeNum)
  local t = os_clock()
  for i = 1, n do
    NumTrade = linSearch("all_trades", TradeNum, 0, getNumberOf ("all_trades")-1)
  end
  t = os_clock() - t
  message(tostring(NumTrade))
  return t
end

local function test2(n, TradeNum)
  local t = os_clock()
  for i = 1, n do
    local Index = SearchItems("all_trades", 0, getNumberOf("all_trades")-1, function(trade_num)
      if trade_num == TradeNum then return nil else return false end
    end, "trade_num")
    NumTrade = Index and Index[1] or nil
  end
  t = os_clock() - t
  message(tostring(NumTrade))
  return t
end


function main()
  local n = 100000
  local TradeNum = getItem("all_trades", 0).trade_num  -- Номер первой сделки
  message(string.format("Искомый элемент в начале таблицы:\nlinSearch: %0.3f\nSearchItems: %0.3f", test1(n, TradeNum), test2(n, TradeNum)))

  local numbers = getNumberOf("all_trades")
  message(string.format("Numbers: %u", numbers))
  TradeNum = getItem("all_trades", numbers-1).trade_num  -- Номер последней сделки
  message(string.format("Искомый элемент в конце таблицы:\nlinSearch: %0.3f\nSearchItems: %0.3f", test1(1, TradeNum), test2(1, TradeNum)))
end

Settings = {
  Name = "Time",
  search = 0,
  line = {
    { Name  = 'Time' }
  }
}

function Init()
  return 1
end

local search
local Clock
function OnCalculate(index)
  if index == 1 then
    if Settings.search == 1 then
      function search()
        getItem("all_trades", getNumberOf("all_trades")-1)
      end
    elseif Settings.search == 2 then
      function search()
        local function fn(qty,flags)
          return nil
        end
        SearchItems("all_trades", 0, getNumberOf("all_trades")-1, fn, "qty,flags")
      end
    else
      function search() end
    end
    Clock = os.clock()
  end
  local Volume = V(index)
  if CandleExist(index) then
    search()
  end
  return (os.clock() - Clock) * 1000
end