同花顺墨航大单监控源码
指标数据有同花顺提供，收费数据。本人对指标项目做了修改，有效监测主力动向。
红色为当天大单买入（也叫增量大单）
粉色为5日大单存量
绿色为当天大单卖出（减量大单），
蓝色为5日大单卖出总量（5日大单失血总量）
0线以上是存量资金总量，0线下说明市场主力已经出货完毕，没有主力了。
0线以上操盘
IF(PERIODNAME<>"日线")
{
统计:"该指标只在日线周期下有效。";
RETURN;
}
r1:=ZDMR[-1];
r2:=BDMR[-1];
r3:=-ZDMC[-1];
r4:=-BDMC[-1];
x1:=(ZDMR+BDMR);
y1:=-(ZDMC+BDMC);
a1=MA(x1,3);
b1=MA(y1,3);
DDX:=2*(a1+b1);
DDX5:=MA(DDX,5),coloryellow;
Zero := 0;
STICKLINE(DDX5>=0,5*DDX5,0,8,0),colormagenta;
STICKLINE(x1+y1>=0,5*(x1+y1),0,8,0),colorred;
STICKLINE(x1+y1<0,5*(x1+y1),0,8,0),colorgreen;
当日净量正:2*(a1+b1)>=0,colorred,nodraw;
五日净量正:DDX5>=0,colormagenta,nodraw;
当日净量负:2*(a1+b1)<0,colorgreen,nodraw;
{
统计:="本指标由同花顺金融研究中心提供，每晚11点后提供当天的数据。";
RETURN;
}
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)+"％.";
}