calcolo media mobile

[pippaccia1971]

ragazzi chiedo aiuto...
allora io devo calcolarmi la media mobile(media del dato degli ultimi 5 periodi) e fare un ciclo su dei dati che ho già in un array...es.

Arr_vi(0) = 10
Arr_vi(1) = 100
Arr_vi(2) = 200
Arr_vi(3) = 300
Arr_vi(4) = 400
Arr_vi(5) = 500
ecc...

devo partire dall'ultimo dato nell'array e fare la somma degli ultimi 5 gg o periodi e dividerli per 5..
quindi devo fare 500+400+300+200+100 / 5 e caricarli nell'array MEDIAM(0) poi devo ripartire dal penultimo e sommare 400+300+200+100+10 / 5 .e caricarli nell'array MEDIAM(1)...e cosi via....
quando arrivo ai primi dati ...cioè al punto in cui nn posso più sommare 5 dati perchè non ne ho 5 ...devo mettere 0..
esempio io ho i dati di aprile ma non ho i dati di marzo..per cui non posso andare indietro di 5 gg perchè non ho il mese di marzo rilevato...quindi per i primi 5 gg di aprile dovrei mettere sempre 0
spero di essere stato chiaro....
qualcuno mi puo aiutare
grazie mille

[Alethesnake]

Dim n, i, j, intervallo

n = UBound(Arr_vi) -1
intervallo = 5

Dim MEDIAM(n)

For i = n To 0 Step -1
    if i < intervallo -1 then
        MEDIAM(i) = 0
    else
        For j = 0 to intervallo -1
            MEDIAM(i) = MEDIAM(i) + (Arr_vi(i - j) / intervallo)
        Next 'j
    end if
Next 'i

boh, prova un po' (non l'ho testato)

[pippaccia1971]

grazie mille...funziona....
grazie grazie