home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 2.ddi / MUTOOLS1.DI$ / VCEIL.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  686 b   |  27 lines
  1. % function out = vceil(mat)
  2. %
  3. %   Calculate ceil of VARYING/CONSTANT matrix, identical
  4. %   to MATLAB's CEIL command, but VCEIL works on
  5. %   VARYING matrices also.
  6. %
  7. %   See also: CEIL, VABS, VEBE, VEVAL, VIMAG and VFLOOR.
  8.  
  9. function out = vceil(mat)
  10.  if nargin ~= 1
  11.    disp('usage: out = vceil(mat)')
  12.    return
  13.  end
  14.  [mtype,mrows,mcols,mnum] = minfo(mat);
  15.  if mtype == 'vary'
  16.    [nr,nc] = size(mat);
  17.    out = [ceil(mat(1:nr-1,1:nc-1))  mat(1:nr-1,nc);...
  18.            mat(nr,1:nc)];
  19.  elseif mtype == 'syst'
  20.    error('VCEIL is undefined for SYSTEM matrices')
  21.    return
  22.  else
  23.    out = ceil(mat);
  24.  end
  25. %
  26. % Wes Wang at The MathWorks, add the missing function 6/16/92
  27.