Last change
on this file since 177 was
37,
checked in by (none), 15 years ago
|
Added original make3d
|
-
Property svn:executable set to
*
|
File size:
493 bytes
|
Line | |
---|
1 | % VGG_COMMUT_MATRIX Commutation matrix, to transpose a matrix(:)
|
---|
2 | %
|
---|
3 | % Classical matrix re-arrangement operator, see book Magnus-Neudecker.
|
---|
4 | %
|
---|
5 | % Useful for rearranging matrix equations. It is
|
---|
6 | % vgg_vec(X') = vgg_commut_matrix(size(X))*vgg_vec(X).
|
---|
7 | %
|
---|
8 | % See also vgg_matrix_test
|
---|
9 |
|
---|
10 | % Added by Tom Werner, originally from Tomas Minka.
|
---|
11 |
|
---|
12 | function k = vgg_commut_matrix(n, m)
|
---|
13 |
|
---|
14 | if nargin < 2
|
---|
15 | m = n(2);
|
---|
16 | n = n(1);
|
---|
17 | end
|
---|
18 |
|
---|
19 | k = reshape(kron(vgg_vec(eye(n)), eye(m)), n*m, n*m);
|
---|
20 |
|
---|
21 | return
|
---|
Note: See
TracBrowser
for help on using the repository browser.