Mercurial > repos > public > sbplib

view spzeros.m @ 1118:07d0caf915e4 feature/poroelastic

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Introduce optFlag so that one can choose not to build the optimization-related cell of matrices called B. It is too computationally costly and should probably be done in a different way.
author Martin Almquist <malmquist@stanford.edu>
date Sun, 05 May 2019 19:05:31 -0700
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