octave-nkf: scripts/set/ismember.m annotate

annotate scripts/set/ismember.m @ 10509:ddbd812d09aa

properly compress sparse matrices after assembly

author	Jaroslav Hajek <highegg@gmail.com>
date	Mon, 12 Apr 2010 12:57:44 +0200
parents	5edee330d4cb
children	a8ce6bdecce5

rev	line source
8920 eb63fbe60fab update copyright notices John W. Eaton <jwe@octave.org> parents: 8506 diff changeset	1 ## Copyright (C) 2000, 2005, 2006, 2007, 2008, 2009 Paul Kienzle
9345 dbc61d4e428d optimize ismember Jaroslav Hajek <highegg@gmail.com> parents: 9276 diff changeset	2 ## Copyright (C) 2009 Jaroslav Hajek
5178 6758c11b5b99 [project @ 2005-03-03 05:18:04 by jwe] jwe parents: diff changeset	3 ##
5181 41cd70503c72 [project @ 2005-03-03 05:49:55 by jwe] jwe parents: 5178 diff changeset	4 ## This file is part of Octave.
5178 6758c11b5b99 [project @ 2005-03-03 05:18:04 by jwe] jwe parents: diff changeset	5 ##
5181 41cd70503c72 [project @ 2005-03-03 05:49:55 by jwe] jwe parents: 5178 diff changeset	6 ## Octave is free software; you can redistribute it and/or modify it
41cd70503c72 [project @ 2005-03-03 05:49:55 by jwe] jwe parents: 5178 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: 6730 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: 6730 diff changeset	9 ## your option) any later version.
5181 41cd70503c72 [project @ 2005-03-03 05:49:55 by jwe] jwe parents: 5178 diff changeset	10 ##
41cd70503c72 [project @ 2005-03-03 05:49:55 by jwe] jwe parents: 5178 diff changeset	11 ## Octave is distributed in the hope that it will be useful, but
41cd70503c72 [project @ 2005-03-03 05:49:55 by jwe] jwe parents: 5178 diff changeset	12 ## WITHOUT ANY WARRANTY; without even the implied warranty of
41cd70503c72 [project @ 2005-03-03 05:49:55 by jwe] jwe parents: 5178 diff changeset	13 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
41cd70503c72 [project @ 2005-03-03 05:49:55 by jwe] jwe parents: 5178 diff changeset	14 ## General Public License for more details.
5178 6758c11b5b99 [project @ 2005-03-03 05:18:04 by jwe] jwe parents: diff changeset	15 ##
6758c11b5b99 [project @ 2005-03-03 05:18:04 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: 6730 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: 6730 diff changeset	18 ## <http://www.gnu.org/licenses/>.
5178 6758c11b5b99 [project @ 2005-03-03 05:18:04 by jwe] jwe parents: diff changeset	19
6758c11b5b99 [project @ 2005-03-03 05:18:04 by jwe] jwe parents: diff changeset	20 ## -- texinfo --
9276 f5e4b5fd1f1e Update ismember examples to remove incorrect reference to residue function Rik <rdrider0-list@yahoo.com> parents: 9051 diff changeset	21 ## @deftypefn {Function File} {[@var{tf} =} ismember (@var{A}, @var{S})
f5e4b5fd1f1e Update ismember examples to remove incorrect reference to residue function Rik <rdrider0-list@yahoo.com> parents: 9051 diff changeset	22 ## @deftypefnx {Function File} {[@var{tf}, @var{S_idx}] =} ismember (@var{A}, @var{S})
f5e4b5fd1f1e Update ismember examples to remove incorrect reference to residue function Rik <rdrider0-list@yahoo.com> parents: 9051 diff changeset	23 ## @deftypefnx {Function File} {[@var{tf}, @var{S_idx}] =} ismember (@var{A}, @var{S}, "rows")
f5e4b5fd1f1e Update ismember examples to remove incorrect reference to residue function Rik <rdrider0-list@yahoo.com> parents: 9051 diff changeset	24 ## Return a matrix @var{tf} with the same shape as @var{A} which has a 1 if
f5e4b5fd1f1e Update ismember examples to remove incorrect reference to residue function Rik <rdrider0-list@yahoo.com> parents: 9051 diff changeset	25 ## @code{A(i,j)} is in @var{S} and 0 if it is not. If a second output argument
f5e4b5fd1f1e Update ismember examples to remove incorrect reference to residue function Rik <rdrider0-list@yahoo.com> parents: 9051 diff changeset	26 ## is requested, the index into @var{S} of each of the matching elements is
7128 73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	27 ## also returned.
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	28 ##
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	29 ## @example
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	30 ## @group
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	31 ## a = [3, 10, 1];
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	32 ## s = [0:9];
9276 f5e4b5fd1f1e Update ismember examples to remove incorrect reference to residue function Rik <rdrider0-list@yahoo.com> parents: 9051 diff changeset	33 ## [tf, s_idx] = ismember (a, s);
7128 73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	34 ## @result{} tf = [1, 0, 1]
9276 f5e4b5fd1f1e Update ismember examples to remove incorrect reference to residue function Rik <rdrider0-list@yahoo.com> parents: 9051 diff changeset	35 ## @result{} s_idx = [4, 0, 2]
7128 73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	36 ## @end group
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	37 ## @end example
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	38 ##
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	39 ## The inputs, @var{A} and @var{S}, may also be cell arrays.
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	40 ##
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	41 ## @example
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	42 ## @group
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	43 ## a = @{'abc'@};
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	44 ## s = @{'abc', 'def'@};
9276 f5e4b5fd1f1e Update ismember examples to remove incorrect reference to residue function Rik <rdrider0-list@yahoo.com> parents: 9051 diff changeset	45 ## [tf, s_idx] = ismember (a, s);
7128 73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	46 ## @result{} tf = [1, 0]
9276 f5e4b5fd1f1e Update ismember examples to remove incorrect reference to residue function Rik <rdrider0-list@yahoo.com> parents: 9051 diff changeset	47 ## @result{} s_idx = [1, 0]
7128 73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	48 ## @end group
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	49 ## @end example
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	50 ##
7129 363ffc8a5c80 [project @ 2007-11-08 15:20:11 by jwe] jwe parents: 7128 diff changeset	51 ## With the optional third argument @code{"rows"}, and matrices
363ffc8a5c80 [project @ 2007-11-08 15:20:11 by jwe] jwe parents: 7128 diff changeset	52 ## @var{A} and @var{S} with the same number of columns, compare rows in
363ffc8a5c80 [project @ 2007-11-08 15:20:11 by jwe] jwe parents: 7128 diff changeset	53 ## @var{A} with the rows in @var{S}.
7128 73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	54 ##
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	55 ## @example
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	56 ## @group
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	57 ## a = [1:3; 5:7; 4:6];
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	58 ## s = [0:2; 1:3; 2:4; 3:5; 4:6];
9276 f5e4b5fd1f1e Update ismember examples to remove incorrect reference to residue function Rik <rdrider0-list@yahoo.com> parents: 9051 diff changeset	59 ## [tf, s_idx] = ismember(a, s, 'rows');
7128 73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	60 ## @result{} tf = logical ([1; 0; 1])
9276 f5e4b5fd1f1e Update ismember examples to remove incorrect reference to residue function Rik <rdrider0-list@yahoo.com> parents: 9051 diff changeset	61 ## @result{} s_idx = [2; 0; 5];
7128 73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	62 ## @end group
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	63 ## @end example
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	64 ##
8286 6f2d95255911 fix @seealso references to point to existing anchors Thorsten Meyer <thorsten.meyier@gmx.de> parents: 7883 diff changeset	65 ## @seealso{unique, union, intersect, setxor, setdiff}
5178 6758c11b5b99 [project @ 2005-03-03 05:18:04 by jwe] jwe parents: diff changeset	66 ## @end deftypefn
6758c11b5b99 [project @ 2005-03-03 05:18:04 by jwe] jwe parents: diff changeset	67
7129 363ffc8a5c80 [project @ 2007-11-08 15:20:11 by jwe] jwe parents: 7128 diff changeset	68 ## Author: Paul Kienzle <pkienzle@users.sf.net>
363ffc8a5c80 [project @ 2007-11-08 15:20:11 by jwe] jwe parents: 7128 diff changeset	69 ## Author: Søren Hauberg <hauberg@gmail.com>
363ffc8a5c80 [project @ 2007-11-08 15:20:11 by jwe] jwe parents: 7128 diff changeset	70 ## Author: Ben Abbott <bpabbott@mac.com>
5181 41cd70503c72 [project @ 2005-03-03 05:49:55 by jwe] jwe parents: 5178 diff changeset	71 ## Adapted-by: jwe
9345 dbc61d4e428d optimize ismember Jaroslav Hajek <highegg@gmail.com> parents: 9276 diff changeset	72 ## Reimplemented using lookup & unique: Jaroslav Hajek <highegg@gmail.com>
5181 41cd70503c72 [project @ 2005-03-03 05:49:55 by jwe] jwe parents: 5178 diff changeset	73
10088 5edee330d4cb better argument checking and handling in set functions Jaroslav Hajek <highegg@gmail.com> parents: 9924 diff changeset	74 function [tf, a_idx] = ismember (a, s, varargin)
5edee330d4cb better argument checking and handling in set functions Jaroslav Hajek <highegg@gmail.com> parents: 9924 diff changeset	75
5edee330d4cb better argument checking and handling in set functions Jaroslav Hajek <highegg@gmail.com> parents: 9924 diff changeset	76 if (nargin < 2 \|\| nargin > 3)
5edee330d4cb better argument checking and handling in set functions Jaroslav Hajek <highegg@gmail.com> parents: 9924 diff changeset	77 print_usage ();
5edee330d4cb better argument checking and handling in set functions Jaroslav Hajek <highegg@gmail.com> parents: 9924 diff changeset	78 endif
5edee330d4cb better argument checking and handling in set functions Jaroslav Hajek <highegg@gmail.com> parents: 9924 diff changeset	79
5edee330d4cb better argument checking and handling in set functions Jaroslav Hajek <highegg@gmail.com> parents: 9924 diff changeset	80 [a, s] = validargs ("ismember", a, s, varargin{:});
5181 41cd70503c72 [project @ 2005-03-03 05:49:55 by jwe] jwe parents: 5178 diff changeset	81
9345 dbc61d4e428d optimize ismember Jaroslav Hajek <highegg@gmail.com> parents: 9276 diff changeset	82 if (nargin == 2)
dbc61d4e428d optimize ismember Jaroslav Hajek <highegg@gmail.com> parents: 9276 diff changeset	83 s = s(:);
dbc61d4e428d optimize ismember Jaroslav Hajek <highegg@gmail.com> parents: 9276 diff changeset	84 ## We do it this way, because we expect the array to be often sorted.
dbc61d4e428d optimize ismember Jaroslav Hajek <highegg@gmail.com> parents: 9276 diff changeset	85 if (issorted (s))
dbc61d4e428d optimize ismember Jaroslav Hajek <highegg@gmail.com> parents: 9276 diff changeset	86 is = [];
dbc61d4e428d optimize ismember Jaroslav Hajek <highegg@gmail.com> parents: 9276 diff changeset	87 else
dbc61d4e428d optimize ismember Jaroslav Hajek <highegg@gmail.com> parents: 9276 diff changeset	88 [s, is] = sort (s);
dbc61d4e428d optimize ismember Jaroslav Hajek <highegg@gmail.com> parents: 9276 diff changeset	89 endif
9364 6c255e51ef7e improve & fix ismember Jaroslav Hajek <highegg@gmail.com> parents: 9345 diff changeset	90
9924 d0d6ff39db54 simplify ismember Jaroslav Hajek <highegg@gmail.com> parents: 9735 diff changeset	91 ## sort out NaNs in table
9364 6c255e51ef7e improve & fix ismember Jaroslav Hajek <highegg@gmail.com> parents: 9345 diff changeset	92 if (isreal (s) && ! isempty (s) && isnan (s(end)))
6c255e51ef7e improve & fix ismember Jaroslav Hajek <highegg@gmail.com> parents: 9345 diff changeset	93 s = s(1:end - sum (isnan (s)));
6c255e51ef7e improve & fix ismember Jaroslav Hajek <highegg@gmail.com> parents: 9345 diff changeset	94 endif
9345 dbc61d4e428d optimize ismember Jaroslav Hajek <highegg@gmail.com> parents: 9276 diff changeset	95
dbc61d4e428d optimize ismember Jaroslav Hajek <highegg@gmail.com> parents: 9276 diff changeset	96 if (nargout > 1)
dbc61d4e428d optimize ismember Jaroslav Hajek <highegg@gmail.com> parents: 9276 diff changeset	97 a_idx = lookup (s, a, "m");
dbc61d4e428d optimize ismember Jaroslav Hajek <highegg@gmail.com> parents: 9276 diff changeset	98 tf = logical (a_idx);
dbc61d4e428d optimize ismember Jaroslav Hajek <highegg@gmail.com> parents: 9276 diff changeset	99 if (! isempty (is))
dbc61d4e428d optimize ismember Jaroslav Hajek <highegg@gmail.com> parents: 9276 diff changeset	100 a_idx(tf) = is (a_idx(tf));
7128 73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	101 endif
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	102 else
9345 dbc61d4e428d optimize ismember Jaroslav Hajek <highegg@gmail.com> parents: 9276 diff changeset	103 tf = lookup (s, a, "b");
dbc61d4e428d optimize ismember Jaroslav Hajek <highegg@gmail.com> parents: 9276 diff changeset	104 endif
dbc61d4e428d optimize ismember Jaroslav Hajek <highegg@gmail.com> parents: 9276 diff changeset	105
10088 5edee330d4cb better argument checking and handling in set functions Jaroslav Hajek <highegg@gmail.com> parents: 9924 diff changeset	106 else
5edee330d4cb better argument checking and handling in set functions Jaroslav Hajek <highegg@gmail.com> parents: 9924 diff changeset	107
9735 4d03aff3add3 fix typo in aab4f2aa9ed9 Jaroslav Hajek <highegg@gmail.com> parents: 9733 diff changeset	108 if (isempty (a) \|\| isempty (s))
9733 aab4f2aa9ed9 make ismember more matlab compatible Jaroslav Hajek <highegg@gmail.com> parents: 9364 diff changeset	109 tf = false (rows (a), 1);
aab4f2aa9ed9 make ismember more matlab compatible Jaroslav Hajek <highegg@gmail.com> parents: 9364 diff changeset	110 a_idx = zeros (rows (a), 1);
aab4f2aa9ed9 make ismember more matlab compatible Jaroslav Hajek <highegg@gmail.com> parents: 9364 diff changeset	111 else
9345 dbc61d4e428d optimize ismember Jaroslav Hajek <highegg@gmail.com> parents: 9276 diff changeset	112
9733 aab4f2aa9ed9 make ismember more matlab compatible Jaroslav Hajek <highegg@gmail.com> parents: 9364 diff changeset	113 ## FIXME: lookup does not support "rows", so we just use unique.
aab4f2aa9ed9 make ismember more matlab compatible Jaroslav Hajek <highegg@gmail.com> parents: 9364 diff changeset	114 [xx, ii, jj] = unique ([a; s], "rows", "last");
aab4f2aa9ed9 make ismember more matlab compatible Jaroslav Hajek <highegg@gmail.com> parents: 9364 diff changeset	115 na = rows (a);
aab4f2aa9ed9 make ismember more matlab compatible Jaroslav Hajek <highegg@gmail.com> parents: 9364 diff changeset	116 jj = ii(jj(1:na));
aab4f2aa9ed9 make ismember more matlab compatible Jaroslav Hajek <highegg@gmail.com> parents: 9364 diff changeset	117 tf = jj > na;
9345 dbc61d4e428d optimize ismember Jaroslav Hajek <highegg@gmail.com> parents: 9276 diff changeset	118
9733 aab4f2aa9ed9 make ismember more matlab compatible Jaroslav Hajek <highegg@gmail.com> parents: 9364 diff changeset	119 if (nargout > 1)
aab4f2aa9ed9 make ismember more matlab compatible Jaroslav Hajek <highegg@gmail.com> parents: 9364 diff changeset	120 a_idx = max (0, jj - na);
aab4f2aa9ed9 make ismember more matlab compatible Jaroslav Hajek <highegg@gmail.com> parents: 9364 diff changeset	121 endif
aab4f2aa9ed9 make ismember more matlab compatible Jaroslav Hajek <highegg@gmail.com> parents: 9364 diff changeset	122
9345 dbc61d4e428d optimize ismember Jaroslav Hajek <highegg@gmail.com> parents: 9276 diff changeset	123 endif
5178 6758c11b5b99 [project @ 2005-03-03 05:18:04 by jwe] jwe parents: diff changeset	124 endif
6758c11b5b99 [project @ 2005-03-03 05:18:04 by jwe] jwe parents: diff changeset	125
7128 73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	126 endfunction
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	127
6533 c64687e6f1c3 [project @ 2007-04-17 21:21:46 by jwe] jwe parents: 6240 diff changeset	128 %!assert (ismember ({''}, {'abc', 'def'}), false);
c64687e6f1c3 [project @ 2007-04-17 21:21:46 by jwe] jwe parents: 6240 diff changeset	129 %!assert (ismember ('abc', {'abc', 'def'}), true);
c64687e6f1c3 [project @ 2007-04-17 21:21:46 by jwe] jwe parents: 6240 diff changeset	130 %!assert (isempty (ismember ([], [1, 2])), true);
7077 525cd5f47ab6 [project @ 2007-10-29 19:12:28 by jwe] jwe parents: 7068 diff changeset	131 %!assert (isempty (ismember ({}, {'a', 'b'})), true);
7128 73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	132 %!assert (ismember ('', {'abc', 'def'}), false);
7883 3092dd54ad95 fix expected output from lasterr in tests; fix fail tests in ismember.m John W. Eaton <jwe@octave.org> parents: 7652 diff changeset	133 %!fail ('ismember ([], {1, 2})');
3092dd54ad95 fix expected output from lasterr in tests; fix fail tests in ismember.m John W. Eaton <jwe@octave.org> parents: 7652 diff changeset	134 %!fail ('ismember ({[]}, {1, 2})');
3092dd54ad95 fix expected output from lasterr in tests; fix fail tests in ismember.m John W. Eaton <jwe@octave.org> parents: 7652 diff changeset	135 %!fail ('ismember ({}, {1, 2})');
3092dd54ad95 fix expected output from lasterr in tests; fix fail tests in ismember.m John W. Eaton <jwe@octave.org> parents: 7652 diff changeset	136 %!fail ('ismember ({1}, {''1'', ''2''})');
3092dd54ad95 fix expected output from lasterr in tests; fix fail tests in ismember.m John W. Eaton <jwe@octave.org> parents: 7652 diff changeset	137 %!fail ('ismember (1, ''abc'')');
3092dd54ad95 fix expected output from lasterr in tests; fix fail tests in ismember.m John W. Eaton <jwe@octave.org> parents: 7652 diff changeset	138 %!fail ('ismember ({''1''}, {''1'', ''2''},''rows'')');
3092dd54ad95 fix expected output from lasterr in tests; fix fail tests in ismember.m John W. Eaton <jwe@octave.org> parents: 7652 diff changeset	139 %!fail ('ismember ([1 2 3], [5 4 3 1], ''rows'')');
7128 73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	140 %!assert (ismember ({'foo', 'bar'}, {'foobar'}), logical ([0, 0]));
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	141 %!assert (ismember ({'foo'}, {'foobar'}), false);
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	142 %!assert (ismember ({'bar'}, {'foobar'}), false);
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	143 %!assert (ismember ({'bar'}, {'foobar', 'bar'}), true);
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	144 %!assert (ismember ({'foo', 'bar'}, {'foobar', 'bar'}), logical ([0, 1]));
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	145 %!assert (ismember ({'xfb', 'f', 'b'}, {'fb', 'b'}), logical ([0, 0, 1]));
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	146 %!assert (ismember ("1", "0123456789."), true);
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	147
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	148 %!test
7652 b5731e43283a ismember: correctly size idx output for empty args John W. Eaton <jwe@octave.org> parents: 7129 diff changeset	149 %! [result, a_idx] = ismember ([1, 2], []);
b5731e43283a ismember: correctly size idx output for empty args John W. Eaton <jwe@octave.org> parents: 7129 diff changeset	150 %! assert (result, logical ([0, 0]))
b5731e43283a ismember: correctly size idx output for empty args John W. Eaton <jwe@octave.org> parents: 7129 diff changeset	151 %! assert (a_idx, [0, 0]);
b5731e43283a ismember: correctly size idx output for empty args John W. Eaton <jwe@octave.org> parents: 7129 diff changeset	152
b5731e43283a ismember: correctly size idx output for empty args John W. Eaton <jwe@octave.org> parents: 7129 diff changeset	153 %!test
b5731e43283a ismember: correctly size idx output for empty args John W. Eaton <jwe@octave.org> parents: 7129 diff changeset	154 %! [result, a_idx] = ismember ([], [1, 2]);
b5731e43283a ismember: correctly size idx output for empty args John W. Eaton <jwe@octave.org> parents: 7129 diff changeset	155 %! assert (result, logical ([]))
b5731e43283a ismember: correctly size idx output for empty args John W. Eaton <jwe@octave.org> parents: 7129 diff changeset	156 %! assert (a_idx, []);
b5731e43283a ismember: correctly size idx output for empty args John W. Eaton <jwe@octave.org> parents: 7129 diff changeset	157
b5731e43283a ismember: correctly size idx output for empty args John W. Eaton <jwe@octave.org> parents: 7129 diff changeset	158 %!test
b5731e43283a ismember: correctly size idx output for empty args John W. Eaton <jwe@octave.org> parents: 7129 diff changeset	159 %! [result, a_idx] = ismember ({'a', 'b'}, '');
b5731e43283a ismember: correctly size idx output for empty args John W. Eaton <jwe@octave.org> parents: 7129 diff changeset	160 %! assert (result, logical ([0, 0]))
b5731e43283a ismember: correctly size idx output for empty args John W. Eaton <jwe@octave.org> parents: 7129 diff changeset	161 %! assert (a_idx, [0, 0]);
b5731e43283a ismember: correctly size idx output for empty args John W. Eaton <jwe@octave.org> parents: 7129 diff changeset	162
b5731e43283a ismember: correctly size idx output for empty args John W. Eaton <jwe@octave.org> parents: 7129 diff changeset	163 %!test
b5731e43283a ismember: correctly size idx output for empty args John W. Eaton <jwe@octave.org> parents: 7129 diff changeset	164 %! [result, a_idx] = ismember ({'a', 'b'}, {});
b5731e43283a ismember: correctly size idx output for empty args John W. Eaton <jwe@octave.org> parents: 7129 diff changeset	165 %! assert (result, logical ([0, 0]))
b5731e43283a ismember: correctly size idx output for empty args John W. Eaton <jwe@octave.org> parents: 7129 diff changeset	166 %! assert (a_idx, [0, 0]);
b5731e43283a ismember: correctly size idx output for empty args John W. Eaton <jwe@octave.org> parents: 7129 diff changeset	167
b5731e43283a ismember: correctly size idx output for empty args John W. Eaton <jwe@octave.org> parents: 7129 diff changeset	168 %!test
b5731e43283a ismember: correctly size idx output for empty args John W. Eaton <jwe@octave.org> parents: 7129 diff changeset	169 %! [result, a_idx] = ismember ('', {'a', 'b'});
b5731e43283a ismember: correctly size idx output for empty args John W. Eaton <jwe@octave.org> parents: 7129 diff changeset	170 %! assert (result, false)
b5731e43283a ismember: correctly size idx output for empty args John W. Eaton <jwe@octave.org> parents: 7129 diff changeset	171 %! assert (a_idx, 0);
b5731e43283a ismember: correctly size idx output for empty args John W. Eaton <jwe@octave.org> parents: 7129 diff changeset	172
b5731e43283a ismember: correctly size idx output for empty args John W. Eaton <jwe@octave.org> parents: 7129 diff changeset	173 %!test
b5731e43283a ismember: correctly size idx output for empty args John W. Eaton <jwe@octave.org> parents: 7129 diff changeset	174 %! [result, a_idx] = ismember ({}, {'a', 'b'});
b5731e43283a ismember: correctly size idx output for empty args John W. Eaton <jwe@octave.org> parents: 7129 diff changeset	175 %! assert (result, logical ([]))
b5731e43283a ismember: correctly size idx output for empty args John W. Eaton <jwe@octave.org> parents: 7129 diff changeset	176 %! assert (a_idx, []);
b5731e43283a ismember: correctly size idx output for empty args John W. Eaton <jwe@octave.org> parents: 7129 diff changeset	177
b5731e43283a ismember: correctly size idx output for empty args John W. Eaton <jwe@octave.org> parents: 7129 diff changeset	178 %!test
7128 73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	179 %! [result, a_idx] = ismember([1 2 3 4 5], [3]);
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	180 %! assert (all (result == logical ([0 0 1 0 0])) && all (a_idx == [0 0 1 0 0]));
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	181
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	182 %!test
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	183 %! [result, a_idx] = ismember([1 6], [1 2 3 4 5 1 6 1]);
9345 dbc61d4e428d optimize ismember Jaroslav Hajek <highegg@gmail.com> parents: 9276 diff changeset	184 %! assert (all (result == logical ([1 1])) && a_idx(2) == 7);
7128 73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	185
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	186 %!test
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	187 %! [result, a_idx] = ismember ([3,10,1], [0,1,2,3,4,5,6,7,8,9]);
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	188 %! assert (all (result == logical ([1, 0, 1])) && all (a_idx == [4, 0, 2]));
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	189
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	190 %!test
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	191 %! [result, a_idx] = ismember ("1.1", "0123456789.1");
9364 6c255e51ef7e improve & fix ismember Jaroslav Hajek <highegg@gmail.com> parents: 9345 diff changeset	192 %! assert (all (result == logical ([1, 1, 1])) && all (a_idx == [12, 11, 12]));
7128 73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	193
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	194 %!test
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	195 %! [result, a_idx] = ismember([1:3; 5:7; 4:6], [0:2; 1:3; 2:4; 3:5; 4:6], 'rows');
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	196 %! assert (all (result == logical ([1; 0; 1])) && all (a_idx == [2; 0; 5]));
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	197
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	198 %!test
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	199 %! [result, a_idx] = ismember([1.1,1.2,1.3; 2.1,2.2,2.3; 10,11,12], [1.1,1.2,1.3; 10,11,12; 2.12,2.22,2.32], 'rows');
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	200 %! assert (all (result == logical ([1; 0; 1])) && all (a_idx == [1; 0; 2]));
73308b8f8777 [project @ 2007-11-08 03:55:04 by jwe] jwe parents: 7077 diff changeset	201

Mercurial > hg > octave-nkf

annotate scripts/set/ismember.m @ 10509:ddbd812d09aa