Процентное изменение от цены закрытия

--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
 

Settings= {
   Name = "MA",
   Period   = 3,
   line =
   {
      {
         Name      = "MA",
         Color      = RGB(90, 110, 200),
         Type      = TYPE_LINE,
         Width      = 1
      }
   }
}
   
function Init()
   return 1
end

function OnCalculate(index)   
   return 10000
end
 

Settings= {
   Name = "MA",
   Period   = 3,
   line =
   {
      {
         Name      = "MA",
         Color      = RGB(90, 110, 200),
         Type      = TYPE_LINE,
         Width      = 1
      }
   }
}
   
function Init()
   return 1
end

function OnCalculate(index)   
   
   if index == Size() then
      for i = 1, Size() - 1 do
         SetValue(i, 1, 10000)
      end
   end
   SetValue(index, 1, 10000)
   return 10000
end