麻烦帮我写一个开仓价撤单的代码

小熊鲸鱼大灰狼

现在我的后台报价代码如下，需要增加一个开仓价撤单的命令：
比如 1分钟 K线 如果上一个1分钟K线内 按我的指定报价 没有成交， 那么下一个1分钟K线 开盘就撤掉之前一个K线报出的开仓价。
比如 5分钟 K线 如果上一个5分钟K线内 按我的指定报价 没有成交， 那么下一个5分钟K线 开盘就撤掉之前一个K线报出的开仓价。
谢谢

//*************** 4. 后台交易执行 ********************


//满足条件开仓，尾盘7分钟不再开仓  

//多头开仓,

IF BS买开执行A组 AND TBUYHOLDINGEX('','',2)=0 AND REMAININGTIME(CLOSETIME(0))>7*60 THEN  BEGIN
   TBUY(1,1,LMT,买开仓价A);                    
   END

//空头开仓   
IF BS卖开执行A组 AND  TSELLHOLDINGEX('','',2)=0 AND REMAININGTIME(CLOSETIME(0))>7*60 THEN  BEGIN
   TBUYSHORT(1,1,LMT,卖开仓价A);                                                                                                      
   END


//多头止盈
IF TBUYHOLDINGEX('','',1)>0 AND DYNAINFO(7)-TAVGENTERPRICEEX2('','',0)>=4*MINDIFF THEN BEGIN
        TSELL(1,TBUYHOLDINGEX('','',1),MKT);
    END

//多头止损
IF TBUYHOLDINGEX('','',1)>0 AND TAVGENTERPRICEEX2('','',0)-DYNAINFO(7)>=4*MINDIFF THEN BEGIN
        TSELL(1,TBUYHOLDINGEX('','',1),MKT);
    END

//空头止盈
IF TSELLHOLDINGEX('','',1)>0 AND TAVGENTERPRICEEX2('','',1)-DYNAINFO(7)>=4*MINDIFF THEN BEGIN
   TSELLSHORT(1,TSELLHOLDINGEX('','',1),MKT);
   END

//空头止损
IF TSELLHOLDINGEX('','',1)>0 AND DYNAINFO(7)-TAVGENTERPRICEEX2('','',1)>=4*MINDIFF THEN BEGIN
        TSELLSHORT(1,TSELLHOLDINGEX('','',1),MKT);
END

//尾盘3分钟清仓
IF REMAININGTIME(CLOSETIME(0))<=3*60 THEN BEGIN
        TSELL(TBUYHOLDINGEX('','',1)>0,0,MKT);
        TSELLSHORT(TSELLHOLDINGEX('','',1)>0,0,MKT);
END                                       


LJ:STRCAT(STRCAT('C:\调试日志\',STKLABEL),'.TXT');
IF ISLASTBAR THEN BEGIN
  DEBUGFILE(LJ,'多头总持仓='&NUMTOSTR(TBUYHOLDINGEX('','',2),0)&' 多头可用持仓='&NUMTOSTR(TBUYHOLDINGEX('','',1),0)&' 空头总持仓='&NUMTOSTR(TSELLHOLDINGEX('','',2),0)&&' 空头可用持仓='&NUMTOSTR(TSELLHOLDINGEX('','',1),0),1);
  DEBUGFILE(LJ,'最新价='&NUMTOSTR(close,2)&' 多头持仓均价='&NUMTOSTR(TAVGENTERPRICEEX2('','',0),2)&' 空头持仓均价='&NUMTOSTR(TAVGENTERPRICEEX2('','',1),0),1);
  DEBUGFILE(LJ,'-------------------------------------------------------',1);
END

技术008

if TSUBMITEX(1 ,'' ,'' )>60 then
begin
        TCANCEL(1,1);
        tbuy(1,1,mkt);
END

只能简单根据未成交单时间，如果5分钟你自己5*60就行了

小熊鲸鱼大灰狼

技术008 发表于 2024-3-20 14:10
if TSUBMITEX(1 ,'' ,'' )>60 then
begin
        TCANCEL(1,1);

好的， 我试试