信号实验【DOC精选】.docVIP

clc clear N=4; %阶数 Fs=5000; %采样频率 fc=500; %截止频率 wc=2*pi*fc/Fs; %利用模拟频率与数字频率关系，求数字频率. [z,p,k]=buttap(N); %以零极点值表示系统函数 [b,a]=zp2tf(z,p,k); %以多项式表示系统函数 wwc=2*Fs*tan(wc/2); %反畸变 [Bs,As]=lp2lp(b,a,wwc); % lp2lp函数将模拟低通滤波器映射成模拟低通滤波器;若模拟低通%滤波器映射成模拟高通滤波器为lp2hp [Bz,Az]=bilinear(Bs,As,Fs) %双线性变换法设计IIR.. bilinear函数可以对模拟滤波器进 %行双线性变换，求得数字滤波器的传输函数系数. [h,w]=freqs(b,a,512); % 求模拟频响特性 subplot(1,2,1); plot(w*Fs,20*log10(abs(h)/abs(h(1))));grid; %画模拟滤波器幅频特性，低滤波器hz(1)，高通 %滤波器为hz(512); w为数字频率, w*Fs为模拟频率. title(模拟低通滤波器); xlabel(模拟频率(Hz));ylabel(幅度dB); wz=[0:pi/512: pi];%wz=[0:pi/512:2*pi] hz=freqz(Bz,Az,wz); % 求数字频响特性 subplot(1,2,2); plot(wz*Fs/2/pi,20*log10(abs(hz)/hz(1)));grid; %低滤波器hz(1)，高通滤波器为hz(512); wz %为数字角频率, wz*Fs/2/pi为模拟频率 %plot(wz/pi,20*log10(abs(hz)/hz(1)));grid; %画双线性变换法滤波器幅频图, %数字频率wz归一化为0-1 xlabel(频率);ylabel(幅度( dB)) %给x轴和y轴加标注 %axis([0,2000,-120,0]) title(双线性变换法频率响应); clc clear t=0:1/4000:0.05; %采样频率为4000Hz f1=sin(2*pi*100*t); %产生100Hz信号(f1频率在通带内) f2=sin(2*pi*500*t); %产生500Hz信号(f2频率为截止频率) f3=sin(2*pi*800*t); %产生800Hz信号(f3频率在阻带内) B=[0.0048,0.0193,0.0289,0.0193,0.0048]; %二阶巴特沃兹低通数字滤波器系数 A=[1.0000,-2.3695,2.3140,-1.0547,0.1874]; y1=filter(B,A,f1); %对f1进行低通数字滤波器 y2=filter(B,A,f2); y3=filter(B,A,f3); subplot(3,1,1); plot(t,f1,t,y1,r);axis([0,0.05, -1.2 ,1.2]);title(滤波输入信号f1(蓝线),输出信号y1(红线));xlabel(t); %grid subplot(3,1,2);plot(t,f2,t,y2,r);axis([0,0.05, -1.2 ,1.2]);title(滤波输入信号f2,输出信号y2);xlabel(t); %grid subplot(3,1,3);plot(t,f3,t,y3,r);axis([0,0.05, -1.2 ,1.2]);title(滤波输入信号f3,输出信号y3);xlabel(t); %grid