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

--1ema.lua
cEma = {}
local last = 0
Settings = 
{
   Name = "1ema",
   EMA = 9,
   line=
   {
      {Name = "EMA", Color = RGB(0, 0, 255), Type = 1,Width = 1},
   }
}

function Init()
   return 1
end

function averageC(_start, _end)
   local sum=0
   for i = _start, _end do
      sum=sum+C(i)
   end
   return sum/(_end-_start+1)
end
function averageEMA(ind, _p)
   local n = 0
   local p = 0
   local period = _p
   local k = 2/(period+1)
   if ind < period then
      cEma[ind] = averageC(1,ind)
      return nil   
   end
   p = cEma[ind-1] or last
   n = k*last+(1-k)*p
   cEma[ind] = n
   return n
end

function OnCalculate(index)
   if index < Settings.EMA then 
      return nil
   end
   last=C(index)
   return averageEMA(index, Settings.EMA)
end