TV_RSI_EMA_Stochastic

study(title="TV_RSI_EMA_Stochastic", shorttitle="TV_RSI_EMA_StochasticH", overlay=false)
len = input(14, minval=1, title="RSI")
len2 = input(34, minval=1, title="EMA")
src = input(title="Источник", type=source, defval=close)
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=2, color=red, transp=0)
plot(emaRSI, title="EMA", style=line, linewidth=2, color=orange, transp=0)

////Stochastik
length1 = input(14, minval=1, title="Stochastic ")
smoothK1 = input(1, minval=1, title="K") 
smoothD1 = input(3, minval=1, title="D")

k1 = sma(stoch(close, high, low, length1), smoothK1)
d1 = sma(k1, smoothD1)

plot(k1, title="Stochastic ", style=line, linewidth=2, color=blue, transp=0)
plot(d1, color=change(d1)<=0? red:green, transp=80, title="Stochastic D", style=columns, linewidth=1)

band5=hline(100, title="Hundred", linestyle=dashed, linewidth=1, color=black)
band0=hline(80, title="Entry point", linestyle=dashed, linewidth=1, color=red)
band1=hline(70, title="Entry point", linestyle=dashed, linewidth=1, color=red)
band2=hline(50, title="Middle line", linestyle=dashed, linewidth=1, color=black)
band3=hline(30, title="Entry point", linestyle=dashed, linewidth=1, color=green)
band4=hline(20, title="Entry point", linestyle=dashed, linewidth=1, color=green)
band6=hline(0, title="Zero", linestyle=dashed, linewidth=1, color=black)
fill(band0, band1, color=purple, transp=90)
fill(band3, band4, color=purple, transp=90)