通达信1倍至6倍倍量副图源码

VOLUME:VOL,VOLSTICK;
 n:=51;  m:=6;
 主力净买量:(LARGEINTRDVOL-LARGEOUTTRDVOL);
 STICKLINE(V/REF(V,1)>=1.9,V,0,3,0),COLORWHITE;
 STICKLINE(V/REF(V,1)>=2.9,V,0,3,0),COLORYELLOW;
 STICKLINE(V/REF(V,1)>=3.9,V,0,3,0),COLOR00FFFF;
 STICKLINE(V/REF(V,1)>=4.9,V,0,3,0),COLOR9F5F9F;
 STICKLINE(V/REF(V,1)>=4.9,V,0,3,0),COLORD9D919;
 STICKLINE(V/REF(V,1)>=5.9,V,0,3,0),COLORFF1CAE;
 HH0:=CONST(HHV(H,120))*1;
 LL0:=CONST(LLV(L,120))*1;
 MM0:=CONST((HH0+LL0)/2);
 HH1:=IF(CONST(C)<MM0,LL0-(HH0-LL0)*0.4,LL0-(HH0-LL0)*0.4),COLORRED;
 LL1:=LL0;HLMAX:=MAX(HH1,LL1);
 HLMIN:=MIN(HH1,LL1);
 HLMN1:=(HLMAX+HLMIN)/2;
 HLMN2:=(HLMAX-HLMIN);
 HLMN3:=HHV(V,250)/2;
 HLMN4:=HHV(V,250);
 VZ:=(V-HLMN3)*HLMN2/HLMN4+HLMN1;
 
T:=V=LLV(V,20);
 {量能显示涨跌停}
 STICKLINE(C/REF(C,1)>1.099,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,2,0),COLORRED;
 STICKLINE(C/REF(C,1)<0.901,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,2,0),COLORGREEN;
 {资金异常动能显示}
 VY:=(0-HLMN3)*HLMN2/HLMN4+HLMN1;
 STICKLINE(V>=2*REF(V,1),VZ,VY,0.9,0),COLORGREEN;
 STICKLINE(V>=3*REF(V,1),VZ,VY,0.6,0),COLOR3300CC;
 VPT:SUM(VOL*(CLOSE-REF(CLOSE,1))/REF(CLOSE,1),0);
 MAVPT:MA(VPT,M);