octave-dspies: scripts/set/intersect.m annotate

annotate scripts/set/intersect.m @ 19003:d00f6b09258f @

Overhaul functions in scripts/set directory. * set.txi: Rewrite documentation for set functions. * intersect.m: Rewrite docstring. Use by_rows variable for code clarity. Return output orientation which is compatible with Matlab. Add %!tests for output orientation and N-dimensional inputs. * setdiff.m: Rewrite docstring. Use by_rows variable for code clarity. Rename output i to ia to clarify it is an index into the set a. Return output orientation which is compatible with Matlab. Add %!tests for N-dimensional inputs. * setxor.m: Rewrite docstring. Use by_rows variable for code clarity. Return output orientation which is compatible with Matlab. Add %!tests for output orientation and N-dimensional inputs. * union.m: Rewrite docstring. Use by_rows variable for code clarity. Return output orientation which is compatible with Matlab. Add %!tests for output orientation and N-dimensional inputs. Add %!tests for validsetargs which are common to all set functions. * unique.m: Rewrite docstring. Verify that input is numeric or cell array of strings. Avoid computing idx for optional i,j outputs unless required. Add %!error tests for input validation. * ismember.m: Rewrite docstring. Use input variable 'a' instead of 'A' for conformance with rest of set functions. Rename output index variable to s_idx for clarity that it is an index into the set s. * powerset.m: Rewrite doctring. Add input validation on nargin. Add %!error input validation tests. * module.mk: Include validsetargs.m in build system. * validsetargs.m: Function renamed from validargs which was too general. * validargs.m: Function renamed to validsetargs.

author	Rik <rik@octave.org>
date	Mon, 11 Aug 2014 09:39:45 -0700
parents	d63878346099
children

