movinavg(list,p)
Func
  Local r, i, z

  For i,1,dim(list)
    max(i-p,0)→z
    sum(mid(list,z+1,i-z))/(i-z)→r[i]
  EndFor
  r
EndFunc