--[[Exponential Moving Average (EMA)
EMAi = (EMAi-1*(n-1)+2*Pi) / (n+1)]]
function F_EMA() 
   local tmp = {pp=nil, p=nil}
   local it = {p=0, l=0}
return function(I, P, VT, ds)
   if I == 1 then
      tmp = {pp=nil, p=nil}
      it = {p=0, l=0}
   end
   if CandleExist(I,ds) then
      if I~=it.p then 
         it = {p=I, l=it.l+1} 
         tmp.pp = tmp.p
      end
      if it.l == 1 then
         tmp.p = GetValueEX(it.p,VT,ds)
      else
         tmp.p = (tmp.pp*(P-1) + 2*GetValueEX(it.p,VT,ds)) / (P+1)
      end
      if it.l >= P then
         return tmp.p
      end
   end
return nil
end
end

local modname = ...
--автор Николай Камынин kamnik@mail.ru www.kamynin.ru
local M = {}
_G[modname] = M
package.loaded[modname] = M
local _G=_G  -- глобальная таблица
setfenv(1, M)
function EMAt(y,x,m,i,n)  --x- таблица
   if m>=i then   local s=0; for j=0,i-1 do s=s+x[i-j] end y[i]=s/i;
   else   if n==nil then y[i]=(y[i-1]*(m-1)+2*x[i])/(m+1);   else y[i]=y[i-1]   -(x[i-m]   -x[i])/m; end
   end
end
function EMAf(y,x,m,i,n)   --x- функция
   if m>=i then   local s=0; for j=0,i-1 do s=s+x(i-j) end y[i]=s/i;
   else   if n==nil then y[i]=(y[i-1]*(m-1)+2*x(i))/(m+1);   else y[i]=y[i-1]-(x(i-m)-x(i))/m; end
   end
end

function sEMA(y,x,m,i)
   local s=y;
   if m>=i then  s=((m-1)*s+x)/m; else    s=(s*(m-1)+2*x)/(m+1);  end
return s;
end --скользящее среднее x период m  n если не задано то ехпонента или простое сглаживание