同花顺听雪主力动向副图源码

留意“控盘度”趋势走向，红绿柱表示主力增仓减仓情况。

r:=((ZDMR[-1]+BDMR[-1])-(ZDMC[-1]+BDMC[-1]))/SHGZG*100;
 t:=BARSCOUNT(SHGZG);
 b:=SUM(r,t);
主力持仓:b;
 n:=5;
 x2:=HHV(r,n);
 S:=STD(SHGZG,2)/1000000;
 S1:=-STD(SHGZG,2)/1000000;
 STICKLINE(r>0,r+b,b,2),colorred;
 STICKLINE(r<0,b,b+r,2),colorgreen;
 STICKLINE(s>0,x2+b,b+r*3,3),coloryellow;
 STICKLINE(s1<0,b+r*3,b-x2,3),coloryellow;
 IF(ISNULL(r))
 a=(ZDMR[-1]+BDMR[-1]);
 b=(ZDMC[-1]+BDMC[-1]);
 a3=SUM(a,n)/1000000;
 b3=SUM(b,n)/1000000;
 VOL1=SUM(VOL,n)/1000000;
 S3=STD(SHGZG,2)/10000;
 IF(a3>b3)
 {
 y=a3-b3;
 z=y/VOL1*100;
主力增加:TOSTRING(r,2)+"％."+TOSTRING(n,0)+"天主力净买入"+TOSTRING(y,1)+"万手.占总成交"+TOSTRING(z,1)+"％."+"流通盘增加"+TOSTRING(s3,2)+"万.";
 }
ELSE
 {
 y=b3-a3;
 z=y/VOL1*100;
主力增加:TOSTRING(r,2)+"％."+TOSTRING(n,0)+"天主力净买入"+TOSTRING(y,1)+"万手.占总成交"+TOSTRING(z,1)+"％."+"流通盘增加"+TOSTRING(s3,2)+"万.";
 }
Var1:=(CLOSE+HIGH+LOW)/3;
 Var2:=EMA(EMA(EMA(Var1,1),13),21);
控盘度:(Var2-REF(Var2,1))/REF(Var2,1)*1000;
强弱分界:= 0;