機構控盤度拓贏版本

作者：同花順來源：cxh99.com 發布時間：2017年11月28日

相關標簽:機構控盤度指標公式、贏在龍頭控盤力度指標、機構控盤拓贏、控盤力度指標公式、主力控盤指標公式、通達信主力控盤度指標、世紀起點控盤度指標、高控盤度指標、同花順機構控盤指標、主力控盤指標公式源碼、高度控盤指標公式、經傳主力控盤指標公式、控盤力度指標源碼、機構控盤度指標源碼、控盤力度指標通達信、

機構控盤度拓贏版本新建公式的時候，需設置參數

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.tumamayizhan.com '),畫紅色 TIPTEXT(ISNULL(1日前的收盤價),0,'同花順程序化交易')

?來源:程序化99（ www.tumamayizhan.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.tumamayizhan.com '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

公式導入教程: 【通達信公式源碼導入方法教程】【同花順公式源碼導入方法教程】【大智慧新一代公式源碼導入方法教程】