Stochastic In Bands

study(title="Stochastic In Bands", shorttitle="SIB", overlay=true)
ATRlength = input(14, minval=1)
ATRMult = input(2.70, minval=1)
ATRBase = input(3.50, minval=1)
ATR = rma(tr(true), ATRlength)

len = input(21, minval=1, title="Length")
src = input(close, title="Source")
out = ema(src, len)

emaup = out+(ATR*ATRMult)
emadw = out-(ATR*ATRMult)
emabs = out-(ATR*ATRBase)
plot(out, title="EMA", color=orange)
plot(emaup, title="EMAUP", color=silver)
plot(emadw, title="EMADW", color=silver)

Stlength = input(14, minval=1), smoothK = input(5, minval=1), smoothD = input(3, minval=1)
k = sma(stoch(close, high, low, Stlength), smoothK)
d = sma(k, smoothD)

MDiff = emaup-emadw
StM = emabs+((k*MDiff)/80)
StS = emabs+((d*MDiff)/80)
plot(StM, title="Main", color=red)
plot(StS, title="Signal", color=blue)