通达信指标改编DMI副图源码

以下是通达信指标改编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,COLORRED;

MDI: DMM*100/MTR,COLORGREEN;

DRAWBAND(PDI,RGB(255,0,0),MDI,RGB(0,55,250));

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

ADXR:=EXPMEMA(ADX,6);

STICKLINE(PDI,PDI,0,0.00001,0),COLORRED;

20,DOTLINE;

40,DOTLINE;

{IF(PDI< REF(PDI,1),PDI,DRAWNULL),COLORCYAN;}

STICKLINE(CROSS(20,PDI),PDI,0,0.0001,0),COLORGREEN;

STICKLINE(CROSS(PDI,20),0,PDI,0.0001,0),COLORYELLOW;

上穿: CROSS(PDI,MDI),COLORRED,NODRAW;

下穿: CROSS(MDI,PDI),COLORCYAN,NODRAW;

DRAWICON(上穿,PDI,25);

DRAWICON(下穿,PDI,24);

顶: PDI> 40,COLORWHITE,NODRAW;

底: MDI> 40,COLORCYAN,NODRAW;

STICKLINE(PDI> 40,40,PDI,1,0),COLORWHITE;

STICKLINE(MDI> 40,0,PDI,1,0),COLORCYAN;