黑马有形 通达信副图指标 源码 贴图

{公式名称: 黑马有形}
{副图}
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;{WWW.GPXIAZAI.COM}
DRAWICON(CROSS(VAR15,Y144),Y144*0.95,9);
DRAWICON(CROSS(A,Y13),Y144*0.95,1);
STICKLINE(A>B5,B5,A,1,0),COLORRED;
STICKLINE(A<=B5,B5,A,1,0),COLORLIGREEN;