%  ex_06_03_2.m :  習題 6.3

clear all
fp=400;
fs=300;
Fs=1000;
rp=3;
rs=35;
wp=2*fp/Fs; 
ws=2*fs/Fs;
%
[nz,wn]=cheb1ord(wp,ws,rp,rs);
[bz,az]=cheby1(nz,rp,wp,'high')
[h,w]=freqz(bz,az,128,Fs);
subplot(211)
plot(w,20*log10(abs(h)));grid;