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

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

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;