[通达信指标/源码] 五星连珠B副图指标公式源码[通达信公式]

1. K2:=EMA(C,5),COLORFFFF00;
   
2. K3:=EMA(C,10),COLORFFFF00;
   
3. K5:=EMA(C,30),COLORFFFF00;KK5:=EMA(INDEXC,30),COLORFFFF00;
   
4. K6:=2*(K2-K5);K7:=2*(K2-K3);K8:=2*(K7+K6),COLORRED;
   
5. STICKLINE(CROSS(K8,0),0,50,8,0) ,COLORRED;
   
6. K1:=IF(K8>REF(K8,5) AND K3<REF(K3,5) ,1,0 ),COLORYELLOW;
   
7. K21:=IF(K8>REF(K8,7) AND K3<REF(K3,7) ,1,0 ),COLORYELLOW;
   
8. K31:=IF(K8>REF(K8,9) AND K3<REF(K3,9) ,1,0 ),COLORYELLOW;
   
9. K4:=IF(K8>REF(K8,11) AND K3<REF(K3,11) ,1,0 ),COLORYELLOW;
   
10. NDAY1 := 3;
    
11. DOWN := CLOSE/LLV(LOW,60)<=1.2;
    
12. PMA1 := MA(CLOSE,2);
    
13. PMA2 := MA(CLOSE,5);
    
14. DIF :=EMA(CLOSE,12) - EMA(CLOSE,26),COLORWHITE;
    
15. DEA :=EMA(DIF,9),COLORGREEN;
    
16. VMA1:=MA (VOL,2)/100000,COLORRED;
    
17. VMA2:=MA(VOL,5)/100000,COLORYELLOW;
    
18. PPDAY := BARSLAST(CROSS(PMA1,PMA2));
    
19. VVDAY := BARSLAST(CROSS(VMA1,VMA2));
    
20. MACDDAY := BARSLAST(CROSS(DIF,DEA));
    
21. A1:=BARSLAST(REF(CROSS("MACD.DIF"(5,12,9),"MACD.DEA"(5,12,9)),1));
    
22. 背离、W底、金叉:REF(C,A1+1)>C AND REF("MACD.DIF"(5,12,9),A1+1)<"MACD.DIF"(5,12,9) AND
    
23. CROSS("MACD.DIF"(5,12,9),"MACD.DEA"(5,12,9)),,COLORRED;
    
24. SJCJD:= IF((PPDAY<=NDAY1 AND VVDAY<=NDAY1 AND MACDDAY<=NDAY1 ) AND (DIF<0),1,0);
    
25. STICKLINE(SJCJD,50,60,6,0),COLORWHITE,LINETHICK2;
    
26. MACD:= 2*(DIF-DEA), COLORSTICK;
    
27. 短趋势:((3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1)-50)*1.032+50),COLORRED;
    
28. VARA2:=(2*CLOSE+HIGH+LOW+OPEN)/5;
    
29. VARA3:=LLV(LOW,34);
    
30. VARA4:=HHV(HIGH,34);
    
31. 长趋势:EMA((VARA2-VARA3)/(VARA4-VARA3)*100,13),COLOR00FF00;
    
32. 判断底:SQRT(SQRT(FLOOR(SQRT(MA(1/WINNER(CLOSE)*100,4)/10000))))*5;
    
33. VARA5:=CROSS(短趋势,长趋势)AND 长趋势<25;
    
34. VARA6:=CROSS(短趋势,长趋势)AND 长趋势<50;
    
35. STICKLINE(VARA5,60,70,8,0) ,COLORGREEN;
    
36. XX:=((((CLOSE - MA(CLOSE,34)) / MA(CLOSE,34)) * 100)* 5);
    
37. B001:=(((((CLOSE - MA(CLOSE,42)) / MA(CLOSE,42)) ) * 100) * 5);
    
38. B002:=(((((CLOSE - MA(CLOSE,67)) / MA(CLOSE,67)) ) * 100) * 5);
    
39. B003:=(((XX + B001) / 2) - (B002 ));
    
40. B004:=(((0 - 100) * (HHV(HIGH,34) - CLOSE)) / (HHV(HIGH,34) - LLV(LOW,34)));
    
41. B005:=(((0 - 100) * (HHV(HIGH,42) - CLOSE)) / (HHV(HIGH,42) - LLV(LOW,42)));
    
42. B006:=(((0 - 100) * (HHV(HIGH,72) - CLOSE)) / (HHV(HIGH,72) - LLV(LOW,72)));
    
43. B007:=EMA((((B004 + B005) / 2) - B006),6);
    
44. B008:=REF(CLOSE,1);
    
45. B009:=((((SMA(MAX((CLOSE - B008),0),19,1) / SMA(ABS((CLOSE - B008)),19,1)) * 100) - 50) * 1.25);
    
46. B010:=((((SMA(MAX((CLOSE - B008),0),34,1) / SMA(ABS((CLOSE - B008)),34,1)) * 100) - 50) * 1.25);
    
47. B011:=((((SMA(MAX((CLOSE - B008),0),72,1) / SMA(ABS((CLOSE - B008)),72,1)) * 100) - 50) * 1.25);
    
48. B012:=EMA(((((B009 + B010) / 2) - B011) * 5),6);
    
49. B013:=((((0 - 1) * ((B007 + B003) + B012)) / 3) * 1.5);
    
50. B014:=B012;
    
51. B015:=B013;
    
52. B016:=EMA(B012,4);
    
53. B017:=B012;
    
54. KKM1:=B013;
    
55. DPM1:=EMA(B013,4);
    
56. 多头:=B017,COLOR0000FF;
    
57. 空头:=KKM1,COLOR00FF00;
    
58. 多均:=B016;
    
59. 空均:=DPM1;
    
60. B018:=IF(CROSS(B017,KKM1),28,0);
    
61. XD:=5 ;
    
62. VARX:=B017;
    
63. C023:=KKM1;
    
64. C024:=B016;
    
65. C025:=DPM1;
    
66. C026:=WINNER(CLOSE);
    
67. W:=(DMA(C026,((VOL / CAPITAL) * 1)) * 100);
    
68. HWXWINNER:=W;
    
69. XD1:=EMA(W,6);
    
70. XWXMH:=XD1;
    
71. XD2:=MA(W,14);
    
72. 庄家控盘:((HWXWINNER - XWXMH) * 10),COLORSTICK,LINETHICK2;
    
73. STICKLINE(CROSS(多头,空均),80,70,8,0) ,COLORYELLOW;
    
74. VARB1:=(2*CLOSE+HIGH+LOW)/4;
    
75. VARB2:=LLV(LOW,34);
    
76. VARB3:=HHV(HIGH,34);
    
77. VARB4:=MA(HIGH,8);
    
78. XX1:=EMA((VARB1-VARB2)/(VARB3-VARB2)*100,13);
    
79. YY:=EMA(0.667*REF(XX1,1)+0.333*XX1,2) , ;
    
80. STICKLINE(CROSS(XX1,20) AND YY<XX1 AND VARB4>REF(VARB4,1),80,90,6,0),COLORFF0000;
    
81. 逃顶:IF(FILTER(CROSS(YY,XX) AND XX>80 ,3),60,90),COLORFF0000;

复制代码