10 lines
139 B
Text
10 lines
139 B
Text
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
|