dofile(getScriptPath().."\\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(1000)
  message (""..ds:Size(),1)
  for i=1,ds:Size() do
   ma_out=func(i, {Period=3, Metod = EMA, VType=ANY}, ds)
   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

tmp.p = (tmp.pp*(P-1) + 2*GetValue(it.p,VT,ds)) / (P+1)

      if     not   CandleExist(index)   then  
CC[index]   =   CC[index  -    1  ] 
  return     nil  
  end      

      function    FindExistCandle (I)
     local   out   =   I
   
     while     not   CandleExist(out)   do  
   out   =   out   -    1  
     end     
   
     return   out
 
  end      

      local   previous   =   index  -    1  
      
  if     not   CandleExist(previous)   then  
   previous   =   FindExistCandle(previous)
  end  
      
  if   C(index)   >   C(previous)   then      

   function   GetPrice (ind)
    if  ind ~ =   0   then 
       if  CandleExist(ind)  =  =   false   then 
          return  GetPrice(ind -  1 );
       else 
          return  С(ind)
       end 
    else 
       return   0 
    end 
 end 
  

   if   not  CandleExist(index)  then 
CC[index]  =  CC[index -  1 ] 
 return   nil 
 end   

   function   FindExistCandle (I)
    local  out  =  I
   
    while   not  CandleExist(out)  do 
   out  =  out  -  1 
    end    
   
    return  out
 
 end   

   local  previous  =  index -  1 
      
 if   not  CandleExist(previous)  then 
   previous  =  FindExistCandle(previous)
 end 
      
 if  C(index)  >  C(previous)  then   

function GetPrice(ind)
   if ind ~= 0 then
      if CandleExist(ind) == false then
         return GetPrice(ind-1);
      else
         return С(ind)
      end
   else
      return 0
   end
end

if not CandleExist(index) then
CC[index] = CC[index-1] 
return nil
end

function FindExistCandle(I)
   local out = I
   
   while not CandleExist(out) do
   out = out -1
   end   
   
   return out
 
end

local previous = index-1
      
if not CandleExist(previous) then
   previous = FindExistCandle(previous)
end
      
if C(index) > C(previous) then

  VERSION  =   7.8 . 1.21 
TRADEDATE  =   14.02 . 2017 
SERVERTIME  =   20 : 01 : 52 
LASTRECORDTIME  =   20 : 01 : 52 
NUMRECORDS  =   5401561 
LASTRECORD  =   8011148 
LATERECORD  =   7965462 
CONNECTION  =  установлено
IPADDRESS  =   217.14 . 50.203 
IPPORT  =   15100 
IPCOMMENT  =  Демо контур
SERVER  =  VTB24
 ..  ..  .. .
 02 / 14 / 17   20 : 02 : 00  OnCalc() CandleExist( 3530 ):  true ; T( 3530 );  20170214193500 ; C( 3530 ):  16422 
 02 / 14 / 17   20 : 02 : 00  OnCalc() CandleExist( 3531 ):  true ; T( 3531 );  20170214194000 ; C( 3531 ):  16413 
 02 / 14 / 17   20 : 02 : 00  OnCalc() CandleExist( 3532 ):  true ; T( 3532 );  20170214194500 ; C( 3532 ):  16421 
 02 / 14 / 17   20 : 02 : 00  OnCalc() CandleExist( 3533 ):  true ; T( 3533 );  20170214195000 ; C( 3533 ):  16418 
 02 / 14 / 17   20 : 02 : 00  OnCalc() CandleExist( 3534 ):  true ; T( 3534 );  20170214195500 ; C( 3534 ):  16412 
 02 / 14 / 17   20 : 02 : 00  OnCalc() CandleExist( 3535 ):  true ; T( 3535 );  20170214200000 ; C( 3535 ):  16406 
 02 / 14 / 17   20 : 02 : 01  OnCalc() CandleExist( 1 ):  false ; T( 1 );  20170109151500 ; C( 1 ):  - 
 02 / 14 / 17   20 : 02 : 01  OnCalc() CandleExist( 2 ):  false ; T( 2 );  20170109152000 ; C( 2 ):  - 
 02 / 14 / 17   20 : 02 : 01  OnCalc() CandleExist( 3 ):  false ; T( 3 );  20170109152500 ; C( 3 ):  - 
 02 / 14 / 17   20 : 02 : 01  OnCalc() CandleExist( 4 ):  false ; T( 4 );  20170109153000 ; C( 4 ):  - 
 02 / 14 / 17   20 : 02 : 01  OnCalc() CandleExist( 5 ):  false ; T( 5 );  20170109153500 ; C( 5 ):  - 
 02 / 14 / 17   20 : 02 : 01  OnCalc() CandleExist( 6 ):  false ; T( 6 );  20170109154000 ; C( 6 ):  - 
 ..  ..  ..  .. 
 02 / 14 / 17   20 : 02 : 02  OnCalc() CandleExist( 3534 ):  true ; T( 3534 );  20170214195500 ; C( 3534 ):  16412 
 02 / 14 / 17   20 : 02 : 02  OnCalc() CandleExist( 3535 ):  true ; T( 3535 );  20170214200000 ; C( 3535 ):  16406