Mercurial > repos > public > sbplib

view stripeMatrixPeriodic.m @ 885:18e10217dca9 feature/d1_staggered

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Generalize Staggered1DAcoustics to handle variable coefficients defined by both function handles and vectors.
author Martin Almquist <malmquist@stanford.edu>
date Sun, 04 Nov 2018 12:36:30 -0800
parents 7368affc8f78
children bbf303c1f0cf
line wrap: on
line source

% Creates a periodic discretization matrix of size n x n 
%  with the values of val on the diagonals diag.
%   A = stripeMatrix(val,diags,n)
function A = stripeMatrixPeriodic(val,diags,n)

    D = ones(n,1)*val;
    A = spdiagsVariablePeriodic(D,diags);
end