Mercurial > octave
diff scripts/linear-algebra/kron.m @ 3426:f8dde1807dee
[project @ 2000-01-13 08:40:00 by jwe]
author | jwe |
---|---|
date | Thu, 13 Jan 2000 08:40:53 +0000 |
parents | f16c2ce14886 |
children |
line wrap: on
line diff
--- a/scripts/linear-algebra/kron.m Thu Jan 13 08:32:16 2000 +0000 +++ b/scripts/linear-algebra/kron.m Thu Jan 13 08:40:53 2000 +0000 @@ -20,13 +20,13 @@ ## -*- texinfo -*- ## @deftypefn {Function File} {} kron (@var{a}, @var{b}) ## Form the kronecker product of two matrices, defined block by block as -## +## ## @example ## x = [a(i, j) b] ## @end example -## +## ## For example, -## +## ## @example ## @group ## kron (1:4, ones (3, 1)) @@ -48,17 +48,17 @@ [m, n] = size (b); [ma, na] = size (a); - x = zeros (ma*m, na*n); + x = zeros (ma*m, na*n); i_vec = 1:m; j_vec = 1:n; for jj = 1:na for ii = 1:ma - x(i_vec+(ii-1)*m,j_vec) = a(ii,jj) * b; + x(i_vec+(ii-1)*m,j_vec) = a(ii,jj) * b; endfor j_vec = j_vec + n; endfor - + else usage ("kron (a, b)"); endif