examp42.m

ADSP TOOLBOX: Version 2.0 and gui m-files

clc,echo on 
%EXAMPLE 42 
Ap=1;As=34;fp=[200 300];fs=[100 400];        % Design specifications
[nbw, dbw]=afd('bw','bp',[Ap As],fp,fs);     % Butterworth filter
[nc1, dc1]=afd('c1','bp',[Ap As],fp,fs);     % Chebyshev I filter
[nc2, dc2]=afd('c2','bp',[Ap As],fp,fs);     % Chebyshev II filter
[nel, del]=afd('el','bp',[Ap As],fp,fs);     % Elliptic Filter
f=1:600;w=2*pi*f;hbw=abs(freqs(nbw,dbw,w));hc1=abs(freqs(nc1,dc1,w));
hc2=abs(freqs(nc2,dc2,w));hel=abs(freqs(nel,del,w));
plot(f,[hbw;hc1;hc2;hel]),grid,pause(2)      % Plot linear magnitude
plot(f,20*log10([hbw;hc1;hc2;hel])),grid     % And dB magnitude
lbw=length(dbw)-1;                           % Butterworth order
lc1=length(dc1)-1;                           % Chebyshev I order
lc2=length(dc2)-1;                           % Chebyshev II order
lel=length(del)-1;                           % Elliptic order
disp(['    BW     C1    C2    EL'])
disp([lbw lc1 lc2 lel])                      % Display orders
echo off %end of example