q812.m

matlab在电子信息中的应用和实例中的源代码

%《MATLAB及在电子信息课程中的应用》第八章例8.12程序q812
% 带时延环节系统的根轨迹分析
% 电子工业出版社出版  陈怀琛 吴大正 高西全合著 2001年10月初版，2003年7月第二版
%
clear,clf
format compact
K=0.1;Tm=5;Td=1;
s =  tf(K*[Tm,1],[1,0,0],'Td',Td)			% 建立系统在开环状态下的模型
spd=pade(s,6)						% 以四阶多项式来近似代替延时环节的模型
figure(1),rlocus(spd),pause	        % 画根轨迹
set(gcf,'color','w')                % 设置图形背景色为白色
% 下面是在人机交互中不断输入的命令
rlocfind(spd),pause
axis([-3,3,-3,3]),pause             % 缩小观察区域
rlocus(spd,0:0.1:1.5);pause         % 给出k的范围,画根轨
axis([-2,2,-2,2]),pause
sgrid,pause
rlocfind(spd),pause                 % 精确选择根轨
r=rlocus(spd,0.9736),pause          % 求此k值下的根的数值
rlocus(spd,0.9736),pause            % 求此k值下的根的分布
sbpd=feedback(spd,1);pause          % 求此k值下的闭环传递函数
impulse(sbpd),pause                 % 求此k值下的闭环脉冲响应
damp(sbpd),pause                    % 求此k值下的闭环根的阻尼系数