{ Downloaded From https://www.WiseStockTrader.com }
THL:=If(H-L=0,.00001,H-L);
{Reward Based on the Open}

BuRBoO:=(H-O)/(THL);
BeRBoO:=(O-L)/(THL);
{Reward Based on the Close}

BuRBoC:=(C-L)/(THL);
BeRBoC:=(H-C)/(THL);
{Reward Based on the Open-Close}

BuRBoOC:=If(C>O,(C-O)/(THL),0);
BeRBoOC:=If(C>O,0,(O-C)/(THL));
BOP:=(BuRBoO+BuRBoC+BuRBoOC)/3 - (BeRBoO+BeRBoC+BeRBoOC)/3;
BOP