ÿþindicator DynamicRsi;

// Made by Werner Voets 

input price = close, Rsi = 14, Bollinger = 20, Ema = 5, hi_baseline = 80, lo_baseline = 20;

draw line("RSI",solid_line,green,1), ema_line("Ema",solid_line,blue,1), 

     line_mid("Mid BB",solid_line,red,1), line_upper("Upper BB",solid_line,dark_yellow,1),line_lower("Lower BB",solid_line,dark_yellow,1),

     line_hi("HI Base",solid_line,black,1), line_lo("LO Base",solid_line,black,1), mid("Mid",solid_line,black,1);

vars i(number), u(series), d(series), au(series), ad(series), dif(number), f(number), tmp(series);

begin

  line_hi := makeseries(front(close), back(close), hi_baseline);

  mid := makeseries(front(close), back(close), 50);

  line_lo := makeseries(front(close), back(close), lo_baseline);

  f := front(price);

  u[f] := 0;

  d[f] := 0;

  for i := f + 1 to back(price) do begin

    dif := ((price[i]+price[i]+high[i]+low[i])/4) - ((price[i - 1]+price[i - 1]+high[i - 1]+low[i - 1])/4);

    if dif > 0 then begin

      u[i] := dif;

      d[i] := 0;

    end else begin

      u[i] := 0;

      d[i] := -dif;

    end;

  end;

  au := mma(u, Rsi);

  ad := mma(d, Rsi);

  line := 100 * au / (au + ad);

  ema_line := displace(ema(line,Ema),0);

  line_mid := displace(sma(line, Bollinger), 0);

  tmp := displace(2 * stddev(line, Bollinger), 0);

  line_upper := line_mid + tmp;

  line_lower := line_mid - tmp;

end.