主题：双向海龟的源码可否调整一下

 //建立空头进场条件
 SHORT := L < T20LO ;
 
 //空头进场
 IF SHORT AND POSITION=0 THEN BEGIN   
  MYENTRYPRICE := IF(OPEN<T20LO-MINDIFF ,OPEN ,T20LO-MINDIFF ) ;   
  BUYSHORT( _DEBUG,POSNUM,market,MYENTRYPRICE);
  POSITION := -1 ;
  TURTLEUNITS := 1 ;
  N := AVGTR ;
  BUYORDERTHISBAR := 1;

 END
 
 //不要跳转，让程序检查同一根K线是否可以加仓
 //GOTO CONTINUELINE ;
 
END  //IF

//如果当前持有多头仓位的状态

IF POSITION=1 AND BARPOS>T20 AND H>L THEN BEGIN

 //多头加仓条件
 
 WHILE (HIGH>MYENTRYPRICE+0.5*N) AND TURTLEUNITS<4 DO BEGIN
  MYENTRYPRICE := IF(OPEN>MYENTRYPRICE+0.5*N ,OPEN ,MYENTRYPRICE+0.5*N ) ;
  MYENTRYPRICE := CEILING(MYENTRYPRICE/MINDIFF)*MINDIFF ; 
  BUY( _DEBUG, POSNUM, market, MYENTRYPRICE);
  TURTLEUNITS := TURTLEUNITS+1 ;
  BUYORDERTHISBAR := 1;

 END //WHILE 
 
 //建立多头离场条件
 LONGX1 := (LOW < T10LO)  ;
 
 IF LONGX1 AND BUYORDERTHISBAR=0 THEN BEGIN
  MYEXITPRICE := IF(OPEN<T10LO-MINDIFF ,OPEN ,T10LO-MINDIFF ) ;   
  SELL( _DEBUG ,0,market,MYEXITPRICE);
  POSITION := 0 ;
  TURTLEUNITS := 0 ;
 END

 //建立多头止损条件
 LONGX2 := (LOW<MYENTRYPRICE-2*N)  ;

 IF LONGX2 AND POSITION=1 AND BUYORDERTHISBAR=0 THEN BEGIN
  MYEXITPRICE := IF(OPEN<MYENTRYPRICE-2*N ,OPEN ,MYENTRYPRICE-2*N ) ;  
  MYEXITPRICE := FLOOR(MYEXITPRICE/MINDIFF)*MINDIFF ; 
  SELL( _DEBUG ,0,market,MYEXITPRICE);
  POSITION := 0 ;
  TURTLEUNITS := 0 ;
 END

 GOTO CONTINUELINE ;

END  //IF

//如果当前持有空头仓位的状态

IF POSITION = -1 AND BARPOS>T20 AND H>L THEN BEGIN

 //空头加仓条件
 
 WHILE (LOW<MYENTRYPRICE-0.5*N) AND TURTLEUNITS<4 DO BEGIN
  MYENTRYPRICE := IF(OPEN<MYENTRYPRICE-0.5*N ,OPEN ,MYENTRYPRICE-0.5*N ) ;   
  MYENTRYPRICE := FLOOR(MYENTRYPRICE/MINDIFF)*MINDIFF ; 
  BUYSHORT( _DEBUG,POSNUM, market, MYENTRYPRICE);
  TURTLEUNITS := TURTLEUNITS+1 ;
  BUYORDERTHISBAR := 1;
 END //IF 

 //建立空头离场条件
 SHORTX1 := H > T10HI  ;

 IF SHORTX1 AND BUYORDERTHISBAR=0 THEN BEGIN
  MYEXITPRICE := IF(OPEN>T10HI+MINDIFF ,OPEN ,T10HI+MINDIFF ) ;   
  SELLSHORT( _DEBUG,0,market,MYEXITPRICE);
  POSITION := 0 ;
  TURTLEUNITS := 0 ;
 END

 //建立空头止损条件
 SHORTX2 := HIGH > MYENTRYPRICE + 2*N  ;

 IF SHORTX2 AND POSITION = -1 AND BUYORDERTHISBAR=0  THEN BEGIN
  MYEXITPRICE := IF(OPEN>MYENTRYPRICE+2*N ,OPEN ,MYENTRYPRICE+2*N ) ;   
  MYEXITPRICE := CEILING(MYEXITPRICE/MINDIFF)*MINDIFF ; 
  SELLSHORT( _DEBUG,0,market,MYEXITPRICE);
  POSITION := 0 ;
  TURTLEUNITS := 0 ;
 END

END  //IF

//显示账户状态
CONTINUELINE@ 资产:ASSET,LINETHICK0;
可用现金:CASH(0),LINETHICK0;
POS:HOLDING,LINETHICK0;
交易次数:TOTALDAYTRADE, LINETHICK0 ;

IF _DEBUGOUT>0 THEN BEGIN

 DEBUGFILE2('C:\DEBUGFILE.TXT','BARPOS=%.0F' ,BARPOS,NT ) ;
 DEBUGFILE2('C:\DEBUGFILE.TXT','T20HI=%.2F' ,T20HI ,NT) ;
 DEBUGFILE2('C:\DEBUGFILE.TXT','N=%.2F' ,N ,NT) ;
 DEBUGFILE2('C:\DEBUGFILE.TXT','CLOSE=%.2F' ,C ,NT) ;
 DEBUGFILE2('C:\DEBUGFILE.TXT','POSITION=%.0F' ,POSITION,NT ) ;
 DEBUGFILE2('C:\DEBUGFILE.TXT','TURTLEUNITS=%.0F' ,TURTLEUNITS,NT ) ;
 DEBUGFILE2('C:\DEBUGFILE.TXT','MYENTRYPRICE=%.0F' ,MYENTRYPRICE ,NT) ;
 DEBUGFILE2('C:\DEBUGFILE.TXT','MYEXITPRICE=%.0F' ,MYEXITPRICE ,NT) ;
 
END //IF

当前持仓:HOLDING,COLORGRAY,LINETHICK0;
当前资产:ASSET,NOAXIS,COLORGRAY;

-----------------------------------------------------------------------------

variable:a=10000000;

    if ISLASTBAR and TACCOUNT(6)<980000 then
      begin
      sell(1,0,MARKET);
      sellshort(1,0,MARKET);
     a:1;
     end

  if time>145500 then a:=0;

--------------------------------------------------------

你好：

1，我把系统信号中limitr限价指令改成market。测试也正常，就是以上代码，你看下是否正确。

2.你后面给的那段代码是放在什么位置？

如果是以100万资金权益为列，当动态权益大于1020000万时清仓，当动态权益小于980000万时清仓，且在下午收盘14:55分前不再开仓，

以这个实例，代码怎么修改，可作为范例来应用，然后这段代码是放在哪个语句里。

能完整的把代码组织好？谢谢！