黄金线+均线+攻防线 (K线在最前面)通达信 源码

英雄无奈

谢谢提供，学习了

苦学多练

周两市资金累计净流出26.7亿

潜伏在黑夜

1. PJCB:=(H+L+O+C)/4;
   
2. MA250:MA(PJCB,250),COLORBROWN LINETHICK1;
   
3. MA120:MA(PJCB,120),COLORLIGRAY LINETHICK1;
   
4. MA55:MA(PJCB,55),COLORBLUE LINETHICK5;
   
5. MA34:MA(PJCB,34),COLORGREEN LINETHICK4;
   
6. MA13:MA(PJCB,13),COLORRED LINETHICK3;
   
7. MA5:MA(PJCB,5),COLORYELLOW LINETHICK2;
   
8. MA3:MA(PJCB,3),COLORWHITE LINETHICK1;
   
9. STICKLINE(IF(DYNAINFO(8)>0,DYNAINFO(7),DRAWNULL),IF(DYNAINFO(8)>0,DYNAINFO(7),DRAWNULL),IF(DYNAINFO(8)>0,DYNAINFO(7),DRAWNULL),0.1,-1),COLORWHITE;
   
10. 阳线:=C>O;
    
11. 实顶:=IF(阳线,C,O);
    
12. 实底:=IF(阳线,O,C);
    
13. 三日最低价:=MIN(MIN(L,REF(L,1)),REF(L,2));
    
14. 三日不破:=MIN(MIN(L,REF(L,1)),REF(L,2))>=REF(L,3);
    
15. 三日量缩:=MAX(MAX(V,REF(V,1)),REF(V,2))<REF(V,3);
    
16. 三日量涨:=MAX(MAX(V,REF(V,1)),REF(V,2))>REF(V,3);
    
17. 三日前高量柱:=REF(VOL,3)>=REF(VOL,4) AND REF(VOL,3)<1.9*REF(VOL,4) AND REF(阳线,3);
    
18. 三日前倍量柱:=REF(VOL,3)>1.9*REF(VOL,4) AND REF(阳线,3);
    
19. 跳空:=REF(L,3)>REF(H,4);
    
20. 黄金谷编辑:=三日不破 AND 三日量缩 AND 三日前倍量柱;
    
21. 黄金谷:=三日不破 AND 三日量缩 AND 三日前高量柱;
    
22. 将军柱:=三日不破 AND 三日前倍量柱 AND 三日量涨;
    
23. TKBLHJZ:=黄金谷编辑 AND 跳空;
    
24. TKHJZ:=黄金谷 AND 跳空;
    
25. TKJJZ:=将军柱 AND 跳空;
    
26. ZHJZ:=黄金谷编辑 OR 黄金谷 OR 将军柱;
    
27. BLHJZ11:=黄金谷编辑 AND 三日最低价>REF(实顶,3);
    
28. BLHJZ12:=黄金谷编辑 AND 三日最低价<=REF(实顶,3) AND 三日最低价>REF(实底,3);
    
29. BLHJZ13:=黄金谷编辑 AND 三日最低价<=REF(实底,3) AND 三日最低价>=REF(L,3);
    
30. HJZ21:=黄金谷 AND 三日最低价>REF(实顶,3);
    
31. HJZ22:=黄金谷 AND 三日最低价<=REF(实顶,3) AND 三日最低价>REF(实底,3);
    
32. HJZ23:=黄金谷 AND 三日最低价<=REF(实底,3) AND 三日最低价>=REF(L,3);
    
33. JJZ31:=将军柱 AND 三日最低价>REF(实顶,3);
    
34. JJZ32:=将军柱 AND 三日最低价<=REF(实顶,3) AND 三日最低价>REF(实底,3);
    
35. JJZ33:=将军柱 AND 三日最低价<=REF(实底,3) AND 三日最低价>=REF(L,3);
    
36. BACKSET0:=BACKSET(ZHJZ,4);
    
