% Program 9.27% Design of IIR Butterworth Lowpass Filter
% Program to Design Butterworth Lowpass Filter
% Type in the filter order and passband edge frequency
%
Wc =input('Stopband edge frequencies (0,1) = ');
New_Wc =input('New Stopband edge frequencies (0,1) = ');
N =input('Type in filter order = ');b =input('原傳輸系數分子系數b:');
a =input('原傳輸系數分母系數a:');% 實現低通到低通的譜變換
% Wc是原有傳輸函數的截止頻率wc
% New_Wc是譜變換后的傳輸函數的截止頻率wc
%[num,den,allpassnum,allpassden]=iirlp2lp(b,a,Wc,New_Wc);% 計算頻率響應和增益
%[h,~]=freqz(b,a,256);[New_h,omega]=freqz(num,den,256);gain =20*log10(abs(h));
New_gain =20*log10(abs(New_h));plot (omega/pi,New_gain,'red',omega/pi,gain,'blue');grid;xlabel('\omega/\pi');ylabel('Gain, dB');title('IIR Butterworth Lowpass Filter');legend('red:new h','blue:h');