Mercurial > repos > public > sbplib

view +blockmatrix/isDivision.m @ 1083:a22b23098021 feature/laplace1dUpdate

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Divide interface penalty strength by 4, to make it sharp. Stability verified by eigenvalue computations.
author Martin Almquist <malmquist@stanford.edu>
date Tue, 05 Mar 2019 12:41:50 -0800
parents a5f1b0267dba
children
line wrap: on
line source

function b = isDivision(div)
    % Make sure it is a cellarray
    if ~iscell(div)
        b = false;
        return
    end

    % Make sure it has the right shape
    if numel(div) ~= 2
        b = false;
        return
    end

    if ~isDivisionVector(div{1}) || ~isDivisionVector(div{2})
        b = false;
        return
    end

    b = true;
end

function b = isDivisionVector(v)
    if isempty(v)
        b = true;
        return
    end

    if any(v < 0)
        b = false;
        return
    end

    b = true;
end