通达信DMI多头副图指标 源码

N:=14;M:=6;
 TRTR:=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/TRTR,COLORRED;
 MDI: DMM*100/TRTR,COLORLIBLUE;
 ADX: EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,M),COLORYELLOW;
 {ADXR:EXPMEMA(ADX,M);};
 XX1:=EXIST(CROSS(PDI,MDI),2);
 XX2:=EXIST(CROSS(ADX,MDI),2);
 DRAWICON(XX1 AND XX2,ADX,1);
 STICKLINE(CROSS(PDI,MDI) AND CROSS(PDI,ADX),ADX*0.5,ADX*1.5,2,0),COLORRED;
 PDI是多头:PDI,NODRAW;
 10,POINTDOT,COLORLIBLUE;
 75,POINTDOT,COLORRED;
 XG:IF(ADX>55 AND ADX<65 AND C<REF(C,1) AND C>O,50,0);