[通达信指标/源码] [转载]主力买卖附图

龙听

1. DRAWRECTREL(0,0,400,988,IF(120,RGB(10,0,0),0));
   
2. 超B:=L2_AMO(0,2)/10000.0;
   
3. 大B:=L2_AMO(1,2)/10000.0;
   
4. 中B:=L2_AMO(2,2)/10000.0;
   
5. 小B:=L2_AMO(3,2)/10000.0;
   
6. 超S:=L2_AMO(0,3)/10000.0;
   
7. 大S:=L2_AMO(1,3)/10000.0;
   
8. 中S:=L2_AMO(2,3)/10000.0;
   
9. 小S:=L2_AMO(3,3)/10000.0;
   
10. 主买A:=ACTINVOL,COLORRED,NODRAW;
    
11. 主卖A:=ACTOUTVOL,COLORGREEN,NODRAW;
    
12. 主买:=主买A*100/(主买A+主卖A),NODRAW,COLORRED;
    
13. 主卖:=主卖A*100/(主买A+主卖A),NODRAW,COLORGREEN;
    
14. SAT:=(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20));
    
15. 【量能饱和】:IF(SAT>1,1,SAT)*100,COLORYELLOW,NODRAW;
    
16. 主力净买量:=(LARGEINTRDVOL-LARGEOUTTRDVOL),COLORYELLOW,NODRAW;
    
17. 大宗净流入:=(超B+大B)-(超S+大S),COLORRED,NODRAW;
    
18. 主动买卖差:=(ACTINVOL-ACTOUTVOL),COLORMAGENTA,NODRAW;
    
19. 主力资金差:=((L2_AMO(0,0)+L2_AMO(1,0)-L2_AMO(0,1)-L2_AMO(1,1)))/10000,COLORCYAN,NODRAW;
    
20. DRAWRECTREL(100,0,90+CONST(主买*300/100),40,RGB(230,65,0));
    
21. DRAWRECTREL(100,60,90+CONST(主卖*300/100),100,RGB(0,104,0));
    
22. DRAWRECTREL(100,120,390,160,RGB(0,0,100));
    
23. DRAWRECTREL(100,120,90+CONST(【量能饱和】*300/100),160,RGB(250,104,0));
    
24. 大单动向:=(LARGEINTRDVOL-LARGEOUTTRDVOL)*10000/FINANCE(7),NODRAW;
    
25. T1:=IF (大单动向>0 AND REF(大单动向,1)<0,1,0);
    
26. T2:=IF (大单动向>0 AND REF(大单动向,1)>0 AND REF(大单动向,2)<0,2,T1);
    
27. T3:=IF (大单动向>0 AND REF(大单动向,1)>0 AND REF(大单动向,2)>0 AND REF(大单动向,3)<0,3,T2);
    
28. T4:=IF (大单动向>0 AND REF(大单动向,1)>0 AND REF(大单动向,2)>0 AND REF(大单动向,3)>0 AND REF(大单动向,4)<0,4,T3);
    
29. T5:=IF (大单动向>0 AND REF(大单动向,1)>0 AND REF(大单动向,2)>0 AND REF(大单动向,3)>0 AND REF(大单动向,4)>0 AND REF(大单动向,5)<0,5,T4);
    
30. T6:=IF (大单动向>0 AND REF(大单动向,1)>0 AND REF(大单动向,2)>0 AND REF(大单动向,3)>0 AND REF(大单动向,4)>0 AND REF(大单动向,5)>0 AND REF(大单动向,6)<0,6,T5);
    
31. T7:=IF (大单动向>0 AND REF(大单动向,1)>0 AND REF(大单动向,2)>0 AND REF(大单动向,3)>0 AND REF(大单动向,4)>0 AND REF(大单动向,5)>0 AND REF(大单动向,6)>0 AND REF(大单动向,7)<0,7,T6);
    
32. T8:=IF (大单动向>0 AND REF(大单动向,1)>0 AND REF(大单动向,2)>0 AND REF(大单动向,3)>0 AND REF(大单动向,4)>0 AND REF(大单动向,5)>0 AND REF(大单动向,6)>0 AND REF(大单动向,7)>0 AND REF(大单动向,8)<0,8,T7);
    
