Mercurial > repos > public > sbplib

view spzeros.m @ 1137:2ff1f366e64a feature/laplace_curvilinear_test

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix minimum and correct borrowing in VirtaMin scheme.
author Martin Almquist <malmquist@stanford.edu>
date Mon, 10 Jun 2019 13:27:29 +0200
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