通达信DMI新编代替MACD副图效果不错，背离明显源码

 通达信DMI新编代替MACD副图效果不错，背离明显源码

牛牛指标网提供：www.tdx001.com}

复制内容到剪贴板

1. {DMI新编}    
2. N:=21;M:=6;M1:=20;   
3. TR1:=EMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N);   
4. HD :=HIGH-REF(HIGH,1);   
5. LD :=REF(LOW,1)-LOW;   
6. DMP:=EMA(IF(HD>0 AND HD>LD,HD,0),N);   
7. DMM:=EMA(IF(LD>0 AND LD>HD,LD,0),N);   
8. PDI:= DMP*100/TR1;   
9. MDI:= DMM*100/TR1;   
10. ADX: EMA((PDI-MDI)/(MDI+PDI)*100,M)*2;   
11. ADXR:EMA(ADX,M);   
12. ADMA:EMA(ADX,M1);   
13. OMD:(ADX-2*ADMA+ADXR)/2, COLORSTICK;   
14. DRAWBAND(ADX,RGB(155,50,50),ADXR,RGB(0,100,50));   
15. STICKLINE(OMD>REF(OMD,1) AND OMD>0,0,OMD,1,0),COLORRED;   
16. STICKLINE(OMD>REF(OMD,1) AND OMD<0,0,OMD,1,0),COLORGREEN;   
17. STICKLINE(OMD<REF(OMD,1),0,OMD,1,0),COLORCBCBC0;   
18. STICKLINE(OMD>=0 OR OMD<=0,0,0,50,1),COLORWHITE;   
19. ADX1:ADX,COLORRED;   
20. ADXR1:ADXR,COLORGREEN;   
21. ADMA1:ADMA;   
22. 强:IF(ADX1>=ADXR1,ADX1,DRAWNULL),COLORRED,LINETHICK3;   
23. 买入:IF(OMD>0 AND OMD-REF(OMD,1)>0,30,0);   
24. {OMD;}   
25. 110;   
26. 0;   
27. -110;   

A973740834.jpg