Mercurial > octave-nkf

diff scripts/specfun/nchoosek.m @ 10549:95c3e38098bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Untabify .m scripts
author Rik <code@nomad.inbox5.com>
date Fri, 23 Apr 2010 11:28:50 -0700
parents a7a9eecc07b5
children 23b3ae008f5e
line wrap: on
line diff
--- a/scripts/specfun/nchoosek.m	Fri Apr 23 11:13:48 2010 -0700
+++ b/scripts/specfun/nchoosek.m	Fri Apr 23 11:28:50 2010 -0700
@@ -112,8 +112,8 @@
     p{1} = n*s;
     for j = n-1:-1:1
       for i = k:-1:2
-	q = p{i-1};
-	p{i} = [[repmat(s*j, rows (p{i-1}), 1), p{i-1}]; p{i}];
+        q = p{i-1};
+        p{i} = [[repmat(s*j, rows (p{i-1}), 1), p{i-1}]; p{i}];
       endfor
       p{1} = [j;p{1}];
     endfor