NAME = "KEZ_TEST"
Settings = {Name = NAME,period = 0.01}

function OnCalculate(i)
    if i ~= indexZ then -- проверка на повторную итерацию
        indexZ = i
        if i == 1 then
            --a, b = 23, 2
            message("a = " .. a .. "\nb = " .. b .. "\ni = " .. i)
        end
        if i == 100 then
            message("a = " .. a .. "\nb = " .. b .. "\ni = " .. i)
        end
        a = a + Settings.period
    end
    return math.sin(a), b
end

function Init()
    indexZ = 0
    a = 0
    b = 0
    local t = {}
    Settings.line = t;
    t[#t + 1] = {Name = "A",Color = RGB(0, 139, 139),Type = TYPE_LINE,Width = 1}
    t[#t + 1] = {Name = "B",Color = RGB(255, 127, 80),Type = TYPE_LINE,Width = 1}
    return #t
end

name="KEZ_Casper"
Settings={Name =name,period = 28,period2 = 28}


function OnCalculate(i)
   if i==1 then
     VuEma,Vu,Pu,Pd,F = 1,0,0,0,0
      message("VuEma = " .. VuEma)
   end
   local d=C(i)-O(i);
   Pu=H(i)-L(i); pd=Pu-d;
   if 0>d then  d=Pu; Pu=Pd;  Pd=d end     -- отрицательная свеча
    Vd=(Pd*V(i))/(Pu + Pd)
    Vu= V(i)-Vd
    F=2/(Settings.period + 1)
    VuEma = Vu * F + VuEma * (1 - F)
    return Vu, -Vd, VuEma
end

function Init()
   local t={}   Settings.line=t;
    t[#t+1]={ Name = "Casper", Color = RGB(255, 0, 0), Type = TYPE_LINE, Width = 1}
    t[#t+1]={ Name = "A",     Color = RGB(0, 100, 100), Type = TYPE_LINE, Width = 1}
    t[#t+1]={ Name = "B",  Color = RGB(100, 100, 0),  Type = TYPE_LINE,  Width = 1}
   return #t
end

Settings = {}
Settings = {
    Name = "KEZ_Casper",
    period = 28,
    period2 = 28,
    line = {{
        Name = "Casper",
        Color = RGB(255, 0, 0),
        Type = TYPE_LINE,
        Width = 1
    }, {
        Name = "A",
        Color = RGB(0, 100, 100),
        Type = TYPE_LINE,
        Width = 1
    }, {
        Name = "B",
        Color = RGB(100, 100, 0),
        Type = TYPE_LINE,
        Width = 1
    }}
}

function Init()
    VuEma = 1
    Vu = 0
    Pu = 0
    Pd = 0
    F = 0
    return #Settings.line
end

function OnCalculate(index)
   if index == 1 then 
      message("VuEma = " .. VuEma)
   end

    if O(index) < C(index) then
        -- положительная свеча
        Pu = H(index) - L(index)
        Pd = H(index) - C(index) + O(index) - L(index)
    else
        -- отрицательная свеча
        Pu = H(index) - O(index) + C(index) - L(index) 
        Pd = H(index) - L(index) 
    end
    Vd = (Pd * V(index)) / (Pu + Pd) 
    Vu = V(index) - Vd 
    F = 2 / (Settings.period + 1)
  
    VuEma = Vu * F + VuEma * (1 - F)

    return Vu, -Vd, VuEma
end