pvi:SUM((CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*VOL,0);

mpvi:ma(pvi,31);

FILLRGN(PVI>MPVI,PVI,MPVI,COLORLIGHTRED);

FILLRGN(PVI<MPVI,MPVI,PVI,COLORLIGHTGREEN);