rev	line source
17744 d63878346099 maint: Update copyright notices for release. John W. Eaton <jwe@octave.org> parents: 17336 diff changeset	1 ## Copyright (C) 2000-2013 Paul Kienzle
11523 fd0a3ac60b0e update copyright notices John W. Eaton <jwe@octave.org> parents: 10793 diff changeset	2 ## Copyright (C) 2008-2009 Jaroslav Hajek
5820 27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	3 ##
27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	4 ## This file is part of Octave.
27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	5 ##
27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	6 ## Octave is free software; you can redistribute it and/or modify it
27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	7 ## 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: 6825 diff changeset	8 ## the Free Software Foundation; either version 3 of the License, or (at
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6825 diff changeset	9 ## your option) any later version.
5820 27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	10 ##
27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	11 ## Octave is distributed in the hope that it will be useful, but
27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	12 ## WITHOUT ANY WARRANTY; without even the implied warranty of
27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	13 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	14 ## General Public License for more details.
27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	15 ##
27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	16 ## 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: 6825 diff changeset	17 ## along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6825 diff changeset	18 ## <http://www.gnu.org/licenses/>.
5820 27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	19
27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	20 ## -- texinfo --
19003 d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	21 ## @deftypefn {Function File} {@var{c} =} intersect (@var{a}, @var{b})
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	22 ## @deftypefnx {Function File} {@var{c} =} intersect (@var{a}, @var{b}, "rows")
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	23 ## @deftypefnx {Function File} {[@var{c}, @var{ia}, @var{ib}] =} intersect (@dots{})
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	24 ##
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	25 ## Return the elements common to both @var{a} and @var{b} sorted in ascending
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	26 ## order.
5820 27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	27 ##
19003 d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	28 ## If @var{a} and @var{b} are both column vectors then return a column vector;
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	29 ## Otherwise, return a row vector. The inputs may also be cell arrays of
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	30 ## strings.
5820 27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	31 ##
19003 d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	32 ## If the optional input @qcode{"rows"} is given then return the common rows of
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	33 ## @var{a} and @var{b}. The inputs must be 2-D matrices to use this option.
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	34 ##
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	35 ## If requested, return index vectors @var{ia} and @var{ib} such that
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	36 ## @code{@var{c} = @var{a}(@var{ia})} and @code{@var{c} = @var{b}(@var{ib})}.
5820 27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	37 ##
27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	38 ## @end deftypefn
19003 d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	39 ## @seealso{unique, union, setdiff, setxor, ismember}
5820 27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	40
7920 e56bb65186f6 improve set functions for Matlab compatibility Jaroslav Hajek <highegg@gmail.com> parents: 7017 diff changeset	41 function [c, ia, ib] = intersect (a, b, varargin)
e56bb65186f6 improve set functions for Matlab compatibility Jaroslav Hajek <highegg@gmail.com> parents: 7017 diff changeset	42
e56bb65186f6 improve set functions for Matlab compatibility Jaroslav Hajek <highegg@gmail.com> parents: 7017 diff changeset	43 if (nargin < 2 \|\| nargin > 3)
6046 34f96dd5441b [project @ 2006-10-10 16:10:25 by jwe] jwe parents: 5821 diff changeset	44 print_usage ();
5820 27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	45 endif
27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	46
19003 d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	47 [a, b] = validsetargs ("intersect", a, b, varargin{:});
7920 e56bb65186f6 improve set functions for Matlab compatibility Jaroslav Hajek <highegg@gmail.com> parents: 7017 diff changeset	48
5820 27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	49 if (isempty (a) \|\| isempty (b))
27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	50 c = ia = ib = [];
27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	51 else
19003 d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	52 by_rows = nargin == 3;
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	53 iscol = isvector (a) && isvector (b) && iscolumn (a) && iscolumn (b);
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	54
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	55 ## Form A and B into sets
7920 e56bb65186f6 improve set functions for Matlab compatibility Jaroslav Hajek <highegg@gmail.com> parents: 7017 diff changeset	56 if (nargout > 1)
e56bb65186f6 improve set functions for Matlab compatibility Jaroslav Hajek <highegg@gmail.com> parents: 7017 diff changeset	57 [a, ja] = unique (a, varargin{:});
e56bb65186f6 improve set functions for Matlab compatibility Jaroslav Hajek <highegg@gmail.com> parents: 7017 diff changeset	58 [b, jb] = unique (b, varargin{:});
9108 b2459d21a207 fix intersect bug Jaroslav Hajek <highegg@gmail.com> parents: 9051 diff changeset	59 else
b2459d21a207 fix intersect bug Jaroslav Hajek <highegg@gmail.com> parents: 9051 diff changeset	60 a = unique (a, varargin{:});
b2459d21a207 fix intersect bug Jaroslav Hajek <highegg@gmail.com> parents: 9051 diff changeset	61 b = unique (b, varargin{:});
6825 59e22e30aff8 [project @ 2007-08-24 15:36:49 by jwe] jwe parents: 6248 diff changeset	62 endif
5820 27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	63
19003 d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	64 if (by_rows)
7920 e56bb65186f6 improve set functions for Matlab compatibility Jaroslav Hajek <highegg@gmail.com> parents: 7017 diff changeset	65 c = [a; b];
e56bb65186f6 improve set functions for Matlab compatibility Jaroslav Hajek <highegg@gmail.com> parents: 7017 diff changeset	66 [c, ic] = sortrows (c);
e56bb65186f6 improve set functions for Matlab compatibility Jaroslav Hajek <highegg@gmail.com> parents: 7017 diff changeset	67 ii = find (all (c(1:end-1,:) == c(2:end,:), 2));
e56bb65186f6 improve set functions for Matlab compatibility Jaroslav Hajek <highegg@gmail.com> parents: 7017 diff changeset	68 c = c(ii,:);
14148 402acc45350e intersect.m: Properly handle the "rows" case with more than 1 output arg (bug #35247) Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 14138 diff changeset	69 len_a = rows (a);
7920 e56bb65186f6 improve set functions for Matlab compatibility Jaroslav Hajek <highegg@gmail.com> parents: 7017 diff changeset	70 else
e56bb65186f6 improve set functions for Matlab compatibility Jaroslav Hajek <highegg@gmail.com> parents: 7017 diff changeset	71 c = [a(:); b(:)];
19003 d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	72 [c, ic] = sort (c); # [a(:);b(:)](ic) == c
7920 e56bb65186f6 improve set functions for Matlab compatibility Jaroslav Hajek <highegg@gmail.com> parents: 7017 diff changeset	73 if (iscellstr (c))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10088 diff changeset	74 ii = find (strcmp (c(1:end-1), c(2:end)));
7920 e56bb65186f6 improve set functions for Matlab compatibility Jaroslav Hajek <highegg@gmail.com> parents: 7017 diff changeset	75 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10088 diff changeset	76 ii = find (c(1:end-1) == c(2:end));
7920 e56bb65186f6 improve set functions for Matlab compatibility Jaroslav Hajek <highegg@gmail.com> parents: 7017 diff changeset	77 endif
e56bb65186f6 improve set functions for Matlab compatibility Jaroslav Hajek <highegg@gmail.com> parents: 7017 diff changeset	78 c = c(ii);
14148 402acc45350e intersect.m: Properly handle the "rows" case with more than 1 output arg (bug #35247) Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 14138 diff changeset	79 len_a = length (a);
7920 e56bb65186f6 improve set functions for Matlab compatibility Jaroslav Hajek <highegg@gmail.com> parents: 7017 diff changeset	80 endif
5820 27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	81
7920 e56bb65186f6 improve set functions for Matlab compatibility Jaroslav Hajek <highegg@gmail.com> parents: 7017 diff changeset	82 if (nargout > 1)
19003 d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	83 ia = ja(ic(ii)); # a(ia) == c
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	84 ib = jb(ic(ii+1) - len_a); # b(ib) == c
7920 e56bb65186f6 improve set functions for Matlab compatibility Jaroslav Hajek <highegg@gmail.com> parents: 7017 diff changeset	85 endif
e56bb65186f6 improve set functions for Matlab compatibility Jaroslav Hajek <highegg@gmail.com> parents: 7017 diff changeset	86
19003 d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	87 ## Adjust output orientation for Matlab compatibility
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	88 if (! by_rows && ! iscol)
5820 27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	89 c = c.';
27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	90 endif
27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	91 endif
27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	92
27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	93 endfunction
27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	94
27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	95
19003 d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	96 ## Test orientation of output
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	97 %!shared a,b
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	98 %! a = 1:4;
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	99 %! b = 2:5;
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	100
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	101 %!assert (size (intersect (a, b)), [1 3])
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	102 %!assert (size (intersect (a', b)), [1 3])
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	103 %!assert (size (intersect (a, b')), [1 3])
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	104 %!assert (size (intersect (a', b')), [3 1])
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	105
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	106 ## Test multi-dimensional arrays
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	107 %!test
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	108 %! a = rand (3,3,3);
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	109 %! b = a;
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	110 %! b(1,1,1) = 2;
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	111 %! assert (intersect (a, b), sort (a(2:end)));
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	112
d00f6b09258f Overhaul functions in scripts/set directory. Rik <rik@octave.org> parents: 17744 diff changeset	113 ## Test the routine for index vectors ia and ib
5820 27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	114 %!test
27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	115 %! a = [3 2 4 5 7 6 5 1 0 13 13];
27c966e4b2dc [project @ 2006-05-17 21:00:54 by jwe] jwe parents: diff changeset	116 %! b = [3 5 12 1 1 7];
14363 f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14148 diff changeset	117 %! [c,ia,ib] = intersect (a, b);
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14148 diff changeset	118 %! assert (c, [1 3 5 7]);
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14148 diff changeset	119 %! assert (ia, [8 1 7 5]);
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14148 diff changeset	120 %! assert (ib, [5 1 2 6]);
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14148 diff changeset	121 %! assert (a(ia), c);
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14148 diff changeset	122 %! assert (b(ib), c);
7920 e56bb65186f6 improve set functions for Matlab compatibility Jaroslav Hajek <highegg@gmail.com> parents: 7017 diff changeset	123 %!test
e56bb65186f6 improve set functions for Matlab compatibility Jaroslav Hajek <highegg@gmail.com> parents: 7017 diff changeset	124 %! a = [1,1,2;1,4,5;2,1,7];
e56bb65186f6 improve set functions for Matlab compatibility Jaroslav Hajek <highegg@gmail.com> parents: 7017 diff changeset	125 %! b = [1,4,5;2,3,4;1,1,2;9,8,7];
14363 f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14148 diff changeset	126 %! [c,ia,ib] = intersect (a, b, "rows");
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14148 diff changeset	127 %! assert (c, [1,1,2;1,4,5]);
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14148 diff changeset	128 %! assert (ia, [1;2]);
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14148 diff changeset	129 %! assert (ib, [3;1]);
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14148 diff changeset	130 %! assert (a(ia,:), c);
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14148 diff changeset	131 %! assert (b(ib,:), c);
9115 ef95b930f1cf Add test for bugfix b2459d21a207 Thomas Weber <thomas.weber.mail@gmail.com> parents: 9108 diff changeset	132 %!test
ef95b930f1cf Add test for bugfix b2459d21a207 Thomas Weber <thomas.weber.mail@gmail.com> parents: 9108 diff changeset	133 %! a = [1 1 1 2 2 2];
ef95b930f1cf Add test for bugfix b2459d21a207 Thomas Weber <thomas.weber.mail@gmail.com> parents: 9108 diff changeset	134 %! b = [1 2 3 4 5 6];
14363 f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14148 diff changeset	135 %! c = intersect (a, b);
9115 ef95b930f1cf Add test for bugfix b2459d21a207 Thomas Weber <thomas.weber.mail@gmail.com> parents: 9108 diff changeset	136 %! assert(c, [1,2]);
14148 402acc45350e intersect.m: Properly handle the "rows" case with more than 1 output arg (bug #35247) Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 14138 diff changeset	137 %!test
402acc45350e intersect.m: Properly handle the "rows" case with more than 1 output arg (bug #35247) Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 14138 diff changeset	138 %! a = [1 2 3 4; 5 6 7 8; 9 10 11 12];
14363 f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14148 diff changeset	139 %! [b, ia, ib] = intersect (a, a, "rows");
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14148 diff changeset	140 %! assert (b, a);
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14148 diff changeset	141 %! assert (ia, [1:3]');
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14148 diff changeset	142 %! assert (ib, [1:3]');
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14148 diff changeset	143

Mercurial > octave-dspies

annotate scripts/set/intersect.m @ 19003:d00f6b09258f @