function z=keskiarvo(x)
z=sum(x(:))/length(x(:));
