发顶低集结号（公式、源码副图指标公式.副图指标公式.）[大智慧公式]

龙听

1. {J顶低集结}
   
2. DRAWGBKlast(c>0,strip(RGB(0,0,60),RGB(0,0,0),0));
   
3. 80,DOTLINE;20,DOTLINE;
   
4. J9:EMA("KDJ.J"(9,3,3),5) ,COLOR0000FF,LINETHICK2;
   
5. J18:EMA("KDJ.J"(18,3,3),5) ,COLOR00FFFF,DOTLINE;
   
6. J27:EMA("KDJ.J"(27,3,3),5) ,COLOR00FF00,DOTLINE;
   
7. J36:EMA("KDJ.J"(36,3,3),5) ,COLOR0077FF,DOTLINE;
   
8. J45:EMA("KDJ.J"(45,3,3),5) ,COLOR00FFCC,LINETHICK2;
   
9. A级顶:=J9>80 AND J18>80 AND J27>80 AND J36>80 AND J45>80;
   
10. B级顶:=(J9>80 OR J18>80) AND (J27>80 OR J36>80 OR J45>80);
    
11. A级低:=J9<5 AND J18<5 AND J27<5 AND J36<5 AND J45<5;
    
12. B级低:=J9<10 AND J18<20 AND (J27<10 OR J36<10 OR J45<10);
    
13. IF(A级顶,90,100),COLOR0077FF,LINETHICK3,LAYER2;
    
14. IF(B级顶 ,80,100),COLOR00FF00,LINETHICK2,LAYER0;
    
15. IF(A级低,10,0),COLOR00FF00,LINETHICK2,LAYER0;
    
16. IF(B级低,20,0),COLORFF9900,LINETHICK2,LAYER2;
    
17. FILLRGN(IF(A级顶,90,100),90),ColorFF2200,LAYER5;;
    
18. FILLRGN(IF(B级顶,80,100),80),ColorFF9900,LAYER6;;
    
19. FILLRGN(100,80),Color000000,LAYER7;;
    
20. FILLRGN(10,20,10<20,RGB(0,40,60)),LAYER7;
    
21. FILLRGN(0,10,0<10,RGB(0,60,0)),LAYER7;
    
22. 选股A:A级低,LINETHICK0;
    
23. {低部}
    
24. DIBU:= "KDJ.K"(9,3,3)<15 AND "KDJ.D"(9,3,3)<15 AND "KDJ.K"(18,3,3)<15 AND "KDJ.D"(18,3,3)<15
    
25. AND "KDJ.K"(27,3,3)<20 AND "KDJ.D"(27,3,3)<20 AND "KDJ.D"(36,3,3)<20 AND "KDJ.D"(54,3,3)<20;
    
26. STICKLINE(DIBU=1,30,20,1,0),COLORff00ff,LAYER5;
    
27. STICKLINE(DIBU=1,20,10,2,0),COLORYELLOW,LAYER5;
    
28. STICKLINE(DIBU=1,10,0,8,0),COLORff8000,LINETHICK2,LAYER5;
    
29. 选股B:DIBU,LINETHICK0;
    
30. 
    
31. {大盘KDJ}
    
32. DRSV:=(INDEXC-LLV(INDEXL,27))/(HHV(INDEXH,27)-LLV(INDEXL,27))*100;
    
33. DK:=SMA(DRSV,3,1);
    
34. DD:=SMA(DK,3,1);
    
35. DJ:EMA((3*DK-2*DD),5),COLOR00FFFF;
    
36. PARTLINE(DJ,(DJ>REF(DJ,1))-1,rgb(0,255,0),1,rgb(255,0,0) ),POINTDOT,LINETHICK6,LAYER1;
    
37. {MACD}
    
38. DIF:EMA(CLOSE,12)-EMA(CLOSE,26),LINETHICK0;
    
39. DEA:=EMA(DIF,9);
    
40. VAR1:=HHV(DEA,53);
    
41. VAR2:=LLV(DEA,55);
    
42. VAR3:=DEA-(DIF-DEA);
    
43. UP:=IF(DIF>VAR1 AND DEA=VAR1,MAX(LLV(VAR1,10),VAR3),VAR1);
    
44. DN:=IF(DIF<VAR2 AND DEA=VAR2,MIN(HHV(VAR2,10),VAR3),VAR2);
    
