Mercurial > repos > public > sbplib

view spzeros.m @ 675:90bf651abc7c feature/poroelastic

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add Dirichlet BC to dilation. Stable with variable coeff and conv study yields p+1/2 which probably is ok.
author Martin Almquist <malmquist@stanford.edu>
date Thu, 18 Jan 2018 13:36:56 -0800
parents 13d2f20c0c0d
children
line wrap: on
line source

function S = spzeros(varargin)
    switch length(varargin)
        case 2
            S = sparse(varargin{1}, varargin{2});
        case 1
            v = varargin{1};
            switch length(v)
                case 1
                    S = sparse(v,v);
                case 2
                    S = sparse(v(1), v(2));
                otherwise
                    error('Input must be either one integer, two integers or a vector with two integers');
            end
        otherwise
            error('Too many input arguments.');
    end
end