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:
422 bytes
|
Line | |
---|
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.