Please find below a quick fix to get the ADX and Directional Movement Index in the same window, calculated with Exponential Moving Average instead of Wilder’s Average.

Wilders smoothing formula is almost like EMA, for your information. A bit more smoothed though.

Here is the code:

p=14

plusDM = MAX(HIGH-HIGH[1], 0)
minusDM = MAX(LOW[1]-LOW, 0)

IF plusDM > minusDM THEN
minusDM = 0
ENDIF

IF plusDM < minusDM THEN
plusDM = 0
ENDIF

IF plusDM = minusDM THEN
plusDM = 0
minusDM = 0
ENDIF

plusDI = exponentialaverage[p](plusDM)//WILDERAVERAGE[p](plusDM)
minusDI = exponentialaverage[p](minusDM)//WILDERAVERAGE[p](minusDM)

DM = (plusDI-minusDI)/pointsize

DX = ABS(plusDI - minusDI) / (plusDI + minusDI) * 100
myADX = exponentialaverage[p](DX)//wilderAverage[p](DX)

Return DM*10,myADX

Oh ok, so you don’t need DMI but only DI+ and DI-, so please find below the modified code:

p=14

plusDM = MAX(HIGH-HIGH[1], 0)
minusDM = MAX(LOW[1]-LOW, 0)

IF plusDM > minusDM THEN
minusDM = 0
ENDIF

IF plusDM < minusDM THEN
plusDM = 0
ENDIF

IF plusDM = minusDM THEN
plusDM = 0
minusDM = 0
ENDIF

plusDI = exponentialaverage[p](plusDM)//WILDERAVERAGE[p](plusDM)
minusDI = exponentialaverage[p](minusDM)//WILDERAVERAGE[p](minusDM)

//DM = (plusDI-minusDI)/pointsize

DX = ABS(plusDI - minusDI) / (plusDI + minusDI) 
myADX = exponentialaverage[p](DX)//wilderAverage[p](DX)

Return myADX as "ADX",plusDI coloured(200,0,0) as "DI+",minusDI coloured(0,200,0) as "DI-"