Mercurial > repos > public > sbplib
view find_elements.m @ 1252:8fc2f9a4c882 feature/poroelastic
Add (temporary) fix for e-s , w-n, and x-x couplings
author | Martin Almquist <malmquist@stanford.edu> |
---|---|
date | Tue, 07 Jan 2020 12:49:09 -0800 |
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