机构控盘度拓赢版本[同花顺公式]

相关标签:机构控盘度指标公式 、 赢在龙头控盘力度指标 、 机构控盘 拓赢 、 控盘力度 指标公式 、 主力控盘指标公式 、 通达信主力控盘度指标 、 世纪起点 控盘度指标 、 高控盘度指标 、 同花顺机构控盘指标 、 主力控盘指标公式源码 、 高度控盘指标公式 、 经传主力控盘指标公式 、 控盘力度指标源码 、 机构控盘度指标源码 、 控盘力度指标 通达信 、

机构控盘度 拓赢版本新建公式的时候，需设置参数

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、需要结合股价历史走势综合研判机构持仓的变化和股价的变动关系，从而分析不
同个股的机构操作行为。要将机构控盘度线的方向变化和变化量大小进行综合考
量，但也要特别注意一些机构的骗线手法。源码

原理解析：
如果PERIODNAME不等于"日线",返回?,否则返回?//判断周期B1=如果ISNULL(BIGBUYCOUNT1[-1]),返回0,否则返回BIGBUYCOUNT1[-1]+如果ISNULL(WAITBUYCOUNT1[-1]),返回0,否则返回WAITBUYCOUNT1[-1] S1=如果ISNULL(BIGSELLCOUNT1[-1]),返回0,否则返回BIGSELLCOUNT1[-1]+如果ISNULL(WAITSELLCOUNT1[-1]),返回0,否则返回WAITSELLCOUNT1[-1] B2=如果ISNULL(BIGBUYCOUNT2[-1]),返回0,否则返回BIGBUYCOUNT2[-1]+如果ISNULL(WAITBUYCOUNT2[-1]),返回0,否则返回WAITBUYCOUNT2[-1] S2=如果ISNULL(BIGSELLCOUNT2[-1]),返回0,否则返回BIGSELLCOUNT2[-1]+如果ISNULL(WAITSELLCOUNT2[-1]),返回0,否则返回WAITSELLCOUNT2[-1] POS赋值:-2 赋值: LV_D_SUPER_HLD_RATIO*100 赋值: LV_D_CH_HLD_RATIO*100 赋值: 97.18 赋值: 2.08 赋值: 96 赋值:0 }ELSE//---------------------------------------------------------大户持仓比RET2=RET-RET1 //-----------------------------------------------------------中户持仓比A3=100-RET //A为实时的散户持仓比例IF(LV_D_ZH_HLD_RATIO[POS]]NULL)ELSEIF(ZZ2< 0)}如果RET3>0.95*A3,返回?,否则返回? RET3=0.95 *A3 如果RET3<0.02*A3,返回?,否则返回? RET3=0.02 *A3 }ELSE//--------------------------------------------------------------输出IF(N1>0 AND LV_D_SUPER_HLD_RATIO不等于NULL)ELSE}}//如果N2>0ANDLV_D_SUPER_HLD_RATIO不等于NULL,返回?,否则返回?//超级: RET1 输出//如果N3>0ANDLV_D_SUPER_HLD_RATIO不等于NULL,返回?,否则返回?//机构: RET2 输出//如果N4>0ANDLV_D_SUPER_HLD_RATIO不等于NULL,返回?,否则返回?//中户:RET3 //当满足条件(TV_D_PUBLIC_SHARES>1.05*TV_D_PUBLIC_SHARES[1]ORTV_D_PUBLIC_SHARES<0.95*TV_D_PUBLIC_SHARES[1])时,在RET的20日简单移动平均位置画"KAKA"号图标TIPTEXT(ISNULL(1日后的&收盘价),0,' WWW.CXH99.COM '),画红色 TIPTEXT(ISNULL(1日前的收盘价),0,'同花顺程序化交易')

 来源:程序化99（ WWW.CXH99.COM ）

源码：

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")
TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' WWW.CXH99.COM '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花顺程序化交易');

公式导入教程: 【通达信公式源码导入方法教程】 【同花顺公式源码导入方法教程】 【大智慧新一代公式源码导入方法教程】