37. BACKSET1:=BACKSET(黄金谷编辑,4);
    
38. BACKSET2:=BACKSET(黄金谷,4);
    
39. BACKSET3:=BACKSET(将军柱,4);
    
40. BACKSET11:=BACKSET(BLHJZ11,4);
    
41. BACKSET12:=BACKSET(BLHJZ12,4);
    
42. BACKSET13:=BACKSET(BLHJZ13,4);
    
43. BACKSET21:=BACKSET(HJZ21,4);
    
44. BACKSET22:=BACKSET(HJZ22,4);
    
45. BACKSET23:=BACKSET(HJZ23,4);
    
46. BACKSET31:=BACKSET(JJZ31,4);
    
47. BACKSET32:=BACKSET(JJZ32,4);
    
48. BACKSET33:=BACKSET(JJZ33,4);
    
49. TKBLHJZ1:=BACKSET(TKBLHJZ,4);
    
50. TKHJZ1:=BACKSET(TKHJZ,4);
    
51. TKJJZ1:=BACKSET(TKJJZ,4);
    
52. FILTER0:=FILTER(BACKSET0,3),NODRAW;
    
53. FILTER1:=FILTER(BACKSET1,3),NODRAW;
    
54. FILTER2:=FILTER(BACKSET2,3),NODRAW;
    
55. FILTER3:=FILTER(BACKSET3,3),NODRAW;
    
56. FILTER11:=FILTER(BACKSET11,3),NODRAW;
    
57. FILTER12:=FILTER(BACKSET12,3),NODRAW;
    
58. FILTER13:=FILTER(BACKSET13,3),NODRAW;
    
59. FILTER21:=FILTER(BACKSET21,3),NODRAW;
    
60. FILTER22:=FILTER(BACKSET22,3),NODRAW;
    
61. FILTER23:=FILTER(BACKSET23,3),NODRAW;
    
62. FILTER31:=FILTER(BACKSET31,3),NODRAW;
    
63. FILTER32:=FILTER(BACKSET32,3),NODRAW;
    
64. FILTER33:=FILTER(BACKSET33,3),NODRAW;
    
65. TKBLHJZ11:=FILTER(TKBLHJZ1,3),NODRAW;
    
66. TKHJZ11:=FILTER(TKHJZ1,3),NODRAW;
    
67. TKJJZ11:=FILTER(TKJJZ1,3),NODRAW;
    
68. K0:=SUMBARS(FILTER0,1);
    
69. K1:=SUMBARS(FILTER1,1);
    
70. K2:=SUMBARS(FILTER2,1);
    
71. K3:=SUMBARS(FILTER3,1);
    
72. K11:=SUMBARS(FILTER11,1);
    
73. K12:=SUMBARS(FILTER12,1);
    
74. K13:=SUMBARS(FILTER13,1);
    
75. K21:=SUMBARS(FILTER21,1);
    
76. K22:=SUMBARS(FILTER22,1);
    
77. K23:=SUMBARS(FILTER23,1);
    
78. K31:=SUMBARS(FILTER31,1);
    
79. K32:=SUMBARS(FILTER32,1);
    
80. K33:=SUMBARS(FILTER33,1);
    
81. TKK111:=SUMBARS(TKBLHJZ11,1);
    
82. TKK112:=SUMBARS(TKHJZ11,1);
    
83. TKK113:=SUMBARS(TKJJZ11,1);
    
84. {PJCB:=(H+L+O+C)/4;
    
85. MA250:MA(PJCB,250),COLORBROWN LINETHICK1;
    
86. MA120:MA(PJCB,120),COLORLIGRAY LINETHICK1;
    
87. MA60:MA(PJCB,60),COLORBLUE LINETHICK1;
    
88. MA36:MA(PJCB,36),COLORGREEN LINETHICK1;
    
89. MA24:MA(PJCB,24),COLORRED LINETHICK1;
    
90. MA12:MA(PJCB,12),COLORYELLOW LINETHICK2;
    
91. MA6:MA(PJCB,6),COLORWHITE LINETHICK1;}
    
