飞狐龙虎榜

借用新游客老师的DLL，给飞狐加把力55188DLL放到飞狐的FmlDLL里，建立fhlhb引用，建立凤凰龙虎榜公式
希望新游客老师能为飞狐做个DLL，非常感谢各位老师的贡献


{建立引用名：fhlhb}
TODAY:=DYNAINFO(7)=CLOSE and DYNAINFO(10)=AMOUNT AND TIME0<55800;
特买:if(today,"55188@龙虎"(1),"zxDATA@BIGORDER"(1,3));
特卖:if(today,"55188@龙虎"(8),"zxDATA@BIGORDER"(2,3));
大买:if(today,"55188@龙虎"(2),"zxDATA@bigorder"(1,2)-"zxDATA@bigorder"(1,3));
大卖:if(today,"55188@龙虎"(7),"zxDATA@bigorder"(2,2)-"zxDATA@bigorder"(2,3));
中买:if(today,"55188@龙虎"(3),"zxDATA@bigorder"(1,1)-"zxDATA@bigorder"(1,2));
中卖:if(today,"55188@龙虎"(6),"zxDATA@bigorder"(2,1)-"zxDATA@bigorder"(2,2));

{凤凰龙虎榜}
BB:=BARPOS=SYSPARAM(1);
VARIABLE:WDAY[7]='星期六';
WDAY[1]:='星期日';
WDAY[2]:='星期一';
WDAY[3]:='星期二';
WDAY[4]:='星期三';
WDAY[5]:='星期四';
WDAY[6]:='星期五';
FY:=YEAR;
FM:=MONTH;
FD:=DAY;
WD:=WEEKDAY;
P:=SYSPARAM(1);
STR1:=''+'今日： '+NUMTOSTR(FY[P],0)+'年'+NUMTOSTR(FM[P],0)+'月'+NUMTOSTR(FD[P],0)+'日 '+WDAY[WD[P]+1];
DRAWTEXTEX(CLOSE,1,180,10,STR1),colorFF00;
沪昨金【亿元】:REF("SH1A0001$AMOUNT",1)/100000000,LINETHICK0,PRECISION2,color91FFEF;
沪今量:"SH1A0001$VOL",LINETHICK0,PRECISION0,color91FFEF;
深昨金【亿元】:REF("SZ399001$AMOUNT",1)/100000000,LINETHICK0,PRECISION2,color9CFF7A;
沪深A股:STKCOUNT('A股板块'),LINETHICK0;

{分时监控}
N:=0;
中单买入:="FHLHB.中买#day";
中单卖出:="FHLHB.中卖#day";
大单买入:="FHLHB.大买#day";
大单卖出:="FHLHB.大卖#day";
特大买入:="FHLHB.特买#day";
特大卖出:="FHLHB.特卖#day";
小单买入:=1-(中单买入+大单买入+特大买入);
小单卖出:=1-中单卖出-大单卖出-特大卖出;
主力买入:=特大买入+大单买入;
主力卖出:=特大卖出+大单卖出;

中单买:=AMOUNT*中单买入/10000;
中单卖:=AMOUNT*中单卖出/10000;
大单买:=AMOUNT*大单买入/10000;
大单卖:=AMOUNT*大单卖出/10000;
特大买:=AMOUNT*特大买入/10000;
特大卖:=AMOUNT*特大卖出/10000;
小单买:=AMOUNT*小单买入/10000;
小单卖:=AMOUNT*小单卖出/10000;
主力买:=特大买+大单买;
主力卖:=特大卖+大单卖;

小单净买:=SUM(小单买-小单卖,N);
中单净买:=SUM(中单买-中单卖,N);
大单净买:=SUM(大单买-大单卖,N);
特大净买:=SUM(特大买-特大卖,N);
主力净买:=SUM(主力买-主力卖,N);
散户:=小单净买,LINETHICK1,colorgreen;
中户:=中单净买,LINETHICK1,colorcyan;
大户:=大单净买,LINETHICK1,colormagenta;
超大:=特大净买,LINETHICK1,colorred;
主力:=主力净买,LINETHICK1,coloryellow;

KS:=DATACOUNT;

DRAWTEXT(BARPOS=KS-18,0,'主力\n'+NUMTOSTR(主力/(IF(CAPITAL<1,CAPITAL,0))*100,2)),ALIGN5,PXUP48,coloryellow;
DRAWTEXT(BARPOS=KS-15,0,'超大\n'+NUMTOSTR(超大/(IF(CAPITAL<1,0,CAPITAL))*100,2)),ALIGN5,PXUP48,colorred;
DRAWTEXT(BARPOS=KS-11,0,'大户\n'+NUMTOSTR(大户/(IF(CAPITAL<1,0,CAPITAL))*100,2)),ALIGN5,PXUP48,colormagenta;
DRAWTEXT(BARPOS=KS-8,0,'中户\n'+NUMTOSTR(中户/(IF(CAPITAL<1,0,CAPITAL))*100,2)),ALIGN5,PXUP48,colorcyan;
DRAWTEXT(BARPOS=KS-5,0,'散户\n'+NUMTOSTR(散户/(IF(CAPITAL<1,0,CAPITAL))*100,2)),ALIGN5,PXUP48,colorgreen;

STICKLINE(BARPOS=DATACOUNT-18,0,主力[P],20,0),coloryellow;
STICKLINE(BARPOS=DATACOUNT-15,0,超大[P],20,0),colorred;
STICKLINE(BARPOS=DATACOUNT-11,0,大户[P],20,0),colormagenta;
STICKLINE(BARPOS=DATACOUNT-8,0,中户[P],20,0),colorcyan;
STICKLINE(BARPOS=DATACOUNT-5,0,散户[P],20,0),colorgreen;
DRAWTEXTEX(CLOSE,1,10,10,STKLABEL+' '+STKNAME+''),colorFF00;
DRAWTEXTEX(CLOSE,1,10,150,'主力:'+' '+NUMTOSTR(主力[P],0)),coloryellow;
DRAWTEXTEX(CLOSE,1,10,300,'超大:'+' '+NUMTOSTR(超大[P],0)),colorred;
DRAWTEXTEX(CLOSE,1,10,450,'大户:'+' '+NUMTOSTR(大户[P],0)),colormagenta;
DRAWTEXTEX(CLOSE,1,10,600,'中户:'+' '+NUMTOSTR(中户[P],0)),colorcyan;
DRAWTEXTEX(CLOSE,1,10,750,'散户: '+NUMTOSTR(散户[P],0)),colorgreen;