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 
  

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

Settings = {
                Name = "test",
                line =
                        {
                            {
                                Name = "test",
                                Color = RGB(192,224,255),
                                Type = TYPE_LINE,
                                Width = 2
                            }

                        }
            }
         
function Init()

   local params = {"VERSION", "TRADEDATE", "SERVERTIME",
            "LASTRECORDTIME", "NUMRECORDS", "LASTRECORD","LATERECORD",
            "CONNECTION", "IPADDRESS", "IPPORT", "IPCOMMENT",
            "SERVER", "SESSIONID", "USER", "USERID", "ORG", "MEMORY",
            "LOCALTIME", "CONNECTIONTIME", "MESSAGESSENT", "ALLSENT",
            "BYTESSENT", "BYTESPERSECSENT", "MESSAGESRECV", "BYTESRECV",
            "ALLRECV", "BYTESPERSECRECV", "AVGSENT", "AVGRECV",
            "LASTPINGTIME", "LASTPINGDURATION", "AVGPINGDURATION",
            "MAXPINGTIME", "MAXPINGDURATION"}
   logfile = io.open(getScriptPath() .. "/Logs/" .. Settings.Name..".log", "a+");
   for key,v in ipairs(params) do
      logfile:write(v .. " = " .. GetInfoParam(v) .. "\n")
   end
   logfile:flush();



    return 1

end

function OnCalculate(index)
   
   WriteLog ("OnCalc() ".."CandleExist("..index.."): "..tostring(CandleExist(index)).."; T("..index.."); "..isnil(toYYYYMMDDHHMMSS(T(index))," - ").."; C("..index.."): "..isnil(C(index),"-"));
   
   return nil;

end

-- Пользовательcкие функции
function WriteLog(text)

   logfile:write(tostring(os.date("%c",os.time())).." "..text.."\n");
   logfile:flush();
   LASTLOGSTRING = text;

end;

function isnil(a,b)
   if a == nil then
      return b
   else
      return a
   end;
end;

function toYYYYMMDDHHMMSS(datetime)
   if type(datetime) ~= "table" then
      message("в функции toYYYYMMDDHHMMSS неверно задан параметр: datetime="..tostring(datetime))
      return ""
   else
      local Res = tostring(datetime.year)
      if #Res == 1 then Res = "000"..Res end
      local month = tostring(datetime.month)
      if #month == 1 then Res = Res.."0"..month; else Res = Res..month; end
      local day = tostring(datetime.day)
      if #day == 1 then Res = Res.."0"..day; else Res = Res..day; end
      local hour = tostring(datetime.hour)
      if #hour == 1 then Res = Res.."0"..hour; else Res = Res..hour; end
      local minute = tostring(datetime.min)
      if #minute == 1 then Res = Res.."0"..minute; else Res = Res..minute; end
      local sec = tostring(datetime.sec);
      if #sec == 1 then Res = Res.."0"..sec; else Res = Res..sec; end;
      return Res
   end
end --toYYYYMMDDHHMMSS