function   main ()
  ema_cache = {}   -- Кзш со значениями EMA Close 
  period =  15   -- Период EMA 
  ds,error_desc =  CreateDataSource ( "SPBFUT" ,"SiZ1",INTERVAL_H1)  -- Создаем датасурс 
  n =  0   -- Счетчик 
   while (ds: Size () =  =  0 ) and (n <  100 ) do   sleep ( 100 ) n = n +  1   end   -- Ждем загрузки датасурса 
   if (n =  =  100 ) then   message ( "Ошибка:"  .. tostring(error_desc))  return   false   end   -- Если не дождались - выход 
  ema(ds,period)  -- Вычисляем EMA, заполняем кзш 
   message ( "EMA "  .. ema_cache[ds: Size ()])    -- Пример получения EMA последней свечи 
   message ( "EMA "  .. ema_cache[ds: Size () -  1 ])  -- Пример получения EMA предпоследней свечи 
 end 
 function   ema (datasource,period)  -- Расчет EMA Close 
   local  k =  2 /(period +  1 )  -- Коэффициент взвешивания 
   for  i =  1 ,datasource: Size ()  do   -- Пробегаемся по всем свечам 
     if  i =  =  1   then  ema_cache[i] = datasource:C(i)  -- EMA Close первой свечи 
             else  ema_cache[i] = k * datasource:C(i) + ( 1  - k) * ema_cache[i -  1 ]  -- EMA Close всех остальных свеч 
     end 
   end 
 end