Last change
on this file since 37 was
37,
checked in by (none), 14 years ago
|
Added original make3d
|
-
Property svn:executable set to
*
|
File size:
493 bytes
|
Rev | Line | |
---|
[37] | 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.