大智慧龙虎看盘源码
文章出处:易坚 发布时间:2005-09-08
先建立第一个公式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;
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
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;

请高手优化