[大智慧指标] 有庄就买 量价新高指标源码[大智慧公式]

龙听

1. VAR1:=EMA(EMA(CLOSE,13),13);
   
2. 控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;
   
3. STICKLINE(控盘<0,控盘,0,1,1),COLOR00FF00;
   
4. STICKLINE(控盘>REF(控盘,1) AND 控盘<0,控盘,0,1,1),COLORFF00FF;
   
5. 无庄控盘:=控盘<0;
   
6. STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘,0,1,1),COLOR0000FF;
   
7. 有庄控盘:=控盘>REF(控盘,1) AND 控盘>0;
   
8. VAR2:=100*WINNER(CLOSE*0.95);
   
9. STICKLINE(控盘<REF(控盘,1) AND 控盘>0,控盘,0,1,1),COLORFFFF00;
   
10. 主力出货:=控盘<REF(控盘,1) AND 控盘>0;
    
11. STICKLINE(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0,1,1),COLOR00FFFF;
    
12. 高度控盘: VAR2>50 AND COST(85)<CLOSE AND 控盘>0,ColorFF00FF,LINETHICK2;
    
13. A10:=CROSS(控盘,0);
    
14. 控盘B:=FILTER(IF(A10,1,0),5);
    
15. {控盘买卖条件}
    
16. STJ01:=控盘<REF(控盘,1)  AND 控盘>0.5;
    
17. STJ02:=控盘>0;
    
18. BTJ2:=控盘>REF(控盘,1) AND 控盘<-0.2;
    
19. BTJ22:=控盘>REF(控盘,1) AND 控盘<0 ;
    
20. {分时价格原码}
    
21. JJ:=DYNAINFO(11);
    
22. {波段买卖原码}
    
23. P:=55;S:=8;M1:=3;
    
24. 能量:(EMA(CLOSE,S)-EMA(C,P))*10,LINETHICK2,COLOR0000FF;
    
25. 空头:EMA(能量,M1),COLOR00FF00;
    
26. {股价与均线偏离买卖条件}
    
27. BTJ1:=(CLOSE-JJ)/JJ<-0.005;
    
28. BTJ11:=(CLOSE-JJ)/JJ<-0.03;
    
29. BTJ12:=ref(LAST(JJ>=REF(JJ,1)),1)>=4 AND (CLOSE-JJ)/JJ<0.005;
    
30. STJ1:=(C-JJ)/JJ>0.005;
    
31. {波段买卖条件}
    
32. BTJ3:=CROSS(能量,空头) AND  能量<-0.3;
    
33. BTJ32:=CROSS(能量,空头) AND  能量<-0.1;
    
34. STJ31:=CROSS(空头,能量);
    
35. STJ32:=CROSS(空头,能量) AND  能量>1.618;
    
36. {以下为信号};A:=8;
    
37. BTJ81:=FILTER(BTJ1 AND BTJ2 AND BTJ3,A);
    
38. BTJ811:=FILTER(BTJ11 AND BTJ2 AND BTJ3,A);
    
39. BTJ82:=FILTER(BTJ12 AND BTJ22 AND BTJ32,A);
    
40. 时长:=if(HOUR>=9 AND HOUR<14 ,1,0);{9点至 14点}
    
41. 有庄:BTJ811 AND TIME>15 and 时长,ColorFF8000,STICK,LINETHICK3;
    
42. DRAWICON(BTJ811 AND TIME>5 and 时长,0,9),ALIGN1;{有庄};
    
43. DRAWTEXT(BTJ811 AND TIME>5 and 时长,1.5,'庄'),Color00FFFF,ALIGN1;
    
44. STJ81:=FILTER(STJ1 AND STJ01 AND STJ31,A);
    
45. STJ82:=FILTER(STJ02 AND STJ32 ,A);
    
46. STJ83:=STJ81 AND STJ82;
    
47. DRAWTEXT(STJ83,空头,'卖'),ColorFFFFFF,ALIGN1;
    
48. {量价新高}
    
49. T:=BARSCOUNT(CLOSE);
    
50. 分钟数:=IF(TIME0/60-570<=130,TIME0/60-570,TIME0/60-660);
    
51. AA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
    
52. 主买:=IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*((HIGH-OPEN)+ (CLOSE-LOW)),VOL/2));
    
53. 主卖:=IF(CLOSE>OPEN,0-AA*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0- AA*(HIGH-LOW),0-VOL/2));
    
54. 量:=VOL;
    
55. 额:=AMOUNT/100000000;
    
56. 流入额:=MA(主买,4)/100000;
    
57. 流出额:=MA((0-主卖),4)/100000;
    
58. 净流入:=SUM(流入额-流出额,0);
    
59. 价新高:=COUNT(H=HHV(H,分钟数),30);
    
60. 量新高:=COUNT(V=HHV(V,分钟数) ,30);
    
61. 量价新高:价新高=量新高 AND 价新高>0 AND 价新高>REF(价新高,1) AND 量新高>REF(量新高,1) AND 净流入>0,Color00FFFF,STICK,linethick3;
    
62. CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));

复制代码