ATR RS RL

//@version=2
study(title = "ATR_RSRL", shorttitle = "ATR_RSRL",overlay=true)
length = input(14, minval=1)
src = input(close, title="Source")
mult = input(2.0, minval=0.001, maxval=50)
maLen=input(7,title="maLength")
basis = sma(src, length)
dev = mult * atr(length)
upper = basis + dev
lower = basis - dev
bbr = (src - lower)/(upper - lower)
bbe= ema(bbr,maLen)
up =  bbe[1]>bbe and bbe[2]<bbe[1]?bbe:na
bt =  bbe[1]<bbe and bbe[2]>bbe[1]?bbe:na

topH=na(up)==0?highest(3):na
bottomL=na(bt)==0?lowest(3):na

tf= fixnan(topH)
bf =fixnan(bottomL)

btop=close>open?close:open
bbot=close>open?open:close

plot(tf,color=red,style=circles,linewidth=1,offset=-1)
plot(bf,color=green,style=circles,linewidth=1,offset=-1)