nikolz (Все сообщения пользователя)

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 если не задано то ехпонента или простое сглаживание