通达信一根线搞定DMI指标公式源码副图

来函数检测结果如下：
该公式没有未来函数

MTR:=EXPMEMA(MAX(MAX(HIGH-LOW,Abs(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),14);

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

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

DMP:=EXPMEMA(IF(HD>0&&HD>LD,HD,0),14);

DMM:=EXPMEMA(IF(LD>0&&LD>HD,LD,0),14);

PDI:= DMP*100/MTR;

mdi:= DMM*100/MTR;

DM:=PDI-MDI,NODRAW;

TRR1:=EMA(MAX(MAX(H-L,ABS(H-REF(C,1))),ABS(REF(C,1)-L)),14);

DMP1:=EMA(IF(HD>0 && HD>LD,HD,0),14);

DMM1:=EMA(IF(LD>0 && LD>HD,LD,0),14);

ADX0:=EMA((DMP1-DMM1)/(DMP1+DMM1)*100,6);

ADXR0:=EMA(ADX0,6);

PDI1:=DMP1/TRR1*100;

MDI1:=DMM1/TRR1*100;

DM1:=PDI1-MDI1;

AAJ:=(3*ADX0-2*ADXR0);

MAAD:=(ADX0-ADXR0),NODRAW;

ADX:=EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,6),COLORFF00FF;

ADXR:EXPMEMA(ADX,6),POINTDOT,LINETHICK7,COLORGREEN;

IF(DM>0,ADXR,DRAWNULL),POINTDOT,LINETHICK7,COLORRED;

助涨:DRAWICON(DM>0 AND ADX>ADXR AND ADX>20,ADXR,15);

助跌:DRAWICON(DM<0 AND ADX>ADXR AND ADX>20,ADXR,12);

DRAWICON(crOSS(ADXR0,ADX0) AND ADXR0>60 ,ADXR*1.2,8);

DRAWICON(CROSS(ADXR0,ADX0) AND ADXR0<60 ,ADXR*1.4,2);

20,COLORYELLOW,DOTLINE;

60,COLORGREEN,DOTLINE;

原理解析：
MTR赋值:EXPMEMA(MAX(MAX(最高价-最低价,最高价-1日前的收盘价的绝对值),ABS(1日前的收盘价-最低价)),14)
HD :=最高价-1日前的最高价
LD :=1日前的最低价-最低价
如果HD>0&&HD>LD返回HD否则返回0
如果LD>0&&LD>HD返回LD否则返回0
PDI赋值: DMP*100/MTR
MDI赋值: DMM*100/MTR
DM赋值:PDI-MDI,NODRAW
TRR1赋值:EMA(MAX(MAX(H-L,H-1日前的C的绝对值),ABS(1日前的C-L)),14)
如果HD>0 && HD>LD返回HD否则返回0
如果LD>0 && LD>HD返回LD否则返回0
ADX0赋值:EMA((DMP1-DMM1)/(DMP1+DMM1)*100,6)
ADXR0赋值:ADX0的6日指数移动平均
PDI1:=DMP1/TRR1*100
MDI1:=DMM1/TRR1*100
DM1:=PDI1-MDI1
AAJ赋值:(3*ADX0-2*ADXR0)
MAAD赋值:(ADX0-ADXR0),NODRAW
ADX赋值:EXPMEMA(MDI-PDI的绝对值/(MDI+PDI)*100,6),COLORFF00FF
ADXR:EXPADX的6日平滑移动平均,POINTDOT,LINETHICK7,画绿色
如果DM>0返回ADXR否则返回DRAWNULL
当满足条件DM>0 AND ADX>ADXR AND ADX>20时,在ADXR和15之间画图标
当满足条件DM<0 AND ADX>ADXR AND ADX>20时,在ADXR和12之间画图标
DRAWICON(ADXR0上穿ADX0 AND ADXR0>60 ,ADXR*1.2,8)
DRAWICON(ADXR0上穿ADX0 AND ADXR0<60 ,ADXR*1.4,2)
20,画黄色,DOTLINE
60,画绿色,DOTLINE