INPUT:N(21),M(6),M1(20);
TR1:=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/TR1;
MDI:= DMM*100/TR1;
ADX: EMA((PDI-MDI)/(MDI+PDI)*100,M)*2,LINETHICK1,COLOR000099;
ADXR:EMA(ADX,M),LINETHICK0,Color008000;
ADMA:EMA(ADX,M1),LINETHICK1,COLORCCCCCC,LAYER0;
OMD:(ADX-2*ADMA+ADXR)/2,LINETHICK0;
PARTLINE(110,1),ColorA6A600,LAYER0;
PARTLINE(0,1),Color008080,LAYER0;
PARTLINE(-110,1),ColorA6A600,LAYER0;
FILLRGN(ADX,ADXR,ADX =ADXR),Color000044;
FILLRGN(ADX,ADXR,ADX ADXR),Color004400;
STICKLINE(OMD REF(OMD,1) AND OMD 0,0,OMD,4,0),COLOR4444FF;
STICKLINE(OMD REF(OMD,1) AND OMD 0,0,OMD,4,0),COLORFF33FF;
STICKLINE(OMD REF(OMD,1),0,OMD,4,0),COLOR66CC66;
PARTLINE(ADX,ADX =ADXR),COLOR0000CC,LINETHICK1;
PARTLINE(ADX,ADX ADXR),COLOR008800,LINETHICK1;
