打印本文打印本文 关闭窗口关闭窗口

程序编写循环逻辑问题求解

作者:金字塔 来源:cxh99.com 发布时间:2014年12月18日
  • 咨询内容: IF TBUYHOLDING(1)>0 THEN BEGIN  //多头平仓   IF TBUYHOLDING(1)>0 and (h-ee)>3 and (h-ee)<50 THEN   TSELL(1,10,lmt,ee+3,0),ORDERQUEUE;  TSELL(1,10,lmt,TEXITPRICE+3,0),ORDERQUEUE;  IF TBUYHOLDING(1)>0 and (ee-l)>1 and (ee-l)<50 THEN   TSELL(1,10,lmt,ee-1,0),ORDERQUEUE;  TSELL(1,10,lmt,TEXITPRICE-3,0),ORDERQUEUE;   //多头撤单      tm:=50;//撤单时间50秒   if tisremain(2)>0 and tsubmit(2)>tm then begin   tcancel(1,2);  end  TSELL(1,10,mkt);    
    在(h-ee)>3 and (h-ee)<50条件内,系统是否自动按  TSELL(1,10,lmt,ee+3,0),ORDERQUEUE;  TSELL(1,10,lmt,TEXITPRICE+3,0),ORDERQUEUE;循环开仓?
    就是后面出现连续的TSELL(1,10,lmt,TEXITPRICE+3,0),ORDERQUEUE;按上次平仓价+3开仓循环向上;出现这样:TSELL(1,10,lmt,TEXITPRICE+3,0),ORDERQUEUE;TSELL(1,10,lmt,TEXITPRICE+3,0),ORDERQUEUE;TSELL(1,10,lmt,TEXITPRICE+3,0),ORDERQUEUE;----------------------------------------到(h-ee)<50停止。

     

  • 金字塔客服: IF TBUYHOLDING(1)>0 and (h-ee)>3 and (h-ee)<50 THEN   TSELL(1,10,lmt,ee+3,0),ORDERQUEUE;   TSELL(1,10,lmt,TEXITPRICE+3,0),ORDERQUEUE;

     

     

    就是这样写,没有begin end吗

     

  • 用户回复: 没有begin end

     

  • 网友回复: 没有不行?

     

  • 网友回复: ee:=tenterprice;IF TBUYHOLDING(1)>0 THEN BEGIN  //多头平仓   IF TBUYHOLDING(1)>0 and (h-ee)>3 and (h-ee)<50 THEN   TSELL(1,10,lmt,ee+3,0),ORDERQUEUE;  TSELL(1,10,lmt,TEXITPRICE+3,0),ORDERQUEUE;  IF TBUYHOLDING(1)>0 and (ee-l)>1 and (ee-l)<50 THEN   TSELL(1,10,lmt,ee-1,0),ORDERQUEUE;  TSELL(1,10,lmt,TEXITPRICE-3,0),ORDERQUEUE;   //多头撤单      tm:=50;//撤单时间50秒   if tisremain(2)>0 and tsubmit(2)>tm then begin   tcancel(1,2);  end  TSELL(1,10,mkt);     //多头收盘平仓  if CURRENTTIME>=145800 and currenttime<=145900 then   TSELL(1,0,mkt);END
打印本文打印本文 关闭窗口关闭窗口