n:=5;
 VAR1:=(2*CLOSE+HIGH+LOW+OPEN)/5;
 A1:(EMA(VAR1,3)+EMA(VAR1,6)+EMA(VAR1,12)+EMA(VAR1,24))/4,COLORRED;
A2:EMA(A1,2),COLORGREEN;
A3:EMA(A2,2),COLORWHITE;
 A4:EMA(A3,2),COLORWHITE;
 A5:EMA(A4,2),COLORWHITE;
A6:EMA(A5,2),COLORWHITE;
 A7:EMA(A6,2),COLORMAGENTA;
 IF(A1<REF(A1,1),A1,DRAWNULL),COLORCYAN;
 IF(A2<REF(A2,1),A2,DRAWNULL),COLORCYAN;
 IF(A3<REF(A3,1),A3,DRAWNULL),COLORCYAN;
 IF(A4<REF(A4,1),A4,DRAWNULL),COLORCYAN;
 IF(A5<REF(A5,1),A5,DRAWNULL),COLORCYAN;
 IF(A6<REF(A6,1),A6,DRAWNULL),COLORCYAN;
 IF(A7<REF(A7,1),A7,DRAWNULL),COLORCYAN;
 {*100是为了确保小数点后面四舍五入后相等}
 十字星:(ABS(C-O)/(H-L)<0.11 OR C=O)  AND C>A1 AND L<A1,NODRAW;
 数字相近1:=INTPART(A1*100)=INTPART(A2*100) ;
 数字相近2:=INTPART(A2*100)=INTPART(A3*100) ;
 数字相近3:=INTPART(A3*100)=INTPART(A4*100) ;
 数字相近4:=INTPART(A4*100)=INTPART(A5*100) ;
 数字相近5:=INTPART(A5*100)=INTPART(A6*100) ;
 数字相近6:=INTPART(A6*100)=INTPART(A7*100) ;
 皈依:十字星 AND 数字相近1 AND 数字相近2
AND 数字相近3 AND 数字相近4 AND 数字相近5 AND 数字相近6,NODRAW;
 DRAWTEXT(皈依,L*0.98,'↖㊣转向'),COLORRED;
 {未来顶底,注意有未来，只是判断趋势，没有它无没判断}
 DING:=MAX(O,C);{实顶}
 DI:=MIN(O,C);{实底}
 SDING:=CURRBARSCOUNT>=N AND DING=HHV(DING,N) AND DING>REFX(HHV(DING,N-1),N-1);
 {DRAWLINE(SDING,DING,REF(SDING,1),REF(DING,1),1),COLORDB9370;}
 XDING:=CURRBARSCOUNT>=N AND H=HHV(H,N) AND H>REFX(HHV(H,N-1),N-1);
 DRAWLINE(XDING,H,REF(XDING,1),REF(H,1),1),COLORGREEN,DOTLINE;
 SDI:=CURRBARSCOUNT>=N AND DI=LLV(DI,N) AND DI<REFX(LLV(DI,N-1),N-1);
 {DRAWLINE(SDI,DI,REF(SDI,1),REF(DI,1),1),COLORE47833;}
 XDI:=CURRBARSCOUNT>=N AND L=LLV(L,N) AND L<REFX(LLV(L,N-1),N-1);
 DRAWLINE(XDI,L,REF(XDI,1),REF(L,1),1),COLORMAGENTA,DOTLINE;