通达信红进绿出指标公式

　　DRAWTEXT_FIX(C>0,0,0.9,0,DYBLOCK),COLORYELLOW;

　　DRAWTEXT_FIX(1,0,0.85,0,EXTERNSTR(0,1)),COLORMAGENTA;

　　DRAWTEXT_FIX(1,0.045,0.9,0,EXTERNSTR(0,2)),COLORWHITE;

　　DRAWTEXT_FIX(1,0,1,0,EXTERNSTR(0,3)),COLORYELLOW;

　　QUSHI:=REF(EMA(C,10),1);

　　A1X:=(EMA(C,11)-QUSHI)/QUSHI*100;

　　CHIBI:=IF(A1X>=0,REF(EMA(C,10),BArslAST(crOSS(A1X,0))+1),DRAWNULL);

　　CHIGU:=IF(A1X<0,REF(EMA(C,10),BARSLAST(CROSS(0,A1X))+1),DRAWNULL);

　　STICKLINE(A1X>=0,CHIBI,QUSHI,1,0),COLOR9966CC;

　　STICKLINE(A1X<0,CHIGU,QUSHI,1,0),COLOR993333;

　　A1:=EMA(CLOSE,13)-EMA(CLOSE,55);

　　A2:=EMA((0.618*REF(A1,1)+0.382*A1),3);

　　STICKLINE(A1>=A2,H,L,0,0),COLOR00FFFF;

　　STICKLINE(A1>=A2,O,C,-1,0),COLOR0099DD;

　　STICKLINE(A1>=A2,O,C,2,0),COLOR00ABEE;

　　STICKLINE(A1>=A2,O,C,1,0),COLOR00ddfF;

　　STICKLINE(A1>=A2,O,C,0.1,0),COLOR00FFFF;

　　STICKLINE(A1

　　STICKLINE(A1

　　STICKLINE(A1

　　STICKLINE(A1

　　STICKLINE(A1

　　P1:=EMA((CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,5);

　　P2:=(HHV(HIGH,55)-LLV(LOW,55))/EMA((CLOSE-LLV(LOW,55)),5);

　　P3:=CROSS(P2,P1);

　　P4:=REF(P2,2)

　　P5:=COUNT(P3,7)>0 AND P4;

　　P6:=3*SMA((CLOSE-LLV(LOW,89))/(HHV(HIGH,89)-LLV(LOW,89))*100,5,1)-2*SMA((CLOSE-LLV(LOW,89))/(HHV(HIGH,89)-LLV(LOW,89))*100,5,1);

　　P7:= (CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100;

　　MW:= EMA(P6,5);

　　NU:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100;

　　NU0:=SMA(NU,3,1);

　　NU00:=SMA(NU0,3,1);

　　NU10:=3*NU0-2*NU00;

　　NU1:=EMA(3*NU0-2*NU00,4);

　　NU2:=SMA(NU1,5,1);

　　NW:=MA(3*SMA(P7,6,1)-2*SMA(SMA(P7,5,1),5,1),2);

　　HW:=CROSS(NW,0) AND MW<56;

　　DP:=IF(P5 AND COUNT(P5,5)=1,1,0);

　　TP:=(HW AND DP) OR ((CROSS(IF(P6<3 AND NU2<5 AND NW<4,1,0),0.5))AND LLV(L,34)/HHV(H,144)<0.78),NODRAW;

　　STICKLINE(TP,H,L,0,0),COLOR0000FF;

　　STICKLINE(TP,O,C,-1,0),COLOR000099;

　　STICKLINE(TP,O,C,2,0),COLOR0000AB;

　　STICKLINE(TP,O,C,1,0),COLOR0000DD;

　　STICKLINE(TP,O,C,0.1,0),COLOR0000FF;

　　DRAWTEXT(TP,C*0.96,'TURNING POINT'),COLORRED;

　　A:=EMA((EMA(CLOSE,29)+EMA(CLOSE,31)+EMA(CLOSE,33))/3,3);

　　DD:REF(A,1),COLORBROWN;