一、

IF(STRFIND(PERIODNAME,"分钟",1)>0)
{
统计:"该指标只在日线、周线、月线、季线和年线周期下有效。";
RETURN;
}
r:=((ZDMR[-1]+BDMR[-1])-(ZDMC[-1]+BDMC[-1]))/SHGZG*100;
大单净量:=r;
r0:=((IF(ISNULL(ZDMR[-1]),0,ZDMR)+IF(ISNULL(BDMR[-1]),0,BDMR))
        -(IF(ISNULL(ZDMC[-1]),0,ZDMC)+IF(ISNULL(BDMC[-1]),0,BDMC)))
                /SHGZG*100;
主力持仓:SUM(r0,9999999);
分界:0,colorffffff;
RETURN r0;

二、

只要有L2帐号，就可以用机构版的机构控盘度，我自己曾经也试着编了一下，差不多，主要数据就是大单净量的深化。只是有些细部处理的不好，主要是对解禁股上市的统计，和原版比，有些个股一有解禁上市时对不上，我看了别人的，基本思路跟当初我想的差不多，有一点是大家没有注意的，里面一定有个常数，我为这个常数取什么值苦恼了很久，现在基本处理的差不多了，
原码很粗糙，只是个思路，大家自己改吧；
sd:=-COUNTTIME(DATE,20070730,3);
r1:=IF(ISNULL(ZDMR[-1]),0,ZDMR[-1]);
r2:=IF(ISNULL(BDMR[-1]),0,BDMR[-1]);
r3:=IF(ISNULL(ZDMC[-1]),0,-ZDMC[-1]);
r4:=IF(ISNULL(BDMC[-1]),0,-BDMC[-1]);

主力买入:=IF(SD>0,r1+r2,0);
主力卖出:=IF(SD>0,r3+r4,0);
净买入:=(主力买入+主力卖出);
DT:=净买入*100/CAPITAL;
jgcg:=(ZGB-SHGZG)/ZGB*100;
TP:IF(sd>0,jgcg+SUM(DT,sd),jgcg);//这条代码后的所有曲线属性都勾选“数值输出”，不要选“输出线形”
IF(净买入>0)
净买:净买入/100;
ELSE
净卖:净买入/100;

IF(净买入>0)
        净买占:净买入/CAPITAL*100;
        ELSE
        净卖占:净买入/CAPITAL*100;
C1:=TP-REF(TP,1);
STICKLINE(C1>=0,TP,TP+DT,3,0),Color0000ff;
STICKLINE(C1>=0 AND 净买占>0.5,TP,TP+DT,5,0),Color0000FF;
STICKLINE(C1<0,TP,TP+DT,3,0),Color00ff00;
STICKLINE(C1<0 AND 净卖占<-0.5 ,TP,TP+DT,5,0),Color00ff00;

其实这个东西现在没什么意思了，大家做的差不多，不要太迷信它，把下面的删掉就成了持仓比例指标，只要有L2帐号，下个大机构版就能用它。还有一些所谓的绝密指标都是来源于BDMR[-1],ZDMR[-1],BDMC[-1],ZDMC[-1]四个函数，就连主被买入卖出资金都用它算来的，让我觉得意外的是，全部用的当日的CLOSE,我到是觉得用（H+L+O+C）/4更好，真不晓得同花是怎么想的，