function f = hilbert_fenetre(s)

%           f=hilbert_fenetre(s);
%
% Calcule la transformée de Hilbert d'un signal digital réel donné en
% colonne (multiplié au préalable par une fenêtre de Hamming). 

N=length(s);
s=s.*hamming(N); 
NN = 2^nextpow2(N);
y = fft(s,NN);
if NN ~= 1
	h = [1; 2*ones(fix((NN-1)/2),1); 1; zeros(fix((NN-1)/2),1)];
	y = y.*h;
end
f = imag(ifft(y,NN));
f=f(1:N); 