33. T9:=IF (大单动向>0 AND REF(大单动向,1)>0 AND REF(大单动向,2)>0 AND REF(大单动向,3)>0 AND REF(大单动向,4)>0 AND REF(大单动向,5)>0 AND REF(大单动向,6)>0 AND REF(大单动向,7)>0 AND REF(大单动向,8)>0 AND REF(大单动向,9)<0,9,T8);
    
34. T:=IF (大单动向>0 AND REF(大单动向,1)>0 AND REF(大单动向,2)>0 AND REF(大单动向,3)>0 AND REF(大单动向,4)>0 AND REF(大单动向,5)>0 AND REF(大单动向,6)>0 AND REF(大单动向,7)>0 AND REF(大单动向,8)>0 AND REF(大单动向,9)>0,10,T9);
    
35. D:=COUNT(大单动向>0,10),NODRAW;
    
36. DRAWTEXT_FIX(1,0.005,0.01,0,STRCAT(STRCAT('【主买比】:      ',CON2STR(主买,1)),'   ％ ')),COLORYELLOW;
    
37. DRAWTEXT_FIX(1,0.005,0.07,0,STRCAT(STRCAT('【主卖比】:      ',CON2STR(主卖,1)),'   ％ ')),COLORGREEN;
    
38. DRAWTEXT_FIX(1,0.005,0.13,0,STRCAT(STRCAT('【量能饱和】:      ',CON2STR(【量能饱和】,1)),'   ％ ')),COLORYELLOW;
    
39. DRAWTEXT_FIX(1,0.005,0.19,0,STRCAT(STRCAT('【主力资金差】: ',CON2STR(主力资金差,1)),' 万元 ')),COLORYELLOW;
    
40. DRAWTEXT_FIX(1,0.2,0.19,0,STRCAT(STRCAT('【大宗净流入】: ',CON2STR(大宗净流入,1)),' 万元 ')),COLORYELLOW;
    
41. DRAWTEXT_FIX(1,0.005,0.25,0,STRCAT(STRCAT('【主力净买量】: ',CON2STR(主力净买量,1)),' 手')),COLORYELLOW;
    
42. DRAWTEXT_FIX(1,0.2,0.25,0,STRCAT(STRCAT('【主动买卖差】: ',CON2STR(主动买卖差,1)),' 手')),COLORYELLOW;
    
43. DRAWTEXT_FIX(1,0.005,0.31,0,STRCAT(STRCAT('【DDX 连 红 天 数】: ',CON2STR(T,0)),' 天 ')),COLORYELLOW;
    
44. DRAWTEXT_FIX(1,0.2,0.31,0,STRCAT(STRCAT('【DDX两周红天数】: ',CON2STR(D,0)),' 天 ')),COLORYELLOW;
    
45. 
    
46. PJJ:=DMA((((HIGH + LOW) + (CLOSE * 2)) / 4),0.9);
    
47. JJ:=REF(EMA(PJJ,3),1);
    
48. QJJ:=(VOL / (((HIGH - LOW) * 2) - ABS((CLOSE - OPEN))));
    
49. XVL:=(IF((CLOSE > OPEN),(QJJ * (HIGH - LOW)),IF((CLOSE < OPEN),(QJJ * ((HIGH - OPEN) + (CLOSE - LOW))),(VOL / 2))) + IF((CLOSE > OPEN),(0 - (QJJ * ((HIGH - CLOSE) + (OPEN - LOW)))),IF((CLOSE < OPEN),(0 - (QJJ * (HIGH - LOW))),(0 - (VOL / 2)))));
    
50. ZLL:=(VOL / CAPITAL);
    
51. HSL1:=IF((ZLL > 10),10,ZLL);
    
52. HSL:=((XVL / 20) / 1.15);
    
53. 攻击流量:=(((HSL * 0.55) + (REF(HSL,1) * 0.33)) + (REF(HSL,2) * 0.22));
    
54. GJJ:=EMA(攻击流量,8);
    
55. LLJX:=EMA(攻击流量,3);
    
56. STICKLINE(((HSL * 0.4) >= 0),((HSL * 0.4) +LLJX),0,3,0),COLOR00FFFF;
    
