%《MATLAB及在電子信息課程中的應用》第八章例8.13程序q813
% 二階連續和采樣系統bode圖
% 電子工業出版社出版  陳懷琛 吳大正 高西全合著 2001年10月初版，2003年7月第二版
%
clear,wn=10;
for zeta=[0.1:0.3:1,]
    [n,d]=ord2(wn,zeta);
    s1=tf(n*wn^2,d);				    % 生成二階連續系統
    sd1=c2d(s1,0.1);			        % 轉成二階采樣系統，采樣周期0.1秒
    figure(1),bode(s1),hold on,grid on	% 畫波德圖
    set(gcf,'color','w')                % 設置圖形背景色為白色
    figure(2),bode(sd1),hold on,grid on	% 畫波德圖，注意離散系統用同樣命令
    set(gcf,'color','w')                % 設置圖形背景色為白色
end