http://s4/mw690/001Ofi0Dzy75Drrbt0Te3&690

http://s13/mw690/001Ofi0Dzy75Drr8ItC2c&690

IF(PERIODNAME<>"日线")

{统计:"该指标只在日线周期下有效。";

RETURN;

}

r1:=ZDMR[-1];

r2:=BDMR[-1];

r3:=-ZDMC[-1];

r4:=-BDMC[-1];

x:=(ZDMR+BDMR)/SHGZG*30;

y:=-(ZDMC+BDMC)/SHGZG*30;

x1:=(ZDMR+BDMR)/SHGZG*100;

y1:=-(ZDMC+BDMC)/SHGZG*100;

a1=SUM(x1,0);

b1=SUM(y1,0);

主力持仓:a1+b1;

r:=((ZDMR[-1]+BDMR[-1])-(ZDMC[-1]+BDMC[-1]))/SHGZG*100;

b:=SUM(r,0);

STICKLINE(x1>0,x+b,b,2),colorred;

STICKLINE(y1<0,b,b+y,2),colorgreen;

IF(ISNULL(r1))

{

统计:"本指标由同花顺金融研究中心提供，每晚11点后提供当天的数据。";

RETURN;

}

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;

IF(a3>b3)

{

y=a3-b3;

z=y/VOL1*100;

统计:TOSTRING(n,0)+"天机构买入"+TOSTRING(a3,1)+"万手,卖出"+TOSTRING(b3,1)+"万手.净买入"+TOSTRING(y,1)+"万手.占总成交"+TOSTRING(z,1)+"％.";

}

ELSE

{

y=b3-a3;

z=y/VOL1*100;

统计:TOSTRING(n,0)+"天机构买入"+TOSTRING(a3,1)+"万手,卖出"+TOSTRING(b3,1)+"万手.净卖出"+TOSTRING(y,1)+"万手.占总成交"+TOSTRING(z,1)+"％.";

}