Mercurial > repos > public > sbplib
view find_elements.m @ 1266:ad31d9c4cec2 feature/poroelastic
Add displacement BC in StaggeredAnisotropic
author | Martin Almquist <malmquist@stanford.edu> |
---|---|
date | Thu, 30 Apr 2020 20:55:26 -0700 |
parents | 48b6fb693025 |
children |
line wrap: on
line source
% I = find_elements(a,b) % Finds the index of elements a in b. % a and b have to be in the same order. function I = find_elements(a,b) I = []; j = 1; for i = 1:length(a) while b(j) ~= a(i) j = j + 1; end I(end+1) = j; j = j+1; end assert(length(I) == length(a),'Expected %d but got %d elements',length(a),length(I)) end