%Lp2hp函數：模擬低通濾波器到模擬高通濾波器的轉換
[z,p,k]=buttap(4);
[b,a]=zp2tf(z,p,k);
[bt,at]=lp2hp(b,a,150*2*pi);
[hl,wl]=freqs(b,a);
[hh,wh]=freqs(bt,at);
subplot(2,1,1),semilogx(wl,abs(hl));grid;
subplot(2,1,2),semilogx(wh,abs(hh));