Mercurial > hg > octave-lyh

diff scripts/strings/dec2base.m @ 9844:edf065b51fa9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix dec2base
author Jaroslav Hajek <highegg@gmail.com>
date Fri, 20 Nov 2009 10:35:49 +0100
parents 923c7cb7f13f
children 51beeeff9027
line wrap: on
line diff
--- a/scripts/strings/dec2base.m
+++ b/scripts/strings/dec2base.m
@@ -86,7 +86,7 @@
   ## determine digits for each number
   power = ones (length (n), 1) * (base .^ (max_len-1 : -1 : 0));
   n = n(:) * ones (1, max_len);
-  digits = floor (rem (n, base*power) ./ power);
+  digits = floor (double (rem (n, base*power)) ./ power);
 
   ## convert digits to symbols
   retval = reshape (symbols (digits+1), size (digits));