home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 2.ddi / MUTOOLS1.DI$ / VABS.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  619 b   |  28 lines
  1. % function out = vabs(mat)
  2. %
  3. %   Element-by-element absolute value of a
  4. %   VARYING/CONSTANT matrix.
  5. %
  6. %   See also: ABS, VEBE, VEVAL.
  7.  
  8. function out = vabs(mat)
  9.  if nargin ~= 1
  10.    disp('usage: out = vabs(mat)')
  11.    return
  12.  end
  13.  [mtype,mrows,mcols,mnum] = minfo(mat);
  14.  if mtype == 'vary'
  15.    [nr,nc] = size(mat);
  16.    out = [abs(mat(1:nr-1,1:nc-1))  mat(1:nr-1,nc);...
  17.            mat(nr,1:nc)];
  18.  elseif mtype == 'syst'
  19.    error('VABS is undefined for SYSTEM matrices')
  20.    return
  21.  elseif mtype == 'cons'
  22.    out = abs(mat);
  23.  else
  24.    out = [];
  25.  end
  26. %
  27. % Copyright MUSYN INC 1991,  All Rights Reserved
  28.