通达信DMI优化源码副图

N:=14;
 MM:=4;{可以自行修改，通达信里面的是6}

MTR:=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&&HD>LD,HD,0),N);
 DMM:=EXPMEMA(IF(LD>0&&LD>HD,LD,0),N);
 PDI: DMP*100/MTR,LINETHICK1,COLORWHITE;
 MDI: DMM*100/MTR,LINETHICK1,COLORYELLOW;
 IF(PDI>=MDI, PDI,DRAWNULL),LINETHICK2,COLORRED;

ADX:= EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,MM),COLORMAGENTA, ;
 ADXX:= EXPMEMA( (MDI-PDI)/(MDI+PDI)*100,MM),COLORMAGENTA, ;
 ADXXX:REVERSE(ADXX),COLORMAGENTA, ;

ADXR:=EXPMEMA(ADX,MM),COLORGREEN,DOTLINE;
 ADXRR:=EXPMEMA(ADXX,MM),COLORGREEN,DOTLINE;
 ADXRRR:REVERSE(ADXRR),COLORGREEN, ;
 DRAWBAND(REVERSE(ADXX),RGB(250,150,0),REVERSE(ADXRR),RGB(0,150,250));