02.10.2019 Views

UploadFile_6417

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

Lowpass Filter Design Using MATLAB 445<br />

>> % Digital Butterworth Filter Design:<br />

>> wn = wn/pi; %Digital Butter cutoff in pi units<br />

>> [b,a]=butter(N,wn); [b0,B,A] = dir2cas(b,a)<br />

C = 5.7969e-004<br />

B = 1.0000 2.0297 1.0300<br />

1.0000 1.9997 1.0000<br />

1.0000 1.9706 0.9709<br />

A = 1.0000 -0.9459 0.2342<br />

1.0000 -1.0541 0.3753<br />

1.0000 -1.3143 0.7149<br />

The system function is<br />

0.00057969 ( 1+z −1) 6<br />

H(z) =<br />

(1 − 0.9459z −1 +0.2342z −2 )(1− 1.0541z −1 +0.3753z −2 )(1− 1.3143z −1 +0.7149z −2 )<br />

which is the same as in Example 8.17. The frequency-domain plots were shown<br />

in Figure 8.26.<br />

□<br />

□ EXAMPLE 8.22 Digital Chebyshev-I lowpass filter design:<br />

>> % Digital Filter Specifications:<br />

>> wp = 0.2*pi; %digital Passband freq in rad<br />

>> ws = 0.3*pi; %digital Stopband freq in rad<br />

>> Rp = 1; %Passband ripple in dB<br />

>> As = 15; %Stopband attenuation in dB<br />

>> % Analog Prototype Specifications:<br />

>> T = 1; %Set T=1<br />

>> OmegaP = (2/T)*tan(wp/2); %Prewarp Prototype Passband freq<br />

>> OmegaS = (2/T)*tan(ws/2); %Prewarp Prototype Stopband freq<br />

>> % Analog Prototype Order Calculation:<br />

>> ep = sqrt(10^(Rp/10)-1); %Passband Ripple Factor<br />

>> A = 10^(As/20); %Stopband Attenuation Factor<br />

>> OmegaC = OmegaP; %Analog Prototype Cutoff freq<br />

>> OmegaR = OmegaS/OmegaP; %Analog Prototype Transition Ratio<br />

>> g = sqrt(A*A-1)/ep; %Analog Prototype Intermediate cal.<br />

>> N = ceil(log10(g+sqrt(g*g-1))/log10(OmegaR+sqrt(OmegaR*OmegaR-1)));<br />

>> fprintf(’\n*** Chebyshev-1 Filter Order = %2.0f \n’,N)<br />

*** Chebyshev-1 Filter Order = 4<br />

>> % Digital Chebyshev-I Filter Design:<br />

>> wn = wp/pi; %Digital Passband freq in pi units<br />

>> [b,a]=cheby1(N,Rp,wn); [b0,B,A] = dir2cas(b,a)<br />

Copyright 2010 Cengage Learning. All Rights Reserved. May not be copied, scanned, or duplicated, in whole or in part. Due to electronic rights, some third party content may be suppressed from the eBook and/or eChapter(s).<br />

Editorial review has deemed that any suppressed content does not materially affect the overall learning experience. Cengage Learning reserves the right to remove additional content at any time if subsequent rights restrictions require it.

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!