WEEKLOWAV4DAILY

INPUT:LENGTH(NUMERIC);



ARRAY:HARRAY[200](0),LARRAY[200](0);







IF DAYOFWEEK(DATE) < DAYOFWEEK(DATE[1]) THEN BEGIN

     VALUE5 = 0;

     LARRAY[LENGTH + 1] = VALUE2;



     FOR VALUE0 = 1 TO LENGTH BEGIN



          LARRAY[VALUE0] = LARRAY[VALUE0 + 1];

          VALUE5 = VALUE5 + LARRAY[VALUE0];

      

     END;

                     

     VALUE2 = L;

     VALUE3 = 0;

     VALUE7 = ROUND(VALUE5 / LENGTH,2);



     WEEKLOWAV4DAILY = VALUE7;



END;



IF L < VALUE2 THEN VALUE2 = L;