通达信实用的VOL未加密选股指标公式源码

源码正文：

一个实用的vol，可看出换手还是打压
显示的蓝色棒，是换手

参数: m 1 120 5

HSL:HSL*CAPITAL,LINETHICK1 COLORFF00FF {XG51};
maHSL:MA(HSL,M),LINETHICK1 COLORBLUE{XG51};
VUR0:=(2*OPEN+HIGH+LOW+3*CLOSE)/7{XG51};
VUR1:=IF(CAPITAL,CAPITAL,-1)*VUR0{XG51};
VUR2:=SMA(AMOUNT,10,1)/1000{XG51};
VUR3:=MA(CLOSE*3,5){XG51};
VUR4:=VUR2*(CLOSE*3)/VUR3*1/10{XG51};
VUR5:=VUR2*(OPEN*3)/VUR3*1/10{XG51};
VUR6:=VUR2*(HIGH*3)/VUR3*1/10{XG51};
VUR7:=VUR2*(LOW*3)/VUR3*1/10{XG51};
VUR8:=(2*VUR5+VUR6+VUR7+3*VUR4)/7{XG51};
VUR9:=dma(ema(VUR4,2),SUM(VOL,1)*VUR8){XG51};
VUR10:=EMA(VUR9,2){XG51};
VURA:=VUR9>VUR10{XG51};
VURB:=EMA(VUR1-VUR9,1){XG51};
VURC:=REF(VURB,1){XG51};
VURD:=VURB>VURC{XG51};
VURE:=(VURB-VURC)*15{XG51};
VURF:=(VUR9-VUR10)*30000{XG51};
VURG:=(VURC-VURB)*(-1){XG51};
VURH:=IF(VURB>VURC,VURE/500,0){XG51};
VURN:=IF(VURB<VURC,VURE/500,0){XG51};
VURT:=IF(VURA AND VURD,VURF/2000000,0){XG51};
VURL:=IF(VURA AND VURB<VURC,VURE/1000,0){XG51};
0,COLOR8A8A8A{XG51};
买进量_手:VURH,COLORWHITE,POINTDOT{XG51};
卖出量_手:VURN,COLORCYAN,POINTDOT{XG51};
买进_强烈:VURT,COLORBLUE,POINTDOT{XG51};
打压_减筹:VURL,COLORFF00FF,POINTDOT{XG51};
stICKLINE(VURB>VURC,0,VURE,2.5,1),COLORWHITE{XG51};
STICKLINE(VURB<VURC,0,VURE,2.5,0),COLORCYAN{XG51};
STICKLINE(VURA AND VURD AND CLOSE>OPEN,0,VURF*0.5,2.5,0),COLORBLUE{XG51};
STICKLINE(VURA AND VURB<VURC,0,VURE,2.5,0),COLORLIMAGENTA{XG51};
HS:=FLOOR(SUM(V/CAPITAL,0)){XG51};
完全换手:STICKLINE(HS>REF(HS,1),0,VURE,2,0),COLORFF0000{X_G!5^1_C_N_{};

源码正文：

N:=3{XG51};
L0:=0.00{XG51};
L1:=Abs(L-REF(L,1))<=L0{XG51};
L2:=ABS(L-REF(L,2))<=L0{XG51};
L3:=ABS(L-REF(L,3))<=L0{XG51};
L4:=ABS(L-REF(L,4))<=L0{XG51};
L5:=ABS(L-REF(L,5))<=L0{XG51};
精准线首次:=L1 OR L2 OR L3 OR L4 OR L5{XG51};
精准左:=FILTER(精准线首次,N) {XG51};
天数:=BArslAst(精准左){XG51};
LTS:=REF(L,天数){XG51};
精准右:=ABS(L-LTS)<=L0{XG51};
STICKLINE(精准左,L,L,50,-1),Color8080FF{XG51};
G1:=ABS(H-REF(H,1))<=L0{XG51};
G2:=ABS(H-REF(H,2))<=L0{XG51};
G3:=ABS(H-REF(H,3))<=L0{XG51};
G4:=ABS(H-REF(H,4))<=L0{XG51};
G5:=ABS(H-REF(H,5))<=L0{XG51};
G6:=ABS(H-REF(H,6))<=L0{XG51};
G7:=ABS(H-REF(H,7))<=L0{XG51};
G8:=ABS(H-REF(H,8))<=L0{XG51};
精准线1首次:=G1 OR G2 OR G3 OR G4 OR G5 OR G6 OR G7 OR G8{XG51};
精准左1:=FILTER(精准线1首次,N) {XG51};
天数1:=BARSLAST(精准左1){XG51};
GTS:=REF(L,天数1){XG51};
精准右1:=ABS(H-LTS)<=L0{XG51};
STICKLINE(精准左1,H,H,50,-1),Color00FF00{X.G_5+1.C.N.{};