VAR1:=(2*CLOSE+HIGH+LOW+OPEN)/5;
A1:=(EMA(VAR1,3)+EMA(VAR1,6)+EMA(VAR1,12)+EMA(VAR1,24))/4;
A2:=EMA(A1,2);
A3:=EMA(A2,2);
A4:=EMA(A3,2);
A5:=EMA(A4,2);
A6:=EMA(A5,2);
A7:=EMA(A6,2);
IF(A1>REF(A1,1),A1,DRAWNULL),COLORWHITE;
IF(A1<REF(A1,1),A1,DRAWNULL),COLORCYAN;
IF(A2>REF(A2,1),A2,DRAWNULL),COLORWHITE;
IF(A2<REF(A2,1),A2,DRAWNULL),COLORCYAN;
IF(A3>REF(A3,1),A3,DRAWNULL),COLORWHITE;
IF(A3<REF(A3,1),A3,DRAWNULL),COLORCYAN;
IF(A4>REF(A4,1),A4,DRAWNULL),COLORWHITE;
IF(A4<REF(A4,1),A4,DRAWNULL),COLORCYAN;
IF(A5>REF(A5,1),A5,DRAWNULL),COLORWHITE;
IF(A5<REF(A5,1),A5,DRAWNULL),COLORCYAN;
IF(A6>REF(A6,1),A6,DRAWNULL),COLORWHITE;
IF(A6<REF(A6,1),A6,DRAWNULL),COLORCYAN;
IF(A7>REF(A7,1),A7,DRAWNULL),COLORWHITE;
IF(A7<REF(A7,1),A7,DRAWNULL),COLORCYAN;
{*100是为了确保小数点后面四舍五入后相等}
十字星:=((H-L)/ABS(C-O)>=30 OR C=O)AND C>A1 AND L<A1;
数字相近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.96,'㊣准备转向'),COLORRED;

查看更多通达信公式,请你访问http://gupiao.onjobs.com.cn/category/2/