home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 2.ddi / MUTOOLS1.DI$ / SPOLES.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  527 b   |  25 lines
  1. % function out = spoles(sys)
  2. %
  3. %   Eigenvalues of the A matrix of a SYSTEM matrix.
  4. %
  5. %   See also: EIG, RIFD and SZEROS.
  6.  
  7. function out = spoles(sys)
  8.  if nargin ~= 1
  9.    disp('usage: out = spoles(sys)')
  10.    return
  11.  end
  12.  [mtype,mrows,mcols,mnum] = minfo(sys);
  13.  if mtype == 'syst'
  14.    if mnum == 0
  15.      disp('input matrix has no states')
  16.    else
  17.      out = eig(sys(1:mnum,1:mnum));
  18.    end
  19.  else
  20.    error('input matrix is not a SYSTEM matrix')
  21.    return
  22.  end
  23. %
  24. % Copyright MUSYN INC 1991,  All Rights Reserved
  25.