comparison spzeros.m @ 488:13d2f20c0c0d

Add a function spzeros()
author Jonatan Werpers <jonatan@werpers.com>
date Tue, 08 Aug 2017 13:25:54 +0200
parents
children
comparison
equal deleted inserted replaced
487:b43c4d841afe 488:13d2f20c0c0d
1 function S = spzeros(varargin)
2 switch length(varargin)
3 case 2
4 S = sparse(varargin{1}, varargin{2});
5 case 1
6 v = varargin{1};
7 switch length(v)
8 case 1
9 S = sparse(v,v);
10 case 2
11 S = sparse(v(1), v(2));
12 otherwise
13 error('Input must be either one integer, two integers or a vector with two integers');
14 end
15 otherwise
16 error('Too many input arguments.');
17 end
18 end