会重复开仓

技术009

你这里：
TISREMAIN( 2)=0
这个意思是前一笔平仓成交了。你这策略前面有平仓吗，不一定是今天的，就是必须前面有平仓 你这里这个条件才成立。 如果没有 这里返回值会是-1 的。你去到这个预警的监控记录里看下这个品种的历史信号记录。

张柏霖

我去掉这条件了也不平

技术009

那就只能用debugfile 输出下全部条件看下到底在后台运行中 这些变量的条件实际是否满足了。
然后看下是哪个条件实际没有在后台运行中满足，再进一步进行分析了。 前面提供的代码 目前是看不出什么问题了。

张柏霖

ztsp:=ref(c,todaybar);//昨天收盘价

ztspj:=CALLSTOCK(STKLABEL,vtCLOSE,6,-1);//昨天收盘价

应该是这两个公式在分笔周期取的数据都不对，以前应该是对的，感觉 你们现在很多函数都不对了；

技术009

这种调用没发现有异常，而且你也可以自己加载在图上校验下效果的。

唯一有可能出错的是你的第一个调用，你要有历史分笔，你才能在分笔上获取昨日的收盘价，同时数据量也要足够大，否则你ref不到昨天收盘K位置。第二个调用同理，有昨日日线数据吗？
等于说这2个函数 出错只可能是数据不足导致出错。

确保这2点情况下，调用是没问题的：




还是建议加调试语句来排查实际出现问题的地方。

张柏霖

if  gk>2 and THOLDING>0 THEN BEGIN
       
tsell((DYNAINFO( 7)<JTKP),0,MKT);

end
ztzg:=CALLSTOCK('',vthigh,6,-1);//今天价最高价

if CURRENTTIME>145000 THEN begin

tsell(DYNAINFO( 7)<=ztzg,0,MKT);

END

if ISLASTBAR THEN BEGIN
       
DEBUGFILE('c:\888.txt','tsell' ,123456 );

end
我修改成日线周期了，数据都 取到了，在图上也验证过了，就是不预警

补充内容 (2023-11-28 15:33):
两个条件 都 不会预警

技术009

后台是走完K还是固定轮训，你这种日线得话，你要触发 得是固定轮训。

还有这里：callstock('',vthigh,6,-1) 你取的是昨天最高，你最后一个参数是-1 ，这历史偏移

调试语句里把几个变量都输出出来吧：

if islastbar then begin
debugfile('c:\888.txt','gk:%,2f' ,gk);
debugfile('c:\888.txt','dynainfo( 7):%,2f' ,dynainfo( 7));
debugfile('c:\888.txt','tholding:%,2f' ,tholding);
debugfile('c:\888.txt','ztzg:%,2f' ,ztzg);
end

张柏霖

2023-11-28 15:28:57.161    tsell
2023-11-28 15:31:28.957    tsell
2023-11-28 19:07:48.739    tsell
2023-11-28 19:07:49.561    tsell
2023-11-28 20:01:44.551    无效的字符串格式符
2023-11-28 20:01:44.551    无效的字符串格式符
2023-11-28 20:01:44.557    无效的字符串格式符
2023-11-28 20:01:44.563    无效的字符串格式符
2023-11-28 20:03:20.911    无效的字符串格式符

补充内容 (2023-11-30 09:01):
输出都是这样的，是什么问题

补充内容 (2023-11-30 09:03):

if islastbar then begin
       
debugfile('c:\888.txt','gk:%,2f' ,gk);
debugfile('c:\888.txt','dynainfo( 7):%,2f' ,dynainfo( 7));
debugfile('c:\888.txt','tholding:%,2f' ,tholding);
debugfile('c:\888.txt','ztzg:%,2f' ,ztzg);
end

技术009

笔误，写错了一个标点符号。


if islastbar then begin
debugfile('c:\888.txt','gk:%.2f' ,gk);
debugfile('c:\888.txt','dynainfo( 7):%.2f' ,dynainfo( 7));
debugfile('c:\888.txt','tholding:%.2f' ,tholding);
debugfile('c:\888.txt','ztzg:%.2f' ,ztzg);
end

张柏霖

输出文件