afd_chb2.m

数字信号处理的MATLAB仿真加实验指导

function[b,a]=afd_chb2(Omegap,Omegar,Ap,Ar);


if Omegap<=0
   error('通带边缘必须大于0')
end
if Omegar<=Omegap
   error('阻带边缘必须大雨通带边缘')
end
if(Ap<=0)|(Ar<0)
   error('通带波动或阻带衰减必须大于0')
end
   
ep=sqrt(10^(Ap/10)-1);
A=10^(Ar/20);
OmegaC=Omegar;
OmegaR=Omegar/Omegap;
g=sqrt(A*A-1)/ep;
N=ceil(log10(g+sqrt(g*g-1))/log10(OmegaR+sqrt(OmegaR*OmegaR-1)));
fprintf('\n***CB Filter Order=%2.0f\n',N);
[b,a]=u_chb2ap(N,Ar,Omegar);