home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 2.ddi / MUTOOLS1.DI$ / MPRINTF.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  1.1 KB  |  50 lines
  1. % function mprintf(mat,form,endline)
  2. %
  3. %   Uses MATLAB function FPRINTF to display real part of matrices.  
  4. %     inputs:
  5. %             MAT  -  matrix to be printed
  6. %             FORM -  format, see MATLAB manual for SPRINTF and 
  7. %                     FPRINTF, default is '%2.1e '.  (optional)
  8. %             ENDLINE - characters to go at end of line,
  9. %                default is '\n' (optional)
  10. %
  11. %   See also: DISPLAY, FPRINTF, SPRINTF, SEE, and SEESYS.
  12.  
  13. function mprintf(mat,form,endline)
  14. %
  15.  if nargin == 0 
  16.    disp(['usage: mprintf(mat,form,endline)']);
  17.    return
  18.   elseif nargin == 1
  19.    endline='\n';
  20.    form = '%2.1e ';
  21.    pad = ' ';
  22.   else
  23.     loc=find(form=='.')-find(form=='%');
  24.     if isempty(loc), loc=1; end
  25.     if any(form=='e') & loc==1
  26.         pad = ' ';
  27.     else
  28.         pad = [];
  29.     end %if any
  30.     if nargin ==2
  31.         endline='\n';
  32.     end %if nargin
  33.  end % if nargin
  34. % echo on
  35.  
  36. [nr,nc] = size(mat);
  37.  
  38. for i = 1:nr
  39.     for j = 1:nc
  40.         if mat(i,j) < 0
  41.             fprintf(form,mat(i,j))
  42.         else
  43.             fprintf([pad form], abs(mat(i,j)))
  44.         end
  45.     end
  46.     fprintf(endline);
  47. end
  48. %
  49. % Copyright MUSYN INC 1991,  All Rights Reserved
  50.