function Squeeze(I,P)
        return math.fmod(I-1,P+1)
    end

но появился вопрос. зачем вычитание?

sum[Ip] - (sum[Ippp] or 0)) / P

допустим у нас последовательность

5, 3, 4, , 9

период равен 2

на первом шаге

Ip = 0, Ipp = 1, Ippp = 2   т.к. fmod(1-1, 2+1) = 0; fmod((1-1)-1, 2+1) = 1; fmod((1-2)-1, 2+1)=2 соответственно

и sum[0] = 5 return nil

на втором шаге

Ip = 1, Ipp = 0, Ippp = 1   т.к. fmod(2-1, 2+1);fmod((2-1)-1, 2+1);fmod((2-2)-1, 2+1) соответственно

--[[Simple Moving Average (SMA)
SMA = sum(Pi) / n]]
function F_SMA()
   local sum = {}
   local it = {p=0, l=0}
return function (I, P, VT, ds)
   if I == 1 then
      sum = {}
      it = {p=0, l=0}
   end
   if CandleExist(I,ds) then
      if I~=it.p then it={p=I, l=it.l+1} end
      local Ip,Ipp,Ippp = Squeeze(it.l,P),Squeeze(it.l-1,P),Squeeze(it.l-P,P)
      sum[Ip] = (sum[Ipp] or 0) + GetValueEX(it.p,VT,ds)
      if it.l >= P then
         return (sum[Ip] - (sum[Ippp] or 0)) / P
      end
   end
return nil
end
end