ADX / ADXR Custom (without rounding)

ADX / ADXR Custom (without rounding)
Here are custom ADX and ADXR formulas that will plot the characters Mon calculation. Built-in indicators plot exactly as Welles Wilder's Land in his book, New Concepts in Technical Trading Systems. These custom indicators are calculated the same way, except they are not round as Wilder does.
ADX Custom
Periods: = Input ("periods", 1,100,14);
PlusDM: If = (H> Ref (H, -1) and L> Ref = (L, -1), X-Ref (H, -1), If (H> Ref (H, -1) and L < , Ref (L, -1)
AND H-Ref (H, -1)> Ref (L, -1)-L, H-Ref (H, -1), 0));
PlusDI: = 100 * Wilders (PlusDM, periods) / ATR (period);
MinusDM: If = (L <Ref (L, -1) and h <= Ref (H, -1), Ref (L, -1)-L, If (H> Ref (H, -1) and L < Ref (L, -1)
AND H-Ref (H, -1) <Ref (L, -1)-L, Ref (L, -1)-L, 0));
MinusDI: = 100 * Wilders (MinusDM, periods) / ATR (period);
DIDif: = ABS (PlusDI-MinusDI);
DISum: PlusDI => MinusDI;
ADXFinal: = 100 * Wilders (DIDif / DISum, periods);
ADXFinal
Custom ADXR
Periods: = Input ("periods", 1,100,14);
PlusDM: If = (H> Ref (H, -1) and L <= Ref (L, -1), X-Ref (H, -1), If (H> Ref (H, -1) and L < Ref (L, -1)
AND H-Ref (H, -1)> Ref (L, -1)-L, H-Ref (H, -1), 0));
PlusDI: = 100 * Wilders (PlusDM, periods) / ATR (period);
MinusDM: If = (L <Ref (L, -1) and h <= Ref (H, -1), Ref (L, -1)-L, If (H> Ref (H, -1) and L < Ref (L, -1)
AND H-Ref (H, -1) <Ref (L, -1)-L, Ref (L, -1)-L, 0));
MinusDI: = 100 * Wilders (MinusDM, periods) / ATR (period);
DIDif: = ABS (PlusDI-MinusDI);
DISum: PlusDI => MinusDI;
ADXFinal: = 100 * Wilders (DIDif / DISum, periods);
ADXRCustom: = (ADXFinal + Ref (ADXFinal, LastValue (1st period))) / 2;
ADXRCustom