Mercurial > repos > public > sbplib

changeset 488:13d2f20c0c0d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add a function spzeros()
author Jonatan Werpers <jonatan@werpers.com>
date Tue, 08 Aug 2017 13:25:54 +0200
parents b43c4d841afe
children ac1fc1c9e129 ef8003bdbc0d
files spzeros.m
diffstat 1 files changed, 18 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/spzeros.m	Tue Aug 08 13:25:54 2017 +0200
@@ -0,0 +1,18 @@
+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