[通达信指标]两款常用的经典红蓝趋势公式源码

DRAWNUMBER(ISLASTBAR ,C,C),COLORMAGENTA;

VAR1:=(100 – ((90 * (HHV(HIGH,14) – CLOSE)) / (HHV(HIGH,14) – LLV(LOW,14))));

VAR2:=(100 – ((90 * (HHV(HIGH,14) – CLOSE)) / (HHV(HIGH,14) – LLV(LOW,14))));

VAR3:=(100 – MA(((100 * (HHV(HIGH,6) – CLOSE)) / (HHV(HIGH,6) – LLV(LOW,6))),34));

X1:=(C+L+H)/3;

X2:=EMA(X1,6);

X3:=EMA(X2,5);

STICKLINE(X2>=X3 ,LOW,HIGH,0,0),COLORRED;

STICKLINE(X2>=X3 ,CLOSE,OPEN,3,0),COLORRED;

STICKLINE(X2<X3 ,LOW,HIGH,0,0),COLORCYAN;

STICKLINE(X2<X3 ,CLOSE,OPEN,3,0),COLORCYAN;

STICKLINE(CROSS(X3,X2) ,OPEN,CLOSE,3,0),COLORCYAN;

STICKLINE(CROSS(X2,X3) ,OPEN,CLOSE,3,0),COLORRED;

STICKLINE((CLOSE>OPEN) AND (X2<X3) ,CLOSE,OPEN,3,0)COLORCYAN;

STICKLINE((CLOSE>OPEN) AND (X2>=X3) ,CLOSE,OPEN,3,0)COLORRED;

STICKLINE((CLOSE<OPEN) AND (X2<X3) ,CLOSE,OPEN,3,0)COLORCYAN;

STICKLINE((CLOSE<OPEN) AND (X2>=X3) ,CLOSE,OPEN,3,0)COLORRED;

IF(SAR(10,2,20)>=H,SAR(10,2,20),DRAWNULL),CIRCLEDOT,COLORBLUE;

IF(SAR(10,2,20)<=L,SAR(10,2,20),DRAWNULL),CIRCLEDOT,COLORRED;

CPX:=EMA(EMA(EMA(CLOSE,2),2),2);

QSX:(MA(CPX,5)),COLORCYAN,LINETHICK2;

IF(QSX>REF(QSX,1),QSX,DRAWNULL),COLORRED,LINETHICK2;

IF(QSX<REF(QSX,1),QSX,DRAWNULL),COLORGREEN,LINETHICK2;

DRAWICON(CROSS(VAR2,MA(VAR3,6)),(LOW – (LOW*0.01)),1);

DRAWICON(CROSS(MA(VAR3,6),VAR1),(HIGH+(HIGH*0.03)),2);

LL:=LLV(C,35);

HH1:=BARSLAST((HH> REF(HH,1)));

LL1:=BARSLAST((LL < REF(LL,1)));

DRAWTEXT(CROSS(HH1,LL1),HH,’开空’),COLORYELLOW;

DRAWTEXT(CROSS(LL1,HH1),LL,’开多’),COLORWHITE;

STICKLINE(HH1>LL1,H,L,0,0),COLORCYAN; 

STICKLINE(HH1<=LL1,H,L,0,0),COLORRED;

STICKLINE(HH1>LL1,OPEN,CLOSE,3,0),COLORCYAN; 

STICKLINE(HH1<=LL1,OPEN,CLOSE,3,0),COLORRED;

T:=IF(HH1>LL1,1,-1);

G:=IF(HH1>LL1,HH,LL);

STICKLINE(T=1 AND REF(T,1)=1,G,REF(G,1),0,0),COLORCYAN;

STICKLINE(T=-1 AND REF(T,1)=-1 ,G,REF(G,1),0,0),COLORRED;

DRAWSL(T=1,G,0,1,0),COLORCYAN;

DRAWSL(T=-1,G,0,1,0),COLORRED;

VARAA:=LLV(LOW,35);

VARBB:=HHV(HIGH,30);

VARCC:=EMA((CLOSE-VARAA)/(VARBB-VARAA)*4,4)*25;

QS:=VARCC,COLORWHITE;

VARD:=87.5;

VARE:=(VARCC-LLV(VARCC,4))/(HHV(VARCC,4)-LLV(VARCC,4))*4*25;

DRAWTEXT(CROSS(QS,VARE)&&QS>87,H,’减’),COLORGREEN;

DRAWTEXT(CROSS(VARE,QS)&& QS<13,L,’减’),COLORGREEN;