57. STICKLINE(((HSL * 0.4) < 0),((HSL * 0.4) +LLJX),0,3,0),COLOR00FF00;
    
58. 
    
59. 资金流入:=IF((HSL*0.4+LLJX)>0,(HSL*0.4+LLJX),DRAWNULL),COLORRED;
    
60. 资金流出:=IF((HSL*0.4+LLJX)<0,(HSL*0.4+LLJX),DRAWNULL),COLOR00FF00;
    
61. 
    
62. 资金进出:=(HSL*0.4+LLJX),LINETHICK0;
    
63. 万元:=AMOUNT/10000{0000},VOLSTICK,COLORFF00FF;
    
64. 资金净进出:IF((HSL*0.4+LLJX)>0,资金流入,资金流出),COLORWHITE,POINTDOT;
    
65. 进出比例%:IF((HSL*0.4+LLJX)>0,资金流入/万元*100,资金流出/万元*100),COLORYELLOW;
    
66. 
    
67. 
    
68. 
    
69. 连红天1:=BARSLASTCOUNT(资金净进出>0),,COLORA20FFD,NODRAW;
    
70. 连红天2:=IF(连红天1=0,REF(连红天1,1),连红天1),,COLORA20FFD,NODRAW;
    
71. 连红天3:=IF(连红天2=0,REF(连红天1,2),连红天2),,COLORA20FFD,NODRAW;
    
72. 连红天4:=IF(连红天3=0,REF(连红天1,3),连红天3),,COLORA20FFD,NODRAW;
    
73. 近期连红天:IF(连红天4=0,REF(连红天1,4),连红天4),,COLORYELLOW,NODRAW;
    
74. 最多连红天1:=MAX(REF(近期连红天,1),近期连红天),COLORYELLOW,NODRAW;
    
75. 最多连红天2:=MAX(最多连红天1,REF(近期连红天,2)),COLORYELLOW,NODRAW;
    
76. 最多连红天3:=MAX(最多连红天2,REF(近期连红天,3)),COLORYELLOW,NODRAW;
    
77. 最多连红天4:=MAX(最多连红天3,REF(近期连红天,4)),COLORYELLOW,NODRAW;
    
78. 最多连红天5:=MAX(最多连红天4,REF(近期连红天,5)),COLORYELLOW,NODRAW;
    
79. 最多连红天:MAX(最多连红天5,REF(近期连红天,6)),COLORYELLOW,NODRAW;
    
80. 
    
81. 
    
82. 三日资金:SUM(资金进出,3),COLORWHITE,NODRAW;
    
83. 五日资金:SUM(资金进出,5),COLORFF00FF,NODRAW;
    
84. 十日资金:SUM(资金进出,10),COLOR0000FF,NODRAW;
    
85. 
    
86. 资金流量:=LLJX,LINETHICK0,COLOR0000FF;
    
87. STICKLINE((资金流量 > 0),资金流量,0,3,0),COLOR0000FF;
    
88. STICKLINE((资金流量 < 0),资金流量,0,3,0),COLORFF3300;
    
89. 
    
90. 黄柱初出蓝:=REF(资金流出,1)<0 AND 资金流入>30 AND C>O AND C>REF(C,1) AND C>MA(C,3);
    
91. 
    
92. X:=(3*C+2*L+O+H)/7;
    
93. 多空线:=(20*X+19*REF(X,1)+18*REF(X,2)+17*REF(X,3)+16*REF(X,4)+15*REF(X,5)+14*REF(X,6)
    
94. +13*REF(X,7)+12*REF(X,8)+11*REF(X,9)+10*REF(X,10)+9*REF(X,11)+8*REF(X,12)
    
95. +7*REF(X,13)+6*REF(X,14)+5*REF(X,15)+4*REF(X,16)+3*REF(X,17)+2*REF(X,18)+
    
96. REF(X,20))/210;
    
97. 长黄柱:= 资金流入>300 AND CROSS(C,多空线);
    
98. DRAWTEXT(黄柱初出蓝,-30,'★'),COLORFF00FF;
    
99. DRAWTEXT(长黄柱 ,((HSL * 0.4) * 1.5)*1.4 ,'★'),COLORRED;

复制代码

下载 (245.56 KB)

2018-10-20 09:08