TO-DMI

study(title="TO-DMI", shorttitle="TO-DMI")
lensig = input(13, title="ADX Smoothing", minval=1, maxval=50)
len = input(5, minval=1, title="DI Length")
up = change(high)
down = -change(low)
trur = rma(tr, len)
plus = fixnan(100 * rma(up > down and up > 0 ? up : 0, len) / trur)
minus = fixnan(100 * rma(down > up and down > 0 ? down : 0, len) / trur)
sum = plus + minus 
adx = 100 * rma(abs(plus - minus) / (sum == 0 ? 1 : sum), lensig)
plot(plus, color=red, title="+DI")
plot(minus, color=green, title="-DI")
plot(adx, color=teal, title="ADX")
plot(cross(plus, minus) ? plus : na, color=black, style = cross, linewidth = 10)