通达信量能买卖指标主动买、主卖、持币、持股 源码

 通达信量能买卖指标主动买、主卖、持币、持股 源码

{牛牛指标网提供：www.tdx001.com}复制内容到剪贴板

1. 万手:VOL/10000,LINETHICK0,NODRAW;   
2. AA:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL);   
3. 预测:AA/10000;   
4. STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,AA,0,3,1),COLORYELLOW;   
5. BB:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));   
6. 主动买:=IF(CLOSE>OPEN,BB*(HIGH-LOW),IF(CLOSE<OPEN,   
7. BB*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2));   
8. 主买:主动买/10000,COLORRED,NODRAW;   
9. 主动卖:=IF(CLOSE>OPEN,0-BB*((HIGH-CLOSE)+(OPEN-LOW)),   
10. IF(CLOSE<OPEN,0-BB*(HIGH-LOW),0-VOL/2));   
11. 主卖:-主动卖/10000,COLORGREEN,NODRAW;   
12. 差额:(主动买+主动卖)/10000,NODRAW;   
13. CC:=(2*C+H+L)/4;   
14. STICKLINE(CC>REF(CC,1),0,VOL,2,DRAWNULL),COLORRED;   
15. STICKLINE(CC<REF(CC,1),0,VOL,2,DRAWNULL),COLORCYAN;   
16. STICKLINE(CC=REF(CC,1),0,VOL,2,DRAWNULL),COLORWHITE;   
17. {STICKLINE(C>-1,0,VOL,3,1),COLORRED;   
18. STICKLINE(C<O ,0,VOL,3,1),COLORFFFF00;   
19. STICKLINE(C=O AND C<REF(C,1),0,VOL,2,1),COLORFFFF00;   
20. STICKLINE(C=O AND C>REF(C,1),0,VOL,2,1),COLORRED;}   
21. STICKLINE(主动买>0,0,主动买,1,0),COLOR0000FF;   
22. STICKLINE(主动卖<0,VOL,主动买,1,0),COLOR00FF00;   
23. 持币:IF(SAR(10,2,20)>=H,SAR(10,2,20),DRAWNULL),CIRCLEDOT,COLORGREEN;   
24. 持股:IF(SAR(10,2,20)<=L,SAR(10,2,20),DRAWNULL),CIRCLEDOT,COLORMAGENTA;   
25. 五日: MA(V,5) COLORFFFFFF LINETHICK2;    
26. 三十四日: MA(V,34) COLORFF80FF LINETHICK2;   
27. 一百四十四日: MA(V,144) COLOR00FFFF LINETHICK1;　  

1672015374.jpg