Mercurial > repos > public > sbplib
view find_elements.m @ 761:8ed102db8e9c feature/d1_staggered
Add discont interface in 1D acoustics staggered, using the hat variable interface coupling.
author | Martin Almquist <malmquist@stanford.edu> |
---|---|
date | Mon, 18 Jun 2018 16:36:24 -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