N 1，999，1
IF(PERIODNAME<>"日线")
{统计:"该指标只在日线周期下有效。";
RETURN;
}
r1:=ZDMR[-1];
r2:=BDMR[-1];
r3:=-ZDMC[-1];
r4:=-BDMC[-1];
x:=(ZDMR+BDMR)/SHGZG*30;
y:=-(ZDMC+BDMC)/SHGZG*30;
x1:=(ZDMR+BDMR)/SHGZG*100;
y1:=-(ZDMC+BDMC)/SHGZG*100;
a1=SUM(x1,0);
b1=SUM(y1,0);
主力持仓:=a1+b1;
r:=((ZDMR[-1]+BDMR[-1])-(ZDMC[-1]+BDMC[-1]))/SHGZG*100;
b:=SUM(r,0);
STICKLINE(x1>0,x+b,b,2),colorred;
STICKLINE(y1<0,b,b+y,2),colorgreen;
IF(ISNULL(r1))
{
统计:"本指标由同花顺金融研究中心提供，每晚11点后提供当天的数据。";
RETURN;
}
a=(ZDMR[-1]+BDMR[-1]);
b=(ZDMC[-1]+BDMC[-1]);
a3=SUM(a,n)/1000000;
b3=SUM(b,n)/1000000;
VOL1=SUM(VOL,n)/1000000;
IF(a3>b3)
{
y=a3-b3;
z=y/VOL1*100;
统计:TOSTRING(n,0)+"天机构买入"+TOSTRING(a3,1)+"万手,卖出"+TOSTRING(b3,1)+"万手.净买入"+TOSTRING(y,1)+"万手.占总成交"+TOSTRING(z,1)+"％.";
}
ELSE
{
y=b3-a3;
z=y/VOL1*100;
统计:TOSTRING(n,0)+"天机构买入"+TOSTRING(a3,1)+"万手,卖出"+TOSTRING(b3,1)+"万手.净卖出"+TOSTRING(y,1)+"万手.占总成交"+TOSTRING(z,1)+"％.";
}
=========================================================
同花顺l2公式函数2
主力买卖大单
N 1，100，1
IF(PERIODNAME<>"日线")
{
统计:"该指标只在日线周期下有效。";
RETURN;
}
r1:=ZDMR[-1];
r2:=BDMR[-1];
r3:=-ZDMC[-1];
r4:=-BDMC[-1];
STICKLINE(r2>0,r1,r1+r2,8),color160060;
STICKLINE(r1>0,0,r1,8),color0000ff;
STICKLINE(r3<0,0,r3,8),color00ff00;
STICKLINE(r4<0,r3,r3+r4,8),color166000;
x1:=(ZDMR+BDMR);
y1:=-(ZDMC+BDMC);
a1=MA(x1,n);
b1=MA(y1,n);
净买入:a1+b1;
净买入比值:(a1+b1)/VOL*100;
IF(ISNULL(r1))
{
统计:"本指标由同花顺金融研究中心提供，每晚11点后提供当天的数据。";
RETURN;
}
a=(ZDMR[-1]+BDMR[-1]);
b=(ZDMC[-1]+BDMC[-1]);
a3=SUM(a,n)/1000000;
b3=SUM(b,n)/1000000;
VOL1=SUM(VOL,n)/1000000;
IF(a3>b3)
{
y=a3-b3;
z=y/VOL1*100;
统计:TOSTRING(n,0)+"天机构买入"+TOSTRING(a3,1)+"万手,卖出"+TOSTRING(b3,1)+"万手.净买入"+TOSTRING(y,1)+"万手.占总成交"+TOSTRING(z,1)+"％.";
}
ELSE
{
y=b3-a3;
z=y/VOL1*100;
统计:TOSTRING(n,0)+"天机构买入"+TOSTRING(a3,1)+"万手,卖出"+TOSTRING(b3,1)+"万手.净卖出"+TOSTRING(y,1)+"万手.占总成交"+TOSTRING(z,1)+"％.";
}
=====================================
资金流向
IF(STRFIND(PERIODNAME,"分钟",1)>0)
{
统计:"该指标只在日线、周线、月线、季线和年线周期下有效。";
RETURN;
}
资金流出:-ZJLC[-1];
资金流入:ZJLR[-1];
资金流向:资金流出+资金流入;
IF(ISNULL(资金流出) AND ISNULL(资金流入))
==================================================
机构动向
IF(PERIODNAME<>"日线")
{
当日机构动向:"本指标只适用于日线周期";
RETURN;
}
z:0;
a:=ZDMR[-1]+BDMR[-1];
b:=ZDMC[-1]+BDMC[-1];
bl:=(a-b)/(a+b)*100;
IF(ABS(bl)<30)
当日机构动向:bl;
ELSE
今日机构动向
:bl;
大单净量日线
IF(STRFIND(PERIODNAME,"分钟",1)>0)
{
统计:"该指标只在日线、周线、月线、季线和年线周期下有效。";
RETURN;
}
r:=((ZDMR[-1]+BDMR[-1])-(ZDMC[-1]+BDMC[-1]))/SHGZG*100;
大单净量:r;
STICKLINE(r>0,0,r,8),color0000ff;
STICKLINE(r<0,0,r,8),color00ff00;
r0:=((IF(ISNULL(ZDMR[-1]),0,ZDMR)+IF(ISNULL(BDMR[-1]),0,BDMR))
-(IF(ISNULL(ZDMC[-1]),0,ZDMC)+IF(ISNULL(BDMC[-1]),0,BDMC)))
/SHGZG*100;
MA5:MA(r0,5);
MA10:MA(r0,10);
MA20:MA(r0,20);
RETURN r0;
上证BBD
大单净差BBD:100*(BIGBUYCOUNT1+WAITBUYCOUNT1-BIGSELLCOUNT1-WAITSELLCOUNT1);
大单净额:BIGBUYMONEY1+WAITBUYMONEY1-BIGSELLMONEY1-WAITSELLMONEY1;
三日BBD:SUM(大单净差BBD,3);
五日BBD:SUM(大单净差BBD,5);
十日BBD:SUM(大单净差BBD,10);
机构控盘度
IF(ISNULL(LV_D_SUPER_HLD_RATIO[-1])==0)
{
x:=LV_D_SUPER_HLD_RATIO*100;
STICKLINE(x>x[1],x,x*2-x[1],5),colorred;
STICKLINE(x
}
ddx:=((ZDMR[-1]+BDMR[-1])-(ZDMC[-1]+BDMC[-1]))/ TV_D_PUBLIC_SHARES *100;
//判断新股
IF(ISNULL(LV_D_SUPER_HLD_RATIO))
{
bl:=((ZDMR[-1]+BDMR[-1]))/TV_D_PUBLIC_SHARES*100;
IF(ISNULL(bl[1])==0)
bl:=bl[1];
}
ELSE
bl:=LV_D_SUPER_HLD_RATIO*100;
//
//bl 是起始比例
x:=bl;
x1:=x[1];
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 := bl;
IF(ret > 97.18)
ret := 97.18;
IF(ret < 2.08)
ret := 2.08;
x:=ret;
STICKLINE(x>x[1],x,x*2-x[1],5),colorred;
STICKLINE(x
大盘控盘度
IF(CODETYPE>0)
{
RETURN "该指标只用于指数。";
}
IF(ISNULL(LV_D_SUPER_HLD_RATIO[-1])==0)
{
x:=LV_D_SUPER_HLD_RATIO*100;
RETURN x;
}
ddx:=(BIGBUYCOUNT1[-1]+WAITBUYCOUNT1[-1]-BIGSELLCOUNT1[-1]-WAITSELLCOUNT1[-1])/TV_D_PUBLIC_SHARES*100;
//判断新股
IF(ISNULL(LV_D_SUPER_HLD_RATIO))
{
bl:=((ZDMR[-1]+BDMR[-1]))/TV_D_PUBLIC_SHARES*100;
IF(ISNULL(bl[1])==0)
bl:=bl[1];
}
ELSE
bl:=LV_D_SUPER_HLD_RATIO*100;
//
//bl 是起始比例
x:=bl;
x1:=x[1];
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 := bl;
IF(ret > 97.18)
ret := 97.18;
IF(ret < 2.08)
ret := 2.08;
x:=ret;
RETURN ret;