用同花顺的应该比较熟悉，是同花顺 拓 赢 版本的指标公式，XX版、有源码

新建公式的时候，需设置参数
N1 0,1,1
N2 0,1,0
N3 0,1,0
N4 0,1,0

机构控盘度线以研究机构大资金的持仓变化为前提，通过观察机构仓位的增减变化了
解机构的操作行为和意图，并以此判断未来股价走势。
红柱表明机构进货，绿柱表明机构出货，长短表明进出的强度。
黄线代表机构的累计控盘度。
上市交易20个交易日以内，柱体的位置在当日机构控盘度的基础上显示；
上市交易20个交易日以上，柱体的位置在机构月平均控盘度的基础上显示。

注：若曲线突然出现巨量增长，并非完全是机构增持导致，可能是由于流通盘变化导
    致，出现这类情况的原因主要有以下几种：
    1.大股东解禁
    2.上市公司增发
    3.分红转增送股所致实时流通盘发生变化。
    在出现以上情况下，曲线上会有三角形提醒用户注意。

用法：
1、股价在相对低位进行震荡整理，此时机构控盘度若出现逐步增加的情况，表明
    机构很可能在悄悄建仓。
2、在股价上涨过程中，若机构控盘度仍逐步上升，表明机构还在收集筹码。
3、在股价上涨过程中，若机构控盘度持续下降，表明机构趁拉高出货。
4、股价在高位盘整时期，若机构控盘度持续下降，绿柱放出，表明机构在出货。
5、需要结合股价历史走势综合研判机构持仓的变化和股价的变动关系，从而分析不
    同个股的机构操作行为。要将机构控盘度线的方向变化和变化量大小进行综合考
    量，但也要特别注意一些机构的骗线手法。   

IF(PERIODNAME<>"日线")//判断周期
{
机构控盘度:"本指标只适用于日线周期";
 RETURN;
}
b1=IF(ISNULL(BIGBUYCOUNT1[-1]),0,BIGBUYCOUNT1[-1])+IF(ISNULL(WAITBUYCOUNT1[-1]),0,WAITBUYCOUNT1[-1]);
s1=IF(ISNULL(BIGSELLCOUNT1[-1]),0,BIGSELLCOUNT1[-1])+IF(ISNULL(WAITSELLCOUNT1[-1]),0,WAITSELLCOUNT1[-1]);
b2=IF(ISNULL(BIGBUYCOUNT2[-1]),0,BIGBUYCOUNT2[-1])+IF(ISNULL(WAITBUYCOUNT2[-1]),0,WAITBUYCOUNT2[-1]);
s2=IF(ISNULL(BIGSELLCOUNT2[-1]),0,BIGSELLCOUNT2[-1])+IF(ISNULL(WAITSELLCOUNT2[-1]),0,WAITSELLCOUNT2[-1]);
	
pos:=-2;

//--------------------------------------------------------



IF(LV_D_SUPER_HLD_RATIO[pos]==NULL)//控盘度、超户曲线
{
	m=JGCGS/(TV_D_PUBLIC_SHARES*LV_D_SUPER_HLD_RATIO);
	IF(ISNULL(m) OR m==0) m=0.4663866413;
	IF(m>0.9) m=0.9;
	ddx:=((b1-s1)+(b2-s2)*0.7)/TV_D_PUBLIC_SHARES *100;//控盘度变化
	ddx1:=((b1-s1)+(b2-s2)*0.7*m)/TV_D_PUBLIC_SHARES *100;//超户变化
	IF(ISNULL(LV_D_SUPER_HLD_RATIO))//判断新股
	{
		RET=(B1+b2)/TV_D_PUBLIC_SHARES *100;
		RET1=B1/TV_D_PUBLIC_SHARES *100;
	}
	ELSE
	{
		X1=LV_D_SUPER_HLD_RATIO*100;//昨天控盘度
		ret:=X1+ddx;//今天控盘度
		X11=LV_D_CH_HLD_RATIO*100;//昨天超户
		Ret1:=X11+ddx1;//今天超户
//-------------------------------控盘度，超户同步调整
		IF(ddx > 0)//增加，控盘度调整，超户同步调整
		{
			IF(x1>95)
			{
				ret := x1+ddx*0.1;
				Ret1 := x11+ddx1*0.1;
			}
			ELSE IF(x1>90)
			{
				ret := x1+ddx*0.5;
				Ret1 := x11+ddx1*0.5;
			}
			ELSE IF(x1>85)
			{
				ret := x1+ddx*0.8;
				Ret1 := x11+ddx1*0.8;
			}
		}
		IF(ddx < 0 )//减少，控盘度调整，超户同步
		{
			IF(x1<5)
			{
				ret := x1+ddx*0.1;
				Ret1 := x11+ddx1*0.1;
			}
			ELSE IF(x1<10)
			{
				ret := x1+ddx*0.5;
				Ret1 := x11+ddx1*0.5;
			}
			ELSE IF(x1<15)
			{
				ret := x1+ddx*0.8;
				Ret1 := x11+ddx1*0.8;
			}
		}
	}
//-----------------------------------控盘度超户绝对值调整
	IF(ISNULL(ret))
		ret := LV_D_SUPER_HLD_RATIO*100;
	IF(ISNULL(ret1))
		Ret1 := LV_D_CH_HLD_RATIO*100;
	IF(ret > 97.18)
		ret := 97.18;
	IF(ret < 2.08)
		ret := 2.08;
	IF(ret1 > 96)
		Ret1 := 96;
	IF(ret1 < 0)
		Ret1 :=0;
}
ELSE
{
	ret=LV_D_SUPER_HLD_RATIO*100;	
	Ret1=LV_D_CH_HLD_RATIO*100;	
}
//---------------------------------------------------------大户持仓比
ret2=ret-ret1;
//-----------------------------------------------------------中户持仓比
A3=100-ret;//a为实时的散户持仓比例

