机构控盘度（源码）

机构控盘度   

  

IF(PERIODNAME<>"日线")   

{   

机构控盘度:"本指标只适用于日线周期";   

RETURN;   

}   

IF(ISNULL(LV_D_SUPER_HLD_RATIO[-1])!=0)   

{   

        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]);   

  

        ddx:=((b1-s1)+(b2-s2)*0.7)/TV_D_PUBLIC_SHARES *100;   

        IF(ISNULL(LV_D_SUPER_HLD_RATIO))   

        {   

                RET=(B1+b2)/TV_D_PUBLIC_SHARES *100;   

        }   

        ELSE   

        {   

                X1=LV_D_SUPER_HLD_RATIO*100;   

                ret:=X1+ddx;   

                IF(ddx > 0)   

                {   

                        IF(x1>95)   

                        ret := x1+ddx*0.1;   

                        ELSE IF(x1>90)   

                        ret := x1+ddx*0.5;   

                        ELSE IF(x1>85)   

                        ret := x1+ddx*0.8;   

                }   

                IF(ddx < 0)   

                {   

                        IF(x1<5)   

                                ret := x1+ddx*0.1;   

                        ELSE IF(x1<10)   

                                ret := x1+ddx*0.5;   

                        ELSE IF(x1<15)   

                                ret := x1+ddx*0.8;   

                }   

        }   

        IF(ISNULL(ret))   

                ret := LV_D_SUPER_HLD_RATIO*100;   

        IF(ret > 97.18)   

                ret := 97.18;   

        IF(ret < 2.08)   

                ret := 2.08;   

  

}   

ELSE   

{   

        ret=LV_D_SUPER_HLD_RATIO*100;           

}   

x:=ret;   

        STICKLINE(x>x[1],x,x*2-x[1],5),colorred;   

        STICKLINE(x

RETURN(ret);