dofile(getWorkingFolder().."\\LuaIndicators\\MA.lua")
function main() 
  func = MA()
  t_id = AllocTable()
  AddColumn(t_id,1,"Price",true,QTABLE_INT_TYPE,10)
  AddColumn(t_id,2,"MA",true,QTABLE_INT_TYPE,10)
  CreateWindow(t_id)
  SetWindowCaption(t_id,"MA")
  ds = CreateDataSource("TQBR", "LKOH", INTERVAL_M5) 
  sleep(100)
  for i=1,ds:Size() do
   ma_out=func(i, {Period=3, Metod = EMA, VType=ANY},{[i]=ds:C(i)})
   tmp=InsertRow(t_id,-1)
   SetCell(t_id,tmp,1,tostring(ds:C(i)),ds:C(i))
   SetCell(t_id,tmp,2,tostring(ma_out),ma_out)
  end 
end

function privet(t)
   message('function privet : t  = '.. tostring(tab1))
   t.privet = 'Привет из функции'
end

function main()
   message('*** start')
   tab1 = {o='1', h='2'}
   message('tab1 = '.. tostring(tab1))
   privet(tab1)
   message('tab1.privet = '.. tostring(tab1.privet))

   message('*** end')
   kvLogClose()
end

dofile(getWorkingFolder().."\\LuaIndicators\\SD.lua")
dofile(getWorkingFolder().."\\LuaIndicators\\RSI.lua")

rsi_tf=INTERVAL_M5
mov_tf=INTERVAL_M1

class = 'TQBR'
fut_list = {'SBER','GAZP'}
rsi_period = 14
mov_period = 14

secs = {}

function OnInit(script)
   is_run = true
end

function OnStop()
is_run = false
return 2000
end

function main()
   for _,sec in pairs(fut_list) do
      DataSource(class,sec,rsi_tf)    
      DataSource(class,sec,mov_tf)    
   end

   local sec1, ds_rsi, ds_mov, num_rsi, num_mov, dev
   while is_run do
      sleep(1000)
      for _,sec in pairs(fut_list) do
         sec1   = secs[sec]
         ds_rsi = sec1[rsi_tf]
         ds_mov = sec1[mov_tf]
         
         num_rsi = ds_rsi:Size()
         for i = ds_rsi.lastI, num_rsi do 
         -- lastI надо пересчитывать т.к. последняя свеча будет изменяться неоднократно
            sec1.rsi_count[i] = sec1.RSI(i, {Period=rsi_period, VType="Typical"}, ds_rsi)
            message(sec ..' rsi_count - '.. i ..' : '.. tostring(sec1.rsi_count[i]))
         end
         ds_rsi.lastI = num_rsi

         num_mov = ds_mov:Size()
         for i = ds_mov.lastI, num_mov do 
         -- lastI надо пересчитывать т.к. последняя свеча будет изменяться неоднократно
            dev = sec1.SD(i, {Period=mov_period, VType="Typical"}, ds_mov)
            message(sec ..' dev - '.. i ..' : '.. tostring(sec1.rsi_count[i]))
         end
         ds_mov.lastI = num_mov
      end
      
   end
end

--[[ -- если автомат работает в цыкле можно применить SetEmptyCallback()
function mycallbackforallstocks(ds, I) -- ds = self, I = Index
   local class = ds.class
   local sec   = ds.sec
   local interval = ds.interval

end
--]]

function DataSource(class,sec,interval)
   local ds = CreateDataSource(class,sec,interval)
   ds.class = class
   ds.sec = sec
   ds.interval = interval
   ds.lastI = 1
    -- ds:SetUpdateCallback(function(...) mycallbackforallstocks(self.class,self.sec,...) end)
   ds:SetEmptyCallback()
   if not secs[sec] then secs[sec] = {} end
   secs[sec][interval] = ds
   secs[sec].RSI = RSI()
   secs[sec].rsi_count = {}
   secs[sec].SD = SD()
   return
end

   dofile(getWorkingFolder().."\\LuaIndicators\\MA.lua")   
   num_candles=ds_main[sec]:Size() --параметр получен, с ним всё ок.
   func = MA()   
   for i=1,num_candles do
   ma_out=func(i, {Period=3, Metod = EMA, VType=ANY}, {[i]=ds_main[sec]:C(i)})
   message (i.."="..ma_out,1)
   end 
   

    dofile(getWorkingFolder().."\\LuaIndicators\\MA.lua")    
    num_candles=ds_main[sec]:Size()

    func = MA()    
    for i=1,num_candles do
    ma_out=func(i, {Period=3, Metod = EMA, VType=ANY}, ds_main[sec])
    message (i.."="..ma_out,1)
    end 

    dofile(getWorkingFolder().."\\LuaIndicators\\MA.lua")    
    num_candles=ds[sec]:Size()

    func = MA()    
    for i=1,num_candles do
    ma_out=func(i, {Period=3, Metod = EMA, VType=ANY}, ds_main[sec])
    message (i.."="..ma_out,1)
    end 

        func = RSI()
        local rsi_count={}
        num_candles=ds[sec]:Size()
        for i=1,num_candles do
            rsi_count[i]=func(i, {Period=rsi_period, VType="Typical"}, ds[sec])
        end

    --Стандартное отклонение
        func = SD()
        dev=func(num_candles_mov, {Period=mov_period, VType="Typical"}, ds_main[sec])

   --Стандартное отклонение
      func = SD()
      dev=func(num_candles_mov, {Period=mov_period, VType="Any"}, ds_main[sec]:C(num_candles_mov))

func = SD() dev=func(ds_minutes[sec]:Size(), {Period=mov_period, VType="Typical"}, ds_minutes[sec]:C())

  for i=1,#tbl do
   ma_out=func(i, {Period=3, Metod = "EMA", VType="Any", round=2}, tbl)
  end 

tbl={}
tbl.1=last=ds_minutes[sec]:C(i)   
tbl.2=last=ds_minutes[sec]:C(i-1) 

ds={}
ds_minutes={}

function mycallbackforallstocks(class,sec,index)         

end

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

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

function main()
for key,sec in pairs(fut_list) do
    DataSource(class,sec,rsi_tf)    
    DataSource_minutes(class,sec,mov_tf)
    
end
.............

while is_run do

for key,sec in pairs(fut_list) do
sleep (1000)
func = RSI()
local rsi_count={}
num_candles=ds[sec]:Size()
last_price[sec]=ds[sec]:C(num_candles)   
for i=1,num_candles do
 rsi_count[i]=func(i, {Period=rsi_period, VType="Typical"}, ds[sec])
end 
.....................
--Стандартное отклонение
func = SD()
dev=func(ds_minutes[sec]:Size(), {Period=mov_period, VType="Typical"}, ds_minutes[sec])
....................... 

rsi_tf=INTERVAL_M5
mov_tf=INTERVAL_M1

function main()
for key,sec in pairs(fut_list) do
    DataSource(class,sec,rsi_tf)    
    DataSource(class,sec,mov_tf)    
    
end
end

function mycallbackforallstocks(class,sec,index)         

end

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