KCHS:=IF(C>REF(EMA(H,2),1),1,0);

KCLS:=IF(C<REF(EMA(L,2),1),-1,0);

KCHLS:=KCHS+KCLS;

KCXS:=IF(KCHLS=0,REF(KCHLS,BARSLAST(NOT(KCHLS=0))),KCHLS);

KCB:IF(KCXS=-1,EMA(H,2),EMA(L,2));