Mercurial > repos > public > sbplib

annotate spzeros.m @ 1250:8ec777fb473e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged in feature/dirac_discr (pull request #17) Add multi-d dirac discretization with tests Approved-by: Vidar Stiernström <vidar.stiernstrom@it.uu.se> Approved-by: Martin Almquist <malmquist@stanford.edu> Approved-by: Jonatan Werpers <jonatan.werpers@it.uu.se>
author Vidar Stiernström <vidar.stiernstrom@it.uu.se>
date Wed, 20 Nov 2019 22:24:06 +0000
parents 13d2f20c0c0d
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
488
13d2f20c0c0d Add a function spzeros()
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
1 function S = spzeros(varargin)
13d2f20c0c0d Add a function spzeros()
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
2 switch length(varargin)
13d2f20c0c0d Add a function spzeros()
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
3 case 2
13d2f20c0c0d Add a function spzeros()
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
4 S = sparse(varargin{1}, varargin{2});
13d2f20c0c0d Add a function spzeros()
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
5 case 1
13d2f20c0c0d Add a function spzeros()
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
6 v = varargin{1};
13d2f20c0c0d Add a function spzeros()
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
7 switch length(v)
13d2f20c0c0d Add a function spzeros()
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
8 case 1
13d2f20c0c0d Add a function spzeros()
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
9 S = sparse(v,v);
13d2f20c0c0d Add a function spzeros()
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
10 case 2
13d2f20c0c0d Add a function spzeros()
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
11 S = sparse(v(1), v(2));
13d2f20c0c0d Add a function spzeros()
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
12 otherwise
13d2f20c0c0d Add a function spzeros()
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
13 error('Input must be either one integer, two integers or a vector with two integers');
13d2f20c0c0d Add a function spzeros()
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
14 end
13d2f20c0c0d Add a function spzeros()
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
15 otherwise
13d2f20c0c0d Add a function spzeros()
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
16 error('Too many input arguments.');
13d2f20c0c0d Add a function spzeros()
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
17 end
13d2f20c0c0d Add a function spzeros()
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
18 end