local t=container[sec]; --это таблица цен по данному инструменту local len=#t -- это текущее количество цен в контейнере 
local n=len-N; if n<1 then n=1; end -- это номер первого из N значений цен т е Ваши цены в t[n] до t[len]  

function mycallbackforallstocks(class,sec,index)    
if container==nil then container={} end   
if container[sec]==nil then container[sec]={} end 
-----------------------------   
local close=ds[sec]:C(index)   
local open=ds[sec]:O(index)   
local high=ds[sec]:H(index)   
local low=ds[sec]:L(index)   
container[sec][index]=(close+open+high+low)/4 
end 

local t=container[sec]; --это таблица цен по данному инструменту
local len=#t -- это текущее количество цен в контейнере
local n=len-N; if n<1 then n=1; end -- это номер первого из N значений цен т е Ваши цены в t[n] до t[len]

function OnInit ()
    class_code="TQBR" 
    interval=INTERVAL_M5 --интервал
    how_many_candles=50
    ticker_list="GAZP,SBER,VTBR"
    ds={}
    num_candles={}
    line_count_table={}    
    container={}
    is_run = true
    dofile ("C:\\Program Files\\Lua\\5.1\\lua\\2.lua") --читаем индикатор RSI
end

function OnStop(s)
    is_run = false
    return 100
end

function mycallbackforallstocks(class,sec,index) 
    num_candles[sec]=ds[sec]:Size() 
    if index==num_candles[sec] then        
        for i=0, how_many_candles do
            local close_price=ds[sec]:C(num_candles[sec]-i)
            local open_price=ds[sec]:O(num_candles[sec]-i)
            local high_price=ds[sec]:H(num_candles[sec]-i)
            local low_price=ds[sec]:L(num_candles[sec]-i)
            local typical_price=(close_price+open_price+high_price+low_price)/4
            table.insert(container[sec],i,typical_price)
        end            
    end

end

function DataSource(class,sec,interval)
   ds[sec] = CreateDataSource(class_code,sec,interval)
   ds[sec]:SetUpdateCallback(function(...) mycallbackforallstocks(class_code,sec,...) end)
   return ds[sec]
end

function main()
    for sec in string.gmatch(ticker_list,"%a+") do        
        container[sec]={}
        DataSource(class_code,sec,interval)        
    end        

    while is_run do
        for sec in string.gmatch(ticker_list,"%a+") do                    
            sleep (10000)
            for second_sec in string.gmatch(ticker_list,"%a+") do    
                sintez_table={}
                sintez_name=sec..second_sec..""            
                for x=0,how_many_candles  do

                    if sec==second_sec then    
                        local temp_t=container[sec]
                        sintez_table[x]=temp_t[x]

                    else
                        local temp_t=container[sec]
                        local temp_tt=container[second_sec]
                        sintez_table[x]=temp_t[x]/temp_tt[x]
                    end
                end
                func = RSI()
                local rsi_count={}    
                    for lll=1,#sintez_table  do
                        rsi_count[lll]=func(lll, {Period=15, VType="Any"}, sintez_table)
                    end 

            end
        end    
    end
end 

function mycallbackforallstocks(class,sec,index) 
  if container==nil then container={} end
  if container[sec]==nil then container[sec]={} end
-----------------------------
  local close=ds[sec]:C(index)
  local open=ds[sec]:O(index)
  local high=ds[sec]:H(index)
  local low=ds[sec]:L(index)
  container[sec][index]=(close+open+high+low)/4
end