主题：改写下 回调5日线买入

IF(HA>0，HA,NULL),CIRCLEDOT,COLORYELLOW;

variable:bj=0;
zx:stkindi('','YY.zx',0,5);
if zx=1 then bj:=1;
if zx=-1 then bj:=-1;

MA5:MA(CLOSE,5);
MA10:MA(CLOSE,10);
MA20:MA(CLOSE,20);
MA40:MA(CLOSE,40);
SS:=SAR(10,4,20);
SZ:=SARTURN(10,4,20);

A:=MA5>=MA10 and MA10>MA20 and MA5>REF(MA5,1) and MA10>REF(MA10,1); //4条均线多头排列，且价格在均线之上
B:=MA5<=MA10 and MA10<MA20 and MA5<REF(MA5,1) and MA10<REF(MA10,1) ; //4条均线空头排列，且价格在均线之下
AA:=MA10>MA20 and MA20>MA40 and MA20>REF(MA20,1) and MA40>REF(MA40,1);
BB:=MA10<MA20 and MA20<MA40 and MA20<REF(MA20,1) and MA40<REF(MA40,1);
CC:=LOW<MIN(MIN(MA5,MA10),MIN(MA20,MA40)) and CROSS(CLOSE,MA5) and CROSS(CLOSE,10) and CROSS(CLOSE,20) and CROSS(CLOSE,40) and MA10>REF(MA10,1) and MA20>REF(MA20,1);
DD:=HIGH>MAX(MAX(MA5,MA10),MAX(MA20,MA40)) and CROSS(MA5,CLOSE) and CROSS(MA10,CLOSE) and CROSS(MA20,CLOSE) and CROSS(MA40,CLOSE) and MA10<REF(MA10,1) and MA20<REF(MA20,1);

KAA:=IF(AA,1,0);
KBB:=IF(BB,1,0);
D:=(HIGH+LOW+O+2*C)/5;

IF 60DUO  and HOLDING<0 AND BJ=1  THEN BEGIN

   平空k: SELLSHORT(1,HOLDING,LIMITR,CLOSE); //平空
  开多k: BUY(1,1,LIMITR,CLOSE);  //开多单
  ccc:=1;
   END
IF 60DUO  and  HOLDING=0 AND BJ=1 THEN begin

 开多kk: BUY(1,1,LIMITR,CLOSE);  //开多单
 ccc:=1;
 end

IF CC and HOLDING=0 and ss>0 THEN begin

  开多l:BUY(1,1,LIMITR,CLOSE);  //开多
  ccc:=1;
  end

IF BJ=1 and HB and A and ISUP and CLOSE>REF(L+(H-L)*2/3,1) AND SS>0 and  HOLDING=0 and ccc=0 THEN begin

  //开多M:BUY(1,1,LIMITR,CLOSE);  //开多
  drawtext(1,h,'开多M',colorwhite,0),pxup20;
  ccc:=1;
 end
 
kd_m:=barslast(cross(ccc=1,0.5) and BJ=1 and HB and A and ISUP and CLOSE>REF(L+(H-L)*2/3,1) AND SS>0);
if kd_m<=3 and kd_m>=1 and l-0.02<ma5 and holding=0 and bjm=0 then begin
 开多M_2:buy(1,1,limitr,close);
 ccc:=1;
 bjm:=1;
end
if kd_m>3 then bjm:=0;
if kd_m>3 and holding=0 then ccc:=0;

IF HOLDING>0 and bb=-1 THEN begin

   平多p: SELL(1,HOLDING,LIMITR,CLOSE); //平多
   ccc:=0;
  end
   
IF HOLDING>0 and CROSS(MA10,MA5)   THEN begin
 ccc:=0;

   平多g: SELL(1,HOLDING,LIMITR,CLOSE); //平多
  end

       
IF 60KONG AND HOLDING>0 and bj=-1 THEN begin
  平多n: SELL(1,HOLDING,LIMITR,CLOSE); //平多
   开空n:BUYSHORT(1,1,LIMITR,CLOSE);  //开空单
   ccc:=-1;
   end
IF 60KONG AND HOLDING=0 AND BJ=-1  THEN begin
 ccc:=-1;
  开空nn: BUYSHORT(1,1,LIMITR,CLOSE);  //开空单
 end
  
IF DD and  HOLDING=0 AND BJ=-1  THEN begin
   ccc:=-1;

   开空o: BUYSHORT(1,1,LIMITR,CLOSE);  //开空单  
   end
  
  
 IF HC and bj=-1 and b and ISDOWN and CLOSE<REF(L+(H-L)/3,1) AND HOLDING=0 AND CCC=0 THEN begin
   ccc:=-1;

   //开空f: BUYSHORT(1,1,LIMITR,CLOSE);  //开空单 
   drawtext(1,h,'开空F',colorwhite,0),pxup20;
 end 
 
 kk_f:=barslast(cross(ccc=-1,0.5) and HC and bj=-1 and b and ISDOWN and CLOSE<REF(L+(H-L)/3,1) );
 if kk_f<=3 and kk_f>=1 and h+0.02>ma5  and holding=0 and bjf=0  then begin
 开空f_2:buyshort(1,1,limitr,close);
 ccc:=-1;
 bjf:=1;
end

if kk_f>3 then bjf:=0;
if kk_f>3 and holding=0 then ccc:=0;
 
 IF HOLDING<0 and  CROSS(MA5,MA10)  THEN begin
 
    平空e:SELLSHORT(1,HOLDING,LIMITR,CLOSE);
    ccc:=0;
   end