代码：

%% ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++%%            Output Info about this m-filefprintf('\n***********************************************************\n');fprintf('        
     
       Problem 7.25 \n\n');banner();%% ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++% bandpassws1 = 0.3*pi; wp1 = 0.4*pi; wp2 = 0.5*pi; ws2 = 0.6*pi; As = 50; Rp = 0.5;tr_width = min((wp1-ws1), (ws2-wp2));T2 = 0.5925; T1=0.1099;M = 60; alpha = (M-1)/2; l = 0:M-1; wl = (2*pi/M)*l;n = [0:1:M-1]; wc1 = (ws1+wp1)/2; wc2 = (wp2+ws2)/2;Hrs = [zeros(1,10),T1,T2,ones(1,4),T2,T1,zeros(1,25),T1,T2,ones(1,4),T2,T1,zeros(1,9)];   % Ideal Amp Res sampledHdr = [0, 0, 1, 1, 0, 0]; wdl = [0, 0.3, 0.4, 0.5, 0.6, 1];     % Ideal Amp Res for plottingk1 = 0:floor((M-1)/2); k2 = floor((M-1)/2)+1:M-1;%% --------------------------------------------------%%                   Type-2 BPF%% --------------------------------------------------  angH = [-alpha*(2*pi)/M*k1, alpha*(2*pi)/M*(M-k2)]; H = Hrs.*exp(j*angH); h = real(ifft(H, M));[db, mag, pha, grd, w] = freqz_m(h, [1]);  delta_w = 2*pi/1000;%[Hr,ww,P,L] = ampl_res(h);[Hr, ww, a, L] = Hr_Type2(h);Rp = -(min(db(floor(wp1/delta_w)+1 :1: floor(wp2/delta_w))));     % Actual Passband Ripplefprintf('\nActual Passband Ripple is %.4f dB.\n', Rp);As = -round(max(db(ws2/delta_w+1 : 1 : 501)));        % Min Stopband attenuationfprintf('\nMin Stopband attenuation is %.4f dB.\n', As);[delta1, delta2] = db2delta(Rp, As)% Plotfigure('NumberTitle', 'off', 'Name', 'Problem 7.25a FreSamp Method')set(gcf,'Color','white'); subplot(2,2,1); plot(wl(1:31)/pi, Hrs(1:31), 'o', wdl, Hdr, 'r'); axis([0, 1, -0.1, 1.1]);set(gca,'YTickMode','manual','YTick',[0,0.5,1]);set(gca,'XTickMode','manual','XTick',[0,0.3,0.4,0.5,0.6,1]);xlabel('frequency in \pi nuits'); ylabel('Hr(k)'); title('Frequency Samples: M=60,T1=0.5925,T2=0.1099');grid on;subplot(2,2,2); stem(l, h); axis([-1, M, -0.2, 0.2]); grid on;xlabel('n'); ylabel('h(n)'); title('Impulse Response');subplot(2,2,3); plot(ww/pi, Hr, 'r', wl(1:31)/pi, Hrs(1:31), 'o'); axis([0, 1, -0.2, 1.2]); grid on;xlabel('frequency in \pi units'); ylabel('Hr(w)'); title('Amplitude Response');set(gca,'YTickMode','manual','YTick',[0,0.5,1]);set(gca,'XTickMode','manual','XTick',[0,0.3,0.4,0.5,0.6,1]);subplot(2,2,4); plot(w/pi, db); axis([0, 1, -100, 10]); grid on;xlabel('frequency in \pi units'); ylabel('Decibels'); title('Magnitude Response');set(gca,'YTickMode','manual','YTick',[-90,-54,0]);set(gca,'YTickLabelMode','manual','YTickLabel',['90';'54';' 0']);set(gca,'XTickMode','manual','XTick',[0,0.3,0.4,0.5,0.6,1]);figure('NumberTitle', 'off', 'Name', 'Problem 7.25 h(n) FreSamp Method')set(gcf,'Color','white'); subplot(2,2,1); plot(w/pi, db); grid on; axis([0 2 -120 10]); set(gca,'YTickMode','manual','YTick',[-90,-54,0])set(gca,'YTickLabelMode','manual','YTickLabel',['90';'54';' 0']);set(gca,'XTickMode','manual','XTick',[0,0.3,0.4,0.5,0.6,1,1.4,1.5,1.6,1.7,2]);xlabel('frequency in \pi units'); ylabel('Decibels'); title('Magnitude Response in dB');subplot(2,2,3); plot(w/pi, mag); grid on; %axis([0 1 -100 10]); xlabel('frequency in \pi units'); ylabel('Absolute'); title('Magnitude Response in absolute');set(gca,'XTickMode','manual','XTick',[0,0.3,0.4,0.5,0.6,1,1.4,1.5,1.6,1.7,2]);set(gca,'YTickMode','manual','YTick',[0,1.0]);subplot(2,2,2); plot(w/pi, pha); grid on; %axis([0 1 -100 10]); xlabel('frequency in \pi units'); ylabel('Rad'); title('Phase Response in Radians');subplot(2,2,4); plot(w/pi, grd*pi/180);  grid on; %axis([0 1 -100 10]); xlabel('frequency in \pi units'); ylabel('Rad'); title('Group Delay');figure('NumberTitle', 'off', 'Name', 'Problem 7.25 AmpRes of h(n), FreSamp Method')set(gcf,'Color','white'); plot(ww/pi, Hr); grid on; %axis([0 1 -100 10]); xlabel('frequency in \pi units'); ylabel('Hr'); title('Amplitude Response');set(gca,'YTickMode','manual','YTick',[-delta2, 0,delta2, 1-0.0258, 1,1+0.0258]);%set(gca,'YTickLabelMode','manual','YTickLabel',['90';'45';' 0']);set(gca,'XTickMode','manual','XTick',[0,0.3,0.4,0.5,0.6,1]);%% ------------------------------------%%     fir2 Method%% ------------------------------------f = [0 ws1 wp1 wp2 ws2 pi]/pi;m = [0  0  1  1  0  0];h_check = fir2(M, f, m);[db, mag, pha, grd, w] = freqz_m(h_check, [1]);  %[Hr,ww,P,L] = ampl_res(h_check);[Hr, ww, a, L] = Hr_Type1(h_check);fprintf('\n----------------------------------\n');fprintf('\n fir2 function Method \n');fprintf('\n----------------------------------\n');Rp = -(min(db(floor(wp1/delta_w)+1 :1: floor(wp2/delta_w))));            % Actual Passband Ripplefprintf('\nActual Passband Ripple is %.4f dB.\n', Rp);As = -round(max(db(0.65*pi/delta_w+1 : 1 : 501)));             % Min Stopband attenuationfprintf('\nMin Stopband attenuation is %.4f dB.\n', As);[delta1, delta2] = db2delta(Rp, As)figure('NumberTitle', 'off', 'Name', 'Problem 7.25 fir2 Method')set(gcf,'Color','white'); subplot(2,2,1); stem(n, h); axis([0 M-1 -0.2 0.2]); grid on;xlabel('n'); ylabel('h(n)'); title('Impulse Response');%subplot(2,2,2); stem(n, w_ham); axis([0 M-1 0 1.1]); grid on;%xlabel('n'); ylabel('w(n)'); title('Hamming Window');subplot(2,2,3); stem([0:M], h_check); axis([0 M -0.2 0.3]); grid on;xlabel('n'); ylabel('h\_check(n)'); title('Actual Impulse Response');subplot(2,2,4); plot(w/pi, db); axis([0 1 -120 10]); grid on;set(gca,'YTickMode','manual','YTick',[-90,-66,-22,0])set(gca,'YTickLabelMode','manual','YTickLabel',['90';'66';'22';' 0']);set(gca,'XTickMode','manual','XTick',[0,0.3,0.4,0.5,0.6,1]);xlabel('frequency in \pi units'); ylabel('Decibels'); title('Magnitude Response in dB');figure('NumberTitle', 'off', 'Name', 'Problem 7.25 h(n) fir2 Method')set(gcf,'Color','white'); subplot(2,2,1); plot(w/pi, db); grid on; axis([0 2 -120 10]); xlabel('frequency in \pi units'); ylabel('Decibels'); title('Magnitude Response in dB');set(gca,'YTickMode','manual','YTick',[-90,-66,-22,0]);set(gca,'YTickLabelMode','manual','YTickLabel',['90';'66';'22';' 0']);set(gca,'XTickMode','manual','XTick',[0,0.3,0.4,0.5,0.6,1,1.4,1.5,1.6,1.7,2]);subplot(2,2,3); plot(w/pi, mag); grid on; %axis([0 1 -100 10]); xlabel('frequency in \pi units'); ylabel('Absolute'); title('Magnitude Response in absolute');set(gca,'XTickMode','manual','XTick',[0,0.3,0.4,0.5,0.6,1,1.4,1.5,1.6,1.7,2]);set(gca,'YTickMode','manual','YTick',[0,1.0]);subplot(2,2,2); plot(w/pi, pha); grid on; %axis([0 1 -100 10]); xlabel('frequency in \pi units'); ylabel('Rad'); title('Phase Response in Radians');subplot(2,2,4); plot(w/pi, grd*pi/180);  grid on; %axis([0 1 -100 10]); xlabel('frequency in \pi units'); ylabel('Rad'); title('Group Delay');figure('NumberTitle', 'off', 'Name', 'Problem 7.25 AmpRes of h(n),fir2 Method')set(gcf,'Color','white'); plot(ww/pi, Hr); grid on; %axis([0 1 -100 10]); xlabel('frequency in \pi units'); ylabel('Hr'); title('Amplitude Response');set(gca,'YTickMode','manual','YTick',[-0.08, 0,0.08, 1-0.04, 1,1+0.04]);%set(gca,'YTickLabelMode','manual','YTickLabel',['90';'45';' 0']);set(gca,'XTickMode','manual','XTick',[0,0.3,0.4,0.5,0.6,1]);
     

　　运行结果：