Mercurial > repos > public > sbplib
annotate assert_size.m @ 379:ca73ee0623e5 feature/beams
Added an implicit central time stepping scheme.
| author | Jonatan Werpers <jonatan@werpers.com> |
|---|---|
| date | Fri, 09 Dec 2016 16:03:30 +0100 |
| parents | 48b6fb693025 |
| children | afd20f023928 |
| rev | line source |
|---|---|
| 0 | 1 % Assert that array A has the size s. |
| 2 function assert_size(A,s) | |
| 3 errmsg = sprintf('Expected %s to have size %s, got: %s',inputname(1), format_vector(s), format_vector(size(A))); | |
| 4 assert(all(size(A) == s),errmsg); | |
| 5 end | |
| 6 | |
| 7 function str = format_vector(a) | |
| 8 l = length(a); | |
| 9 str = sprintf('[%d',a(1)); | |
| 10 | |
| 11 for i = 2:l | |
| 12 str = [str sprintf(', %d',a(i))]; | |
| 13 end | |
| 14 | |
| 15 str = [str ']']; | |
| 16 end |