N:=13;
MM:=5;
MTR:=EMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N);
HD :=HIGH-REF(HIGH,1);
LD :=REF(LOW,1)-LOW;
DMP:=EMA(IF(HD>0 AND HD>LD,HD,0),N);
DMM:=EMA(IF(LD>0 AND LD>HD,LD,0),N);
PDI:=DMP*100/MTR;
MDI:=DMM*100/MTR;
ADX: EMA(ABS(MDI-PDI)/(MDI+PDI)*100,MM),COLORRED;
ADXR:EMA(ADX,MM),COLOR00FF00;
DMP2:=EMA(IF(HD>0 AND HD>LD,HD,0),26);
DMM2:=EMA(IF(LD>0 AND LD>HD,LD,0),26);
PDI2:=DMP2*100/MTR;
MDI2:=DMM2*100/MTR;
MA1:MA(PDI2,5),COLORYELLOW;
MA2:MA(MDI2,5),COLORWHITE;
