Mercurial > hg > octave-lyh

diff scripts/strings/mat2str.m @ 12611:708186085e0d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
mat2str.m: Limit the number of digits to one less than available for double.
author Patrick Häcker <magicmuscleman>
date Sun, 17 Apr 2011 11:57:26 -0400
parents c792872f8942
children c215352ddb4f
line wrap: on
line diff
--- a/scripts/strings/mat2str.m
+++ b/scripts/strings/mat2str.m
@@ -28,7 +28,7 @@
 ## scalar then both real and imaginary parts of the matrix are printed
 ## to the same precision.  Otherwise @code{@var{n} (1)} defines the
 ## precision of the real part and @code{@var{n} (2)} defines the
-## precision of the imaginary part.  The default for @var{n} is 17.
+## precision of the imaginary part.  The default for @var{n} is 15.
 ##
 ## If the argument 'class' is given, then the class of @var{x} is
 ## included in the string in such a way that the eval will result in the
@@ -56,13 +56,13 @@
 
   if (nargin < 2 || isempty (n))
     ## Default precision
-    n = 17;
+    n = 15;
   endif
 
   if (nargin < 3)
     if (ischar (n))
       cls = n;
-      n = 17;
+      n = 15;
     else
       cls = "";
     endif
@@ -137,3 +137,4 @@
 %!assert (mat2str (true), "true");
 %!assert (mat2str (false), "false");
 %!assert (mat2str (logical (eye (2))), "[true,false;false,true]");
+%!assert (mat2str (0.7), "0.7")