////////////////////////////////////////////////////////////
study(title="Strategy MACD and SNORT alert", shorttitle="Strategy MACD and SNORT alert", overlay = false )
fastLength = input(12, minval=1)
slowLength = input(26,minval=1)
signalLength=input(5,minval=1)
hline(0, color=purple, linestyle=dashed)
fastMA = ema(close, fastLength)
slowMA = ema(close, slowLength)
macd = fastMA - slowMA
signal = sma(macd, signalLength)

Length = input(10, minval=1)
Oversold = input(49, minval=1)
Overbought = input(51, minval=1)
xRSI = rsi(close, Length)

length = input(title="Length", type=integer, defval=14, minval=1, maxval=2000)
src = hlc3
upper = sum(volume * (change(src) <= 0 ? 0 : src), length)
lower = sum(volume * (change(src) >= 0 ? 0 : src), length)
mf = rsi(upper, lower)

clength = input(20, minval=1)
csrc = input(close, title="Source")
cma = sma(csrc, clength)
cci = (csrc - cma) / (0.015 * dev(csrc, clength))

rsrc = close
rlen = input(14, minval=1, title="Length")
rup = rma(max(change(rsrc), 0), rlen)
rdown = rma(-min(change(rsrc), 0), rlen)
rsi = rdown == 0 ? 100 : rup == 0 ? 0 : 100 - (100 / (1 + rup / rdown))

snort = (((mf + rsi)/2)*5 + cci)/6

rox = snort + xRSI



pos = iff(rox > Overbought and signal < macd, 1,
        iff(rox < Oversold and signal > macd, -1, nz(pos[1], 0)))
barcolor(pos == -1 ? red: pos == 1 ? green : blue)