通天河（通达信公式 主图 源码 测试图）

通天河

VAR0:=1;

SS:=EMA(EMA(H,25),25)-(EMA(EMA(L,25),25))*1+EMA(EMA(H,25),25)*VAR0;

XX:=EMA(EMA(L,25),25)-(EMA(EMA(H,25),25)-EMA(EMA(L,25),25))*1*VAR0,COLORYELLOW;

STICKLINE(SS>=REF(SS,1),SS,XX,100,0),COLOR880000;

STICKLINE(SS<REF(SS,1),SS,XX,100,0),COLOR696400;

IF(SS>=REF(SS,1),SS,DRAWNULL),COLORRED,POINTDOT,LINETHICK2;

IF(SS>=REF(SS,1),XX,DRAWNULL),COLORRED,POINTDOT,LINETHICK2;

IF(SS<REF(SS,1),SS,DRAWNULL),COLORGREEN,LINETHICK2,POINTDOT;

IF(SS<REF(SS,1),XX,DRAWNULL),COLORGREEN,LINETHICK2,POINTDOT;

STICKLINE(C>=O,O,C,2,1),COLORRED;

STICKLINE(C>=O,C,H,0,1),COLORRED;

STICKLINE(C>=O,O,L,0,1),COLORRED;

STICKLINE(C<=O,C,O,2,0),COLORCYAN;

STICKLINE(C<=O,H,L,0,0),COLORCYAN;

DRAWBMP(SS>=REF(SS,1)AND H>SS AND REF(H,1)<REF(SS,1),H,'B (92)'),COLOR00FFFF;

DRAWBMP(SS>=REF(SS,1)AND L<XX AND REF(L,1)>REF(XX,1),L,'B (88)'),COLOR00FFFF;

DRAWBMP(SS<REF(SS,1)AND H>SS AND REF(H,1)<REF(SS,1),H,'B (89)'),COLOR00FFFF;

DRAWBMP(SS<REF(SS,1)AND L<XX AND REF(L,1)>REF(XX,1),L,'B (91)'),COLOR00FFFF;

 

202231618255827154.png