%《數字信號處理教程——MATLAB釋義與實現》第八章圖8.4.2生成程序fgp842
% 模擬濾波器頻帶變換（低通變高通）
% 電子工業出版社出版  陳懷琛編著 2004年8月
%
x0=logspace(-2,1,100);          % 低通原型的頻率設定
x=[-fliplr(x0),x0];             % 變換為正負對稱頻率范圍
y=1./x;                         % 對頻率做倒數變換
plot(x,y),hold on           % 畫出全頻域的映射曲線
set(gcf,'color','w')
grid on
axis([-3,3,-3,3])
x1=x(find(x<=1&x>=-1));         % 低通原型的通帶范圍（設帶寬為1）
y1=1./x1;                       % 對通帶范圍頻率做倒數變換
plot(x1,y1,'xr')                % 畫出通帶頻域的映射曲線
plot(x1,-3*ones(size(x1)),'+k') % 加深低通原型通帶范圍的點型和顏色
plot(3*ones(size(y1)),y1,'og')  % 加深高通濾波器通帶范圍的點型和顏色