function [mean, maxx, minn]= stat(x) 
% STAT Média e Desvio Padrão 
%   Para um vetor x, stat(x) retorna a média e o desvio padrão de x. 
%   Para uma matriz x, stat(x)  retorna dois vetores linha contendo 
%   respectivamente, a média e o desvio padrão de cada coluna. 
[m,n]=size(x); 
if m == 1 
 m=n;  % caso de um vetor linha 
end 
mean = sum(x)/m; 
maxx = max(x);
minn= min(x);
%stdev= sqrt(sum(x.^2)/m - mean.^2); 