function [media, desv] = estad(x)
% Calcula la media y la desviacion tipica
% Fecha de creacion: 19 de Enero de 2007
long=length(x);
media=sum([1:long]/long.*x)/sum(x);
desv=sqrt(sum((([1:long]/long-media).^2).*x)/sum(x));
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
