function m=mediav(x)
n=length(x);
somma=0;
for i=1:n
   somma=somma+x(i);
end
m=somma/n;
%
%somma1=0;
%for xi=x
%    somma1=somma1+xi;
%end
%m=somm1/n;
%
%somma2=sum(x);
%m=somma2/n);