Mercurial > repos > public > sbplib

annotate reshapeRowMaj.m @ 1294:fe712a1fca3f feature/poroelastic

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add frictional fault interface in Elastic2dAnisotropicCurve
author Martin Almquist <malmquist@stanford.edu>
date Thu, 02 Jul 2020 15:00:21 -0700
parents 5dad3b754c18
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
165
5dad3b754c18 Made reshape KronVector more general. Updated name and tests.
Jonatan Werpers <jonatan@werpers.com>
parents: 163
diff changeset
1 % Reshapes a matrix as if it was stored in row major order.
5dad3b754c18 Made reshape KronVector more general. Updated name and tests.
Jonatan Werpers <jonatan@werpers.com>
parents: 163
diff changeset
2 function B = reshapeRowMaj(A, m)
161
73bc43c7379e Added function for reshaping grid functions. Added size() method to structured grid.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
3 D = length(m);
73bc43c7379e Added function for reshaping grid functions. Added size() method to structured grid.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
4
73bc43c7379e Added function for reshaping grid functions. Added size() method to structured grid.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
5 if D == 1
165
5dad3b754c18 Made reshape KronVector more general. Updated name and tests.
Jonatan Werpers <jonatan@werpers.com>
parents: 163
diff changeset
6 m = [m 1];
5dad3b754c18 Made reshape KronVector more general. Updated name and tests.
Jonatan Werpers <jonatan@werpers.com>
parents: 163
diff changeset
7 D = 2;
161
73bc43c7379e Added function for reshaping grid functions. Added size() method to structured grid.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
8 end
73bc43c7379e Added function for reshaping grid functions. Added size() method to structured grid.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
9
73bc43c7379e Added function for reshaping grid functions. Added size() method to structured grid.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
10 % Reshape and reverse order of indecies
165
5dad3b754c18 Made reshape KronVector more general. Updated name and tests.
Jonatan Werpers <jonatan@werpers.com>
parents: 163
diff changeset
11 B = permute(reshape(permute(A, ndims(A):-1:1), rot90(m,2)), D:-1:1);
161
73bc43c7379e Added function for reshaping grid functions. Added size() method to structured grid.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
12 end