通达信顶底背离指标副图 源码

 通达信顶底背离指标副图 源码

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

1. N:=55;   
2. WL:(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100,LINETHICK2,COLOR0000FF;   
3. WLT:MA(WL,89),COLOR00FFFF,LINETHICK2;   
4. WLT1:=CROSS(WL,WLT);   
5. WLT11:=CROSS(WL,-10);   
6. WLT2:=FILTER(WLT1,8);   
7. SKY:10,POINTDOT,COLORFF0000,LINETHICK1;   
8. SEA:-10,POINTDOT,COLORFF00FF,LINETHICK1;   
9. DRAWICON(WLT2,WLT,23);   
10. DRAWICON(WLT11,SEA,15);   
11. WLT3:=COUNT(WL>10,5)>=3;   
12. WLT33:=CROSS(10,WL);   
13. SEL:=WLT3 AND WLT33;   
14. DRAWICON(SEL,10,19);   
15. STICKLINE(WL>10,WL,10,0.001,0),COLOR00FF00;   
16. STICKLINE(WL<-10,WL,-10,0.001,0),COLORFF00FF;   
17. DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);   
18. DEA:=EMA(DIF,9);   
19. MACD:=(DIF-DEA)*2,COLORSTICK;   
20. DIF底:=LLV(DIF,120);   
21. 最底价:=L=LLV(L,120);   
22. 距今:=BARSLAST(最底价);   
23. 偏离:=IF((距今=0 AND DIF>DIF底),1,0);   
24. DDD:=EXIST(偏离,20) AND SLOPE(DEA,2)>=0;    
25. HRY:=FILTER(DDD,10);   
26. STICKLINE(HRY,-5,-10,3,0),COLOR00FFFF;   
27. DRAWTEXT(HRY,-5,'M背'),COLOR00FFFF;   
28. {YYY:COUNT(偏离,5);}   
29. DIF顶:=HHV(DIF,120);   
30. 最高价:=H=HHV(H,120);   
31. 距今高:=BARSLAST(最高价);   
32. 偏离高:=IF((距今高=0 AND DIF<DIF顶),1,0);   
33. GGG:=EXIST(偏离高,20) AND SLOPE(DEA,2)<0;    
34. HRY1:=FILTER(GGG,10);   
35. STICKLINE(HRY1,10,5,3,0),COLORFF0000;   
36. DRAWTEXT(HRY1,5,'M背'),COLORFF0000;   
37. A2:=BARSLAST(REF(CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),1));   
38. B2:=REF(C,A2+1)>C AND REF("KDJ.K"(9,3,3),A2+1)<"KDJ.K"(9,3,3) AND CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3));   
39. A3:=BARSLAST(REF(CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1));   
40. B3:=REF(C,A3+1)>C AND REF("RSI.RSI1"(6,12,24),A3+1)<"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24));   
41. C2:=BARSLAST(REF(CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)),1));   
42. D2:=REF(C,C2+1)<C AND REF("KDJ.K"(9,3,3),C2+1)>"KDJ.K"(9,3,3) AND CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3));   
43. C3:=BARSLAST(REF(CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1));   
44. D3:=REF(C,C3+1)<C AND REF("RSI.RSI1"(6,12,24),C3+1)>"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24));   
45. KDJ底背:FILTER(IF(B2>0,-1,0),13),NODRAW;   
46. STICKLINE(KDJ底背,-10,-5,3,0),COLORFF00FF;   
47. DRAWTEXT(KDJ底背,-5,'K背'),COLORFF00FF;   
48. RSI底背:FILTER(IF(B3>0,-1,0),13),NODRAW;   
49. STICKLINE(RSI底背,-10,-5,3,0),COLOR0000FF;   
50. DRAWTEXT(RSI底背,-5,'R背'),COLOR0000FF;   
51. KDJ顶背:FILTER(IF(D2>0,1,0),13),NODRAW;   
52. STICKLINE(KDJ顶背,10,5,3,0),COLORFFFF00;   
53. DRAWTEXT(KDJ顶背,5,'K背'),COLORFFFF00;   
54. RSI顶背:FILTER(IF(D3>0,1,0),13),NODRAW;    
55. STICKLINE(RSI顶背,10,5,3,0),COLOR00FF00;   
56. DRAWTEXT(RSI顶背,5,'R背'),COLOR00FF00;   
57. DRAWTEXT(REF("KDJ.J",1)<0 AND "KDJ.J">0,-4,'短'),COLORRED ;   
58. STICKLINE(REF("KDJ.J",1)<0 AND "KDJ.J">0,-10,-5,3,0),COLOR00FFFF;   
59. AA1:=HHV(H,55);   
60. BB1:=REF(H,13);   
61. TJ1:=AA1=BB1;   
62. XX:=LLV(L,55);   
63. YY:=REF(L,13);   
64. YY1:=REF(L,21);   
65. TJ2:=XX=YY;   
66. TJ3:=XX=YY1;   
67. XG:=TJ1 OR TJ2;   
68. DRAWTEXT(TJ2,-6,'离底13'),COLOR00FF00;   
69. STICKLINE(TJ2 ,-10,-6,2,0),COLOR00FF00;    
70. DRAWTEXT(TJ3,-4,'离底21'),COLOR00FFFF;   
71. STICKLINE(TJ3 ,-10,-4,2,0),COLOR00FFFF;    
72. DRAWTEXT(TJ1,-6,'离高13'),COLOR0000FF;   
73. STICKLINE(TJ1 ,-10,-6,2,0),COLOR0000FF;    
74. LV:=MA(C,24);   
75. HR0:=HHV(HIGH,N);   
76. HRY0:=LLV(LOW,N);   
77. HRY110:=HR0*HRY0;   
78. HRY330:=SQRT(HRY110);   
79. NS1:=C>HRY330 AND HRY330 >=REF(HRY330,1) AND C>LV;   
80. STICKLINE(C>0,-10,-11.5,3,0),COLORFF0000;   
81. STICKLINE(WLT2 OR WL>WLT,-10,-11.5,3,0),COLOR00FFFF;   
82. STICKLINE(NS1,-10,-11.5,3,0),COLOR0000FF;   
83. DRAWTEXT(FILTER(NS1,21),-11,'持股'),COLORFFFFFF;   
84. DRAWTEXT(FILTER(WLT2 OR WL>WLT,13),-11,'买入'),COLOR0000FF;　;   
85.   

558200099.png