《DSP using MATLAB》Problem 8.18

代码：

%% ------------------------------------------------------------------------

%%            Output Info about this m-file

fprintf('\n***********************************************************\n');

fprintf('        <DSP using MATLAB> Problem 8.18 \n\n');

banner();

%% ------------------------------------------------------------------------

Wp = 20*pi; Ws = 30*pi; Rp = 0.25; As = 50;

Fp = Wp/(2*pi);

Fs = Ws/(2*pi);

Ripple = 10 ^ (-Rp/20)

Attn = 10 ^ (-As/20)

% Analog filter design, DIRECT form:

[b, a] = afd('ellip', Fp, Fs, Rp, As);

%[b, a] = afd_elip(Wp, Ws, Rp, As);

% Calculation of second-order sections:

[C, B, A] = sdir2cas(b, a);

% Calculation of Frequency Response:

[db, mag, pha, ww] = freqs_m(b, a, 35*pi);

% Calculation of Impulse Response:

[ha, x, t] = impulse(b, a);

%% -------------------------------------------------

%%                    Plot

%% -------------------------------------------------

figure('NumberTitle', 'off', 'Name', 'Problem 8.18 Lowpass Analog Elliptic')

set(gcf,'Color','white');

M = 1.0;                          % Omega max

subplot(2,2,1); plot(ww/pi, mag);  grid on; axis([-45, 45, 0, 1.2]);

xlabel(' Analog frequency in \pi*1k units'); ylabel('|H|'); title('Magnitude in Absolute');

set(gca, 'XTickMode', 'manual', 'XTick', [-30, -20, 0, 20, 30]);

set(gca, 'YTickMode', 'manual', 'YTick', [0, 0.003, 0.97, 1]);

subplot(2,2,2); plot(ww/pi, db);  grid on; %axis([0, M, -50, 10]);

xlabel('Analog frequency in \pi*1k units'); ylabel('Decibels'); title('Magnitude in dB ');

set(gca, 'XTickMode', 'manual', 'XTick', [-30, -20, 0, 20, 30]);

set(gca, 'YTickMode', 'manual', 'YTick', [-70, -50, -1, 0]);

set(gca,'YTickLabelMode','manual','YTickLabel',['70';'50';' 1';' 0']);

subplot(2,2,3); plot(ww/pi, pha/pi);  grid on; axis([-45, 45, -1.2, 1.2]);

xlabel('Analog frequency in \pi*1k nuits'); ylabel('radians'); title('Phase Response');

set(gca, 'XTickMode', 'manual', 'XTick', [-30, -20, 0, 20, 30]);

set(gca, 'YTickMode', 'manual', 'YTick', [-1:0.5:1]);

subplot(2,2,4); plot(t, ha); grid on; %axis([0, 30, -0.05, 0.25]);

xlabel('time in seconds'); ylabel('ha(t)'); title('Impulse Response');

　　运行结果：

绝对指标

模拟Elliptical低通，串联形式系数

幅度谱、相位谱和脉冲响应

通带放大

阻带放大

由图可知，通带、阻带，都是等波纹的。