红绿多空变色，文华指标修改而来（通达信公式 主图 源码 测试图）

红绿多空变色，
这个指标，是应网友的要求，从同名的文华指标修改而来

源码分享出来。

{参数N:12}

{参数M:26}

DRAWGBK(1,RGB(0,0,0),RGB(0,0,0),0,'RGB',0); 

DIFF:=EMA(CLOSE,N)-EMA(CLOSE,M);

DEA:=EMA(DIFF,9); 

MA(C,8),COLORWHITE; 

MA(C,21),COLORYELLOW; 

多头:STICKLINE(DIFF>DEA,C,O,3,-1),COLORRED; 

STICKLINE(DIFF>DEA,H,L,0,0),COLORWHITE; 

空头:STICKLINE(DIFF<=DEA,C,O,3,0),COLORWHITE;

STICKLINE(DIFF<=DEA,H,L,0,0),COLORWHITE;

DRAWTEXT(CROSS(DIFF,DEA),L*0.98,'B'),COLORYELLOW;                            

DRAWTEXT(CROSS(DEA,DIFF),H*1.02,'S'),COLORGREEN;

DIFF1:=EMA(CLOSE,12)-EMA(CLOSE,26);

DEA1:=EMA(DIFF1,9);

MA(C,8),COLORWHITE; 

MA(C,21),COLORYELLOW; 

多头1:STICKLINE(DIFF1>DEA1,C,O,3,0),COLORRED;

STICKLINE(DIFF>DEA1,H,L,0,0),COLORRED;

空头1:STICKLINE(DIFF1<=DEA1,C,O,3,0),COLORGREEN;

STICKLINE(DIFF1<=DEA1,H,L,0,0),COLORGREEN;

DRAWTEXT(CROSS(DIFF1,DEA1),L*0.98,'B'),COLORWHITE;

DRAWTEXT(CROSS(DEA1,DIFF1),H*1.02,'S'),COLORGREEN;

 

{TJ:=(TJ2 AND TJ3) OR (TJ21 AND TJ3);}

TJ:=DYNAINFO(4)>0

AND HHV(HIGH,10)/LLV(LOW,10)<1.25

AND REF(CLOSE,1)<(LLV(LOW,15)+(HHV(HIGH,15)-LLV(LOW,15))*0.85)

AND CLOSE>OPEN

AND CLOSE>=HHV(HIGH,10);

 

STICKLINE(TJ,H,L,1,0),COLORYELLOW;

STICKLINE(TJ,O,C,3,0),COLORYELLOW;

 

2022626373325478.png