通达信指标量王，稍微修改以便易得能够运行

cheetor

1. {量王}
   
2. 总量:AMOUNT,VOLSTICK;{成交额赋值变量*总量}
   
3. 启动:MA(总量,250),DOTLINE,LINETHICK1,COLORWHITE;{250日移动平均成交额划白色虚线}
   
4. 
   
5. MAVOL1:=MA(总量,M1);
   
6. MAVOL2:=MA(总量,M2);
   
7. 去除次新股:=BARSCOUNT(C)>=15;{次新股的天数}
   
8. ZTB:=C>INTPART(REF(C,1)*(1+10/100)/0.01+0.5)*0.01-0.006 AND C=H;
   
9. {成交额大于8亿并且涨停 在成交量柱划红色空心柱 宽度为-1}
   
10. STICKLINE(AMOUNT>800000000 AND ZTB,0,AMOUNT,-1,0),COLORRED;
    
11. {成交额大于10亿并且涨停，在成交量柱划洋红色空心柱 宽度为-1}
    
12. STICKLINE(AMOUNT>1000000000 AND ZTB,0,AMOUNT,-1,0),COLORMAGENTA;
    
13. 
    
14. 量比:V/REF(MA(V,5),1),COLORBROWN,NODRAW;{当天与前5日平均成交量比}
    
15. 
    
16. 几倍:=1.9;
    
17. 倍量:总量 >=REF(总量,1)*几倍 AND (IF(C<O,C>REF(C,1),1)),COLORYELLOW,NODRAW;
    
18. 倍缩:REF(总量,1)>= 总量 *几倍,COLORMAGENTA,NODRAW;
    
19. 百低:总量=LLV(总量,125) AND BARSCOUNT(总量)>=125,COLORBLUE,NODRAW;
    
20. 平量:RANGE(总量 /REF(总量,1),0.97,1.03) AND BARSCOUNT(总量)>=2,COLORWHITE,NODRAW;
    
21. 天量:总量=HHV(总量,120), COLORRED;
    
22. 量王:天量 and 倍量 and 量比>2 and (BARSCOUNT(C)+1)>120,COLORGREEN,NoDraw;
    
23. 倍数:总量/REF(总量,1),COLORYELLOW,NODRAW;
    
24. V1:=总量 *0.9;
    
25. V2:=总量 *0.8;
    
26. STICKLINE(倍量,0,V1,5,0),COLORYELLOW;
    
27. STICKLINE(倍缩,0,V1,5,0),COLORMAGENTA;
    
28. STICKLINE(百低,0,V1,5,0),COLORBLUE;
    
29. STICKLINE(平量,0,V1,5,0),COLORWHITE;
    
30. STICKLINE(天量,0,V1,5,0),COLORRED;
    
31. STICKLINE(量王 and COUNT(量王,2)<=1,0,AMOUNT,9,0),COLORGREEN;{量王划绿色柱子}
    
32. STICKLINE((量王 AND 总量),总量/3,总量/3,10,0)COLORRED LINETHICK3;
    
33. STICKLINE((量王 AND 总量),总量*2/3,总量*2/3,10,0)COLORRED LINETHICK3;
    
34. STICKLINE((量王 AND 总量),总量*1/2,总量*1/2,10,0)COLORRED LINETHICK3;
    
35. STICKLINE(C<O AND C>REF(C,1),0, 总量,5,0),COLORRED;{假阴真阳划全红柱}
    
36. LX1:=BARSLAST(量王>0);{上一次量王距今天的天数赋值为变量LX1}
    
37. 量王成交额:IF(CURRBARSCOUNT<=CONST(LX1)+1,CONST(REF(总量,LX1)),DRAWNULL),COLORGREEN LINETHICK1;{最后一个量王划绿色横线}
    
38. 
    
39. HX5:=C>O OR (C=O AND C<REF(C,1));
    
40. HT5:=BARSLASTCOUNT(HX5);
    
41. TJ119:=HT5=5;
    
42. TJ129:=RANGE(HT5,0,5);
    
43. TJ139:=BARSLAST(CURRBARSCOUNT=CONST(HT5)+1);
    
44. HY99:=(BACKSET(TJ119>0,HT5) OR TJ129*0 OR TJ139>0)*HT5;
    
45. DRAWTEXT(HY99=5,V*1.2,'串'),COLORWHITE;{串：K线连续五天收阳或收盘价等于开盘价但高于前一日收盘价。}
    
46. 
    
47. 
    
48. 量线3:=MA(总量,3);
    
49. 量线30:=MA(总量,30);
    
50. 量线120:=MA(总量,120);
    
51. 
    
52. {价涨量缩}
    
53. 成交量:=VOL,VOLSTICK;
    
54. JZLS:=COUNT(CLOSE>REF(CLOSE,1),2)=2 AND COUNT(VOL<REF(VOL,1),2)=2;
    
55. STICKLINE(JZLS,0,V,1,0),COLORGREEN;
    
56. DRAWTEXT(JZLS,VOL+3000,'降'),COLORGREEN;
    
57. 价涨量缩:JZLS,COLORGREEN;
    
58. 
    
59. {百日地量群}
    
60. H_L:=0.1*CONST(HHV(总量,250));   
    
61. V100:=V<=LLV(V,100)*1.2 AND V>0 AND BARSCOUNT(V)>=100;
    
62. 百日地量群:=COUNT(V100,5)>=3;
    
63. DRAWTEXT(FILTER(百日地量群,4),V+3*H_L,'地量群'),COLORGRAY;
    
64. 
    
65. {感叹号代表的是长阴短柱的意思，为了保持画面的整洁我没有显示出文字而已，
    
66. 但学过量学的应该都知道其代表的意义，建议您还是不要删掉。
    
67. 非要删掉的话可把公式中的下面几句代码删掉即可。}
    
68. 
    
69. 长阴短柱:=C/REF(C,1)<=0.96 AND 总量 <HHV(总量,30)/1.9;
    
70. DRAWTEXT(长阴短柱,总量+1.6*H_L,' !'),COLORLICYAN;
    
71. 
    
72. 梯量:=VOL>REF(VOL,1) AND REF(VOL,1)>REF(VOL,2) AND (VOL/REF(VOL,2)>=1.9 OR VOL/REF(VOL,3)>=1.9) AND (CLOSE>REF(CLOSE,1) AND REF(CLOSE,1)>REF(CLOSE,2)) AND REF(CLOSE,2)>REF(CLOSE,3),NODRAW,COLOR0033CC;
    
73. 三一缩:=VOL<=REF(V,1)*2/3 AND VOL>=REF(V,1)*0.556,COLORYELLOW,NODRAW;
    
74. 梯四:=REF(梯量,1),COLORRED,NODRAW;
    
75. {DRAWTEXT(倍缩,总量,'2'),COLORYELLOW;}
    
76. DRAWTEXT(三一缩,总量,'3'),COLORYELLOW;
    
77. DRAWTEXT(梯四,总量*1.29,'T4'),COLORYELLOW;
    
78. {成交量MACD}
    
79. VAR21:=总量*1;
    
80. VAR31:=EMA(VAR21,3);
    
81. MAC2:=EMA(VAR31,3),COLOR9900EE,LINETHICK2;
    
82. MAC3:=EMA(MAC2,3),COLOR66FFEE;
    
83. FillRgn(MAC2,MAC3,MAC2>MAC3,RGB(250,0,0),MAC2<MAC3,RGB(0,255,0));{成交量彩带};

复制代码