帮忙看下代码，怎么运行有问题的？ - 公式模型编写问题提交 - 金字塔客服中心 - 专业程序化交易软件提供商

//声明参数

INPUT:ATRLEN(20,15,30,1) ,总资金(20,0,10000,10);

variable: position := 0 ;

MA4:=MA(C,4);//均线定义

MA9:=MA(C,9);

MA18:=MA(C,18);

//声明变量

NT := 1 ; //调试信息带时间戳

VARIABLE : _DEBUG = 1 ; //是否输出前台交易指令

VARIABLE : _TDEBUG = 1 ; //是否输出后台交易指令

VARIABLE : _DEBUGOUT = 0 ; //是否输出后台交易的调试信息

VARIABLE : MYENTRYPRICE =0 ; //开仓价格

VARIABLE : MYEXITPRICE =0 ; //平仓价格

VARIABLE : POSITION=0 ; //仓位状态

//0表示没有仓位，1表示持有多头， -1表示持有空头

AVGTR := REF(MA(TR,ATRLEN),1) ;

手数 := FLOOR(总资金*200/(AVGTR*MULTIPLIER ));//计算应开手数

//开始执行时初始化数据

IF BARPOS=1 THEN BEGIN;

//POSITION := 0 ;

END //IF

//如果当前是没有持仓的状态

IF POSITION=0 AND H>L THEN BEGIN;

//建立多头进场条件

开多条件:= C>MA4 and MA4>MA9 and MA9>MA18 and position=0 and 手数> 0;

//多头进场

IF 开多条件 THEN BEGIN

MYENTRYPRICE := IF(OPEN> MA4+MINDIFF ,OPEN , MA4 ) ;

BUY( _DEBUG, 手数,LIMITR,MYENTRYPRICE);

POSITION := 1 ;

N := AVGTR ;

BUYORDERTHISBAR := 1;

END //IF

//建立空头进场条件

开空条件:= C<MA4 and MA4<MA9 and MA9<MA18 and position=0 and 手数> 0 ;

//空头进场

IF 开空条件 THEN BEGIN

MYENTRYPRICE:=IF(OPEN< MA4-MINDIFF ,OPEN , MA4-MINDIFF ) ;

BUYSHORT( _DEBUG, 手数,LIMITR,MYENTRYPRICE);

POSITION := -1 ;

N := AVGTR ;

BUYORDERTHISBAR := 1;

END

END //IF

//建立多头离场条件

平多条件1:= MA4<MA9 and HOLDING>0;

IF 平多条件1 THEN BEGIN

MYEXITPRICE := IF(OPEN< MA4-MINDIFF ,OPEN , MA4-MINDIFF ) ;

SELL( _DEBUG ,holding,LIMITR,MYEXITPRICE);

POSITION := 0 ;

TURTLEUNITS := 0 ;

END

//建立多头止损条件

平多条件2:= (LOW<MYENTRYPRICE-2*N) ;

IF 平多条件2 AND POSITION=1 THEN BEGIN

MYEXITPRICE := IF(OPEN<MYENTRYPRICE-2*N ,OPEN ,MYENTRYPRICE-2*N ) ;

MYEXITPRICE := FLOOR(MYEXITPRICE/MINDIFF)*MINDIFF ;

SELL( _DEBUG ,holding,LIMITR,MYEXITPRICE);

POSITION := 0 ;

TURTLEUNITS := 0 ;

END

//建立空头离场条件

平空条件1:= MA4>MA9 and HOLDING<0;

IF 平多条件1 THEN BEGIN

MYEXITPRICE := IF(OPEN> MA4+MINDIFF ,OPEN , MA4+MINDIFF ) ;

SELL( _DEBUG ,holding,LIMITR,MYEXITPRICE);

POSITION := 0 ;

END

//建立多头止损条件

平空条件2:= (H>MYENTRYPRICE+2*N) ;

IF 平空条件2 AND POSITION=1 THEN BEGIN

MYEXITPRICE := IF(OPEN>MYENTRYPRICE+2*N ,OPEN ,MYENTRYPRICE+2*N ) ; MYEXITPRICE := FLOOR(MYEXITPRICE/MINDIFF)*MINDIFF ;

SELL( _DEBUG ,holding,LIMITR,MYEXITPRICE);

POSITION := 0 ;

END

//显示账户状态

CONTINUELINE@ 资产:ASSET,LINETHICK0;

可用现金:CASH(0),LINETHICK0;

振幅:N,LINETHICK0;

POS:HOLDING,LINETHICK0;

交易次数:TOTALDAYTRADE, LINETHICK0 ;

IF _DEBUGOUT>0 THEN BEGIN

DEBUGFILE2('C:\DEBUGFILE.TXT','BARPOS=%.0F' ,BARPOS,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;

以上是一个克罗均线的代码，但怎么运行有问题呢，运行下来是只有开仓，然后在最后时间点强制平仓，也就是不会自动平仓。

主题：帮忙看下代码，怎么运行有问题的？