function [win,N2]=window(fr)
%figure(i);
N2=160;
deltaw1=pi/N2;
B=hamming(N2);
win=fr(1:N2);


for k=1:N2
   
    win(k)=win(k)*B(k);%add window
end
Xk1=fft(win);
magXk1=abs(Xk1);



%plot(magXk1);
%title('log_magnitude figure when duration equals to 10ms');
%xlabel('time');
%ylabel('magnitude');