92. 倍量黄金:COUNT(FILTER1,4)>=1,COLORYELLOW NODRAW;
    
93. 高量黄金:COUNT(FILTER2,4)>=1,COLORRED NODRAW;
    
94. 倍量将军:COUNT(FILTER3,4)>=1,COLORBLUE NODRAW;
    
95. {最简单划线,彩色实线:}
    
96. {STICKLINE(K0,REF(三日最低价,K1-4),REF(三日最低价,K1-4),25,0),COLORYELLOW;
    
97. STICKLINE(K0,REF(三日最低价,K2-4),REF(三日最低价,K2-4),25,0),COLORRED;
    
98. STICKLINE(K0,REF(三日最低价,K3-4),REF(三日最低价,K3-4),25,0),COLORBLUE;}
    
99. {详细划线,彩色虚线:}
    
100. STICKLINE(K11,REF(实顶,K11-1),REF(实顶,K11-1),1,0),COLORYELLOW;
     
101. STICKLINE(K12,REF(实底,K12-1),REF(实底,K12-1),1,0),COLORYELLOW;
     
102. STICKLINE(K13,REF(L,K13-1),REF(L,K13-1),1,0),COLORYELLOW;
     
103. STICKLINE(K21,REF(实顶,K21-1),REF(实顶,K21-1),1,0),COLORRED;
     
104. STICKLINE(K22,REF(实底,K22-1),REF(实底,K22-1),1,0),COLORRED;
     
105. STICKLINE(K23,REF(L,K23-1),REF(L,K23-1),1,0),COLORRED;
     
106. STICKLINE(K31,REF(实顶,K31-1),REF(实顶,K31-1),1,0),COLORMAGENTA;
     
107. STICKLINE(K32,REF(实底,K32-1),REF(实底,K32-1),1,0),COLORMAGENTA;
     
108. STICKLINE(K33,REF(L,K33-1),REF(L,K33-1),1,0),COLORMAGENTA;
     
109. {缺口底部画平行线,白色虚线:}
     
110. STICKLINE(IF(TKK111,TKK111,DRAWNULL),REF(H,TKK111),REF(H,TKK111),0,0),COLORGREEN;
     
111. STICKLINE(IF(TKK112,TKK112,DRAWNULL),REF(H,TKK112),REF(H,TKK112),0,0),COLORGREEN;
     
112. STICKLINE(IF(TKK113,TKK113,DRAWNULL),REF(H,TKK113),REF(H,TKK113),0,0),COLORGREEN;
     
