Mercurial > repos > public > sbplib

diff reshapeRowMaj.m @ 165:5dad3b754c18 feature/grids

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Made reshape KronVector more general. Updated name and tests.
author Jonatan Werpers <jonatan@werpers.com>
date Tue, 23 Feb 2016 10:31:19 +0100
parents reshapeKronVector.m@51aaf67a7df5
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/reshapeRowMaj.m	Tue Feb 23 10:31:19 2016 +0100
@@ -0,0 +1,12 @@
+% Reshapes a matrix as if it was stored in row major order.
+function B = reshapeRowMaj(A, m)
+    D = length(m);
+
+    if D == 1
+        m = [m 1];
+        D = 2;
+    end
+
+    % Reshape and reverse order of indecies
+    B = permute(reshape(permute(A, ndims(A):-1:1), rot90(m,2)), D:-1:1);
+end
\ No newline at end of file