Mercurial > repos > public > sbplib
diff spzeros.m @ 592:4422c4476650 feature/utux2D
Merge with feature/grids
| author | Martin Almquist <martin.almquist@it.uu.se> |
|---|---|
| date | Mon, 11 Sep 2017 14:17:15 +0200 |
| parents | 13d2f20c0c0d |
| children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/spzeros.m Mon Sep 11 14:17:15 2017 +0200 @@ -0,0 +1,18 @@ +function S = spzeros(varargin) + switch length(varargin) + case 2 + S = sparse(varargin{1}, varargin{2}); + case 1 + v = varargin{1}; + switch length(v) + case 1 + S = sparse(v,v); + case 2 + S = sparse(v(1), v(2)); + otherwise + error('Input must be either one integer, two integers or a vector with two integers'); + end + otherwise + error('Too many input arguments.'); + end +end