num2mstr.m
上传用户:haiyisale
上传日期:2013-01-09
资源大小:3246k
文件大小:1k
源码类别:

波变换

开发平台:

Matlab

  1. function s = num2mstr(n)
  2. %NUM2MSTR Convert number to string in maximum precision.
  3. %   S = NUM2MSTR(N) converts real numbers of input 
  4. %   matrix N to string output vector S, in 
  5. %   maximum precision.
  6. %
  7. %   See also NUM2STR.
  8. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 01-May-96.
  9. %   Last Revision: 02-Aug-2000.
  10. %   Copyright 1995-2002 The MathWorks, Inc.
  11. % $Revision: 1.11 $
  12. [r,c] = size(n);
  13. if ischar(n)
  14.    s = n;
  15. elseif max(r,c)==1
  16.    s = sprintf('%25.18g',n);
  17. elseif r>1
  18.    s = [];
  19.    for k=1:r
  20.        s = [s sprintf('%25.18g',n(k,:)) ';'];
  21.    end
  22.    s = ['[' s ']'];
  23. elseif c>1
  24.    s = sprintf('%25.18g',n);
  25.    s = ['[' s ']'];
  26. else
  27.    s = '';
  28. end