[通达信指标/源码] [转载]成交量【大鹅专用版】（源码）

交易规则
1、主动买卖区分：当天收市价高过昨日收市价，成交量画红色实体加绿色实体（红色为当天主动买入量，绿色为当天主动卖出量）；如果当天收市价低于昨天收市价则画绿色实体加红色实体
如果当天收市价低于昨天收市价则画蓝色实体加红色实体（红色为当天主动买入量，蓝色为当天主动卖出量）
3、均换手%表示近阶段周期内平均换手率。
2、在成交量柱体中心如果看到暗红色竖线为成交资金异动。
4、MA5是5日的量能值，MA55是55日的量能值，ma5和ma55金叉在成交量柱状提上用图标标示。

其中 主动买入 与 主动卖出 是载自见凌见之指标

1. 均换手率:MA(VOL/CAPITAL*100,5),COLORFFFFFF,NODRAW;
   
2. 虚拟成交量:IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*210/FROMOPEN,DRAWNULL),NODRAW;
   
3. STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,虚拟成交量,0,2,-1),COLOR00C0C0;
   
4. 总量:VOL,NODRAW;
   
5. TJ1:=H=L AND C>REF(C,1) OR C>REF(C,5) OR C>REF(C,9) OR C>REF(C,17);
   
6. TJ2:=H=L AND C<REF(C,1) OR C<REF(C,5) OR C<REF(C,9) OR C<REF(C,17);
   
7. EE:=IF(TJ1,0.0001,IF(TJ2,-0.0001,0)){对付一字涨停，并求极限};
   
8. JGL_DTC:=(C-OPEN+EE)/(2*(H-L)+ABS(C-O)+3*0.0001);
   
9. 主买:VOL*(1+JGL_DTC)/2,COLORRED,NODRAW{主动买};
   
10. 主卖:VOL*(1-JGL_DTC)/2,COLORFFFF80,NODRAW{主动卖};
    
11. MAVOL1:MA(V,5)COLORWHITE;
    
12. MAVOL2:MA(V,55)COLORYELLOW;
    
13. MAVOL3:MA(V,135)COLORGREEN;
    
14. DG1:=(CROSS(MAVOL1,MAVOL2));DG2:=(CROSS(MAVOL1,MAVOL3));
    
15. DRAWICON(DG1,VOL*1.05,1);
    
16. DRAWICON(DG2,VOL*1.1,13);
    
17. STICKLINE(C>=REF(C,1) AND MAVOL1<MAVOL3 AND V<MAVOL1,VOL,0,7,0),COLOR333333;
    
18. STICKLINE(C<REF(C,1)  AND MAVOL1<MAVOL3 AND V<MAVOL1,VOL,0,7,0),COLOR333333;
    
19. STICKLINE(IF(BARSCOUNT(C)=1,C<O,C<REF(C,1)),0,VOL,2,0),COLOR880000;
    
20. STICKLINE(IF(BARSCOUNT(C)=1,C<O,C<REF(C,1)),0,VOL,1,0),COLORBB0000;
    
21. STICKLINE(IF(BARSCOUNT(C)=1,C<O,C<REF(C,1)),0,VOL,0.5,0),COLORDD0000;
    
22. STICKLINE(IF(BARSCOUNT(C)=1,C<O,C<REF(C,1)),0,VOL,0.25,0)COLORFF0000;
    
23. STICKLINE(IF(BARSCOUNT(C)=1,C>=O,C>=REF(C,1)),0,VOL,2,0),COLOR008800;
    
24. STICKLINE(IF(BARSCOUNT(C)=1,C>=O,C>=REF(C,1)),0,VOL,1,0),COLOR00AA00;
    
25. STICKLINE(IF(BARSCOUNT(C)=1,C>=O,C>=REF(C,1)),0,VOL,0.5,0),COLOR00DD00;
    
26. STICKLINE(IF(BARSCOUNT(C)=1,C>=O,C>=REF(C,1)),0,VOL,0.25,0),COLOR00FF00;
    
27. STICKLINE(主买>0,0,主买,2,0),COLOR000088;
    
