通达信短上下轨 顶底 序列九转副图源码

短上轨:EMA(H,25),COLORRED;
短下轨:EMA(L,25),COLORGREEN;
NOTEXT短下轨0:IF(C>短下轨,短下轨,DRAWNULL),COLORRED;
NOTEXT短下轨1:IF(C<短下轨,短下轨,DRAWNULL),COLORGREEN;
NOTEXT短上轨0:IF(C>短上轨,短上轨,DRAWNULL),COLORRED;
NOTEXT短上轨1:IF(C<短上轨,短上轨,DRAWNULL),COLORGREEN;
STICKLINE(C>短上轨,短上轨,短下轨,0.001,0),COLORRED;
STICKLINE(C<短下轨,短上轨,短下轨,0.001,0),COLORGREEN;
短轨差:短上轨-短下轨,COLORYELLOW,NODRAW;
A1:=C>REF(C,4);
NT:=BARSLASTCOUNT(A1);
TJ11:=NT=9;
TJ13:=ISLASTBAR AND BETWEEN(NT,5,8);
AY:=(BACKSET(TJ11>0,9) OR BACKSET(TJ13>0,NT))*NT;
DRAWTEXT(AY>0,H*1.02,VAR2STR(AY,0)),COLORFF00FF;
DRAWTEXT(NT=9,H*1.02,'9'),COLORGREEN;
B1:=C<REF(C,4);
NT0:=BARSLASTCOUNT(B1);
TJ21:=NT0=9 ;
TJ23:=ISLASTBAR AND BETWEEN(NT0,5,8);
AY1:=(BACKSET(TJ21>0,9) OR BACKSET(TJ23>0,NT0))*NT0;
DRAWTEXT(AY1>0,L*0.98,VAR2STR(AY1,0)),COLORFF00FF;
DRAWTEXT(NT0=9,L*0.98,'9'),COLORGREEN;

RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);D:=SMA(K,3,1);J:3*K-2*D;
DRAWTEXT(CROSS(100,J),100,'顶'), COLORGREEN ;
DRAWTEXT(CROSS(J,0),0,'底'),COLORYELLOW;