Forecast of S&P-500 "whipsaw-ing" again further to another "v-bottom".
study(title="Shamus' Lane-Stochastic", shorttitle="Shamus' Lane-Stoch") length = input(14, minval=3), smoothK = input(1, minval=1), smoothD = input(3, minval=1), src=close //k = sma(stoch(close, high, low, length), smoothK) //d = sma(k, smoothD) //l = lowest((stdev(src, length) *-1 + src), length) //h = highest((stdev(src, length)+ src), length) l = lowest(low, length) h = highest(high, length) k_input = 100 * (src - l) / (h - l) k = sma(k_input, smoothK) d = sma(k, smoothD) plot(k, color=aqua, linewidth=1) plot(d, color=red, linewidth=1) h0 = hline(80, color=green, linestyle=solid) h1 = hline(20, color=red, linestyle=solid) h2 = hline(50, color=yellow, linestyle=solid) fill(h0, h1, color=navy, transp=75)