qstable.m

来自「华东理工大学自动化系《控制系统分析、设计和应用》教材配套程序实例,有关说明： 」· M 代码 · 共 9 行

function s=qstable(a)
% 确定系统矩阵a的稳定性

% Copyright 2000-2001 ECUST. 
%   $Revision: 1.1 $  $Date: 2001/12/12 14:11:48 $

system_root=eig(a),i=find(real(system_root)>0);
if ~isempty(i),s='system unstable!';break;else s='system stable';end;end;