主要用于是否有主力介入，红色表示主力机构倾向买方！

IF(PERIODNAME<>'日线')

{

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

RETURN;

}

r1:=ZDMR[-1];

r2:=BDMR[-1];

r3:=-ZDMC[-1];

r4:=-BDMC[-1];

x1:=(ZDMR+BDMR);

y1:=-(ZDMC+BDMC);

STICKLINE(x1+y1>=0,5*(x1+y1),0,8,0),colorred;

STICKLINE(x1+y1<0,5*(x1+y1),0,8,0),colorgreen;

a1=MA(x1,N1);

b1=MA(y1,N1);

DDX:2*(a1+b1);

DDX1:EMA(DDX,N5)*60,COLOR00FFFF;

DDX2:MA(DDX1,N2),COLORFF00FF;

DDX3:MA(DDX2,N3),COLOR00FF00;

FILLRGN(DDX1,DDX2,DDX1>DDX2,RGB(255,0,0),DDX1);

IF(ISNULL(r1))

{

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

RETURN 0;

}

a=(ZDMR[-1]+BDMR[-1]);

b=(ZDMC[-1]+BDMC[-1]);

a3=SUM(a,1)/1000000;

b3=SUM(b,1)/1000000;

VOL1=SUM(VOL,1)/1000000;

IF(a3>b3)

{

y=a3-b3;

z=y/VOL1*100;

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

}

ELSE

{

y=b3-a3;

z=y/VOL1*100;

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

}