qstable.m

来自「文件是编辑好的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;