Mercurial > repos > public > sbplib

annotate spzeros.m @ 1016:4b42999874c0 feature/advectionRV

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add lower level for boot-strapping to RungeKuttaExteriorRV - Add a lower level to RungeKuttaExteriorRV for which bootstrapping starts, e.g start bootstrapping from time level 3 using a 3rd order BDF - Clean up ResidualViscosity
author Vidar Stiernström <vidar.stiernstrom@it.uu.se>
date Fri, 07 Dec 2018 13:11:53 +0100
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