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  =   nil l
me  =   nil l
mi  =   nil l


 function   Init ()
    return   3 
 end 


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

    if  ma  =  =   nil l  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  =  =   nil l  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  =  =   nil l  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 
  

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

   function   OnCalculate (index)
  -- Получение свечей дополнительных инструментов 
   c1 = getCandleByTimeCode(Settings.tag1, timeCode).close
   c2 = getCandleByTimeCode(Settings.tag2, timeCode).close
    if  c1  and  c2   then 
      p1  =  c1;   p2  =  c2   -- Получение цен дополнительных инструментов 
      spr  = p1 - p2    -- Вычисление спреда 
    if  index =  =  1   then   max = spr; min = spr  -  Settings.a;
     -- Вычисление максимума минимума среднего для спреда 
    elseif  spr > max_p  then   max  =  spr; min  =  spr  -  Settings.a;
    elseif  spr < min_p  then     min  =  spr;  max  =  spr  +  Settings.a;  end 
   med  =   (max + min)/ 2 ;
    end 
 return  spr,med,max,min
 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

function OnCalculate(index)
 -- Получение свечей инструментов
   C1=С(index);
   C2=getCandleByTimeCode(Settings.tag2,timeCode).close
   if C2 then
      spr =C1-C2   -- Вычисление спреда
   if index==1 then  max=spr; min=spr - Settings.a;
    -- Вычисление максимума минимума среднего для спреда
   elseif spr>max_p then  max = spr; min = spr - Settings.a;
   elseif spr<min_p then    min = spr;  max = spr + Settings.a; end
   med =  (max+min)/2;
   end
return spr,med,max,min
end

function OnCalculate(index)
 -- Получение свечей инструментов
   C1=С(index);
   C2=getCandleByTimeCode(Settings.tag2,timeCode).close
   if c2 then
      spr =C1-C2   -- Вычисление спреда
   if index==1 then  max=spr; min=spr - Settings.a;
    -- Вычисление максимума минимума среднего для спреда
   elseif spr>max_p then  max = spr; min = spr - Settings.a;
   elseif spr<min_p then    min = spr;  max = spr + Settings.a; end
   med =  (max+min)/2;
   end
return spr,med,max,min
end

function OnCalculate(index)
 -- Получение свечей инструментов
   c1=С(index);
   c2=getCandleByTimeCode(Settings.tag2,timeCode).close
   if c2 then
      spr =C1-C2   -- Вычисление спреда
   if index==1 then  max=spr; min=spr - Settings.a;
    -- Вычисление максимума минимума среднего для спреда
   elseif spr>max_p then  max = spr; min = spr - Settings.a;
   elseif spr<min_p then    min = spr;  max = spr + Settings.a; end
   med =  (max+min)/2;
   end
return spr,med,max,min
end

function OnCalculate(index)
 -- Получение свечей инструментов
   c1=С(indwx);
   c2=getCandleByTimeCode(Settings.tag2,timeCode).close
   if c2 then
      spr =C1-C2   -- Вычисление спреда
   if index==1 then  max=spr; min=spr - Settings.a;
    -- Вычисление максимума минимума среднего для спреда
   elseif spr>max_p then  max = spr; min = spr - Settings.a;
   elseif spr<min_p then    min = spr;  max = spr + Settings.a; end
   med =  (max+min)/2;
   end
return spr,med,max,min
end