Mercurial > octave
view scripts/general/prepad.m @ 22489:93ea313301f9
test: Add bug ids (<#####>) to BIST tests.
* bsxfun.cc, cellfun.cc, conv2.cc, data.cc, ellipj.cc, error.cc, file-io.cc,
graphics.cc, hash.cc, mappers.cc, max.cc, rand.cc, regexp.cc, symtab.cc,
chol.cc, gzip.cc, symbfact.cc, ov-cx-diag.cc, ov-fcn-handle.cc, ov-java.cc,
Sparse.cc, accumarray.m, bitset.m, fieldnames.m, inputParser.m, interp2.m,
interpft.m, num2str.m, postpad.m, prepad.m, rat.m, rectint.m, image.m,
imread.m, imwrite.m, importdata.m, strread.m, textread.m, orderfields.m, qp.m,
axis.m, legend.m, hist.m, residue.m, setdiff.m, fftshift.m, ifftshift.m,
nthroot.m, magic.m, median.m, quantile.m, base2dec.m, strsplit.m, datestr.m,
datevec.m:
test: Add bug ids (<#####>) to BIST tests.
author | Rik <rik@octave.org> |
---|---|
date | Wed, 14 Sep 2016 16:05:16 -0700 |
parents | bac0d6f07a3e |
children | 3a2b891d0b33 e9a0469dedd9 |
line wrap: on
line source
## Copyright (C) 1994-2016 John W. Eaton ## ## This file is part of Octave. ## ## Octave is free software; you can redistribute it and/or modify it ## under the terms of the GNU General Public License as published by ## the Free Software Foundation; either version 3 of the License, or (at ## your option) any later version. ## ## Octave is distributed in the hope that it will be useful, but ## WITHOUT ANY WARRANTY; without even the implied warranty of ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ## General Public License for more details. ## ## You should have received a copy of the GNU General Public License ## along with Octave; see the file COPYING. If not, see ## <http://www.gnu.org/licenses/>. ## -*- texinfo -*- ## @deftypefn {} {} prepad (@var{x}, @var{l}) ## @deftypefnx {} {} prepad (@var{x}, @var{l}, @var{c}) ## @deftypefnx {} {} prepad (@var{x}, @var{l}, @var{c}, @var{dim}) ## Prepend the scalar value @var{c} to the vector @var{x} until it is of length ## @var{l}. If @var{c} is not given, a value of 0 is used. ## ## If @code{length (@var{x}) > @var{l}}, elements from the beginning of @var{x} ## are removed until a vector of length @var{l} is obtained. ## ## If @var{x} is a matrix, elements are prepended or removed from each row. ## ## If the optional argument @var{dim} is given, operate along this dimension. ## ## If @var{dim} is larger than the dimensions of @var{x}, the result will have ## @var{dim} dimensions. ## @seealso{postpad, cat, resize} ## @end deftypefn ## Author: Tony Richardson <arichard@stark.cc.oh.us> ## Created: June 1994 function y = prepad (x, l, c, dim) if (nargin < 2 || nargin > 4) print_usage (); endif if (nargin < 3 || isempty (c)) c = 0; else if (! isscalar (c)) error ("prepad: pad value C must be empty or a scalar"); endif endif nd = ndims (x); sz = size (x); if (nargin < 4) ## Find the first non-singleton dimension. (dim = find (sz > 1, 1)) || (dim = 1); else if (!(isscalar (dim) && dim == fix (dim) && dim >= 1)) error ("prepad: DIM must be an integer and a valid dimension"); endif endif if (! isscalar (l) || l < 0) error ("prepad: length L must be a positive scalar"); endif if (dim > nd) sz(nd+1:dim) = 1; endif d = sz(dim); if (d == l) ## This optimization makes sense because the function is used to match ## the length between two vectors not knowing a priori is larger, and ## allow for: ## ml = max (numel (v1), numel (v2)); ## v1 = prepad (v1, ml); ## v2 = prepad (v2, ml); y = x; elseif (d >= l) idx = repmat ({':'}, nd, 1); idx{dim} = d-l+1:d; y = x(idx{:}); else sz(dim) = l - d; y = cat (dim, c(ones (sz)), x); endif endfunction %!assert (prepad ([1,2], 4), [0,0,1,2]) %!assert (prepad ([1;2], 4), [0;0;1;2]) %!assert (prepad ([1,2], 4, 2), [2,2,1,2]) %!assert (prepad ([1;2], 4, 2), [2;2;1;2]) %!assert (prepad ([1 2], 2), [1 2]) %!assert (prepad ([1; 2], 2), [1; 2]) %!assert (prepad ([1; 2], 2, 3, 2), [3 1; 3 2]) %!assert (prepad ([1,2], 2, 2, 1), [2,2;1,2]) %!assert (prepad ([1,2], 2, 2, 3), reshape ([2,2,1,2], 1, 2, 2)) %!assert (prepad ([1;2], 2, 2, 3), reshape ([2;2;1;2], 2, 1, 2)) %! ## Test with string concatenation %!assert <44162> (prepad ("Octave", 16, "x"), "xxxxxxxxxxOctave") %!assert (prepad ("Octave", 4), "tave") ## FIXME: We need tests for multidimensional arrays. %!error prepad () %!error prepad (1) %!error prepad (1,2,3,4,5) %!error <C must be empty or a scalar> prepad ([1,2], 2, ones (2)) %!error <DIM must be an integer> prepad ([1,2], 2, 2, ones (3)) %!error <DIM must be an integer> prepad ([1,2], 2, 2, 1.1) %!error <L must be a positive scalar> prepad ([1,2], ones (2)) %!error <L must be a positive scalar> prepad ([1,2], -1)