Mercurial > hg > ishara

diff general/numerical/array/nary.m @ 16:db7f4afd27c5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rearranging numerical toolbox.
author samer
date Thu, 17 Jan 2013 13:20:44 +0000
parents general/numerical/nary.m@e44f49929e56
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/general/numerical/array/nary.m	Thu Jan 17 13:20:44 2013 +0000
@@ -0,0 +1,12 @@
+% nary - return array contain nary sequece over N columns
+%
+% nary :: M:natural, N:natural -> [[M^N,N]->1..M].
+
+function B=nary(M,N)
+
+if (N==1), B=(1:M)';
+else
+	b=nary(M,N-1);
+	m=size(b,1);
+	B=[ kron((1:M)',ones(m,1)), repmat(b,M,1)];
+end