Mercurial > hg > octave-max

diff scripts/general/int2str.m @ 4229:40153a2affd6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-12-18 20:37:32 by jwe]
author jwe
date Wed, 18 Dec 2002 20:37:32 +0000
parents ae7adbb591e8
children e15a96673976
line wrap: on
line diff
--- a/scripts/general/int2str.m
+++ b/scripts/general/int2str.m
@@ -19,7 +19,8 @@
 
 ## -*- texinfo -*-
 ## @deftypefn {Function File} {} int2str (@var{n})
-## @deftypefnx {Function File} {} num2str (@var{x})
+## @deftypefnx {Function File} {} num2str (@var{x}, @var{precision})
+## @deftypefnx {Function File} {} num2str (@var{x}, @var{format})
 ## Convert a number to a string.  These functions are not very flexible,
 ## but are provided for compatibility with @sc{Matlab}.  For better control
 ## over the results, use @code{sprintf} (@pxref{Formatted Output}).
@@ -33,11 +34,13 @@
   ## XXX FIXME XXX -- this will fail for very large values.
 
   if (nargin == 1)
-    if (rows (x) == 1 && columns (x) == 1)
-      retval = sprintf ("%d", round (x));
-    else
-      error ("int2str: expecting scalar argument");
-    endif
+    x = round (x);
+    fw = max (log10 (abs (x(:))) + 3);
+    fmt = sprintf ("%%%dd", fw);
+    fmt = strcat (repmat (fmt, 1, columns (x)), "\n");
+    tmp = sprintf (fmt, round (x.'));
+    tmp(length (tmp)) = "";
+    retval = split (tmp, "\n");
   else
     usage ("int2str (x)");
   endif