通达信筹码进出源码

自用的指标推荐给大家，贴图有解。
第3行包含未来函数：capital，
CAPITAL函数是当前流通股本，不会漂移。
通达信【筹码进出】（副图）
VUR0:=(2*O+H+L+3*C)/7;
VUR1:=CAPITAL*VUR0;
VUR2:=SMA(AMOUNT,10,1)/1000;
VUR3:=MA(C*3,5);
VUR4:=VUR2*C*3/VUR3*1/10;
VUR5:=VUR2*O*3/VUR3*1/10;
VUR6:=VUR2*H*3/VUR3*1/10;
VUR7:=VUR2*L*3/VUR3*1/10;
VUR8:=(2*VUR5+VUR6+VUR7+3*VUR4)/7;
VUR9:=DMA(EMA(VUR4,2),SUM(V,1)*VUR8);
VUR10:=EMA(VUR9,2);
VURA:=VUR9>VUR10;
VURB:=EMA(VUR1-VUR9,1);
VURC:=REF(VURB,1);
VURD:=VURB>VURC;
VURS:=VURD AND C>O;
VURE:=(VURB-VURC)*15;
VURF:=(VUR9-VUR10)*15000;
VURG:=(VURC-VURB)*(-1);
VURH:=IF(VURB>VURC,VURE/1000,0);
VURN:=IF(VURB<VURC,VURE/1000,0);
VURT:=IF(VURA AND VURS,VURF/10000,0);
VURL:=IF(VURA AND VURB<VURC,VURE/1000,0);
吸进量:VURH,POINTDOT,COLORFF00FF;
吐出量:VURN,POINTDOT,COLOR10FF10;
买进强烈:VURT,POINTDOT,COLOR10FFFF;
减筹打压:VURL,POINTDOT,COLORFFF516;
STICKLINE(VURB>VURC,0,VURE,3,1),COLORFF00FF;
STICKLINE(VURB<VURC,0,VURE,3,0),COLOR10FF10;
STICKLINE(VURA AND VURS,0,VURF,3,0),COLOR10FFFF;
STICKLINE(VURA AND VURB<VURC,0,VURE,3,0),COLORFFF516;
大智慧【筹码进出】（副图）
vur0:=(2*o+h+l+3*c)/7;
vur1:=capital*vur0;
vur2:=sma(amount,10,1)/1000;
vur3:=ma(c*3,5){*vhs1};
vur4:=vur2*c*3/vur3*1/10;
vur5:=vur2*o*3/vur3*1/10;
vur6:=vur2*h*3/vur3*1/10;
vur7:=vur2*l*3/vur3*1/10;
vur8:=(2*vur5+vur6+vur7+3*vur4)/7;
vur9:=dma(ema(vur4,2),sum(v,1)*vur8);
vur10:=ema(vur9,2);
vura:=vur9>vur10;
vurb:=ema(vur1-vur9,1);
vurc:=ref(vurb,1);
vurd:=vurb>vurc;
vurs:=vurd and c>o;
vure:=(vurb-vurc)*15;
vurf:=(vur9-vur10)*15000;
vurg:=(vurc-vurb)*(-1);
vurh:=if(vurb>vurc,vure/1000,0);
vurn:=if(vurb<vurc,vure/1000,0);
vurt:=if(vura and vurs,vurf/10000,0);
vurl:=if(vura and vurb<vurc,vure/1000,0);
吸进量:vurh,pointdot,colorff00ff;
吐出量:vurn,pointdot,color10ff10;
买进强烈:vurt,pointdot,color10ffff;
减筹打压:vurl,pointdot,colorfff516;
stickline(vurb>vurc,0,vure,6.8,1),colorff00ff;
stickline(vurb<vurc,0,vure,6.8,0),color10ff10;
stickline(vura and vurs,0,vurf,6.8,0),color10ffff;
stickline(vura and vurb<vurc,0,vure,6.8,0),colorfff516;