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

   
SetValue(Out1, 2, ConvertValue(Settings,H(Out1)+100))
SetValue(Out2, 3, ConvertValue(Settings,L(Out2)-100))

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