同花顺听雪主力动向副图源码
留意“控盘度”趋势走向，红绿柱表示主力增仓减仓情况。
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;
