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

              发布时间：2017-02-23

• 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;