（半自动突破策略，用了一两年了，V5.0版本以前一直没有问题！）

//收盘和夜盘平仓
IFclose:=time=closetime(0) or (time=closetime(1) and closetime(1)<>141500);
if holding>0 and IFclose and abb and dynainfo(54)<>c then begin
 sell(1,holding,marketr);
end

//开多
if holding=0 and h>=hh and o<=hh and not(IFclose) then BEGIN 
 buy(1,ss,limitr,hh+mindiff*4);
 dzsATR:=hh-ATR;
 doubleATR:=hh+ATR*2;
 threeATR:=hh+ATR*3;
end

//破3根K线最低价平仓
if holding>0 and l<3D then BEGIN
   sell(1,holding,marketr);
 dzsATR:=drawnull;
 doubleATR:=drawnull;
 threeATR:=drawnull;
 times:=times+1;
end
 
 
 
 //ATR止损
if holding>0 then begin
 if h>doubleATR then dzsATR:=max(dzsATR,ENTERPRICE-mindiff*4);//突破2倍ATR后上移止损
 if h>threeATR  then dzsATR:=max(dzsATR,ENTERPRICE-mindiff*2);//突破3倍ATR后上移止损
end

CorL:=if(enterbars=0 or dzsATR>ref(dzsATR,1),c,l);
if  CorL<dzsATR and holding>0 then BEGIN
 sell(1,holding,marketr);
 dzsATR:=drawnull;
 doubleATR:=drawnull;
 threeATR:=drawnull;
 times:=times+1;
end  

//脉冲大K线平仓
mck:=(h-l)/ma(tr,20);
sj:=(time>=010100 and time<=011000) or (time>=130100 and time<=131000);
refm:=ref(mck,1);
if holding>0 and c<>h then begin
 if  (mck>5 and sj) or mck>7 or refm>7 or (refm>5 and sj) then begin
  sell(1,holding,marketr);
  dzsATR:=drawnull;
  doubleATR:=drawnull;
  threeATR:=drawnull;
 end
end