octave-nkf: scripts/general/prepad.m annotate

annotate scripts/general/prepad.m @ 19047:7bbe3658c5ef

maint: Use "FIXME:" coding convention in m-files. * flipdim.m, prepad.m, rotdim.m, doc.m, strread.m, textread.m, krylov.m, colon.m, dump_prefs.m, fileattrib.m, getappdata.m, __xzip__.m, unpack.m, fsolve.m, axis.m, meshc.m, print.m, __ghostscript__.m, __go_draw_axes__.m, __print_parse_opts__.m, struct2hdl.m, unique.m, spstats.m, treeplot.m, test.m, datestr.m: Use "FIXME:" coding convention in m-files.

author	Rik <rik@octave.org>
date	Wed, 25 Jun 2014 13:45:41 -0700
parents	d28c4c4547ef
children	107ec5195a47

rev	line source
17744 d63878346099 maint: Update copyright notices for release. John W. Eaton <jwe@octave.org> parents: 14406 diff changeset	1 ## Copyright (C) 1994-2013 John W. Eaton
2313 5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2311 diff changeset	2 ##
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2311 diff changeset	3 ## This file is part of Octave.
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2311 diff changeset	4 ##
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2311 diff changeset	5 ## Octave is free software; you can redistribute it and/or modify it
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2311 diff changeset	6 ## under the terms of the GNU General Public License as published by
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6046 diff changeset	7 ## the Free Software Foundation; either version 3 of the License, or (at
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6046 diff changeset	8 ## your option) any later version.
2313 5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2311 diff changeset	9 ##
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2311 diff changeset	10 ## Octave is distributed in the hope that it will be useful, but
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2311 diff changeset	11 ## WITHOUT ANY WARRANTY; without even the implied warranty of
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2311 diff changeset	12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2311 diff changeset	13 ## General Public License for more details.
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2311 diff changeset	14 ##
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2311 diff changeset	15 ## You should have received a copy of the GNU General Public License
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6046 diff changeset	16 ## along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6046 diff changeset	17 ## <http://www.gnu.org/licenses/>.
2303 5cffc4b8de57 [project @ 1996-06-24 09:15:24 by jwe] jwe parents: 1337 diff changeset	18
3428 5b77cf82393c [project @ 2000-01-14 02:54:53 by jwe] jwe parents: 3202 diff changeset	19 ## -- texinfo --
11539 6bac61388876 Add undocumented postpad function to documentation. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	20 ## @deftypefn {Function File} {} prepad (@var{x}, @var{l})
6bac61388876 Add undocumented postpad function to documentation. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	21 ## @deftypefnx {Function File} {} prepad (@var{x}, @var{l}, @var{c})
8545 faccdb98d953 postpad.m, prepad.m: doc fix John W. Eaton <jwe@octave.org> parents: 8436 diff changeset	22 ## @deftypefnx {Function File} {} prepad (@var{x}, @var{l}, @var{c}, @var{dim})
12639 4d777e05d47c doc: Review and update documentation for "Matrix Manipulation" chapter. Rik <octave@nomad.inbox5.com> parents: 11539 diff changeset	23 ## Prepend the scalar value @var{c} to the vector @var{x} until it is of length
4d777e05d47c doc: Review and update documentation for "Matrix Manipulation" chapter. Rik <octave@nomad.inbox5.com> parents: 11539 diff changeset	24 ## @var{l}. If @var{c} is not given, a value of 0 is used.
2311 2b5788792cad [project @ 1996-07-11 20:18:38 by jwe] jwe parents: 2303 diff changeset	25 ##
11539 6bac61388876 Add undocumented postpad function to documentation. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	26 ## If @code{length (@var{x}) > @var{l}}, elements from the beginning of
3500 7923abdeb4e5 [project @ 2000-01-31 06:35:00 by jwe] jwe parents: 3428 diff changeset	27 ## @var{x} are removed until a vector of length @var{l} is obtained.
3652 25e84fcef38a [project @ 2000-03-31 08:50:48 by jwe] jwe parents: 3500 diff changeset	28 ##
25e84fcef38a [project @ 2000-03-31 08:50:48 by jwe] jwe parents: 3500 diff changeset	29 ## If @var{x} is a matrix, elements are prepended or removed from each row.
4870 2cbc6f37b0c2 [project @ 2004-04-21 17:30:51 by jwe] jwe parents: 4862 diff changeset	30 ##
11539 6bac61388876 Add undocumented postpad function to documentation. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	31 ## If the optional argument @var{dim} is given, operate along this
4870 2cbc6f37b0c2 [project @ 2004-04-21 17:30:51 by jwe] jwe parents: 4862 diff changeset	32 ## dimension.
18581 d28c4c4547ef Allow postpad and prepad to expand singleton dimensions (bug #41633) Mike Miller <mtmiller@ieee.org> parents: 17744 diff changeset	33 ##
d28c4c4547ef Allow postpad and prepad to expand singleton dimensions (bug #41633) Mike Miller <mtmiller@ieee.org> parents: 17744 diff changeset	34 ## If @var{dim} is larger than the dimensions of @var{x}, the result will
d28c4c4547ef Allow postpad and prepad to expand singleton dimensions (bug #41633) Mike Miller <mtmiller@ieee.org> parents: 17744 diff changeset	35 ## have @var{dim} dimensions.
11539 6bac61388876 Add undocumented postpad function to documentation. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	36 ## @seealso{postpad, cat, resize}
3428 5b77cf82393c [project @ 2000-01-14 02:54:53 by jwe] jwe parents: 3202 diff changeset	37 ## @end deftypefn
5b77cf82393c [project @ 2000-01-14 02:54:53 by jwe] jwe parents: 3202 diff changeset	38
5b77cf82393c [project @ 2000-01-14 02:54:53 by jwe] jwe parents: 3202 diff changeset	39 ## Author: Tony Richardson <arichard@stark.cc.oh.us>
5b77cf82393c [project @ 2000-01-14 02:54:53 by jwe] jwe parents: 3202 diff changeset	40 ## Created: June 1994
1337 52a3f38cbfeb [project @ 1995-08-25 02:00:18 by jwe] jwe parents: 904 diff changeset	41
4862 a0997c4d1d54 [project @ 2004-04-15 21:14:43 by jwe] jwe parents: 4030 diff changeset	42 function y = prepad (x, l, c, dim)
a0997c4d1d54 [project @ 2004-04-15 21:14:43 by jwe] jwe parents: 4030 diff changeset	43
a0997c4d1d54 [project @ 2004-04-15 21:14:43 by jwe] jwe parents: 4030 diff changeset	44 if (nargin < 2 \|\| nargin > 4)
6046 34f96dd5441b [project @ 2006-10-10 16:10:25 by jwe] jwe parents: 5459 diff changeset	45 print_usage ();
4862 a0997c4d1d54 [project @ 2004-04-15 21:14:43 by jwe] jwe parents: 4030 diff changeset	46 endif
a0997c4d1d54 [project @ 2004-04-15 21:14:43 by jwe] jwe parents: 4030 diff changeset	47
a0997c4d1d54 [project @ 2004-04-15 21:14:43 by jwe] jwe parents: 4030 diff changeset	48 if (nargin < 3 \|\| isempty (c))
a0997c4d1d54 [project @ 2004-04-15 21:14:43 by jwe] jwe parents: 4030 diff changeset	49 c = 0;
a0997c4d1d54 [project @ 2004-04-15 21:14:43 by jwe] jwe parents: 4030 diff changeset	50 else
a0997c4d1d54 [project @ 2004-04-15 21:14:43 by jwe] jwe parents: 4030 diff changeset	51 if (! isscalar (c))
14406 98cf8aa9f8ba prepad.m: Improve input validation messages and tests. Rik <octave@nomad.inbox5.com> parents: 14363 diff changeset	52 error ("prepad: pad value C must be empty or a scalar");
4862 a0997c4d1d54 [project @ 2004-04-15 21:14:43 by jwe] jwe parents: 4030 diff changeset	53 endif
a0997c4d1d54 [project @ 2004-04-15 21:14:43 by jwe] jwe parents: 4030 diff changeset	54 endif
559 4e826edfbc56 [project @ 1994-07-25 22:18:28 by jwe] jwe parents: diff changeset	55
4862 a0997c4d1d54 [project @ 2004-04-15 21:14:43 by jwe] jwe parents: 4030 diff changeset	56 nd = ndims (x);
a0997c4d1d54 [project @ 2004-04-15 21:14:43 by jwe] jwe parents: 4030 diff changeset	57 sz = size (x);
a0997c4d1d54 [project @ 2004-04-15 21:14:43 by jwe] jwe parents: 4030 diff changeset	58 if (nargin < 4)
12674 9493880928c8 Use common idiom in m-files for finding first non-singleton dimension. Rik <octave@nomad.inbox5.com> parents: 12639 diff changeset	59 ## Find the first non-singleton dimension.
9493880928c8 Use common idiom in m-files for finding first non-singleton dimension. Rik <octave@nomad.inbox5.com> parents: 12639 diff changeset	60 (dim = find (sz > 1, 1)) \|\| (dim = 1);
4862 a0997c4d1d54 [project @ 2004-04-15 21:14:43 by jwe] jwe parents: 4030 diff changeset	61 else
18581 d28c4c4547ef Allow postpad and prepad to expand singleton dimensions (bug #41633) Mike Miller <mtmiller@ieee.org> parents: 17744 diff changeset	62 if (!(isscalar (dim) && dim == fix (dim) && dim >= 1))
10690 35adf2a71f3f Use common code block to find first non-singleton dimension. Rik <octave@nomad.inbox5.com> parents: 10635 diff changeset	63 error ("prepad: DIM must be an integer and a valid dimension");
4862 a0997c4d1d54 [project @ 2004-04-15 21:14:43 by jwe] jwe parents: 4030 diff changeset	64 endif
559 4e826edfbc56 [project @ 1994-07-25 22:18:28 by jwe] jwe parents: diff changeset	65 endif
4e826edfbc56 [project @ 1994-07-25 22:18:28 by jwe] jwe parents: diff changeset	66
5459 ff40c78cebf0 [project @ 2005-09-20 19:18:34 by jwe] jwe parents: 5307 diff changeset	67 if (! isscalar (l) \|\| l < 0)
14406 98cf8aa9f8ba prepad.m: Improve input validation messages and tests. Rik <octave@nomad.inbox5.com> parents: 14363 diff changeset	68 error ("prepad: length L must be a positive scalar");
559 4e826edfbc56 [project @ 1994-07-25 22:18:28 by jwe] jwe parents: diff changeset	69 endif
4e826edfbc56 [project @ 1994-07-25 22:18:28 by jwe] jwe parents: diff changeset	70
5459 ff40c78cebf0 [project @ 2005-09-20 19:18:34 by jwe] jwe parents: 5307 diff changeset	71 if (dim > nd)
ff40c78cebf0 [project @ 2005-09-20 19:18:34 by jwe] jwe parents: 5307 diff changeset	72 sz(nd+1:dim) = 1;
ff40c78cebf0 [project @ 2005-09-20 19:18:34 by jwe] jwe parents: 5307 diff changeset	73 endif
ff40c78cebf0 [project @ 2005-09-20 19:18:34 by jwe] jwe parents: 5307 diff changeset	74
4862 a0997c4d1d54 [project @ 2004-04-15 21:14:43 by jwe] jwe parents: 4030 diff changeset	75 d = sz (dim);
a0997c4d1d54 [project @ 2004-04-15 21:14:43 by jwe] jwe parents: 4030 diff changeset	76
a0997c4d1d54 [project @ 2004-04-15 21:14:43 by jwe] jwe parents: 4030 diff changeset	77 if (d >= l)
12676 2783fa95cab7 Use common code idiom for creating cell array for indexing ND-arrays Rik <octave@nomad.inbox5.com> parents: 12674 diff changeset	78 idx = repmat ({':'}, nd, 1);
7208 a730e47fda4d [project @ 2007-11-28 02:32:41 by jwe] jwe parents: 7017 diff changeset	79 idx{dim} = d-l+1:d;
a730e47fda4d [project @ 2007-11-28 02:32:41 by jwe] jwe parents: 7017 diff changeset	80 y = x(idx{:});
559 4e826edfbc56 [project @ 1994-07-25 22:18:28 by jwe] jwe parents: diff changeset	81 else
4862 a0997c4d1d54 [project @ 2004-04-15 21:14:43 by jwe] jwe parents: 4030 diff changeset	82 sz (dim) = l - d;
a0997c4d1d54 [project @ 2004-04-15 21:14:43 by jwe] jwe parents: 4030 diff changeset	83 y = cat (dim, c * ones (sz), x);
559 4e826edfbc56 [project @ 1994-07-25 22:18:28 by jwe] jwe parents: diff changeset	84 endif
4e826edfbc56 [project @ 1994-07-25 22:18:28 by jwe] jwe parents: diff changeset	85
4e826edfbc56 [project @ 1994-07-25 22:18:28 by jwe] jwe parents: diff changeset	86 endfunction
12795 9e7ebbaf69ff codesprint: new tests for files in scripts/general directory John W. Eaton <jwe@octave.org> parents: 12676 diff changeset	87
14363 f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	88
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	89 %!assert (prepad ([1,2], 4), [0,0,1,2])
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	90 %!assert (prepad ([1;2], 4), [0;0;1;2])
12795 9e7ebbaf69ff codesprint: new tests for files in scripts/general directory John W. Eaton <jwe@octave.org> parents: 12676 diff changeset	91
14363 f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	92 %!assert (prepad ([1,2], 4, 2), [2,2,1,2])
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	93 %!assert (prepad ([1;2], 4, 2), [2;2;1;2])
12795 9e7ebbaf69ff codesprint: new tests for files in scripts/general directory John W. Eaton <jwe@octave.org> parents: 12676 diff changeset	94
14363 f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	95 %!assert (prepad ([1,2], 2, 2, 1), [2,2;1,2])
12795 9e7ebbaf69ff codesprint: new tests for files in scripts/general directory John W. Eaton <jwe@octave.org> parents: 12676 diff changeset	96
18581 d28c4c4547ef Allow postpad and prepad to expand singleton dimensions (bug #41633) Mike Miller <mtmiller@ieee.org> parents: 17744 diff changeset	97 %!assert (prepad ([1,2], 2, 2, 3), reshape ([2,2,1,2], 1, 2, 2))
d28c4c4547ef Allow postpad and prepad to expand singleton dimensions (bug #41633) Mike Miller <mtmiller@ieee.org> parents: 17744 diff changeset	98 %!assert (prepad ([1;2], 2, 2, 3), reshape ([2;2;1;2], 2, 1, 2))
d28c4c4547ef Allow postpad and prepad to expand singleton dimensions (bug #41633) Mike Miller <mtmiller@ieee.org> parents: 17744 diff changeset	99
19047 7bbe3658c5ef maint: Use "FIXME:" coding convention in m-files. Rik <rik@octave.org> parents: 18581 diff changeset	100 ## FIXME: We need tests for multidimensional arrays.
14363 f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	101
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	102 %!error prepad ()
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	103 %!error prepad (1)
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	104 %!error prepad (1,2,3,4,5)
14406 98cf8aa9f8ba prepad.m: Improve input validation messages and tests. Rik <octave@nomad.inbox5.com> parents: 14363 diff changeset	105 %!error <C must be empty or a scalar> prepad ([1,2], 2, ones (2))
98cf8aa9f8ba prepad.m: Improve input validation messages and tests. Rik <octave@nomad.inbox5.com> parents: 14363 diff changeset	106 %!error <DIM must be an integer> prepad ([1,2], 2, 2, ones (3))
98cf8aa9f8ba prepad.m: Improve input validation messages and tests. Rik <octave@nomad.inbox5.com> parents: 14363 diff changeset	107 %!error <DIM must be an integer> prepad ([1,2], 2, 2, 1.1)
98cf8aa9f8ba prepad.m: Improve input validation messages and tests. Rik <octave@nomad.inbox5.com> parents: 14363 diff changeset	108 %!error <L must be a positive scalar> prepad ([1,2], ones (2))
98cf8aa9f8ba prepad.m: Improve input validation messages and tests. Rik <octave@nomad.inbox5.com> parents: 14363 diff changeset	109 %!error <L must be a positive scalar> prepad ([1,2], -1)
14363 f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	110

Mercurial > hg > octave-nkf

annotate scripts/general/prepad.m @ 19047:7bbe3658c5ef