28. STICKLINE(主买>0,0,主买,1,0),COLOR0000AA;
    
29. STICKLINE(主买>0,0,主买,0.5,0),COLOR0000DD;
    
30. STICKLINE(主买>0,0,主买,0.25,0),COLOR0000FF;
    
31. IF(VOL/MA(VOL,60)*100>100,VOL,VOL/0),STICK,COLORWHITE;
    
32. 量增价平转阳:=VOL>REF(V,1) AND ABS(C-REF(C,1))/REF(C,1)<=0.005;
    
33. 量增价升买入:=VOL>REF(V,1) AND C>REF(C,1);
    
34. 量平价升续买:=ABS(VOL-REF(VOL,1))/REF(VOL,1)<=0.05 AND C>REF(C,1);
    
35. 量减价升持有:=VOL<REF(V,1) AND C>REF(C,1);
    
36. 量减价平警戒:=VOL<REF(V,1) AND ABS(C-REF(C,1))/REF(C,1)<=0.005;
    
37. 量减价跌卖出:=VOL<REF(V,1) AND C<REF(C,1);
    
38. 量平价跌续卖:=ABS(VOL-REF(VOL,1))/REF(VOL,1)<=0.05 AND C<REF(C,1);
    
39. 量增价跌弃卖:=VOL>REF(V,1) AND C<REF(C,1);
    
40. 量梯级递增上:=VOL>REF(V,1) AND REF(V,1)>REF(VOL,2);
    
41. 量梯级递减下:=VOL<REF(V,1) AND REF(V,1)<REF(VOL,2);
    
42. ZGD:=HHV(V,80)*1;
    
43. ZGD2:=CONST(ZGD);
    
44. 情况1:=CONST(IF(量增价平转阳,1,0));
    
45. 情况2:=CONST(IF(量增价升买入,1,0));
    
46. 情况3:=CONST(IF(量平价升续买,1,0));
    
47. 情况4:=CONST(IF(量减价升持有,1,0));
    
48. 情况5:=CONST(IF(量减价平警戒,1,0));
    
49. 情况6:=CONST(IF(量减价跌卖出,1,0));
    
50. 情况7:=CONST(IF(量平价跌续卖,1,0));
    
51. 情况8:=CONST(IF(量增价跌弃卖,1,0));
    
52. 情况9:=CONST(IF(量梯级递增上,1,0));
    
53. 情况10:=CONST(IF(量梯级递减下,1,0));
    
54. DRAWTEXT(情况1=1   AND CURRBARSCOUNT=60,ZGD2-(ZGD2*0.1),'量增价平'),COLORMAGENTA;
    
55. DRAWTEXT(情况2=1   AND CURRBARSCOUNT=60,ZGD2-(ZGD2*0.4),'量增价升'),COLORMAGENTA;
    
56. DRAWTEXT(情况3=1   AND CURRBARSCOUNT=60,ZGD2-(ZGD2*0.2),'量平价升'),COLORMAGENTA;
    
57. DRAWTEXT(情况4=1   AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.3),'量减价升'),COLORMAGENTA;
    
58. DRAWTEXT(情况5=1   AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.1),'量减价平'),COLORMAGENTA;
    
59. DRAWTEXT(情况6=1   AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.3),'量减价跌'),COLORMAGENTA;
    
60. DRAWTEXT(情况7=1   AND CURRBARSCOUNT=60,ZGD2-(ZGD2*0.2),'量平价跌'),COLORMAGENTA;
    
61. DRAWTEXT(情况8=1   AND CURRBARSCOUNT=60,ZGD2-(ZGD2*0.4),'量增价跌'),COLORMAGENTA;
    
62. DRAWTEXT(情况9=1   AND CURRBARSCOUNT=60,ZGD2-(ZGD2*0.5),'量梯递增'),COLORMAGENTA;
    
63. DRAWTEXT(情况10=1   AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.5),'量梯递减'),COLORMAGENTA;

复制代码

下载 (501.3 KB)

2018-10-11 14:08

  

下载 (417.65 KB)

2018-10-11 14:08