TR1:=EXPMEMA(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:=EXPMEMA(IF(HD>0 AND HD>LD,HD,0),N);
DMM:=EXPMEMA(IF(LD>0 AND LD>HD,LD,0),N);
PDI:DMP*100/TR;
MDI:DMM*100/TR;
ADX:EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,M);
ADXR:EXPMEMA(ADX,M);
A:=CROSS(ADX,ADXR);
B:=CROSS(ADXR,ADX);
DRAWTEXT(A,ADX,'金叉'),COLORRED;
DRAWTEXT(B,ADXR,'死叉'),COLORWHITE;
D:=CROSS(PDI,MDI);
E:=CROSS(MDI,PDI);
DRAWTEXT(D,PDI,'D');
DRAWTEXT(E,MDI,'E');
