Mercurial > repos > public > sbplib
view sortd.m @ 1295:cb053fabbedc feature/poroelastic
Add displacement BC on normal tangential components, but it is only provably stable if traction bc are used for the other component.
author | Martin Almquist <malmquist@stanford.edu> |
---|---|
date | Thu, 02 Jul 2020 20:05:50 -0700 |
parents | 48b6fb693025 |
children |
line wrap: on
line source
% Sorts x with respect to the function d % d is a function that accepts an element of x and returns a scalar. function y = sortd(d,x) v = []; for i = 1:length(x) v(i) = d(x(i)); end [~,I] = sort(v); y = x(I); end