Mercurial > octave-nkf

comparison 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
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
110 endfor 110 endfor
111 s = ones (1, 1, cl); 111 s = ones (1, 1, cl);
112 p{1} = n*s; 112 p{1} = n*s;
113 for j = n-1:-1:1 113 for j = n-1:-1:1
114 for i = k:-1:2 114 for i = k:-1:2
115 q = p{i-1}; 115 q = p{i-1};
116 p{i} = [[repmat(s*j, rows (p{i-1}), 1), p{i-1}]; p{i}]; 116 p{i} = [[repmat(s*j, rows (p{i-1}), 1), p{i-1}]; p{i}];
117 endfor 117 endfor
118 p{1} = [j;p{1}]; 118 p{1} = [j;p{1}];
119 endfor 119 endfor
120 v = v(:); 120 v = v(:);
121 A = v(p{k}); 121 A = v(p{k});