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

function get_data() --получает базу данных
DS, strMessage = CreateDataSource( cur_class, cur_sec, INTERVAL_D1 )
      tmTac = os.time()
        repeat
            sleep( 1000 )
        until ( DS:Size() == nil ) or ( os.difftime( os.time(), tmTac ) <= 15 )
end;

DS,Error = CreateDataSource(CLASS_CODE, cur_sec, INTERVAL);
      -- Проверка
      if DS == nil then
      message('Входила:ОШИБКА получения доступа к свечам! ');
      end;
      
      t=0;
       while DS:Size() == 0 and t<30000 do
            sleep( 1000 )
         t=t+1000;
        end
      if t>29000 then message(cur_sec.." Empty") end;

function EMA()
   local cache={}
   return function(ind,_p,v_t,kk)
      local n=0
      local p=0
      local period=_p
      local v_type=v_t
      local index=ind
      local k=kk or 2/(period+1)

      if index==1 then cache={} end

      if index<period then
         cache[index]=Average(1,index,v_type)
         return nil
      end

      p=cache[index-1] or dValue(index,v_type)
      n=k*dValue(index,v_type)+(1-k)*p
      cache[index]=n
      return n
   end
end

Settings = {
Name = "*FRACTALS (Fractals)", 
Period = 5,
line = {{
      Name = "FRACTALS - Down", 
      Type = TYPE_TRIANGLE_DOWN, 
      Color = RGB(255, 0, 0)
      },
      {
      Name = "FRACTALS - Up", 
      Type = TYPE_TRIANGLE_UP, 
      Color = RGB(0, 255, 0)
      }
      }
}
         
function Init() 
   func = FRACTALS()
   return #Settings.line
end

function OnCalculate(Index) 
   return func(Index, Settings)
end

function FRACTALS() --Fractals ("FRACTALS")
   local H_tmp={}
   local L_tmp={}
return function (I, Fsettings, ds)
local Fsettings=(Fsettings or {})
local P = (Fsettings.Period or 5)
P = math.floor(P/2)*2+1
H_tmp[I]=Value(I,"High",ds)
L_tmp[I]=Value(I,"Low",ds)
if I>=P then
   local S = I-P+1+math.floor(P/2)
   local val_h=math.max(unpack(H_tmp,I-P+1,I)) 
   local val_l=math.min(unpack(L_tmp,I-P+1,I))
   local L = Value(S,"Low",ds)
   local H = Value(S,"High",ds)
   if (val_h == H) and (val_h >0) 
      and (val_l == L) and (val_l > 0) then
         if ds then return S,S else
            SetValue(S, 1, val_l)
            SetValue(S, 2, val_h)
         end
   else
      if (val_h == H) and (val_h >0) then
         if ds then return S,nil else
            SetValue(S, 1, nil)
            SetValue(S, 2, val_h)
         end
      end
      if (val_l == L) and (val_l > 0) then
         if ds then return nil,S else
            SetValue(S, 1, val_l)
            SetValue(S, 2, nil)
         end
      end
   end
   
end
   return nil,nil
end
end

function Value(I,VType,ds) 
local Out = nil
VType=(VType and string.upper(string.sub(VType,1,1))) or "A"
   if VType == "O" then      --Open
      Out = (O and O(I)) or (ds and ds:O(I))
   elseif VType == "H" then    --High
      Out = (H and H(I)) or (ds and ds:H(I))
   elseif VType == "L" then   --Low
      Out = (L and L(I)) or (ds and ds:L(I))
   elseif VType == "C" then   --Close
      Out = (C and C(I)) or (ds and ds:C(I))
   elseif VType == "V" then   --Volume
      Out = (V and V(I)) or (ds and ds:V(I)) 
   elseif VType == "M" then   --Median
      Out = ((Value(I,"H",ds) + Value(I,"L",ds)) / 2)
   elseif VType == "T" then   --Typical
      Out = ((Value(I,"M",ds) * 2 + Value(I,"C",ds))/3)
   elseif VType == "W" then   --Weighted
      Out = ((Value(I,"T",ds) * 3 + Value(I,"O",ds))/4) 
   elseif VType == "D" then   --Difference
      Out = (Value(I,"H",ds) - Value(I,"L",ds))
   elseif VType == "A" then   --Any
      if ds then Out = ds[I] end
   end
return Out
end

function OnCalculate()
local short_pos=false;
   local long_pos=false;
   
   N1=getNumCandles("MVAs")
   for v=2,N1,1 do
   t=getCandlesByIndex("MVAs",0,v,1)[0]; 
   t1=getCandlesByIndex("MVAs",0, v-1, 1)[0].close;
   t2=getCandlesByIndex("MVAl",0, v-1, 1)[0].close;
   t11=getCandlesByIndex("MVAs",0, v-2, 1)[0].close;
   t22=getCandlesByIndex("MVAl",0, v-2, 1)[0].close;
   if (t1>t2) and (t11<t22) then --короткая пересекает длинную снизу вверх
   if (short_pos==false) then    --если не в позиции то
      long_pos=true;         --открываем длинную позицию   (покупка)
      return t.open;
      else               --иначе
      short_pos=false;      --закрываем короткую позицию
      return t.open;   
      end
   else
if (t1<t2) and (t11>t22) then --короткая пересекает длинную сверху вниз
   if (long_pos==false) then --если не в позиции то открываем короткую
      short_pos=true;   
      return t.open;
      else         --иначе
      long_pos=false; --закрывается длинная позиция
      return t.open;   --производим продажу; длинна позиция закрыта.
      end
   end
   end
end
end