IF(LV_D_ZH_HLD_RATIO[pos]==NULL)
{
DY=LV_D_ZH_HLD_RATIO;//日中户持股占比
BB1= BIGBUYCOUNT3;//主动中单买入股数
SS1=BIGSELLCOUNT3;//主动中单卖出股数
BB2= WAITBUYCOUNT3;//被动中单买入股数
SS2= WAITSELLCOUNT3;//被动中单卖出股数
ZZ1=( BB1+ BB2- SS1- SS2);//当天中户净买入股数
ZZ2=( BB1+ BB2- SS1- SS2)/ TV_D_PUBLIC_SHARES *100;//当天中户净买入占比
	IF(ISNULL(LV_D_ZH_HLD_RATIO))
	{
		RET3=(BB1+BB2)/TV_D_PUBLIC_SHARES *100;
	}
	ELSE
	{
		XX1=DY *100;
		Ret3:=XX1+(ZZ1/TV_D_PUBLIC_SHARES*100);
        IF(ZZ2>=0)
        {
			IF ( XX1>0.9*a3)//a是实时的原散户持仓比
			RET3=XX1+ZZ2*0.1;
			ELSE IF (XX1>0.85*a3)
			RET3=XX1+ZZ2*0.5;
		
		  }
		IF(ZZ2< 0)
            {
			IF (XX1<0.05*a3)
				RET3=XX1+ZZ2*0.1;
			ELSE IF (XX1<0.1*a3)
				RET3=XX1+ZZ2*0.5;
			}
	}
		
	IF (ret3 > 0.95*a3) ret3=0.95 *a3;
	IF (ret3 < 0.02*a3) ret3=0.02 *a3;
	}
ELSE
{
	Ret3= LV_D_ZH_HLD_RATIO *100;	
}

//--------------------------------------------------------------输出
IF(N1>0 AND LV_D_SUPER_HLD_RATIO!=NULL)
   {
	 控盘度:ret;
		IF(LV_D_SUPER_HLD_RATIO[1]!=NULL)
	{
		IF(COUNT(ret>0,0)<20)
		{
		 STICKLINE(ret>ret[1],ret,ret*2-ret[1],5),colorred;
	    STICKLINE(ret<ret[1],ret,ret*2-ret[1],5),colorgreen;
	    DRAWICON((TV_D_PUBLIC_SHARES>1.05*TV_D_PUBLIC_SHARES[1] OR TV_D_PUBLIC_SHARES<0.95*TV_D_PUBLIC_SHARES[1]),ret*2-ret[1],"kaka");
		}
		ELSE
		{
   STICKLINE(ret>ret[1],MA(ret,20),MA(ret,20)+(ret-ret[1]),5),colorred;
	STICKLINE(ret<ret[1],MA(ret,20),MA(ret,20)+(ret-ret[1]),5),colorgreen;
	DRAWICON((TV_D_PUBLIC_SHARES>1.05*TV_D_PUBLIC_SHARES[1] OR TV_D_PUBLIC_SHARES<0.95*TV_D_PUBLIC_SHARES[1]),MA(ret,20)+(ret-ret[1]),"kaka");
	   }
	}
	}
//IF(n2>0 AND LV_D_SUPER_HLD_RATIO!=NULL)
//超级: ret1;
//IF(n3>0 AND LV_D_SUPER_HLD_RATIO!=NULL)
//机构: ret2;
//IF(n4>0 AND LV_D_SUPER_HLD_RATIO!=NULL)
//中户:ret3;
//DRAWICON((TV_D_PUBLIC_SHARES>1.05*TV_D_PUBLIC_SHARES[1] OR TV_D_PUBLIC_SHARES<0.95*TV_D_PUBLIC_SHARES[1]),MA(ret,20),"kaka")