indicator RCI;
input HiLine = 100, LowLine = 100, price = close, Period_Fast = 9, Period_Mid = 26, Period_Slow = 52;
draw line_hi("Hi", solid_line, white, 1), line_low("Low", solid_line, white, 1), line_slow("RCI Slow", solid_line, green, 1), line_mid("RCI Mid", solid_line, blue, 1), line_fast("RCI Fast", solid_line, red, 1);
vars f(number), b(number);
begin
  f := front(price);
  b := back(price);
  if b > (f + Max(Period_Fast, Max(Period_Mid, Period_Slow))) then begin

    line_fast := RCI1(price, Period_Fast, f);
    line_mid  := RCI1(price, Period_Mid,  f);
    line_slow := RCI1(price, Period_Slow, f);

    if HiLine <> 0 Then  line_hi  := makeseries(f, b, HiLine);
    if LowLine <> 0 Then line_low := makeseries(f, b,  -1 * LowLine);
  end;
end.