function [y]=media(x);
%--------------------------------------------------------------------------
%Esta es una función que calcula la media de un vector. Si es una matriz el
%input que se está dando devuelve un error.
%--------------------------------------------------------------------------
A=size(x);
if A(1,1)>1 & A(1,2)>1
    y=sprintf('Error: La función solo acepta vectores');
else
    n=length(x);
    y=sum(x)/n;
end