113. {WEN98编写, HTTP://U.178448.COM/SPACE.PHP?UID=30578}
     
114. {设立参数:百分比(3,20,5), 右数峰序(2,20,2)}
     
115. {ZIG(3,5);}{百分比:=5};{右数峰序:=2;}
     
116. 百分比:=5;
     
117. 右数峰序:=2;
     
118. {MA5:MA(C,5);
     
119. MA10:MA(C,10);
     
120. MA20:MA(C,20);}
     
121. 波谷值: CONST(TROUGH(2,百分比,1)),NODRAW;{前M个ZIG转向波谷值}
     
122. 波谷距离:= 1+CONST(TROUGHBARS(2,百分比,1)),NODRAW;{前M个ZIG转向波谷到当前距离}
     
123. {例如:TROUGH(2,5,2)表示%5最低价ZIG转向的前2个波谷到当前的周期数};
     
124. 波峰值:= CONST(PEAK(1,百分比,右数峰序));
     
125. {例如：　PEAK(1,5,1)表示%5最高价ZIG转向的上一个波峰的数值}
     
126. XG:= ABS(波峰值-波谷值)<=0.024 {AND BARSCOUNT(V)>60};
     
127. 波峰距离:= 1+CONST(PEAKBARS(1,百分比,右数峰序)),NODRAW;
     
128. {PEAKBARS(K,N,M)表示之字转向ZIG(K,N)的前M个波峰到当前的周期数,M必须大于等于1}
     
129. 距离:=CURRBARSCOUNT;
     
130. DRAWLINE(距离=波峰距离 AND XG,波谷值,距离=1,波谷值,1),COLORMAGENTA;
     
131. DRAWTEXT(距离=波谷距离 AND XG,L*0.98,' 峰谷线'),COLORYELLOW;
     
132. DRAWICON(距离=波峰距离,H*1.01,2);{波峰位置}
     
133. DRAWICON(距离=波谷距离,L*0.985,1);{波谷位置}
     
134. 精准点:=(ABS(H-波谷值)<=0.024 OR ABS(L-波谷值)<=0.024) {AND 距离<=120};
     
135. STICKLINE(精准点,波谷值,波谷值,200,1),COLORWHITE;
     
136. DRAWTEXT(精准点,波谷值,'↖'),COLORWHITE;
     
137. 谷底线:=波谷值;
     
138. 峰顶线:=波峰值;
     
139. 选股:REF(波峰值,RANGE(PERIOD,30,5))<=LLV(L,4) AND REF(波峰值,RANGE(PERIOD,30,5))>=LLV(L,4)*-0.02,NODRAW;
     
140. {画K线}
     
141. STICKLINE(C<O,H,L,0,0),COLORGREEN;
     
142. STICKLINE(C>O,H,L,0,0),COLORRED;
     
143. STICKLINE(C<O,C,O,1,1),COLORGREEN;
     
144. STICKLINE(C>O,C,O,1,1),COLORRED;
     
145. STICKLINE(C=O,C,O,1,1),COLORWHITE;
     
146. {画黄金柱彩色K线:}
     
147. STICKLINE(FILTER11 OR FILTER12 OR FILTER13,IF(O<C,L,DRAWNULL),IF(O<C,H,DRAWNULL),0,0),COLORYELLOW;
     
148. STICKLINE(FILTER11 OR FILTER12 OR FILTER13,IF(O>C,L,DRAWNULL),IF(O>C,H,DRAWNULL),0,0),COLORGREEN;
     
149. STICKLINE(FILTER11 OR FILTER12 OR FILTER13,OPEN,CLOSE,1,0),COLORYELLOW;
     
150. STICKLINE(FILTER21 OR FILTER22 OR FILTER23,IF(O<C,L,DRAWNULL),IF(O<C,H,DRAWNULL),0,0),COLORRED;
     
151. STICKLINE(FILTER21 OR FILTER22 OR FILTER23,IF(O>C,L,DRAWNULL),IF(O>C,H,DRAWNULL),0,0),COLORGREEN;
     
152. STICKLINE(FILTER21 OR FILTER22 OR FILTER23,OPEN,CLOSE,1,0),COLORRED;
     
153. STICKLINE(FILTER31 OR FILTER32 OR FILTER33,IF(O<C,L,DRAWNULL),IF(O<C,H,DRAWNULL),0,0),COLORMAGENTA;
     
154. STICKLINE(FILTER31 OR FILTER32 OR FILTER33,IF(O>C,L,DRAWNULL),IF(O>C,H,DRAWNULL),0,0),COLORGREEN;
     
155. STICKLINE(FILTER31 OR FILTER32 OR FILTER33,OPEN,CLOSE,1,0),COLORMAGENTA;

复制代码

蓝火冰儿

宁子

很好呀。学习了

宁子

很好呀。学习了

龙剑

不错，谢谢!!!

龙头老大

图形压缩的厉害，老师指点一下？

晃晃晃

不错，谢谢!!!

也有民

凡人如我

好好学习天天向上

小慢手

学习学习了！

红桃

学习安装看看这个黄金K线图。

红桃

　安装好啦，感谢楼主分享！