Mercurial > repos > public > sbplib

view assert_size.m @ 674:dd84b8862aa8 feature/poroelastic

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
First implementation of elastic dilation variable. Constant coeff is stable.
author Martin Almquist <malmquist@stanford.edu>
date Tue, 16 Jan 2018 17:41:55 -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