通达信新仿吸拉派落指标公式

N:=11;
NOTEXT1:-10,COLORCYAN;
NOTEXT2:-5,COLORCYAN;
NOTEXT3:=0,COLORCYAN;
VARA:=EMA(EMA(C,N),N);
KP:=(VARA-REF(VARA,1))/REF(VARA,1)*1000;
MM:=REF(KP,1);
吸:IF(KP<0 AND KP>MM,KP,DRAWNULL),LINETHICK3,CIRCLEDOT,COLORMAGENTA;
拉:IF(KP>0 AND KP>MM,KP,DRAWNULL),LINETHICK3,CIRCLEDOT,COLORRED;
派:IF(KP>0 AND KP<MM,KP,DRAWNULL),LINETHICK3,CIRCLEDOT,COLORGREEN;
落:IF(KP<0 AND KP<MM,KP,DRAWNULL),LINETHICK3,CIRCLEDOT,COLORWHITE;
DRAWICON(KP<-10,-4,23),COLORYELLOW;