Reaction

//@version=4
study("My Script",overlay=true)
SELL=((2*hlc3-low))
BUY=((2*hlc3-high))
HBOP=((2*hlc3)-(2*low)+high)
LBOP=((2*hlc3)-(2*high)+low)
SELLEMA=ema(SELL,3)
BUYEMA=ema(BUY,3)
HBOPSMA=ema(HBOP,3)
LBOPSMA=ema(LBOP,3)
plot(HBOPSMA,color=green)
plot(LBOPSMA,color=red)
plot(SELLEMA)
plot(BUYEMA)
plot(vwap,color=white)
BC= hlc3>BUYEMA and hlc3>hlc3 and low>BUYEMA
SC= hlc3<SELLEMA and hlc3<hlc3 and high<SELLEMA
DN= not BC and not SC
barcolor(BC? green: na)
barcolor(SC? red: na)
barcolor(DN? yellow: na)