RSI-Bands

//@author CapnOscar 
study(title="RSI-Band", shorttitle="RSI-Band")

SWperiod = input(34, minval=1, title="SWperiod")
look = input(0, minval=0, title="Shift")
OverBought = input(70, minval=50)
OverSold = input(30, maxval=50)

bandmx = hline(90)
bandmn = hline(10)

band1 = hline(OverBought)
band0 = hline(OverSold)
band50 = hline(50)
fill(band1, band0, color=purple, transp=95)


src = close, len = input(21, minval=1, title="RSI Length"), crosslen = input(7, minval=1, title="Cross Length")
up = rma(max(change(src), 0), len)
down = rma(-min(change(src), 0), len)
rsi = down == 0 ? 100 : up == 0 ? 0 : 100 - (100 / (1 + up / down))
newrsi = sma(rsi,crosslen)
trsi = plot(rsi, color=black, linewidth=1)


highrsi = highest(rsi[look], SWperiod)
lowrsi = lowest(rsi[look], SWperiod)
avgrsi = avg(highrsi,lowrsi)
smaavg = sma(avgrsi,crosslen)



plhrsi = plot(highrsi, color=olive)
pllrsi = plot(lowrsi, color=olive )


fill(plhrsi, trsi, color=red, transp=50)
fill(pllrsi, trsi, color=green, transp=50)