Mercurial > repos > public > sbplib
view isEquidistant.m @ 1250:8ec777fb473e
Merged in feature/dirac_discr (pull request #17)
Add multi-d dirac discretization with tests
Approved-by: Vidar Stiernström <vidar.stiernstrom@it.uu.se>
Approved-by: Martin Almquist <malmquist@stanford.edu>
Approved-by: Jonatan Werpers <jonatan.werpers@it.uu.se>
author | Vidar Stiernström <vidar.stiernstrom@it.uu.se> |
---|---|
date | Wed, 20 Nov 2019 22:24:06 +0000 |
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