股票行情+个股解答
打印

[飞狐] 分笔《龙虎榜》原码可用于L2

分笔《龙虎榜》原码可用于L2

根据 [大智慧L2] 分笔《龙虎榜》原码改变!
input:n(403,1,10000);
a:=BUYVOL*c/100;
bz:=sum(a,0);
b:=c*SELLVOL/100;
sz:=sum(b,0);
z:=bz+sz;
cz:=bz-sz;
xb5:=if(a<=5  ,a,0);b5:=sum(xb5,0);
xs5:=if(b<=5  ,b,0);s5:=sum(xs5,0);
xb10:=if(a<=10 and a>=5 ,a,0);b10:=sum(xb10,0);
xs10:=if(b<=10 and b>=5,b,0);s10:=sum(xs10,0);
xb30:=if(a<=30 and a>=10 ,a,0);b30:=sum(xb30,0);
xs30:=if(b<=30 and b>=10 ,b,0);s30:=sum(xs30,0);
xb50:=if(a<=50 and a>=30 ,a,0);b50:=sum(xb50,0);
xs50:=if(b<=50 and b>=30 ,b,0);s50:=sum(xs50,0);
xb70:=if(a<=70 and a>=50 ,a,0);b70:=sum(xb70,0);
xs70:=if(b<=70 and b>=50 ,b,0);s70:=sum(xs70,0);
xb100:=if(a<=100 and a>=70,a,0);b100:=sum(xb100,0);
xs100:=if(b<=100 and b>=70,b,0);s100:=sum(xs100,0);
xb150:=if(a>=100 ,a,0);b150:=sum(xb150,0);
xs150:=if(b>=100 ,b,0);s150:=sum(xs150,0);
j5:=b5-s5;
j10:=b10-s10;
j30:=b30-s30;
j50:=b50-s50;
j70:=b70-s70;
j100:=b100-s100;
j150:=b150-s150;
dd:=LN(FINANCE(7)/(n*10))*ATAN(FINANCE(7))*100;
主动买入:=SUM(BUYVOL,0);
主动卖出:=SUM(SELLVOL,0);
大单买:=if(BUYVOL>=dd,BUYVOL,0);
大单卖:=if(SELLVOL>dd,SELLVOL,0);
大单买入:=SUM(大单买,0);
大单卖出:=SUM(大单卖,0);
小单买入:=主动买入-大单买入;
小单卖出:=主动卖出-大单卖出;
大买金:=sum(if(BUYVOL>=dd,BUYVOL,0)*c,0);
大单买均价:=大买金/大单买入;
大卖金:=sum(if(SELLVOL>dd,SELLVOL,0)*c,0);
大单卖均价:=大卖金/大单卖出;
成交笔数:=sum(if(BUYVOL>0,1,0),0)+sum(if(SELLVOL>0,1,0),0);
大单净量:=大单买入-大单卖出;
EXPLAIN(1=1,'◆代码:'+stklabel+' '+STKNAME),Color4080FF;
EXPLAIN(1,'------------------------------------'),COLORccff00;
EXPLAIN(1,'总成金额(万元):'+NUMTOSTR(z,2)),COLOR00ffff;
EXPLAIN(1,'买入:'+NUMTOSTR(bz,2)+'   卖出: '+NUMTOSTR(sz,2)),COLORwhite;
EXPLAIN(1,'分    类  买   入   卖  出   买卖比例'),color336699;
EXPLAIN(1,'  5万大单 '+NUMTOSTR(b5,2)+ '   '+NUMTOSTR(s5,2)+'    '+NUMTOSTR(j5,2)),COLORred;
EXPLAIN(1,' 10万大单 '+NUMTOSTR(b10,2)+'   '+NUMTOSTR(s10,2)+'   '+NUMTOSTR(j10,2)),COLORred;
EXPLAIN(1,' 30万大单 '+NUMTOSTR(b30,2)+'   '+NUMTOSTR(s30,2)+'   '+NUMTOSTR(j30,2)),COLORred;
EXPLAIN(1,' 50万大单 '+NUMTOSTR(b50,2)+'   '+NUMTOSTR(s50,2)+'   '+NUMTOSTR(j50,2)),COLORred;
EXPLAIN(1,' 70万大单 '+NUMTOSTR(b70,2)+'   '+NUMTOSTR(s70,2)+'   '+NUMTOSTR(j70,2)),COLORred;
EXPLAIN(1,'100万大单 '+NUMTOSTR(b100,2)+'   '+NUMTOSTR(s100,2)+'   '+NUMTOSTR(j100,2)),COLORred;
EXPLAIN(1,'150万大单 '+NUMTOSTR(b150,2)+'   '+NUMTOSTR(s150,2)+'   '+NUMTOSTR(j150,2)),COLORred;
EXPLAIN(1,'■■■■总净买入:'+NUMTOSTR(cz,2)),LINETHICK1,COLORccff00;
EXPLAIN(1,'--------------龙虎盯盘---------------'),COLORccff00;
EXPLAIN(1,'■ 大单净量:  '+NUMTOSTR(大单净量,0)+'  占'+NUMTOSTR(FLOOR(大单净量/(主动买入+主动卖出)*100),0)+'%'),COLOR00FFFF;
EXPLAIN(1,'■ 大单买入:  '+NUMTOSTR(大单买入,0)+'  占'+NUMTOSTR(FLOOR(大单买入/(主动买入+主动卖出)*100),0)+'%'),COLOR8000FF;
EXPLAIN(1,'■ 大单卖出:  '+NUMTOSTR(大单卖出,0)+'  占'+NUMTOSTR(FLOOR(大单卖出/(主动买入+主动卖出)*100),0)+'%'),COLOR00FF00;
EXPLAIN(1,'■ 小单买入:  '+NUMTOSTR(小单买入,0)+'  占'+NUMTOSTR(FLOOR(小单买入/(主动买入+主动卖出)*100),0)+'%'),COLOR2F73FF;
EXPLAIN(1,'■ 小单卖出:  '+NUMTOSTR(小单卖出,0)+'  占'+NUMTOSTR(FLOOR(小单卖出/(主动买入+主动卖出)*100),0)+'%'),COLORB4B043;
EXPLAIN(1,'------------------------------------'),COLORccff00;
EXPLAIN(1,'大单买均价: '+NUMTOSTR(大单买均价,2)+'   大单卖均价: '+NUMTOSTR(大单卖均价,2)),COLOR00FF00;
EXPLAIN(1,'总成交笔数: '+NUMTOSTR(成交笔数,0)+'    每笔成交手: '+NUMTOSTR(INTPART((主动买入+主动卖出)/成交笔数),0)),ColorFFFFFF;

总:=DYNAINFO(8);
STICKLINE(总 ,0,总,20,1),COLORFFFFFF;
STICKLINE(大单买入+大单卖出+小单买入+小单卖出 ,0,总,20,0),Color8000FF;
STICKLINE(大单卖出+小单买入+小单卖出,0,大单卖出+小单买入+小单卖出,20,0),Color2F73FF;
STICKLINE(小单卖出+大单卖出,0,小单卖出+大单卖出,20,0),Color00FF00;
STICKLINE(小单卖出,0,小单卖出,20,0),ColorB4B043;

TOP

通不过测试啊。

TOP