Mercurial > repos > public > sbplib
view isEquidistant.m @ 1012:1e437c9e5132 feature/advectionRV
Create residual viscosity package +rv and generalize the ResidualViscosity class
- Generalize residual viscosity, by passing user-defined flux and calculating the time derivative outside of the update.
- Create separate RungekuttaRV specifically using interior RV updates
- Separate the artifical dissipation operator from the scheme AdvectionRV1D so that the same scheme can be reused for creating the diff op used by the ResidualViscosity class
author | Vidar Stiernström <vidar.stiernstrom@it.uu.se> |
---|---|
date | Wed, 05 Dec 2018 13:44:10 +0100 |
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