Mercurial > repos > public > sbplib

annotate spdiag.m @ 75:ef5c9870f386

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cleand time.Rungekutta4 a bit.
author Jonatan Werpers <jonatan@werpers.com>
date Mon, 23 Nov 2015 17:32:56 +0100
parents 0be702829bb9
children 9c0192cf099f
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
45
b6cfc04e576c Changed spdiag to be more like matlabs diag.
Jonatan Werpers <jonatan@werpers.com>
parents: 27
diff changeset
1 function A = spdiag(a,i)
51
0be702829bb9 Generalized spdiag. Added function for createing a banded sparse matrix.
Jonatan Werpers <jonatan@werpers.com>
parents: 45
diff changeset
2 n = length(a)-abs(i);
45
b6cfc04e576c Changed spdiag to be more like matlabs diag.
Jonatan Werpers <jonatan@werpers.com>
parents: 27
diff changeset
3 A = spdiags(a,i,n,n);
27
97a638f91fb8 Added function spdiag(). Fixed a bunch of bugs in the Wave2dCurve scheme.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
4 end