Александр (Все сообщения пользователя)

function Init()   f_LEVEL= LEVEL()
   return #Settings.line
end

function OnCalculate(Index)
local S2Down, S1Down, L1Up, L2Up = f_LEVEL(Index)
   return S2Down, S1Down, L1Up, L2Up
end

function LEVEL()
   t_Sys={}
   t_Sys[1]=3
   t_Sys[2]=2
return function (I)
local S2Down, S1Down, L1Up, L2Up = nil, nil, nil, nil

if I>2 then
   if t_Sys[#t_Sys]==3 then
      S2Down, S1Down, L1Up, L2Up = nil, nil, nil, nil
--      t_Sys[#t_Sys+1]=2
   end

   if t_Sys[#t_Sys]==2 then --пока касание не произошло
      local t_Lev=LINE(I)
      S2Down, S1Down, L1Up, L2Up = t_Lev[1], t_Lev[2], t_Lev[3], t_Lev[4]

      if H(I)>=t_Lev[#t_Lev] then --произошло касание верхней линии
         t_Sys[#t_Sys+1]=3
      end
      if L(I)<=t_Lev[1] then
      t_Sys[#t_Sys+1]=1; --произошло касание нижней линии
      end
   end

   if t_Sys[#t_Sys]==1 then
      S2Down, S1Down, L1Up, L2Up = nil, nil, nil, nil
--      t_Sys_W[#t_Sys_W+1]=2
   end
end
return S2Down, S1Down, L1Up, L2Up
end
end

function LINE(I)
local t_Lev={}
if I>2 then
if t_Sys[#t_Sys-1]==3 then
   for i=1, 2 do
      t_Lev[i]=C(I-i)*0.78
      t_Lev[i+2]=C(I-i)*1.22
   end
end

if t_Sys[#t_Sys-1]==1 then
   for i=1, 2 do
      t_Lev[i]=C(I-i)*0.78
      t_Lev[i+2]=C(I-i)*1.22
   end
end

if H(I)>=t_Lev[#t_Lev] then  -- здесь сравнение указанно как еще один вариант
--   t_Sys[#t_Sys+1]=3
end
if L(I)<=t_Lev[1] then
--   t_Sys[#t_Sys+1]=1;
end
end
return t_Lev
end

function FRACTALS() --Fractals ("FRACTALS")
   local H_tmp={}
   local L_tmp={}
   local Frac_H_tmp={}   --запоминаем значения High свечи
   local Frac_HInd-tmp={}   --запоминаем индекс свечи
return function (I, Fsettings, ds)
local Fsettings=(Fsettings or {})
H_tmp[I]=Value(I,"High",ds)
L_tmp[I]=Value(I,"Low",ds)
if I>=5 then
   local S = I-2
   local val_h=math.max(unpack(H_tmp,I-4,I))
   local val_l=math.min(unpack(L_tmp,I-4,I))
   local L = Value(S,"Low",ds)
   local H = Value(S,"High",ds)
   if (val_h == H) and (val_h >0) then
      if ds then return S,S else
      Frac_H_tmp[#Frac_H_tmp]=val_h
      Frac_HIn-tmp[#Frac_HInd-tmp]=S
      SetValue(S, 2, Frac_H_tmp[#Frac_H_tmp])
      end
   end
end