[通达信指标/源码] [转载]通达信【BOLL-金】副图

【注意】---------------你的【通达信版本】必需能够用函数 WMA. 和 DRAWGBK(O>C,RGB(40,0,40),RGB(0,50,40),0,'01',0);否侧你就得提高你的版本--------
公式源码下：---------------------------------------------

1. {BOLL-金F}
   
2. DRAWGBK(O>C,RGB(40,0,40),RGB(0,50,40),0,'01',0);
   
3. {1.重心线}
   
4. HH:=HHV(H,3);LL:=LLV(L,3);
   
5. ZXC:=WMA((2*C+HH+LL)/4,4);
   
6. ZXO:=REF(ZXC,1);
   
7. ZXC,COLOR00FF00,LINETHICK2;
   
8. 
   
9. IF(ZXC>REF(ZXC,1),ZXC,DRAWNULL),COLORRED,LINETHICK3;
   
10. {2.重心K线--------可以加减大括弧-------}
    
11. STICKLINE(ZXO>=ZXC,ZXO,ZXC,3,0 ),COLOR003300;
    
12. STICKLINE(ZXO>=ZXC,ZXO,ZXC,2,0 ),COLOR005500;
    
13. STICKLINE(ZXO>=ZXC,ZXO,ZXC,1,0 ),COLOR007700;
    
14. STICKLINE(ZXO>=ZXC,ZXO,ZXC,0.5,0 ),COLOR009900;
    
15. 
    
16. STICKLINE(ZXO
    
17. STICKLINE(ZXO
    
18. STICKLINE(ZXO
    
19. STICKLINE(ZXO
    
20. {3.BOLL-金}
    
21. MID:MA(ZXC,18),COLOR00FFFF,DOTLINE;
    
22. UPPER:MID + 1.8*STD(ZXC,18),COLORFF66FF;
    
23. LOWER:MID - 1.8*STD(ZXC,18),COLORFF9900;
    
24. {4.高抛.低吸}
    
25. RC:=(H+L+C*2)/4;
    
26. R2D:=WMA(RC,27);
    
27. R2E:=STD(RC,27);
    
28. R3F:=(RC-R2D)/R2E*100;
    
29. R40:=WMA(R3F,3);
    
30. R41:=WMA(R40,3);
    
31. JD:=WMA(R41,2);
    
32. AJ:=3*R41-2*JD;
    
33. DRAWTEXT(CROSS(AJ,JD) ,L-0.2,'←买呗'),COLOR00FFFF,LINETHICK2;
    
34. DRAWTEXT(CROSS(JD,AJ) ,H+0.2,'←跑哇'),COLOR00FFFF,LINETHICK2;

复制代码

下载 (242.95 KB)

2018-10-19 15:57