view spdiagVariable.m @ 794:0cac17097c37 feature/poroelastic

Added tag elastic1.0 for changeset 08f3ffe63f48
author Martin Almquist <malmquist@stanford.edu>
date Wed, 25 Jul 2018 18:06:08 -0700
parents 7368affc8f78
children
line wrap: on
line source

function A = spdiagVariable(a,i)
    default_arg('i',0);

    if isrow(a)
        a = a';
    end

    n = length(a)+abs(i);

    if i > 0
    	a = [sparse(i,1); a];
    elseif i < 0
    	a = [a; sparse(abs(i),1)];
    end

    A = spdiags(a,i,n,n);
end