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

Settings=
{
   Name = "DayMax/Med/Min/X",
   a = 1000, -- свободный член
   line =
   {
      {
         Name = "Median",
         Color = RGB(0, 0, 255),
         Type = TYPE_LINE,
         Width = 1
      },
      {
         Name = "Maximum",
         Color = RGB(0, 128, 0),
         Type = TYPE_LINE,
         Width = 1
      },
      {
         Name = "Minimum",
         Color = RGB(255, 0, 0),
         Type = TYPE_LINE,
         Width = 1
      }
   }
}
ma = nill
me = nill
mi = nill


function Init()
   return 3
end


function OnCalculate(index)
   
   if index == 1 then
      ma = nill
      me = nill
      mi = nill
   end 

   if ma == nill then
      ma = H(index)
      
   elseif H(index) > ma then
      ma = H(index)
      if (ma-mi)>Settings.a then
        mi = ma - Settings.a
      end
   end

   if mi == nill then
      mi = L(index)
      
   elseif L(index) < mi then
      mi = L(index)
      if (ma-mi)>Settings.a then
        ma = mi + Settings.a
      end
   end
   if me == nill then
      me =  (H(index) + L(index))/2
   elseif L(index) < mi then
       me =  (H(index) + L(index))/2
   elseif H(index) > ma then
       me =  (H(index) + L(index))/2
   end
   
   

   return me, ma, mi
end

local function getSpread(index)
   local timeCode = getTimeCode(T(index))
   local timeCode2 = getTimeCode(T(index-1))
   local securityPrice = C(index)
   if securityPrice then
   -- Получение свечей дополнительных инструментов
   local candle1 = getCandleByTimeCode(Settings.tag1, timeCode)
   local candle2 = getCandleByTimeCode(Settings.tag2, timeCode)
   local candle3 = getCandleByTimeCode(Settings.tag1, timeCode2)
   local candle4 = getCandleByTimeCode(Settings.tag2, timeCode2)
   if candle1 and candle2 and candle3 and candle4  then
   -- Получение цен дополнительных инструментов
   local price1 = candle1.close
   local price2 = candle2.close
   local price3 = candle3.close
   local price4 = candle4.close
   if ((price1 + price2)== price1) or ((price1 + price2)== price2) then
   -- Вычисление спреда
   local spread = (50 - (100 / (1 + price3 /  price4)))*Settings.k else
   local spread = (50 - (100 / (1 + price1 /  price2)))*Settings.k
   local spread2 = (50 - (100 / (1 + price3 /  price4)))*Settings.k
    -- Вычисление максимума минимума среднего для спреда
   if index == 1 or (T(index).hour < T(index-1).hour) then
        max_price = nil
        med_price = nil
        low_price = nil
      
    end
   
    if max_price == nil then  max_price = spread2 
    elseif spread2 > max_price then
        max_price = spread2
      if (max_price-low_price)>Settings.a then
        low_price = spread2 - Settings.a
      end
      med_price =  (max_price+low_price)/2
      
    end
    if low_price == nil then    low_price = spread2  
    elseif spread2 < low_price then
      low_price = spread2
      if (max_price-low_price)>Settings.a then
        max_price = spread2 + Settings.a
      end
      med_price =  (max_price+low_price)/2
      
    end
    if med_price == nil then    med_price =  (max_price+low_price)/2
    elseif spread2 < low_price then   med_price =  (max_price+low_price)/2
    elseif spread2 > max_price then   med_price =  (max_price+low_price)/2
    end
      return spread, (max_price+low_price)/2 , max_price, low_price
   end
   end
   end
end

function OnCalculate(index)
   if index > 1 then
       local spread = getSpread(index - 1)
       if spread then
           SetValue(index - 1, 1, spread)
         SetValue(index-1, 2, med_price)
         SetValue(index-1, 3, max_price)
         SetValue(index-1, 4, low_price)
       end
   end
   return getSpread(index), med_price , max_price, low_price
end

if index == 1 then
      max_price = nill
      med_price = nill
      low_price = nill
   elseif T(index).hour < T(index-1).hour then
      max_price = nill
      med_price = nill
      low_price = nill
   end
   if max_price == nill then
      max_price = spread
      
   elseif spread > max_price then
      max_price = spread
      low_price = spread - Settings.a
      med_price =  (max_price+low_price)/2
   end

   if low_price == nill then
      low_price = spread
      
   elseif spread < low_price then
      low_price = spread
      max_price = spread + Settings.a
      med_price =  (max_price+low_price)/2
   end
   if med_price == nill then
      med_price =  (max_price+low_price)/2
   elseif spread < low_price then
       med_price =  (max_price+low_price)/2
   elseif spread > max_price then
       med_price =  (max_price+low_price)/2
   end
   return spread, (max_price+low_price)/2 , max_price, low_price

--- Вычислить спред.
-- @param index номер свечи на графике
-- @return значение спреда или nil, если оно неопределено
local function getSpread(index)
   local timeCode = getTimeCode(T(index))
   local securityPrice = C(index)
   if securityPrice == nil then
       return nil
   end
   -- Получение свечей дополнительных инструментов
   local candle1 = getCandleByTimeCode(Settings.tag1, timeCode)
   local candle2 = getCandleByTimeCode(Settings.tag2, timeCode)
   if candle1 == nil or candle2 == nil then
       return nil
   end
   -- Получение цен дополнительных инструментов
   local price1 = candle1.close
   local price2 = candle2.close
   if price1 == nil or price2 == nil then
       return nil
   end
   -- Вычисление спреда
   local spread = (50 - (100 / (1 + price1 /  price2)))*Settings.k
   
    -- Вычисление максимума минимума среднего для спреда
   if index == 1 then
        max_price = nill
        med_price = nill
        low_price = nill
    elseif T(index).hour < T(index-1).hour then
        max_price = nill
        med_price = nill
        low_price = nill
    end
    if max_price == nill then
        max_price = spread
        
    elseif spread > max_price then
        max_price = spread
        low_price = spread - Settings.a
        med_price =  (max_price+low_price)/2
    end

    if low_price == nill then
        low_price = spread
        
    elseif spread < low_price then
        low_price = spread
        max_price = spread + Settings.a
        med_price =  (max_price+low_price)/2
    end
    if med_price == nill then
        med_price =  (max_price+low_price)/2
    elseif spread < low_price then
        med_price =  (max_price+low_price)/2
    elseif spread > max_price then
        med_price =  (max_price+low_price)/2
    end
   return spread, (max_price+low_price)/2 , max_price, low_price
end

function OnCalculate(index)
   if index > 1 then
       local spread = getSpread(index - 1)
       if spread then
           SetValue(index - 1, 1, spread)
           SetValue(index , 2, med_price)
           SetValue(index , 3, max_price)
           SetValue(index , 4, low_price)
       end
   end
   return getSpread(index), med_price , max_price, low_price
end