「翔博精选指标」黑马有形（通达信公式 副图 源码 测试图）

{公式名称: 黑马有形}

{副图}

A:EMA(CLOSE,6)-EMA(CLOSE,13);

B5:EMA(A,5);

Y13:EMA(A,13);

Y21:EMA(A,21);

VAR1:=EMA(A,34);

VAR2:=EMA(A,55);

VAR3:=EMA(A,89);

Y144:EMA(A,144),COLORGREEN,LINETHICK2;

R5:SQRT((Y13-Y144)*(Y13-Y144)+(Y21-Y144)*(Y21-Y144)+(VAR1-Y144)*(VAR1-Y144)+(VAR2-Y144)*(VAR2-Y144)+(VAR3-Y144)*(VAR3-Y144)),NODRAW;

BP1:IF(CROSS(B5,Y144),R5,DRAWNULL),NODRAW;

BP2:IF(CROSS(A,Y13),R5,DRAWNULL),NODRAW;

BP1N:BARSLAST(CROSS(B5,Y144)),NODRAW;

BP2N:BARSLAST(CROSS(A,Y13)),NODRAW;

WWW70822COM:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));

GS70822:BARSLASTCOUNT(A>B5 AND A>Y144),NODRAW;

GS88:BARSLASTCOUNT(A>B5 AND A<Y144),NODRAW;

VAR4:=KDJ.K(9,3,3);

VAR5:=KDJ.D(9,3,3);

VAR6:=KDJ.J(9,3,3);

VAR7:=(VAR6+REF(VAR6,1))/2;

VAR8:=IF(CROSS(VAR6,VAR4),VAR7,0);

VAR9:=BARSLAST(CROSS(VAR6,VAR4));

VAR10:=REF(VAR7,VAR9);

VAR11:=REF(VAR5,VAR9);

VAR12:=IF(VAR8 AND VAR8>50 AND VAR8>VAR10,100,0);

VAR13:=BARSLAST(CROSS(VAR5,VAR6) AND VAR5>50);

VAR14:=BARSLAST(CROSS(VAR6,VAR5));

J减:VAR13<3 AND VAR6<REF(VAR6,1) AND (CLOSE>OPEN OR CLOSE>REF(CLOSE,1)) AND VAR5>50,NODRAW;

J加:VAR13<3 AND VAR6>REF(VAR6,1) AND (CLOSE>OPEN OR CLOSE>REF(CLOSE,1)) AND VAR5>50,NODRAW;

VAR15:=B5;

DRAWICON(CROSS(VAR15,Y144),Y144*0.95,9);

DRAWICON(CROSS(A,Y13),Y144*0.95,1);

STICKLINE(A>B5,B5,A,1,0),COLORRED;