[RS]NDBMFB DMI Index V1

study(title="[RS]NDBMFB DMI Index V0", shorttitle="[RS]NDBMFB.DMI.Index V0", overlay=false)
adxlen = input(4, title="ADX Smoothing")
dilen = input(8, title="DI Length")
//  ||---Functions by: Greeny
dirmov(len) =>
	up = change(high)
	down = -change(low)
	truerange = rma(tr, len)
	plus = fixnan(100 * rma(up > down and up > 0 ? up : 0, len) / truerange)
	minus = fixnan(100 * rma(down > up and down > 0 ? down : 0, len) / truerange)
	[plus, minus]

adx(dilen, adxlen) => 
	[plus, minus] = dirmov(dilen)
	sum = plus + minus
	adx = 100 * rma(abs(plus - minus) / (sum == 0 ? 1 : sum), adxlen)
	[adx, plus, minus]

[sig, up, down] = adx(dilen, adxlen)

//  ||---------------------------------------------------------------------------
brackit(x, v1, v2)=> x >= v1 and x < v2
cond1 = brackit(sig, 0, 25) ? silver :
        brackit(sig, 25, 50) ? gray :
        brackit(sig, 50, 75) ? blue :
        brackit(sig, 75, 100) ? black : na

showCondition1 = input(true)

plot(not showCondition1 ? na : sig, color=cond1, style=columns, title="ADX Columns1")
plot(sig, color=black, title="ADX")

hline(0, color=black)
hline(25, color=black)
hline(50, color=black)
hline(75, color=black)
hline(100, color=black)