Mercurial > repos > public > sbplib
annotate spzeros.m @ 661:905612b7f3d4 feature/grids
Add function for rickerWavelet
| author | Jonatan Werpers <jonatan@werpers.com> |
|---|---|
| date | Thu, 30 Nov 2017 11:30:04 +0100 |
| parents | 13d2f20c0c0d |
| children |
| rev | line source |
|---|---|
| 488 | 1 function S = spzeros(varargin) |
| 2 switch length(varargin) | |
| 3 case 2 | |
| 4 S = sparse(varargin{1}, varargin{2}); | |
| 5 case 1 | |
| 6 v = varargin{1}; | |
| 7 switch length(v) | |
| 8 case 1 | |
| 9 S = sparse(v,v); | |
| 10 case 2 | |
| 11 S = sparse(v(1), v(2)); | |
| 12 otherwise | |
| 13 error('Input must be either one integer, two integers or a vector with two integers'); | |
| 14 end | |
| 15 otherwise | |
| 16 error('Too many input arguments.'); | |
| 17 end | |
| 18 end |