Mercurial > repos > public > sbplib

annotate spzeros.m @ 1299:73e52c74baac feature/boundary_optimized_grids

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Closed branch feature/boundary_optimized_grids
author Vidar Stiernström <vidar.stiernstrom@it.uu.se>
date Wed, 08 Jul 2020 18:20:57 +0200
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