通达信绚丽DMI副图指标源码
通达信绚丽DMI副图指标源码
{股海网提供：www.guhai.com.cn}
副图指标源码：
复制内容到剪贴板
- N: 2,90,14 M:2,10,6
- 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;
- STICKLINE(PDI>=MDI,PDI,MDI,2,1),COLOR0000EE;
- STICKLINE(PDI<MDI,PDI,MDI,2,1),COLOR33AA33;
- ADX:= EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,M);
- ADXR:=EXPMEMA(ADX,M);
- STICKLINE(ADX>=ADXR,ADX,ADXR,1,0),COLORF580F5;
- STICKLINE(ADX<ADXR,ADX,ADXR,1,0),COLORCCDD66;
- IF(ADX>=ADXR,100,DRAWNULL),COLORF580F5,LINETHICK8;
- IF(ADX<ADXR,100,DRAWNULL),COLORCCDD66,LINETHICK6;
- IF(PDI>=MDI,0,DRAWNULL),COLOR0000EE,LINETHICK8;
- IF(PDI<MDI,0,DRAWNULL),COLOR33AA33,LINETHICK6;
- PDI指示:PDI,POINTDOT;
- MDI指示:MDI,POINTDOT;
- ADX指示:ADX,POINTDOT;
- ADXR指示:ADXR,POINTDOT;
- 关注线:50,COLORF0F000,POINTDOT;
