两色K线主图（通达信公式 主图 源码 测试图）

 {两色K线主图}

TR1:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));

 ATR:=EMA(TR1,10);

 VAR1:=REF(CLOSE,1)-REF(ATR,1);

 LSX:HHV(VAR1,13),LINETHICK1,COLORLIBLUE;

 LSX1:IF(C>=LSX,LSX,DRAWNULL),COLORMAGENTA,LINETHICK2;

 {划K线}

 STICKLINE(C>=LSX,O,C,2.5,1),COLORRED;

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

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

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

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

 STICKLINE(C<LSX,O,C,2.5,1),COLORGREEN;

 STICKLINE(C<LSX AND C>O,C,H,0,1),COLORGREEN;

 STICKLINE(C<LSX AND C>O,O,L,0,1),COLORGREEN;

 STICKLINE(C<LSX AND C<O,O,H,0,1),COLORGREEN;

 STICKLINE(C<LSX AND C<O,C,L,0,1),COLORGREEN;

 

202062612422819722.png

 

202062612423583668.png