Mercurial > repos > public > sbplib
diff spzeros.m @ 691:527a7b954f26 feature/quantumTriangles
Merge with default
| author | Ylva Rydin <ylva.rydin@telia.com> |
|---|---|
| date | Thu, 14 Sep 2017 16:00:36 +0200 |
| parents | 13d2f20c0c0d |
| children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/spzeros.m Thu Sep 14 16:00:36 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