 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));