p7_1.m

《数字信号处理实验指导书（MATLAB 版）》 著者： （美）米特拉著 作译者： 孙洪等译 ISBN号： 7-121-00700-2 出版日期： 2005-01 出版社：电子工业出

% Program P7_1
% Design of a Butterworth Bandstop Digital Filter
Ws = [0.4 0.6]; Wp = [0.2 0.8]; Rp = 0.4; Rs = 50;
% Estimate the Filter Order
[N1, Wn1] = buttord(Wp, Ws, Rp, Rs); 
% Design the Filter
[num,den] = butter(N1,Wn1,'stop'); 
% Display the transfer function
disp('Numerator Coefficients are ');disp(num);
disp('Denominator Coefficients are ');disp(den);
% Compute the gain response
[g, w] = gain(num,den); 
% Plot the gain response
plot(w/pi,g);grid 
axis([0 1 -60 5]);
xlabel('\omega /\pi'); ylabel('Gain in dB');
title('Gain Response of a Butterworth Bandstop Filter');