MALEN:=3;

MAHV:=SMA(HIGH,MALEN,1);

MALV:=SMA(LOW,MALEN,1);

MAMV:=(MAHV + MALV)/2;

UPPERV:=HHV(MAHV,60);

LOWERV:=LLV(MALV,60);

MIDDLEV:=(UPPERV + LOWERV)/2;

N := 19;

MM:=6;

TR := MA(SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),N),3);

HD := HIGH-REF(HIGH,1);

LD := REF(LOW,1)-LOW;

DMP:= SUM(IFELSE(HD>0 && HD>LD,HD,0),N);

DMM:= SUM(IFELSE(LD>0 && LD>HD,LD,0),N);

PDI: DMP*100/TR,COLORRED;

MDI: DMM*100/TR,COLORGREEN;

ADX:=EMA(ABS(MDI-PDI)/(MDI+PDI)*100,MM);

IF(ADX>=25,ADX,DRAWNULL),COLORRED,LINETHICK2;

UP:ADX>25 AND PDI>MDI AND MAMV>REF(MAMV,1);

DOWN:ADX>25 AND PDI<MDI AND MAMV<REF(MAMV,1);