[大智慧指标] 大智慧牛熊KDJ,MACD,RSI 综合背离通用指标源码[大智慧公式]

1. 月K:"KDJ.K"(89,3,3),Color0080FF;
   
2. 月D:"KDJ.D"(89,3,3),Color0080FF;
   
3. FILLRGN(月K>月D,月K,月D),Color0080FF;
   
4. FILLRGN(月K<月D,月K,月D),Color808040;
   
5. 周K:"KDJ.K"(27,3,3),ColorAA00AA;
   
6. 周D:"KDJ.D"(27,3,3),ColorAA00AA;
   
7. FILLRGN(周K>周D,周K,周D),ColorAA00AA;
   
8. FILLRGN(周K<周D,周K,周D),ColorFF8000;
   
9. 日K:"kd.k"(5,3,3),Color0000FF;
   
10. 日D:"kd.d"(5,3,3),Color0000FF;
    
11. FILLRGN(日K>日D,日K,日D),Color0000FF;
    
12. FILLRGN(日K<日D,日K,日D),Color008000;
    
13. 日金叉:IF(CROSS(日K,日D),50,0),Color0000FF;
    
14. DRAWTEXT(日金叉,45,'日叉'),Color0000FF;
    
15. 周金叉:IF(CROSS(周K,周D),30,0),ColorAA00AA;
    
16. DRAWTEXT(周金叉,30,'周叉'),ColorAA00AA;
    
17. 月金叉:IF(CROSS(月K,月D),20,0),Color0080FF;
    
18. DRAWTEXT(月金叉,20,'月叉'),Color0080FF;
    
19. DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
    
20. CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
    
21. WARNING('http://www.cxh99.com',CURRENTTIME>180000 and (CXH=1 OR CXH=6));
    
22. DEA:=EMA(DIFF,9);
    
23. MACD:=2*(DIFF-DEA);
    
24. A1:=BARSLAST(ref(cross(diff,dea),1));
    
25. B1:=ref(c,A1+1)>c and ref(diff,A1+1)<diff and cross(diff,dea);
    
26. MACD底背:STICKLINE(FILTER(B1>0,5),0,5,3,0),Color00FF00;
    
27. DRAWTEXT(FILTER(B1>0,5),10,'MACD\n底背'),Color00FF00;
    
28. RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
    
29. K:=SMA(RSV,3,1);
    
30. D:=SMA(K,3,1);
    
31. A2:=BARSLAST(ref(cross(k,d),1));
    
32. B2:=ref(c,A2+1)>c and ref(k,A2+1)<k and cross(k,d);
    
33. KDJ底背:STICKLINE(FILTER(B2>0,5),0,8,3,0),COLORYELLOW;
    
34. DRAWTEXT(FILTER(B2>0,5),12,'KDJ\n底背'),COLORYELLOW;
    
35. LC :=ref(CLOSE,1);
    
36. RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
    
37. RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
    
38. A3:=BARSLAST(ref(cross(RSI1,RSI2),1));
    
39. B3:=ref(c,A3+1)>c and ref(RSI1,A3+1)<RSI1 and cross(RSI1,RSI2);
    
40. RSI底背:STICKLINE(FILTER(B3>0,5),0,10,3,0),ColorFFFF00;
    
41. DRAWTEXT(FILTER(B3>0,5),5,'RSI\n底背'),ColorFFFF00;
    
42. C1:=BARSLAST(ref(cross(dea,diff),1));
    
43. D1:=ref(c,C1+1)<c and ref(diff,C1+1)>diff and cross(dea,diff);
    
44. MACD顶背:STICKLINE(FILTER(D1>0,5),100,85,3,0),ColorFF8000;
    
45. DRAWTEXT(FILTER(D1>0,5),87,'MACD\n顶背'),ColorFF8000;
    
46. C2:=BARSLAST(ref(cross(d,k),1));
    
47. D2:=ref(c,C2+1)<c and ref(k,C2+1)>k and cross(d,k);
    
48. KDJ顶背:STICKLINE(FILTER(D2>0,5),100,80,3,0),ColorC0C0C0;
    
49. DRAWTEXT(FILTER(D2>0,5),72,'KDJ\n顶背'),ColorC0C0C0;
    
50. C3:=BARSLAST(ref(cross(RSI2,RSI1),1));
    
51. D3:=ref(c,C3+1)<c and ref(RSI1,C3+1)>RSI1 and cross(RSI2,RSI1);
    
52. RSI顶背:STICKLINE(FILTER(D3>0,5),100,75,3,0),ColorFFFF80;
    
53. DRAWTEXT(FILTER(D3>0,5),78,'RSI\n顶背'),ColorFFFF80;
    
54. 0,colorffa2af;
    
55. 20,colorffa2af,pointdot;
    
56. 50,colorffa2af;
    
57. 80,colorffa2af,pointdot;
    
58. 100,colorffa2af;
    
59. xg:(日金叉 and 周金叉 and 月金叉)*80;

复制代码