主题：3.02版后程序评测问题

//如果当前持有多头仓位的状态
IF POSITION=1 THEN BEGIN

    //建立多头离场条件 
     
    IF  ENTERBARS=1 and T1  THEN BEGIN
     MYEXITPRICE := P1;
     SELL( _DEBUG,0,LIMITR,MYEXITPRICE);
     dtjg:MYEXITPRICE;
     POSITION := 0 ;
     TURTLEUNITS := 0 ;
      end
 

     IF ENTERBARS=1 AND t2  THEN BEGIN
          MYEXITPRICE := p2;
          SELL( _DEBUG ,0,LIMITR,MYEXITPRICE);
         dtzsjg:MYEXITPRICE;
         POSITION := 0 ;
         TURTLEUNITS := 0 ;
     END

 
       IF  PD AND ENTERBARS>=2  and T3  THEN begin
          // IF  PD AND T1  THEN begin            //测试去掉ENTERBARS条件
          MYEXITPRICE := P3 ;
         SELL( _DEBUG ,0,LIMITR,MYEXITPRICE);
         dtpdj:MYEXITPRICE;
        POSITION := 0 ;
        TURTLEUNITS := 0 ;
      END
 
       IF  PD AND ENTERBARS>=2   THEN begin
         // IF  PD  THEN begin                        //测试去掉ENTERBARS条件
         MYEXITPRICE :=p4;
         SELL( _DEBUG ,0,LIMITR,MYEXITPRICE);
         PDJ:MYEXITPRICE;
         POSITION := 0 ;
         TURTLEUNITS := 0 ;
        END

END  //IF

//如果当前持有空头仓位的状态
      IF POSITION = -1   THEN BEGIN

        if  T3 AND  ENTERBARS=1 then BEGIN
         // if  T3  then BEGIN                             //测试去掉ENTERBARS条件
        MYEXITPRICE := P2;
        SELLSHORT( _DEBUG,0,LIMITR,MYEXITPRICE);
         ktjg:MYEXITPRICE;
         POSITION := 0 ;
        TURTLEUNITS := 0 ;
      end
    

      //建立空头止损条件
 
         IF   KZ  AND  ENTERBARS=1 THEN BEGIN
            //IF   KZ THEN BEGIN                             //测试去掉ENTERBARS条件
            MYEXITPRICE := P3;   
           SELLSHORT( _DEBUG,0,LIMITR,MYEXITPRICE);
            ktzsjg:MYEXITPRICE;
           POSITION := 0 ;
           TURTLEUNITS := 0 ;
        END