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

name="nk_insBar";
Settings={Name =name};
local function  Cn(i) local Ci,Oi=C(i),O(i);if Ci>=Oi then return Ci,Oi; end return Oi,Ci; end
j=1;
function OnCalculate(i)
    Hi,Li=H(i),L(i);
    if Hi~=Li then
        BH,BL=Cn(i)
        if i~=j then BH1,BL1=Cn(j); H1,L1=H(j),L(j); j=i; end
        if H_ then
      if Hi>H_ or L_>Li then H1_,L1_=H_,L_;  H_,L_=nil; end
        else
      if H1>=Hi and Li>=L1 then  BH_,BL_,H_,L_=BH1,BL1,H1,L1; end
        end
    end
    if H_ then return H_,L_; else return H1_,L1_; end
end

function Init()
   Settings.line = {
      {Name = "H_",Color = RGB(0, 0, 255), Type =3, Width = 2},
      {Name = "L_",Color = RGB(255, 0, 255), Type =3, Width = 2},
   };
   return #Settings.line;
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

local t1=t[sec]  if t1==nil then t1={};t[sec]=t1; end
t1[#t1+1]=AddLabel(tag, label_params);

local t1=t[sec]; for j=1,#t1 do  DelLabel(tag,t1[j] ) end

# Lua 5.4
command.go.*.lua=D:/lua54/lua54.exe -e "io.stdout:setvbuf 'no'" "$(FileNameExt)"
command.compile.*.lua=D:/lua54/luac54.exe -o "$(FileName).luac" "$(FileNameExt)"
# Lua 5.3
#command.go.*.lua=D:/lua53/lua53.exe -e "io.stdout:setvbuf 'no'" "$(FileNameExt)"
#command.compile.*.lua=D:/lua53/luac53.exe -o "$(FileName).luac" "$(FileNameExt)"