// S.Ayrinhac (2013)
// Moyenne mobile centrée, sur 2N+1 points
// la moyenne mobile équivaut à un sous-échantillonnage

function z=moyenne_mobile(y,N)
    
// Moyenne mobile sur points p+/-N

    L=length(y);
    for p=1:L
        p1=max(1,p-N); // effet de bord gauche
        p2=min(L,p+N); // effet de bord droit
        z(p)=mean(y(p1:p2));
    end
    
    z=z';
    
endfunction