通达信极品公式（三合一）源码

通达信极品公式（三合一）源码

享一高人的极品公式。用法：柱状线：出现灰色柱子代表即将调整。底部柱状线出现浅紫色代表可以进场。MACD:这个macd比传统的超前，macd分为红蓝两色。庄家抬轿柱子：简单的说出现高度控盘是我们可以放心持股。这三个指标融合在一起最主要的还是看柱状线，柱状线原理是量价关系，柱状线出现灰色最好减仓。觉得好用的给我点果果吧　

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

C/C++ www.zegu.cn 择股网提供 Code复制内容到剪贴板

1. JH:=VOL*CLOSE;   
2. JHO:=SUM(JH,2)/SUM(VOL,2);   
3. JH0:=EMA(JHO,10);   
4. AAA:=(JHO-JH0)*20/JHO;   
5. 超:=STICKLINE(AAA>0 AND AAA>=REF(AAA,1),0,AAA,3,0),COLORLIRED;   
6. 级:=STICKLINE(AAA>0 AND AAA<REF(AAA,1),0,AAA,3,1),COLORLIRED;   
7. 好:=STICKLINE(AAA<0 AND AAA>=REF(AAA,1),0,AAA,3,1),COLORGREEN;   
8. 的:=STICKLINE(AAA<0 AND AAA<REF(AAA,1),0,AAA,3,0),COLORGREEN;   
9. 公:=EMA(IF(AAA>0 AND AAA<REF(AAA,1),0,AAA),3);   
10. 式:=CROSS(REF(公,1),公) AND 公>0;   
11. 谢:=EMA(IF(AAA<0 AND AAA<REF(AAA,1),0,AAA),3);   
12. 了:=CROSS(REF(谢,1),谢) AND 谢<0;   
13. 必买:=CROSS(C,DRAWLINE(HIGH>=HHV(HIGH,30),HIGH,LOW<=LLV(LOW,10),HHV(HIGH,6),1));   
14. WY1001:=(2*CLOSE+HIGH+LOW)/4;    
15. WY1002:=EMA(WY1001,4);    
16. WY1003:=EMA(WY1002,4);    
17. WY1004:=EMA(WY1003,4);    
18. X:=(WY1004-REF(WY1004,1))/REF(WY1004,1)*2000;    
19. X1:=IF(X<REF(X,1),X,DRAWNULL),COLORWHITE,LINETHICK2;   
20. XO:=MA(X,2),COLOR9932CD;   
21. SI:=REF(X,1);   
22. STICKLINE(X>SI,X,SI,2.3,0),COLOR0000FF;   
23. STICKLINE(X>SI,X,SI,0.3,0),COLORCC66FF;   
24. STICKLINE(X<SI,X,SI,2.3,0),COLOR00BB00;   
25. STICKLINE(X<SI,X,SI,0.3,0),COLOR00FF00;   
26. STICKLINE(式,X,SI,2.15,0),COLOR545454;   
27. STICKLINE(了,X,SI,2.15,0),COLORDB7093;   
28.   
29. VAR1:=EMA(EMA(CLOSE,9),9);   
30. 控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;   
31. STICKLINE(控盘<0,控盘,0,3,0),COLORWHITE;   
32. AA1:=CROSS(控盘,0);   
33. 无庄控盘:IF(控盘<0,控盘,0),COLORWHITE,NODRAW;   
34. 轻度控盘:STICKLINE(控盘<0 AND 0.9*控盘>REF(控盘,1),控盘,0,3,0),COLORYELLOW;   
35. 轻度出货:STICKLINE(控盘<0 AND 1.1*控盘<REF(控盘,1),控盘,0,3,0),COLORFFFF79;   
36. 开始控盘:=IF(AA1,5,0),LINETHICK1,COLORYELLOW;   
37.   
38. 有庄控盘:IF(控盘>REF(控盘,1) AND 控盘>0,控盘,0),COLORRED,NODRAW;   
39. STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘,0,3,0),COLORRED;   
40.   
41. VAR2:=100*WINNER(CLOSE*0.95);   
42. 高度控盘:IF(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0),COLORFF00FF,NODRAW;   
43. STICKLINE(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0,3,0),COLORFF00FF;   
44. 主力出货:IF(控盘<REF(控盘,1) AND 控盘>0,控盘,0),COLOR00FF00,NODRAW;   
45. STICKLINE(控盘<1.2*REF(控盘,1) AND 控盘>0,控盘,0,3,0),COLOR00FF00;   
46. DIF1:=EMA(DCLOSE,12)-EMA(DCLOSE,26);   
47. DEA1:=EMA(DIF1,9);   
48. {柱状线}    
49. MACD1:=(DIF1-DEA1)*2*60;   
50. MACD上:IF(MACD1>REF(MACD1,1),MACD1,DRAWNULL),   
51. STICK,COLORRED,LINETHICK1;   
52. MACD下:IF(MACD1<REF(MACD1,1),MACD1,DRAWNULL),   
53. STICK,COLORFF9900,LINETHICK1;   
54. {买点提示}   
55. A1:=BARSLAST(REF(CROSS(DIF1,DEA1),1));   
56. BL:=REF(CLOSE,A1+1)>CLOSE AND DIF1>REF(DIF1,A1+1) AND CROSS(DIF1,DEA1);   
57. {STICKLINE(BL,0,1,2,0),COLOR00FF00;}   
58. 买点:DRAWICON(BL,DEA1,23);   
59. A2:=BARSLAST(REF(CROSS(DEA1,DIF1),1));   
60. DBL:=REF(CLOSE,A2+1)<CLOSE AND REF(DIF1,A2+1)>DIF1 AND CROSS(DEA1,DIF1);   
61. 买点1:DRAWICON(DBL,DEA1,12);    
62. 低位金叉:=CROSS(DIF1,DEA1) AND DIF1<-0.1;   
63. DRAWTEXT(低位金叉,-0.36,' 低位金叉');   
64. JCCOUNT:=COUNT(CROSS(DIF1,DEA1),BARSLAST(DEA1>=0));   
65. 二次金叉:=CROSS(DIF1,DEA1) AND DEA1<0 AND COUNT(JCCOUNT=2,21)=1;   
66. DRAWICON(二次金叉,DEA1*1.04,13) ;   
67. DRAWTEXT(二次金叉,-0.22,' 二次金叉'),COLORFF00FF;   
68. A10:=BARSLAST(REF(CROSS(DIF1,DEA1),1));   
69. 底背离:=REF(CLOSE,A10+1)>CLOSE AND DIF1>REF(DIF1,A10+1) AND CROSS(DIF1,DEA1);   
70. DRAWLINE(A10=0,DEA1,底背离,DEA1,0),COLORRED,LINETHICK2;   
71. DRAWTEXT(底背离,-0.50,' 底背离'),COLOR00FF00;   
72. A20:=BARSLAST(REF(CROSS(DEA1,DIF1),1));   
73. 顶背离:=REF(CLOSE,A20+1)<CLOSE AND REF(DIF1,A20+1)>DIF1 AND CROSS(DEA1,DIF1);   
74. DRAWLINE(A20=0,DEA1,顶背离,DEA1,0),COLORWHITE,LINETHICK2;   
75. {STICKLINE(底背离,X,SI,1,0),COLORYELLOW;}   
76. STICKLINE(低位金叉,X,SI,1,0),COLORWHITE;    
77. STICKLINE(必买,X,(X+SI)/2,2.3,0),COLORFF9900;   
78. STICKLINE(必买,X,(X+SI)/2,0.1,0),COLORWHITE;    
79. STICKLINE(低位金叉 AND 底背离,X,(X+SI)/2,2.3,0),COLORYELLOW;   
80. STICKLINE(低位金叉 AND 底背离,X,(X+SI)/2,0.1,0),COLORCC66FF;   
81. STICKLINE(二次金叉,X,SI,2.0,0),COLORYELLOW;   
82. {主力进场}   
83. VAR12:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);    
84. VAR13:=SMA(ABS(LOW-VAR12),13,1)/SMA(MAX(LOW-VAR12,0),10,1);    
85. VAR14:=EMA(VAR13,10);   
86. VAR15:=LLV(LOW,33);   
87. VAR16:=EMA(IF(LOW<=VAR15,VAR14,0),3);   
88. 主力进场:=IF(VAR16>REF(VAR16,1),VAR16,0),COLORRED,NODRAW;   
89. STICKLINE(主力进场,X,SI,0.1,0),COLORRED;   
90. RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;   
91. K:=SMA(RSV,3,1),COLORWHITE;   
92. D:=SMA(K,3,1),COLORYELLOW;   
93. J:=3*K-2*D,COLORFF00FF;   
94. X3:=LLV(J,2)=LLV(J,8);    
95. A:=250;   
96. JH1:=HHV(MAX(K,MAX(D,J)),A);   
97. DH:=HHV(MAX(DIF1,DEA1),A);   
98. SH:=INTPART(JH1/DH)/2;   
99. DIFF50:=SH*DIF1+50,COLORFFFF00;   
100. DEA50:=SH*DEA1+50,COLORBLUE;   
101. 诱空:=IF(1.5*(DIFF50-DEA50)>0 AND REF(1.5*(DIFF50-DEA50),1)< REF(1.5*(DIFF50-DEA50),2) AND 1.5*(DIFF50-DEA50)>REF(1.5*(DIFF50-DEA50),1),1,0);   
102. 低位:=CROSS(J,REF(J+0.01,1)) AND X3 AND J<19;    
103. MTM:=C-REF(C,1);   
104. DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);   
105. 值:=LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2));   
106. DRAWTEXT(FILTER(诱空,3) AND 诱空,X,'洗盘'),COLOR00FF00;   
107.   

567289598.jpg