大智慧龙虎看盘源码 【通达信】《 通达信 》之家

先建立第一个公式LHKP
n 20

if DATATYPE<>0 then exit;
input:n(10,1,100);
xs:=FINANCE(7)*n/1000;
xs:IF(XS<100,100,XS);
dbv:=if(v>=xs and BUYVOL,v,0);{大单主买}
dsv:=if(v>=xs and SELLVOL,v,0);{大单主卖}
sbv:=if(v ssv:=if(v //求和
db:sum(dbv,0);
ds:sum(dsv,0);
sb:sum(sbv,0);
ss:sum(ssv,0);
zzb+ds+sb+ss,LINETHICK0;



在建立第二个----龙虎看盘
xs:=stkindi('','lhkp.xs',0,0);
db:=stkindi('','lhkp.db',0,0);
ds:=stkindi('','lhkp.ds',0,0);
sb:=stkindi('','lhkp.sb',0,0);
ss:=stkindi('','lhkp.ss',0,0);
vv:="VOL#DAY"/100;
EXPLAINEX(1,'解盘大单标准：',xs,2,0),colorwhite;
EXPLAIN(1,' 分   类       总   量     比重%'),color336699;
EXPLAIN(1,'大单买：'+NUMTOSTR(db,2)+'   '+NUMTOSTR(db/vv,2)),color5454ff;
EXPLAIN(1,'大单卖：'+NUMTOSTR(ds,2)+'   '+NUMTOSTR(ds/vv,2)),colorffff54;
EXPLAIN(1,'小单买：'+NUMTOSTR(sb,2)+'   '+NUMTOSTR(sb/vv,2)),colorred;
EXPLAIN(1,'小单卖：'+NUMTOSTR(ss,2)+'   '+NUMTOSTR(ss/vv,2)),colorgreen;
EXPLAINEX(1,'大单净买卖：',db-ds,2,0),coloryellow;EXPLAINEX(1,'比重%：',(db-ds)/vv,2,0),coloryellow;