the formula should something like this

HLAverage:= Mov((H-L),hlper,E);

HLAverageChange:= Ref(HLAverage,-rocper);

CVOL:= ((HLAverage - HLAverageChange) / HLAverageChange) * 100;