%《MATLAB及在電子信息課程中的應用》第五章例5.14程序q514
% 頻率響應：簡單電路
% 電子工業出版社出版  陳懷琛 吳大正 高西全合著 2001年10月初版，2003年7月第二版
%
clear, format compact
wo=0:0.2:4;				            % 設定頻率數組wo=w/wc
H=1./(1+j*wo);						% 求復頻率響應
figure(1)
subplot(2,1,1),plot(wo,abs(H)),	    % 繪制幅頻特性
set(gcf,'color','w')                % 設置圖形背景色為白色
grid,xlabel('wo'),ylabel('abs(H)')
subplot(2,1,2),plot(wo,angle(H))	% 繪制相頻特性
grid,xlabel('wo'),ylabel('angle(H)')
figure(2),subplot(2,1,1),			% 繪制對數頻率特性
semilogx(wo,20*log10(abs(H)))       % 縱坐標為分貝
set(gcf,'color','w')                % 設置圖形背景色為白色
grid,xlabel('wo'),ylabel('分貝')
subplot(2,1,2),semilogx(wo,angle(H))% 繪制相頻特性
grid,xlabel('wo'),ylabel('angle(H)')