|
|
1.1 root 1: // C = Kronecker product of A and B
2: <m, n> = size(A);
3: for i = 1:m, ...
4: ci = a(i,1)*B; ...
5: for j = 2:n, ci = <ci a(i,j)*B>; end ...
6: if i = 1, C = ci; else, C = <C; ci>;
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.