{ Downloaded From https://www.WiseStockTrader.com }

{This code can be cleaned up using the Sum function.
It was written in this expanded form during debugging}
p8:= Ref((H+L)/2,-8);
p7:= Ref((H+L)/2,-7);
p6:= Ref((H+L)/2,-6);
p5:= Ref((H+L)/2,-5);
p4:= Ref((H+L)/2,-4);
p3:= Ref((H+L)/2,-3);
p2:= Ref((H+L)/2,-2);
p1:= Ref((H+L)/2,-1);
p0:= (H+L)/2;

PrevSum:= p8+p7+p6+p5+p4+p3+p2+p1;
PrevAve:= PrevSum/8;

Ref((PrevSum - PrevAve + p0)/8,-5)