Mercurial > repos > public > sbplib

view +blockmatrix/isDivision.m @ 1281:01a0500de446 feature/poroelastic

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add working implementation of Elastic2dStaggeredCurvilinearAnisotropic, which wraps around the Cartesian anisotropic scheme.
author Martin Almquist <malmquist@stanford.edu>
date Sun, 07 Jun 2020 11:33:44 -0700
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