ms24_7.m

《数字信号处理实验(MATLAB版)》这

%FIR带通滤波器

wp1=0.3*pi;wp2=0.7*pi;  %输入设计指标
ws1=0.2*pi;ws2=0.8*pi;
wp=[wp1,wp2];ws=[ws1,ws2];
deltaw=wp1-ws1;         %计算过渡带的宽度
N0=ceil(11*pi/deltaw);  %按布莱克曼窗计算滤波器长度N0
N=N0+mod(N0+1,2)  %为实现FIR类型I偶对称滤波器,应确保N为奇数
windows=(blackman(N))'; %使用布莱克曼窗，并将列向量变为行向量
wc1=(ws1+wp1)/2;wc2=(ws2+wp2)/2;%截止频率取通阻带频率的平均值        
hd=ideal_lp(wc2,N)-ideal_lp(wc1,N);  %建立理想带通滤波器
b=hd.*windows;           %求FIR系统函数系数
[db,mag,pha,grd,w]=freqz_m(b,1); %求解频率特性
n=0:N-1;dw=2*pi/1000;   %dw为频率分辨率，将0～2π分为1000份
Rp=-(min(db(wp1/dw+1:wp2/dw+1))) %检验通带波动
ws0=[1:ws1/dw+1,ws2/dw+1:501];   %建立阻带频率样点数组
As=-round(max(db(ws0)))          %检验最小阻带衰减
%
subplot(2,2,1),stem(n,b,'filled','k');
axis([0,N,1.1*min(b),1.1*max(b)]);title('实际脉冲响应');
xlabel('n');ylabel('h(n)');
subplot(2,2,2),stem(n,windows,'filled','k');
axis([0,N,0,1.1]);title('窗函数特性');
xlabel('n');ylabel('wd(n)');
subplot(2,2,3),plot(w/pi,db,'k');
axis([0,1,-150,10]);title('幅度频率响应');
xlabel('频率(单位:\pi)');ylabel('H(e^{j\omega})');
set(gca,'XTickMode','manual','XTick',[0,ws1/pi,wp1/pi,wp2/pi,ws2/pi,1]);
set(gca,'YTickMode','manual','YTick',[-100,-65,-20,-3,0]);grid
subplot(2,2,4),plot(w/pi,pha,'k');
axis([0,1,-4,4]);
title('相频响应');
xlabel('频率(单位:\pi)');ylabel('\phi(\omega)');
set(gca,'XTickMode','manual','XTick',[0,ws1/pi,wp1/pi,wp2/pi,ws2/pi,1]);
set(gca,'YTickMode','manual','YTick',[-pi,0,pi]);grid