主题：简单的后台模型，麻烦帮忙修改

//没够20根K线，则退出
IF BARPOS<t20 THEN  EXIT;

//===如果当前棒是最后一根k线，执行
if islastbar then begin

      //恢复上一秒计算时保存的数据
 //如果记录的进场barpos和当前的相等，说明上一个进场信号也是最后一根k线发出的。  
 if extgbdata(strentrybarpos) = barpos then begin
  myentryprice := extgbdata(strpreentryprice) ;
      position := extgbdata(strposition) ;  
 end
     // 如果最后一根k线发生过进场信号，则那一根k线不再交易
 if extgbdata(strentrybarpos) = barpos then begin
  goto continueline;
  
 end
 
//如果当前是没有持仓的状态
 if position=0   then begin
 
     //多头进场条件符合
  if bbb then begin
   myentryprice := ma20+2*mindiff ;   
   position := 1 ;
   
                tbuy(1,ss,mkt);
               
                extgbdataset(strentrybarpos,barpos ) ;
   extgbdataset(strpreentryprice,myentryprice ) ;
   extgbdataset(strposition,position ) ;

      end
     //空头进场条件符合
  if sss  then begin   
   myentryprice := ma20-2*mindiff ;   
   position := -1 ;
 
   tbuyshort( 1,ss,mkt);

   extgbdataset(strentrybarpos,barpos ) ;
   extgbdataset(strpreentryprice,myentryprice ) ;
   extgbdataset(strposition,position ) ; 
  end //if空头进场符合
  
  goto continueline ;
  
 end//if如果当前是没有持仓的状态
 
//如果当前持有空头仓位的状态
      if position = -1   then begin
 //平空仓
  if bbb and extgbdata(strentrybarpos)<>barpos  then begin
   myexitprice := ma20+2*mindiff ;   
   position := 0 ;

   tsellshort( 1,ss,mkt);
   
   extgbdataset(strexitbarpos,barpos ) ;
   extgbdataset(strposition,position ) ;

  end
     //开多仓 
  if bbb and extgbdata(strentrybarpos)<>barpos  then begin
   myentryprice := ma20+2*mindiff ;   
   position := 1 ;
   
                tbuy(1,ss,mkt);
               
                extgbdataset(strentrybarpos,barpos ) ;
   extgbdataset(strpreentryprice,myentryprice ) ;
   extgbdataset(strposition,position ) ;
  end
  
      goto continueline ;
 
      end  //if如果当前持有空头仓位的状态
 
 //如果当前持有多头仓位的状态
      if position = 1   then begin
 //平多仓
  if sss and extgbdata(strentrybarpos)<>barpos  then begin
   myexitprice := ma20-2*mindiff ;   
   position := 0 ;

   tsell(1,ss,mkt);
   
   extgbdataset(strexitbarpos,barpos ) ;
   extgbdataset(strposition,position ) ;
  end
     //开空仓 
  if sss and extgbdata(strentrybarpos)<>barpos  then begin
   myentryprice := ma20-2*mindiff ;   
   position := -1 ;
   
                tbuyshort(1,ss,mkt);
               
                extgbdataset(strentrybarpos,barpos ) ;
   extgbdataset(strpreentryprice,myentryprice ) ;
   extgbdataset(strposition,position ) ;
  end
  
      goto continueline ;
 
      end  //if如果当前持有多头仓位的状态

 //如果以上3种情形都没有成立，则直接结束本次判断
 goto continueline ;

end //if如果当前棒是最后一根k线
 

//如果不是最后一根k线的情形
IF  NOT(ISLASTBAR)  THEN  BEGIN

   //如果当前是没有持仓的状态
if position=0   then begin
     //多头进场
 if bbb then begin
  myentryprice :=ma20+2*mindiff ;   
  //buy( 1,SS,MARKET);
  position := 1 ;
  buyorderthisbar := 1;
  
 end //if  
 
      //空头进场
 if sss  then begin   
  myentryprice := ma20-2*mindiff ;    
  //buyshort(1,SS,MARKET);
  position := -1 ;
  buyorderthisbar := 1;

 end 
      goto continueline ;
  
end  //if如果当前是没有持仓的状态

//如果当前持有空头仓位的状态
if position=-1    then begin

     //平空仓
 if bbb and buyorderthisbar=0 then begin
  myexitprice :=ma20+2*mindiff ;     
  //sellshort( 1,ss,MARKET);  
 end

     //开多仓 
 if bbb and  buyorderthisbar=0 then begin
   myentryprice := ma20+2*mindiff ; 
   //buy( 1,ss, MARKET);  
   position := 1 ;
   buyorderthisbar := 1;
 end
 
end  //if如果当前持有空头仓位的状态

//如果当前持有多头仓位的状态
if position=1   then begin

     //平多仓
 if sss and buyorderthisbar=0 then begin
  myexitprice :=ma20-2*mindiff ;     
  //sell( 1,ss,MARKET);  
 end

     //开空仓 
 if sss and  buyorderthisbar=0 then begin
   myentryprice := ma20-2*mindiff ; 
   //buyshort( 1,ss, MARKET);  
   position := -1 ;
   buyorderthisbar := 1;
 end
 
end  //if如果当前持有多头仓位的状态
END //IF不是最后一根k线的情形

//显示账户状态
continueline@ 资产:asset,linethick0;

if _debugout>0  and islastbar then begin

  DEBUGFILE2('D:\Debug\DEBUGFILE.TXT','POSITION=%.0f' ,POSITION,1) ;

end //if