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

60DUO:=HP<MIN(MIN(HE,HF),MIN(HG,HI))&&CROSS(HN,HE)&&CROSS(HN,HF)&&CROSS(HN,HG)&&CROSS(HN,HI)&&HF>REF(HF,1)&&HG>REF(HG,1);
60KONG:=HO>MAX(MAX(HE,HF),MAX(HG,HI))&&CROSS(HE,HN)&&CROSS(HF,HN)&&CROSS(HG,HN)&&CROSS(HI,HN)&&HF<REF(HF,1)&&HG<REF(HG,1);

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(P,STEP,MAXP);
SZ:=SARTURN(10,4,20);

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

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

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

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

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

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

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

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

  开多M:BUY(1,1,LIMITR,CLOSE);  //开多
 

IF HOLDING>0&&bb=-1 THEN

   平多p: SELL(1,HOLDING,LIMITR,CLOSE); //平多
   
IF HOLDING>0&&CROSS(MA10,MA5)   THEN

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

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

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

   开空f: BUYSHORT(1,1,LIMITR,CLOSE);  //开空单 
  
  
 IF HOLDING<0 and  CROSS(MA5,MA10)  THEN
 
    平空e:SELLSHORT(1,HOLDING,LIMITR,CLOSE);
   
    

variable:nnm1:=0;