通达信红进绿出副图指标 源码 贴图

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<A2,H,L,0,0),COLOR00FF00;
STICKLINE(A1<A2,O,C,-1,0),COLOR009900;
STICKLINE(A1<A2,O,C,2,0),COLOR00AB00;
STICKLINE(A1<A2,O,C,1,0),COLOR00DD00;
STICKLINE(A1<A2,O,C,0.1,0),COLOR00FF00;
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)<REF(P2,1) AND P2<REF(P2,1);
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);{公式网WWW.GPXIAZAI.COM}
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;