Mercurial > octave-nkf

comparison scripts/statistics/base/run_count.m @ 7208:a730e47fda4d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-28 02:32:41 by jwe]
author jwe
date Wed, 28 Nov 2007 02:32:42 +0000
parents a1dbe9d80eee
children 1bf0ce0930be
comparison
equal deleted inserted replaced
7207:71c03c7239fb 7208:a730e47fda4d
83 for k = 1 : (n-1) 83 for k = 1 : (n-1)
84 idx{1} = k; 84 idx{1} = k;
85 retval(idx{:}) = sum (tmp == k); 85 retval(idx{:}) = sum (tmp == k);
86 endfor 86 endfor
87 idx{1} = n; 87 idx{1} = n;
88 retval (idx {:}) = sum (tmp >= n); 88 retval (idx{:}) = sum (tmp >= n);
89 89
90 if (dim != 1) 90 if (dim != 1)
91 retval = ipermute (retval, perm); 91 retval = ipermute (retval, perm);
92 endif 92 endif
93 93