通达信指标改编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;