原创通达信版－缠论K线包含公式

原创通达信版－缠论K线包含公式。

走势K线的包含关系显示，可以从公式中看到，出现包含关系出现时，公式会把相互包含的第二根K线处理成包含处理后的K线区间；向上包含处理时，会把包含形成后的新K线显示为粉红色，向下包含处理时，会把包含形成后的新K线显示为绿色。

图1为指标原图，图2为配合分笔指标使用。

KL:=H<=REF(H,1) AND L>=REF(L,1);{K线左包含}
KR:=H>=REF(H,1) AND L<=REF(L,1);{K线右包含}

{定义K线方向}
MA1:MA(CLOSE,3);
 XS:=MA1>REF(MA1,1);{K线向上}
XX:=MA1<REF(MA1,1);{K线向下}

{K线向上左包含}
KL1:=IF(KL AND XS,1,0);
 B1:="┄";
 DRAWTEXT(KL1,REF(H,1),B1),COLORMAGENTA;
 DRAWTEXT(KL1,L,B1),COLORMAGENTA;

{K线向上右包含}
KR1:=IF(KR AND XS,1,0);
 DRAWTEXT(KR1,H,B1),COLORMAGENTA;
 DRAWTEXT(KR1,REF(L,1),B1),COLORMAGENTA;

 {K线向下左包含}
KL2:=IF(KL AND XX,1,0);
 DRAWTEXT(KL2,H,B1),COLORGREEN;
 DRAWTEXT(KL2,REF(L,1),B1),COLORGREEN;

{K线向下右包含}
KR2:=IF(KR AND XX,1,0);
 DRAWTEXT(KR2,REF(H,1),B1),COLORGREEN;
 DRAWTEXT(KR2,L,B1),COLORGREEN;