以下是通达信dmi改进公式源码（无源码的请下载附件导入）

dmi上的改进，源码：
 {公式在线提供：www.gszx.com.cn}
 

TR:=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/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=1,ADX,'金叉'),COLORRED;
 DRAWTEXT(B=1,ADXR,'死叉'),COLORWHITE;
 D:=CROSS(PDI,MDI);
 E:=CROSS(MDI,PDI);
 DRAWTEXT(D=1,PDI,'D');
 DRAWTEXT(E=1,MDI,'E');