Mercurial > repos > public > sbplib
view isEquidistant.m @ 1136:eee71789f13b feature/laplace_curvilinear_test
Add LaplaceCurvilinear schemes where the minimum check will be implemented. The Virta scheme will be used for comparison only.
author | Martin Almquist <malmquist@stanford.edu> |
---|---|
date | Mon, 10 Jun 2019 10:43:12 +0200 |
parents | b43c4d841afe |
children |
line wrap: on
line source
% Tests if consecutive elements of vector v are euidistant function b = isEquidistant(v) if length(v) < 2 error('sbplib:isEquidistant:inputTooShort', 'Input vector is too short'); end tol = 1e-8; d = v(2:end) - v(1:end-1); err = abs(d - d(1)); relErr = err./abs(d); I_zero = find(d < tol); relErr(I_zero) = err(I_zero); b = all(relErr < tol); end