//过滤同时开仓

{gg1:=l1>ref(l,60) and h1<ref(h,60);
gg2:=not(gg1);}
//每周期只开仓一次
variable:n=0;

variable:m=0;

//开空条件

kktj:= H1<ref(H1,60) AND L1<REF(L1,60) {H3<REF(H3,60) AND H4<REF(H4,60)AND L4<REF(L4,60) AND L3<REF(L3,60) AND} { close<ref(H1,60) and gg2};
//M=0开空
IF kktj   and m=0 THEN
  BEGIN
   SELL(holding<0,holding,THISCLOSE);
   BUYSHORT(holding=0,1,THISCLOSE);

   m:=1;
END

//M=1开空

IF kktj and m=1  THEN
  BEGIN
   SELL(holding<0,holding,THISCLOSE);
   BUYSHORT(enterbars>0 and holding=0,1,THISCLOSE);
END

//开多条件
kdtj:= L1>ref(L1,60) AND {L3>REF(L3,60) AND L4>REF(L4,60) AND H4<REF(H4,60) AND H3>REF(H3,60)AND }H1>REF(H1,60) {AND close>ref(L1,60)  and   gg2};

//N=0开多
IF   kdtj    and n=0 THEN
  BEGIN
    sellshort(holding<0,holding, THISCLOSE);//T检查是否有空单，若有，市价平掉已有空单   THISCLOSE   MARKET   MARKETR
  buy(holding=0,1,THISCLOSE);

  n:=1;
 END
//N=1开多

IF   kdtj     and n=1 THEN
  BEGIN
    sellshort(holding<0,holding, THISCLOSE);//T检查是否有空单，若有，市价平掉已有空单   THISCLOSE   MARKET   MARKETR
  buy(enterbars>0 and holding=0,1,THISCLOSE);
 END
 
//止损平仓

//损平空:SELLSHORT(C-ENTERPRICE>=10,0,MARKET);
//损平多:SELL(ENTERPRICE - C >=10,0,MARKET);

//止赚平仓
zzpd:=ref(L1,60);
zzpk:=ref(H1,60);

IF C <zzpd AND HOLDING > 0
THEN
 BEGIN
  赚平多:SELL(1,HOLDING,THISCLOSE);
 END
 
IF C >zzpk AND HOLDING < 0
THEN
 BEGIN
  赚平空:SELLSHORT(1,HOLDING,THISCLOSE);
 END
//画出多头的止赚线
//partline(holding>0, ref(L1,60), colorred);

//画出空头的止赚线
//partline(holding<0,ref(H1,60),colorgreen);

//资产信息
//交易次数：TOTALTRADE,LINETHICK0;
资产:ASSET,NOAXIS, colorRED linethick0;
//持仓:HOLDING,LINETHICK0;
//持盈:(C-ENTERPRICE)*MULTIPLIER*HOLDING,LINETHICK0; red
//开价：AVGENTERPRICE,LINETHICK0;
//平价：EXITPRICE,LINETHICK0;
//大亏：SEQLOSS,LINETHICK0;