分笔统计涨停时的处理
-
相关简介：编写要求： www.guhai.com.cn 股海网解答： 网友求助： 最近老是纠结分笔问题，明知这不对，不过既然做了，就学点东西做出来再说，请老师给看看哪里出问题了 源码如下 IF DATATYPE=6 then exit; ZF:=C/DYNAINFO(3)=1.099; TF:=DYNAINFO(3)/C=1.110; bidoor:=5000; //大单门限 sudoor:=80000; //超大单门限 buy:=IF(ZF,VOL,IF(TF,0,BUYVOL)); //应该是这里有
-
文章来源：股海网作者：股海网发布时间：2019-05-04浏览次数：
编写要求：
www.guhai.com.cn股海网解答：
网友求助：
源码如下
IF DATATYPE=6 then exit;
ZF:=C/DYNAINFO(3)>=1.099;
TF:=DYNAINFO(3)/C>=1.110;
bidoor:=5000; //大单门限
sudoor:=80000; //超大单门限
buy:=IF(ZF,VOL,IF(TF,0,BUYVOL)); //应该是这里有问题，不过想来想去没搞懂
sell:=IF(ZF,0,IF(TF,VOL,SELLVOL)); //涨停时记SELLVOL为流入，故为buy，跌停反之
sub:=IF(buy*C>=sudoor,buy,0);
sus:=IF(sell*C>=sudoor,sell,0);
bib:=IF(buy*C<sudoor AND buy*C>=bidoor,buy,0);
bis:=IF(sell*C<sudoor AND sell*C>=bidoor,sell,0);
lib:=IF(buy*C<bidoor,buy,0);
lis:=IF(sell*C<bidoor,sell,0);
ssub:SUM(sub,0);
ssus:SUM(sus,0);
sbib:SUM(bib,0);
sbis:SUM(bis,0);
slib:SUM(lib,0);
slis:SUM(lis,0);
msub:SUM(sub*DYNAINFO(7),0);
msus:SUM(sus*DYNAINFO(7),0);
mbib:SUM(bib*DYNAINFO(7),0);
mbis:SUM(bis*DYNAINFO(7),0);
mlib:SUM(lib*DYNAINFO(7),0);
mlis:SUM(lis*DYNAINFO(7),0);
净流入:(IF(DYNAINFO(4)>OPEN,REF(AMOUNT,BARPOS-1),IF(DYNAINFO(4)<OPEN,-REF(AMOUNT,BARPOS-1),0))/100+msub+mbib+mlib-(msus+mbis+mlis))/100; //集合竞价流入+开盘后，集合竞价部分不知道是否多余。。。
buy:=IF(ZF=1,BUYVOL+SELLVOL,BUYVOL);
sell:=IF(TF=1,BUYVOL+SELLVOL,SELLVOL);
现在就去充值积分
加入VIP可下载100以下的所有资源
栏目导航