Mercurial > repos > public > sbplib

view assert_size.m @ 679:247b58a4dbe8 feature/poroelastic

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add support for Dirichlet and Traction BC on different components at the same boundary. Remove some unused variables and improve comments.
author Martin Almquist <malmquist@stanford.edu>
date Mon, 05 Feb 2018 14:45:26 -0800
parents 48b6fb693025
children afd20f023928
line wrap: on
line source

% Assert that array A has the size s.
function assert_size(A,s)
    errmsg = sprintf('Expected %s to have size %s, got: %s',inputname(1), format_vector(s), format_vector(size(A)));
    assert(all(size(A) == s),errmsg);
end

function str = format_vector(a)
    l = length(a);
    str = sprintf('[%d',a(1));

    for i = 2:l
        str = [str sprintf(', %d',a(i))];
    end

    str = [str ']'];
end