home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 2.ddi / MUTOOLS1.DI$ / SEEIV.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  702 b   |  33 lines
  1. % function seeiv(mat)
  2. %
  3. %   Display the INDEPENDENT VARIABLE's values.
  4. %
  5. %   See also: DISP, FPRINTF, GETIV, SEE and SEESYS.
  6.  
  7. function seeiv(mat)
  8.  if nargin ~= 1
  9.    disp('usage: seeiv(mat)');
  10.    return
  11.  end
  12.  [mtype,mrows,mcols,mnum] = minfo(mat);
  13.  if mtype == 'vary'
  14.    [nr,nc] = size(mat);
  15.    left = mnum - 5*floor(mnum/5);
  16.    for i=1:floor(mnum/5)
  17.      for j=1:5
  18.        fprintf('  %.3e ',mat((i-1)*5+j,nc));
  19.      end
  20.      fprintf('\n')
  21.    end
  22.    if left > 0
  23.      for i=1:left
  24.        fprintf('  %.3e ',mat(mnum+i-left,nc));
  25.      end
  26.      fprintf('\n')
  27.    end
  28.  else
  29.    disp('input matrix is not a VARYING matrix')
  30.  end
  31. %
  32. % Copyright MUSYN INC 1991,  All Rights Reserved
  33.