home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 2.ddi / MUTOOLS1.DI$ / RIFD.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  921 b   |  37 lines
  1. % function rifd(vec)
  2. %
  3. %   Displays the real, imaginary, frequency (magnitude) and
  4. %   damping ratios (-real/magnitude) of the input vector VEC.
  5. %  
  6. %   See also: EIG, SPOLES and SZEROS.
  7.  
  8. function rifd(vec)
  9.  if nargin ~= 1
  10.    disp('usage: rifd(vec)')
  11.    return
  12.  end
  13.  [mtype,mrows,mcols,mnum] = minfo(vec);
  14.  if mtype == 'cons' 
  15.    if mrows ~= 1 & mcols ~= 1
  16.      error('input vector should be a ROW or COLUMN vector')
  17.      return
  18.    else
  19.      eigval = sort(vec);
  20.      om = abs(eigval);
  21.      damp = -real(eigval)./om;
  22.      re = real(eigval);
  23.      ie = imag(eigval);
  24.      disp([' '])
  25.      disp(['      real       imaginary     frequency      damping'])
  26.      disp([' '])
  27.      for i=1:length(vec)
  28.     mprintf([ re(i) ie(i) om(i) damp(i)],'  %.4e ');
  29.      end %for
  30.    end
  31.  else
  32.    error('input vector is not a CONSTANT matrix')
  33.    return
  34.  end
  35. %
  36. % Copyright MUSYN INC 1991,  All Rights Reserved
  37.