Shamus' Lane-Stochastic

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)