TV_Double_Stochastics

study(title="TV_Double_Stochastics", shorttitle="TV_Double_Stochastics", overlay=false)
src = close, 
length1 = input(14, minval=1, title="Slow Stochastic")
smoothD1 = input(3, minval=1, title="D")
smoothK1 = input(1, minval=1, title="K") 

length2 = input(7, minval=1, title="Fast Stochastic")
smoothD2 = input(3, minval=1, title="D")
smoothK2 = input(1, minval=1, title="K")

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

k2 = sma(stoch(close, high, low, length2), smoothK2)
d2 = sma(k2, smoothD2)

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)
fill(band0, band1, color=purple, transp=90)
fill(band3, band4, color=purple, transp=90)

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

plot(k2, title="Fast Stochastic", style=line, linewidth=2, color=navy)