function E=entropie(s);

%                 E=entropie(s); 
%
% Calcule l'entropie de Shannon (non normalisée) d'un signal digital s,
% soit
%          E=- sum |s_k|^2 log |s_k|^2
% lorsque (s_k)_k désigne la liste des coordonnées de s dans une base
% hilbertienne.  

E=0;
for i=1:length(s),
	if s(i) ~= 0
		E=E-((abs(s(i)))^2)*log(((abs(s(i)))^2));
	end;
end; 