%
%	prog7b1.m, p442			Program name
%
fc=0.53;							% cutoff frequency (normalized to Fs/2)
N= 10;                     % Filter length (number of taps)
hd=fir1(N-1,fc,boxcar(N));	% Calculate truncated ideal impulse response coeffs
n1=length(hd);
n_1=0:n1;
wn=hamming(N);					% Calculate Hamming window coefficients
hn=fir1(N-1,fc,wn);			% Obtain windowed coefficients
n2=length(hn);
n_2=0:n2;
subplot(1,2,1);
plot(n_1,hd);
subplot(1,2,2);
plot(n_2,hn);
grid