Last change
on this file since 86 was
37,
checked in by (none), 15 years ago
|
Added original make3d
|
-
Property svn:executable set to
*
|
File size:
422 bytes
|
Rev | Line | |
---|
[37] | 1 | function M = vgg_lmultiply_matrix(A, size_B)
|
---|
| 2 | % VGG_LMULTIPLY_MATRIX Return M such that M*vec(B) = vec(B*A)
|
---|
| 3 | % M = VGG_RMULTIPLY_MATRIX(A, size(B))
|
---|
| 4 | %
|
---|
| 5 | % See also vgg_matrix_test, vgg_lmultiply_matrix
|
---|
| 6 |
|
---|
| 7 | % Author: awf@robots.ox.ac.uk
|
---|
| 8 |
|
---|
| 9 | if isfinite(size_B(1))
|
---|
| 10 | if size_B(2) ~= size(A,1)
|
---|
| 11 | error
|
---|
| 12 | end
|
---|
| 13 | end
|
---|
| 14 |
|
---|
| 15 | if ~issparse(A)
|
---|
| 16 | E = eye(size_B(1));
|
---|
| 17 | else
|
---|
| 18 | E = speye(size_B(1));
|
---|
| 19 | end
|
---|
| 20 |
|
---|
| 21 | M = kron(A', E);
|
---|
Note: See
TracBrowser
for help on using the repository browser.