我的后台代码bug~帮忙看下怎么修改~

103769

[PEL] 复制代码

//AC1---------
tbuyshort(GETREGVAL('taoge',str1&'_kp',0)=1,abs(ch)*p01,lmt,xxs,0,ac1,'');
if TBUYHOLDINGEX( ac1,'' ,1 )>=abs(ch)*p01 then begin
tsell(GETREGVAL('taoge',str1&'_kp',0)=0,abs(ch)*p01,lmt,xxs,0,ac1,'');
end
if TBUYHOLDINGEX( ac1,'' ,1 )<abs(ch)*p01 then begin
tbuyshort(GETREGVAL('taoge',str1&'_kp',0)=0,abs(ch)*p01-TBUYHOLDINGEX( ac1,'' ,1 ),lmt,xxs,0,ac1,'');
tsell(GETREGVAL('taoge',str1&'_kp',0)=0,TBUYHOLDINGEX( ac1,'' ,1 ),lmt,xxs,0,ac1,'');
end
tbuyshort(GETREGVAL('taoge',str1&'_kp',0)=2,abs(ch)*p01,lmt,xxs,0,ac1,'');

代码同上~
奇怪的事~同样的代码不同的机器跑出不同的信号~
大多数机器是不可能以下两个条件同时成立的~
TBUYHOLDINGEX( ac1,'' ,1 )>=abs(ch)*p01
TBUYHOLDINGEX( ac1,'' ,1 )<abs(ch)*p01

只有极个别机器上才出现这种情况~
我大概二十几台云主机~相同的代码~就出现一个~

我想问
1 什么原因造成的？
2 怎么修改这段代码？

103769

tbuyshort(GETREGVAL('taoge',str1&'_kp',0)=1,abs(ch)*p01,lmt,xxs,0,ac1,'');
if TBUYHOLDINGEX( ac1,'' ,1 )>=abs(ch)*p01 then begin
tsell(GETREGVAL('taoge',str1&'_kp',0)=0,abs(ch)*p01,lmt,xxs,0,ac1,'');
end
if TBUYHOLDINGEX( ac1,'' ,1 )<abs(ch)*p01 then begin
tbuyshort(GETREGVAL('taoge',str1&'_kp',0)=0,abs(ch)*p01-TBUYHOLDINGEX( ac1,'' ,1 ),lmt,xxs,0,ac1,'');
tsell(GETREGVAL('taoge',str1&'_kp',0)=0,TBUYHOLDINGEX( ac1,'' ,1 ),lmt,xxs,0,ac1,'');
end
tbuyshort(GETREGVAL('taoge',str1&'_kp',0)=2,abs(ch)*p01,lmt,xxs,0,ac1,'');


就是同时触发了上面3段指令

资深技术02

看不太出啥问题，这种你要么加下调试输出的看下呢

DEBUGFILE('D:\TEST.TXT','当前持仓为%.2f',TBUYHOLDINGEX( ac1,'' ,1 ));
  DEBUGFILE('D:\TEST.TXT','当前数值为%.2f',abs(ch)*p01);
  DEBUGFILE('D:\TEST.TXT','当前条件1为为%.2f',TBUYHOLDINGEX( ac1,'' ,1 )>=abs(ch)*p01);
    DEBUGFILE('D:\TEST.TXT','当前条件2为为%.2f',TBUYHOLDINGEX( ac1,'' ,1 )<abs(ch)*p01);

103769

资深技术02 发表于 2021-6-8 13:41
看不太出啥问题，这种你要么加下调试输出的看下呢

DEBUGFILE('D:\TEST.TXT','当前持仓为%.2f',TBUYHOLD ...

这种bug出现几率很低~~而且是相同代码在不同机器上以极小概率出现~
不是那么容易调试的~
这样调试我会改一遍代码好麻烦~
有无办法规避？

资深技术02

是不是中间仓位有变化了，两个代码中间假设差了10ms，然后这10ms中间正好仓位变动了

规避得办法一定是知道原因和方向，然而目前没有办法知道原因得情况下不可能规避得了得

代码这块很多时候只能说时取调试，有些问题想象很难定位得

103769

if TBUYHOLDINGEX( ac1,'' ,1 )>=abs(ch)*p01  then
tsell(GETREGVAL('taoge',str1&'_kp',0)=0,abs(ch)*p01,lmt,xxs,0,ac1,'');
else begin
tbuyshort(GETREGVAL('taoge',str1&'_kp',0)=0,abs(ch)*p01-TBUYHOLDINGEX( ac1,'' ,1 ),lmt,xxs,0,ac1,'');
tsell(GETREGVAL('taoge',str1&'_kp',0)=0,TBUYHOLDINGEX( ac1,'' ,1 ),lmt,xxs,0,ac1,'');
end


改成这样应该就没事了吧？

哪怕
TBUYHOLDINGEX( ac1,'' ,1 )>=abs(ch)*p01
TBUYHOLDINGEX( ac1,'' ,1 )<abs(ch)*p01
同时成立也不会触发3个指令了吧？

资深技术02

是不是用了高频刷新了，if else对单次程序执行时可以避免这个问题，但多次执行得话也会下得
比如第一次执行前面得，第二次执行间隔1ms执行事后第二个条件满足。

如果单次执行得程序，不可能发生你上面问题得。
我觉得你改成if else然后还是最好配合调试看，代码编写中找问题一定是调试调试得，否者问题时无法得到解决得

103769

资深技术02 发表于 2021-6-8 15:26
是不是用了高频刷新了，if else对单次程序执行时可以避免这个问题，但多次执行得话也会下得
比如第一次执 ...

是用了高频刷新~0.5s刷新一次啊~


if else对单次程序执行时可以避免这个问题，但多次执行得话也会下得
咋多次执行也会下...
还有其他更好的办法规避吗？？

资深技术02

就是你两次执行间隔之间，持仓是不是变了导致后面一个代码是满足条件所以下了。

这个没有办法避免，如果你的条件是这样写，同一时刻条件不可能同时满足，但是不同时刻条件可能是先后满足
如果还不理解电话我把
021-20339087

103769

同一时刻条件不可能同时满足，但是不同时刻条件可能是先后满足
明白了！

改成下面这样可能就没事了
//AC1---------
tbuyshort(GETREGVAL('taoge',str1&'_kp',0)=1,abs(ch)*p01,lmt,xxs,0,ac1,'');
if TBUYHOLDINGEX( ac1,'' ,1 )<abs(ch)*p01 then begin
tbuyshort(GETREGVAL('taoge',str1&'_kp',0)=0,abs(ch)*p01-TBUYHOLDINGEX( ac1,'' ,1 ),lmt,xxs,0,ac1,'');
tsell(GETREGVAL('taoge',str1&'_kp',0)=0,TBUYHOLDINGEX( ac1,'' ,1 ),lmt,xxs,0,ac1,'');
end
if TBUYHOLDINGEX( ac1,'' ,1 )>=abs(ch)*p01 then begin
tsell(GETREGVAL('taoge',str1&'_kp',0)=0,abs(ch)*p01,lmt,xxs,0,ac1,'');
end
tbuyshort(GETREGVAL('taoge',str1&'_kp',0)=2,abs(ch)*p01,lmt,xxs,0,ac1,'');