软件名称：[B]机构控盘度[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：免费版
软件大小：6.00 KB
官方主页：Home Page
更新时间：2015-11-21 01:31:55
软件简介:
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")
[url=http://www.70822.com/soft/sort013/sort036/down-91356.html]机构控盘度[/url]