home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 2.ddi / MUTOOLS1.DI$ / VIMAG.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  666 b   |  27 lines
  1. % function out = vimag(mat)
  2. %
  3. %   Imaginary part of VARYING/CONSTANT matrix. Identical
  4. %   to MATLAB's IMAG command, but VIMAG works on VARYING
  5. %   matrices also.
  6. %
  7. %   See also: IMAG, REAL, VEBE, VEVAL, and VREAL.
  8.  
  9. function out = vimag(mat)
  10.  if nargin ~= 1
  11.    disp('usage: out = vimag(mat)')
  12.    return
  13.  end
  14.  [mtype,mrows,mcols,mnum] = minfo(mat);
  15.  if mtype == 'vary'
  16.    [nr,nc] = size(mat);
  17.    out = [imag(mat(1:nr-1,1:nc-1))  mat(1:nr-1,nc);...
  18.            mat(nr,1:nc)];
  19.  elseif mtype == 'syst'
  20.    error('VIMAG is undefined for SYSTEM matrices')
  21.    return
  22.  else
  23.    out = imag(mat);
  24.  end
  25. %
  26. % Copyright MUSYN INC 1991,  All Rights Reserved
  27.