% 第八章: 例 8.8
%            橢圓型低通濾波器設計
%
Wp = 0.2*pi; Ws = 0.3*pi; Rp = 1; As = 16;
Ripple = 10 ^ (-Rp/20); Attn = 10 ^ (-As/20);

% 模擬濾波器設計:
[b,a] = afd_elip(Wp,Ws,Rp,As);
%*** 橢圓型濾波器階次 =  3

% 計算二階環節部分:
[C,B,A] = sdir2cas(b,a)
%%C = 0.2740
%%B = 1.0000         0    0.6641
%%A = 1.0000    0.1696    0.4102
%%         0    1.0000    0.4435

% 計算頻率響應:
[db,mag,pha,w] = freqs_m(b,a,0.5*pi);

% 計算脈沖響應:
[ha,x,t] = impulse(b,a);

% Plots
figure(1); subplot(1,1,1)
subplot(2,2,1); plot(w/pi,mag);title('幅度響應')
xlabel(''); ylabel('|H|'); axis([0,0.5,0,1.1])
set(gca,'XTickMode','manual','XTick',[0,0.2,0.3,0.5]);
set(gca,'YTickmode','manual','YTick',[0,Attn,Ripple,1]); grid
subplot(2,2,2); plot(w/pi,db);title('幅度(dB)')
xlabel(''); ylabel('分貝'); axis([0,0.5,-30,1])
set(gca,'XTickMode','manual','XTick',[0,0.2,0.3,0.5]);
set(gca,'YTickmode','manual','YTick',[-30,-As,-Rp,0]); grid
set(gca,'YTickLabelMode','manual','YTickLabels',['30';'16';' 1';' 0'])
subplot(2,2,3); plot(w/pi,pha/pi); title('相位響應')
xlabel('模擬頻率（單位：pi）'); ylabel('弧度'); axis([0,0.5,-1,1])
set(gca,'XTickMode','manual','XTick',[0,0.2,0.3,0.5]);
set(gca,'YTickmode','manual','YTick',[-1,-0.5,0,0.5,1]); grid
subplot(2,2,4); plot(t,ha,[0,max(t)],[0,0]); title('脈沖響應')
xlabel('時間(秒)'); ylabel('ha(t)'); axis([0,max(t),min(ha),max(ha)])