Coded for Bouncer Moving Average timing entries
study(title="Bouncer Stochastic", shorttitle="BStoch") length = input(14, minval=1), smoothK = input(3, minval=1), smoothK2 = input(5, minval=1), smoothD = input(8, minval=1) k = sma(stoch(close, high, low, length), smoothK) d = sma(k, smoothD) k2 = sma(stoch(close, high, low, length), smoothK2) d2 = sma(k2, smoothD) davg = (d +d2 ) /2 wid = d > d2 and rising(d,1) ? green : d < d2 and falling(d,1) ? red : orange plot(d, color=green, transp=0) plot(d2, color=red, transp=0) plot(davg, color=wid, transp=0, linewidth=2) h0 = hline(80) h1 = hline(20) h2 = hline(48) h3 = hline(52)