45. PARTLINE(105,DIF>UP,RGB(255,0,0)),LINETHICK5,LAYER4;
    
46. PARTLINE(104,DIF>UP,RGB(255,120,0)),LINETHICK5,LAYER5;
    
47. PARTLINE(103,DIF>UP,RGB(255,200,0)),LINETHICK5,LAYER6;
    
48. PARTLINE(-3,DIF<DN,RGB(0,130,100)),LINETHICK5,LAYER4;
    
49. PARTLINE(-4,DIF<DN,RGB(0,220,0)),LINETHICK6,LAYER5;
    
50. {KDJ周金叉死叉}
    
51. 周K:"KDJ.K#WEEK"(9,2,5),COLOR0000FF,LINETHICK0,LAYER3;
    
52. 周D:"KDJ.D#WEEK"(9,2,5),COLOR00FF00,LINETHICK0;
    
53. DRAWTEXT(CROSS(周K,周D),30,'J周金叉'),ALIGN1,color00FFFF,LINETHICK1;
    
54. DRAWTEXT(CROSS(周D,周K),70,'J周死叉'),ALIGN1,COLOR0077FF,LINETHICK1;
    
55. KDB:=BARSLAST(REF(CROSS(周K,周D),1));
    
56. KDDB:=REF(WMA(C,5),KDB+1)>WMA(C,5) AND REF(周K,KDB+1)<周K AND CROSS(周K,周D);
    
57. K底背:=IF(FILTER(KDDB>0,5),1,0);
    
58. DRAWTEXT(K底背=1,15,'J周底背'),COLOR00FFFF,LINETHICK1;
    
59. KDD:=BARSLAST(REF(CROSS(周D,周K),1));
    
60. K顶背:=REF(WMA(C,5),KDD+1)<WMA(C,5) AND REF(周K,KDD+1)>周K AND CROSS(周D,周K);
    
61. DRAWTEXT(FILTER(K顶背>0,5),80,'J周顶背'),COLOR0077FF,LINETHICK1;
    
62. {顶底背离}
    
63. {1.MACD}
    
64. A1:=BARSLAST(REF(CROSS("MACD.DIFF","MACD.DEA"),1));
    
65. B1:=REF(C,A1+1)>C AND REF("MACD.DIFF",A1+1)<"MACD.DIFF" AND CROSS("MACD.DIFF","MACD.DEA");
    
66. DRAWTEXT(B1>0,-2,'M底背'),COLOR00FFFF,LINETHICK1;{MACD底背离};
    
67. C1:=BARSLAST(REF(CROSS("MACD.DEA","MACD.DIFf"),1));
    
68. D1:=REF(C,C1+1)<C AND REF("MACD.DIFf",C1+1)>"MACD.DIFf" AND CROSS("MACD.DEA","MACD.DIFf");
    
69. DRAWTEXT(D1>0,105,'M顶背'),COLOR00FF00,LINETHICK1;{MACD顶背离};
    
70. {2.KDJ}
    
71. A2:=BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1));
    
72. B2:=REF(C,A2+1)>C AND REF("KDJ.K",A2+1)<"KDJ.K" AND CROSS("KDJ.K","KDJ.D");
    
73. DRAWTEXT(B2,5,'J9底背'),COLOR00FFFF,LINETHICK1;{KDJ底背离};
    
74. C2:=BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1));
    
75. D2:=REF(C,C2+1)<C AND REF("KDJ.K",C2+1)>"KDJ.K" AND CROSS("KDJ.D","KDJ.K");
    
76. DRAWTEXT(D2>0,80,'J9顶背'),COLOR0077FF,LINETHICK1;{KDJ顶背离};
    
77. {3.RSI}
    
78. A3:=BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1));
    
79. B3:=REF(C,A3+1)>C AND REF("RSI.RSI1",A3+1)<"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2");
    
80. DRAWTEXT(B3>0,24,'R底背'),COLOR00FFFF,LINETHICK1;{RSI底背离}
    
81. C3:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1));
    
82. D3:=REF(C,C3+1)<C AND REF("RSI.RSI1",C3+1)>"RSI.RSI1" AND CROSS("RSI.RSI2","RSI.RSI1");
    
83. DRAWTEXT(D3>0,95,'R顶背'),COLOR0077FF,LINETHICK1;{RSI顶背离};

复制代码

下载 (306.21 KB)

2019-1-3 15:06