q815.m

来自「matlab在电子信息中的应用和实例中的源代码」· M 代码 · 共 24 行

%《MATLAB及在电子信息课程中的应用》第八章例8.15程序q815
% 乃奎斯特(nyquist)图判稳
% 电子工业出版社出版  陈怀琛 吴大正 高西全合著 2001年10月初版，2003年7月第二版
%
clear,
s1=zpk([ ],[-6,-1,1.2],50 );		    % 生成连续系统s1
figure(1)
subplot(2,2,1),nyquist(s1)	,grid		% 画nyquist图
set(gcf,'color','w')                    % 设置图形背景色为白色
sb1=feedback(s1,1)
subplot(2,2,2),impulse(s1),grid		    % 画开环脉冲响应图	
subplot(2,2,3),margin(s1) ,grid			% 画nichols图
subplot(2,2,4),impulse(sb1),grid		% 画闭环脉冲响应图
s2=zpk([-.5],[-6,-1,1.2],50 );			% 生成加微分的连续系统s2
figure(2)
subplot(2,2,1),nyquist(s2),grid			% 画nyquist图
set(gcf,'color','w')                    % 设置图形背景色为白色
sb2=feedback(s2,1)
subplot(2,2,2),impulse(s2),grid		    % 画开环脉冲响应图	
subplot(2,2,3),margin(s2), grid		    % 画nichols图
subplot(2,2,4),impulse(sb2),grid		% 画闭环脉冲响应图