RSI_Snabbel

//RSI Indicator with EMA, 45/50/55 line

study(title="CM_RSI_MA", shorttitle="CM_RSI_MA_", overlay=false)
src = close, 
len = input(20, minval=1, title="RSI Length")
len2 = input(10, minval=1, title="EMA of RSI 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))
emaRSI = ema(rsi,len2)

plot(rsi, title="RSI", style=line, linewidth=3, color=silver)
plot(emaRSI, title="EMA of RSI", style=circles, linewidth=2, color=red)
band4 = hline(80, title="Upper Line", linestyle=dashed, linewidth=3, color=red)
band3 = hline(55, title="Upper Line", linestyle=dashed, linewidth=3, color=red)
band2 = hline(50, title="Upper Line", linestyle=dashed, linewidth=3, color=red)
band1 = hline(45, title="Upper Line", linestyle=dashed, linewidth=3, color=red)
band0 = hline(20, title="Lower Line", linestyle=dashed, linewidth=3, color=lime)
fill(band1, band2, color=purple, transp=90)
fill(band2, band3, color=purple, transp=90)