Mercurial > hg > octave-lyh

diff scripts/strings/dec2bin.m @ 3426:f8dde1807dee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2000-01-13 08:40:00 by jwe]
author jwe
date Thu, 13 Jan 2000 08:40:53 +0000
parents 4f40efa995c1
children 2a257be5e488
line wrap: on
line diff
--- a/scripts/strings/dec2bin.m
+++ b/scripts/strings/dec2bin.m
@@ -21,7 +21,7 @@
 ## @deftypefn {Function File} {} dec2bin (@var{n})
 ## Return a binary number corresponding the nonnegative decimal number
 ## @var{n}, as a string of ones and zeros.  For example,
-## 
+##
 ## @example
 ## dec2bin (14)
 ##      @result{} "1110"
@@ -50,14 +50,14 @@
     for i = 1:len
       tmp = x (i);
       if (tmp == round (tmp) && tmp >= 0)
-	while (tmp >= 2)
-	  z = fix (tmp ./ 2);
-	  y = [y, tmp - 2 * z];
-	  tmp = z;
-	endwhile
-	y = [y, tmp];
+        while (tmp >= 2)
+          z = fix (tmp ./ 2);
+          y = [y, tmp - 2 * z];
+          tmp = z;
+        endwhile
+        y = [y, tmp];
       else
-	error ("dec2hex: invalid conversion");
+        error ("dec2hex: invalid conversion");
       endif
     endfor
     y = fliplr (y);