Mercurial > repos > public > sbplib

view assert_size.m @ 362:ded4156e53e2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added 2nd order accurate 2nd derivative with variable coefficents in a separate implementation file, used by the class D2Variable.
author Martin Almquist <martin.almquist@it.uu.se>
date Tue, 20 Dec 2016 15:04:02 +0100
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