RSI Donchian Channels

study(title="[RS][JR][LS]RSI Donchian Channels", shorttitle="[RS][JR][LS]RSI DC", overlay=false)
src = input(defval=hl2, type=source, title="RSI Source:")
rsi_length = input(defval=14, minval=1, title="RSI Period Length:")
donchian_length = input(20, minval=1, title="Donchian Lookback Period Length:")

rsi1 = rsi(src, rsi_length)

lower = lowest(rsi1, donchian_length)
upper = highest(rsi1, donchian_length)
basis = avg(upper, lower)

plot(rsi1, color=rsi1==lower?red: rsi1==upper?green : aqua,linewidth=2,transp=20)
bgcolor( rsi1==lower and rsi1<=45?red: rsi1==upper and rsi1>=55?green : na, transp=80)

l = plot(lower, color=blue,linewidth=1,transp=20)
u = plot(upper, color=blue,linewidth=1,transp=20)
plot(basis, color=black,linewidth=1,transp=20)
fill(u, l, color=blue,transp=92)

hline(0, color=gray,linewidth=1)
hline(50,color=gray,linewidth=1)
hline(100,color=gray,linewidth=1)
h1=hline(45,color=red,linewidth=1)
h2=hline(55,color=red,linewidth=1)
fill(h1,h2,color=orange,transp=85)
// eof