%Samp5_2
n=0:0.01:2;    %設置頻率點
for ii=1:4
   switch ii
   case 1,N=2;
   case 2,N=4;
   case 3,N=6;
   case 4,N=8;
   end
   Rp=1;      %設置通帶波紋為1dB
   [z,p,k]=cheb1ap(N,Rp);   %設計Chebyshev I型濾波器
   [b,a]=zp2tf(z,p,k);    %轉換為傳遞函數形式
   [H,w]=freqs(b,a,n);    %求得傳遞函數的頻率特性
   magH2=(abs(H)).^2;     %求得傳遞函數的幅頻響應
posplot=['2,2,' num2str(ii)];%將數字ii轉換為字符串，與’2,2,’合并并賦給posplot。
   subplot(posplot);
   plot(w,magH2);
   title(['N=' num2str(N)]);%將數字N轉換為字符串與’N=’合并作為標題。
   xlabel('w/wc');
   ylabel('Chebyshev I |H(jw)|^2');
grid on
end