function [corr,corrcoeff,media,varianza] = correlazionetemporale(x,k)
%function [corr,corrcoeff,media,varianza] = correlazionetemporale(x,k)
%x: matrice processo aleatorio
%k: elementi correlazione e coefficiente di correlazione
for i=1:size(x,1)
    y=x(i,:);
    media(i)=mean(y);
    varianza(i)=var(y);
    for m=1:k        %indice temporale
        corr(i,m)=mean(y(1:length(y)-m+1).*y(m:length(y)));
        corrcoeff(i,m)=(corr(i,m)-media(i)^2)/varianza(i);
    end, 
end
end