Mercurial > octave-nkf
annotate scripts/set/unique.m @ 11587:c792872f8942
all script files: untabify and strip trailing whitespace
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Thu, 20 Jan 2011 17:35:29 -0500 |
parents | 3c6e8aaa9555 |
children | 72c96de7a403 |
rev | line source |
---|---|
11523 | 1 ## Copyright (C) 2000-2011 Paul Kienzle |
2 ## Copyright (C) 2008-2009 Jaroslav Hajek | |
7016 | 3 ## |
4 ## This file is part of Octave. | |
5165 | 5 ## |
7016 | 6 ## Octave is free software; you can redistribute it and/or modify it |
7 ## under the terms of the GNU General Public License as published by | |
8 ## the Free Software Foundation; either version 3 of the License, or (at | |
9 ## your option) any later version. | |
5165 | 10 ## |
7016 | 11 ## Octave is distributed in the hope that it will be useful, but |
12 ## WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
14 ## General Public License for more details. | |
5165 | 15 ## |
16 ## You should have received a copy of the GNU General Public License | |
7016 | 17 ## along with Octave; see the file COPYING. If not, see |
18 ## <http://www.gnu.org/licenses/>. | |
5165 | 19 |
20 ## -*- texinfo -*- | |
10793
be55736a0783
Grammarcheck the documentation from m-files.
Rik <octave@nomad.inbox5.com>
parents:
10373
diff
changeset
|
21 ## @deftypefn {Function File} {} unique (@var{x}) |
8887 | 22 ## @deftypefnx {Function File} {} unique (@var{x}, "rows") |
23 ## @deftypefnx {Function File} {} unique (@dots{}, "first") | |
24 ## @deftypefnx {Function File} {} unique (@dots{}, "last") | |
25 ## @deftypefnx {Function File} {[@var{y}, @var{i}, @var{j}] =} unique (@dots{}) | |
5165 | 26 ## Return the unique elements of @var{x}, sorted in ascending order. |
11563
3c6e8aaa9555
Grammarcheck m-files before 3.4 release.
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
27 ## If the input @var{x} is a vector then the output is also a vector with the |
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11563
diff
changeset
|
28 ## same orientation (row or column) as the input. For a matrix input the |
10882
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
29 ## output is always a column vector. @var{x} may also be a cell array of |
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
30 ## strings. |
5165 | 31 ## |
8887 | 32 ## If the optional argument @code{"rows"} is supplied, return the unique |
33 ## rows of @var{x}, sorted in ascending order. | |
5165 | 34 ## |
8887 | 35 ## If requested, return index vectors @var{i} and @var{j} such that |
36 ## @code{x(i)==y} and @code{y(j)==x}. | |
37 ## | |
10882
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
38 ## Additionally, if @var{i} is a requested output then one of @code{"first"} or |
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11563
diff
changeset
|
39 ## @code{"last"} may be given as an input. If @code{"last"} is specified, |
10882
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
40 ## return the highest possible indices in @var{i}, otherwise, if @code{"first"} |
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
41 ## is specified, return the lowest. The default is @code{"last"}. |
5642 | 42 ## @seealso{union, intersect, setdiff, setxor, ismember} |
5165 | 43 ## @end deftypefn |
44 | |
7920
e56bb65186f6
improve set functions for Matlab compatibility
Jaroslav Hajek <highegg@gmail.com>
parents:
7650
diff
changeset
|
45 function [y, i, j] = unique (x, varargin) |
5165 | 46 |
7920
e56bb65186f6
improve set functions for Matlab compatibility
Jaroslav Hajek <highegg@gmail.com>
parents:
7650
diff
changeset
|
47 if (nargin < 1) |
6046 | 48 print_usage (); |
5165 | 49 endif |
50 | |
8412
970b4dbff9e4
optimize unique called with a single argument
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
7920
diff
changeset
|
51 if (nargin > 1) |
970b4dbff9e4
optimize unique called with a single argument
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
7920
diff
changeset
|
52 ## parse options |
970b4dbff9e4
optimize unique called with a single argument
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
7920
diff
changeset
|
53 if (iscellstr (varargin)) |
8413
b8de157b4948
ChangeLog entry and style fixes for last two patches
Jaroslav Hajek <highegg@gmail.com>
parents:
8412
diff
changeset
|
54 varargin = unique (varargin); |
10882
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
55 optfirst = strmatch ("first", varargin, "exact") > 0; |
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
56 optlast = strmatch ("last", varargin, "exact") > 0; |
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
57 optrows = strmatch ("rows", varargin, "exact") > 0; |
8412
970b4dbff9e4
optimize unique called with a single argument
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
7920
diff
changeset
|
58 if (optfirst && optlast) |
10882
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
59 error ('unique: cannot specify both "last" and "first"'); |
8412
970b4dbff9e4
optimize unique called with a single argument
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
7920
diff
changeset
|
60 elseif (optfirst + optlast + optrows != nargin-1) |
8664 | 61 error ("unique: invalid option"); |
8412
970b4dbff9e4
optimize unique called with a single argument
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
7920
diff
changeset
|
62 endif |
970b4dbff9e4
optimize unique called with a single argument
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
7920
diff
changeset
|
63 else |
970b4dbff9e4
optimize unique called with a single argument
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
7920
diff
changeset
|
64 error ("unique: options must be strings"); |
7920
e56bb65186f6
improve set functions for Matlab compatibility
Jaroslav Hajek <highegg@gmail.com>
parents:
7650
diff
changeset
|
65 endif |
e56bb65186f6
improve set functions for Matlab compatibility
Jaroslav Hajek <highegg@gmail.com>
parents:
7650
diff
changeset
|
66 |
8412
970b4dbff9e4
optimize unique called with a single argument
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
7920
diff
changeset
|
67 if (optrows && iscell (x)) |
10882
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
68 warning ('unique: "rows" is ignored for cell arrays'); |
7920
e56bb65186f6
improve set functions for Matlab compatibility
Jaroslav Hajek <highegg@gmail.com>
parents:
7650
diff
changeset
|
69 optrows = false; |
e56bb65186f6
improve set functions for Matlab compatibility
Jaroslav Hajek <highegg@gmail.com>
parents:
7650
diff
changeset
|
70 endif |
8412
970b4dbff9e4
optimize unique called with a single argument
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
7920
diff
changeset
|
71 else |
10882
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
72 optfirst = false; |
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
73 optrows = false; |
7920
e56bb65186f6
improve set functions for Matlab compatibility
Jaroslav Hajek <highegg@gmail.com>
parents:
7650
diff
changeset
|
74 endif |
e56bb65186f6
improve set functions for Matlab compatibility
Jaroslav Hajek <highegg@gmail.com>
parents:
7650
diff
changeset
|
75 |
10373
1f11fabfa349
improve performance of unique for sparse arrays
John W. Eaton <jwe@octave.org>
parents:
10372
diff
changeset
|
76 ## FIXME -- the operations |
1f11fabfa349
improve performance of unique for sparse arrays
John W. Eaton <jwe@octave.org>
parents:
10372
diff
changeset
|
77 ## |
1f11fabfa349
improve performance of unique for sparse arrays
John W. Eaton <jwe@octave.org>
parents:
10372
diff
changeset
|
78 ## match = (y(1:n-1) == y(2:n)); |
1f11fabfa349
improve performance of unique for sparse arrays
John W. Eaton <jwe@octave.org>
parents:
10372
diff
changeset
|
79 ## y(idx) = []; |
1f11fabfa349
improve performance of unique for sparse arrays
John W. Eaton <jwe@octave.org>
parents:
10372
diff
changeset
|
80 ## |
1f11fabfa349
improve performance of unique for sparse arrays
John W. Eaton <jwe@octave.org>
parents:
10372
diff
changeset
|
81 ## are very slow on sparse matrices. Until they are fixed to be as |
1f11fabfa349
improve performance of unique for sparse arrays
John W. Eaton <jwe@octave.org>
parents:
10372
diff
changeset
|
82 ## fast as for full matrices, operate on the nonzero elements of the |
1f11fabfa349
improve performance of unique for sparse arrays
John W. Eaton <jwe@octave.org>
parents:
10372
diff
changeset
|
83 ## sparse array as long as we are not operating on rows. |
1f11fabfa349
improve performance of unique for sparse arrays
John W. Eaton <jwe@octave.org>
parents:
10372
diff
changeset
|
84 |
11097
ffb2f1ef2097
make issparse, sparse, and spalloc built-in functions
John W. Eaton <jwe@octave.org>
parents:
10885
diff
changeset
|
85 if (issparse (x) && ! optrows && nargout <= 1) |
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11563
diff
changeset
|
86 if (nnz (x) < numel (x)) |
11097
ffb2f1ef2097
make issparse, sparse, and spalloc built-in functions
John W. Eaton <jwe@octave.org>
parents:
10885
diff
changeset
|
87 y = unique ([0; (full (nonzeros (x)))], varargin{:}); |
ffb2f1ef2097
make issparse, sparse, and spalloc built-in functions
John W. Eaton <jwe@octave.org>
parents:
10885
diff
changeset
|
88 else |
ffb2f1ef2097
make issparse, sparse, and spalloc built-in functions
John W. Eaton <jwe@octave.org>
parents:
10885
diff
changeset
|
89 ## Corner case where sparse matrix is actually full |
ffb2f1ef2097
make issparse, sparse, and spalloc built-in functions
John W. Eaton <jwe@octave.org>
parents:
10885
diff
changeset
|
90 y = unique (full (x), varargin{:}); |
10373
1f11fabfa349
improve performance of unique for sparse arrays
John W. Eaton <jwe@octave.org>
parents:
10372
diff
changeset
|
91 endif |
11097
ffb2f1ef2097
make issparse, sparse, and spalloc built-in functions
John W. Eaton <jwe@octave.org>
parents:
10885
diff
changeset
|
92 return; |
10373
1f11fabfa349
improve performance of unique for sparse arrays
John W. Eaton <jwe@octave.org>
parents:
10372
diff
changeset
|
93 endif |
1f11fabfa349
improve performance of unique for sparse arrays
John W. Eaton <jwe@octave.org>
parents:
10372
diff
changeset
|
94 |
7920
e56bb65186f6
improve set functions for Matlab compatibility
Jaroslav Hajek <highegg@gmail.com>
parents:
7650
diff
changeset
|
95 if (optrows) |
10882
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
96 n = rows (x); |
8502
d437e8dc18fa
make unique work for row vectors
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
8413
diff
changeset
|
97 dim = 1; |
7920
e56bb65186f6
improve set functions for Matlab compatibility
Jaroslav Hajek <highegg@gmail.com>
parents:
7650
diff
changeset
|
98 else |
6609 | 99 n = numel (x); |
10882
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
100 dim = (rows (x) == 1) + 1; |
5165 | 101 endif |
102 | |
5168 | 103 y = x; |
10882
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
104 ## Special cases 0 and 1 |
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
105 if (n == 0) |
10372
634e182d34e4
unique.m: return 0x1 for empty matrices with some nonzero dims; preserve class of argument; new tests
John W. Eaton <jwe@octave.org>
parents:
10088
diff
changeset
|
106 if (! optrows && isempty (x) && any (size (x))) |
634e182d34e4
unique.m: return 0x1 for empty matrices with some nonzero dims; preserve class of argument; new tests
John W. Eaton <jwe@octave.org>
parents:
10088
diff
changeset
|
107 if (iscell (y)) |
634e182d34e4
unique.m: return 0x1 for empty matrices with some nonzero dims; preserve class of argument; new tests
John W. Eaton <jwe@octave.org>
parents:
10088
diff
changeset
|
108 y = cell (0, 1); |
634e182d34e4
unique.m: return 0x1 for empty matrices with some nonzero dims; preserve class of argument; new tests
John W. Eaton <jwe@octave.org>
parents:
10088
diff
changeset
|
109 else |
634e182d34e4
unique.m: return 0x1 for empty matrices with some nonzero dims; preserve class of argument; new tests
John W. Eaton <jwe@octave.org>
parents:
10088
diff
changeset
|
110 y = zeros (0, 1, class (y)); |
634e182d34e4
unique.m: return 0x1 for empty matrices with some nonzero dims; preserve class of argument; new tests
John W. Eaton <jwe@octave.org>
parents:
10088
diff
changeset
|
111 endif |
634e182d34e4
unique.m: return 0x1 for empty matrices with some nonzero dims; preserve class of argument; new tests
John W. Eaton <jwe@octave.org>
parents:
10088
diff
changeset
|
112 endif |
5165 | 113 i = j = []; |
5168 | 114 return; |
10882
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
115 elseif (n == 1) |
5165 | 116 i = j = 1; |
5168 | 117 return; |
5165 | 118 endif |
119 | |
7920
e56bb65186f6
improve set functions for Matlab compatibility
Jaroslav Hajek <highegg@gmail.com>
parents:
7650
diff
changeset
|
120 if (optrows) |
10882
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
121 if (nargout > 1) |
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
122 [y, i] = sortrows (y); |
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
123 else |
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
124 y = sortrows (y); |
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
125 endif |
7920
e56bb65186f6
improve set functions for Matlab compatibility
Jaroslav Hajek <highegg@gmail.com>
parents:
7650
diff
changeset
|
126 match = all (y(1:n-1,:) == y(2:n,:), 2); |
5165 | 127 idx = find (match); |
5168 | 128 y(idx,:) = []; |
5165 | 129 else |
10882
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
130 if (! isvector (y)) |
5168 | 131 y = y(:); |
132 endif | |
10882
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
133 if (nargout > 1) |
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
134 [y, i] = sort (y); |
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
135 else |
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
136 y = sort (y); |
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
137 endif |
5205 | 138 if (iscell (y)) |
7920
e56bb65186f6
improve set functions for Matlab compatibility
Jaroslav Hajek <highegg@gmail.com>
parents:
7650
diff
changeset
|
139 match = strcmp (y(1:n-1), y(2:n)); |
5205 | 140 else |
7920
e56bb65186f6
improve set functions for Matlab compatibility
Jaroslav Hajek <highegg@gmail.com>
parents:
7650
diff
changeset
|
141 match = (y(1:n-1) == y(2:n)); |
5205 | 142 endif |
5165 | 143 idx = find (match); |
5168 | 144 y(idx) = []; |
5165 | 145 endif |
146 | |
10882
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
147 if (isargout (3)) |
5165 | 148 j = i; |
8502
d437e8dc18fa
make unique work for row vectors
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
8413
diff
changeset
|
149 if (dim == 1) |
d437e8dc18fa
make unique work for row vectors
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
8413
diff
changeset
|
150 j(i) = cumsum ([1; !match]); |
d437e8dc18fa
make unique work for row vectors
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
8413
diff
changeset
|
151 else |
d437e8dc18fa
make unique work for row vectors
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
8413
diff
changeset
|
152 j(i) = cumsum ([1, !match]); |
8610
85c9906abfd1
use endif and endfor instead of end
John W. Eaton <jwe@octave.org>
parents:
8502
diff
changeset
|
153 endif |
5165 | 154 endif |
8412
970b4dbff9e4
optimize unique called with a single argument
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
7920
diff
changeset
|
155 |
10882
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
156 if (isargout (2)) |
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
157 if (optfirst) |
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
158 i(idx+1) = []; |
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
159 else |
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
160 i(idx) = []; |
055b95863699
unique.m: Improve performance by only calculating necessary outputs.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
161 endif |
7920
e56bb65186f6
improve set functions for Matlab compatibility
Jaroslav Hajek <highegg@gmail.com>
parents:
7650
diff
changeset
|
162 endif |
5165 | 163 |
164 endfunction | |
165 | |
166 %!assert(unique([1 1 2; 1 2 1; 1 1 2]),[1;2]) | |
167 %!assert(unique([1 1 2; 1 0 1; 1 1 2],'rows'),[1 0 1; 1 1 2]) | |
168 %!assert(unique([]),[]) | |
169 %!assert(unique([1]),[1]) | |
170 %!assert(unique([1 2]),[1 2]) | |
171 %!assert(unique([1;2]),[1;2]) | |
172 %!assert(unique([1,NaN,Inf,NaN,Inf]),[1,Inf,NaN,NaN]) | |
5205 | 173 %!assert(unique({'Foo','Bar','Foo'}),{'Bar','Foo'}) |
8502
d437e8dc18fa
make unique work for row vectors
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
8413
diff
changeset
|
174 %!assert(unique({'Foo','Bar','FooBar'}'),{'Bar','Foo','FooBar'}') |
10372
634e182d34e4
unique.m: return 0x1 for empty matrices with some nonzero dims; preserve class of argument; new tests
John W. Eaton <jwe@octave.org>
parents:
10088
diff
changeset
|
175 %!assert(unique(zeros(1,0)), zeros(0,1)) |
634e182d34e4
unique.m: return 0x1 for empty matrices with some nonzero dims; preserve class of argument; new tests
John W. Eaton <jwe@octave.org>
parents:
10088
diff
changeset
|
176 %!assert(unique(zeros(1,0), 'rows'), zeros(1,0)) |
634e182d34e4
unique.m: return 0x1 for empty matrices with some nonzero dims; preserve class of argument; new tests
John W. Eaton <jwe@octave.org>
parents:
10088
diff
changeset
|
177 %!assert(unique(cell(1,0)), cell(0,1)) |
634e182d34e4
unique.m: return 0x1 for empty matrices with some nonzero dims; preserve class of argument; new tests
John W. Eaton <jwe@octave.org>
parents:
10088
diff
changeset
|
178 %!assert(unique({}), {}) |
634e182d34e4
unique.m: return 0x1 for empty matrices with some nonzero dims; preserve class of argument; new tests
John W. Eaton <jwe@octave.org>
parents:
10088
diff
changeset
|
179 %!assert(unique([1,2,2,3,2,4], 'rows'), [1,2,2,3,2,4]) |
634e182d34e4
unique.m: return 0x1 for empty matrices with some nonzero dims; preserve class of argument; new tests
John W. Eaton <jwe@octave.org>
parents:
10088
diff
changeset
|
180 %!assert(unique([1,2,2,3,2,4]), [1,2,3,4]) |
634e182d34e4
unique.m: return 0x1 for empty matrices with some nonzero dims; preserve class of argument; new tests
John W. Eaton <jwe@octave.org>
parents:
10088
diff
changeset
|
181 %!assert(unique([1,2,2,3,2,4]', 'rows'), [1,2,3,4]') |
10885
36a7163a5484
unique.m: Handle corner case where sparse matrix is actually full.
Rik <octave@nomad.inbox5.com>
parents:
10882
diff
changeset
|
182 %!assert(unique(sparse([2,0;2,0])), [0,2]') |
36a7163a5484
unique.m: Handle corner case where sparse matrix is actually full.
Rik <octave@nomad.inbox5.com>
parents:
10882
diff
changeset
|
183 %!assert(unique(sparse([1,2;2,3])), [1,2,3]') |
36a7163a5484
unique.m: Handle corner case where sparse matrix is actually full.
Rik <octave@nomad.inbox5.com>
parents:
10882
diff
changeset
|
184 %!assert(unique([1,2,2,3,2,4]', 'rows'), [1,2,3,4]') |
10372
634e182d34e4
unique.m: return 0x1 for empty matrices with some nonzero dims; preserve class of argument; new tests
John W. Eaton <jwe@octave.org>
parents:
10088
diff
changeset
|
185 %!assert(unique(single([1,2,2,3,2,4]), 'rows'), single([1,2,2,3,2,4])) |
634e182d34e4
unique.m: return 0x1 for empty matrices with some nonzero dims; preserve class of argument; new tests
John W. Eaton <jwe@octave.org>
parents:
10088
diff
changeset
|
186 %!assert(unique(single([1,2,2,3,2,4])), single([1,2,3,4])) |
634e182d34e4
unique.m: return 0x1 for empty matrices with some nonzero dims; preserve class of argument; new tests
John W. Eaton <jwe@octave.org>
parents:
10088
diff
changeset
|
187 %!assert(unique(single([1,2,2,3,2,4]'), 'rows'), single([1,2,3,4]')) |
634e182d34e4
unique.m: return 0x1 for empty matrices with some nonzero dims; preserve class of argument; new tests
John W. Eaton <jwe@octave.org>
parents:
10088
diff
changeset
|
188 %!assert(unique(uint8([1,2,2,3,2,4]), 'rows'), uint8([1,2,2,3,2,4])) |
634e182d34e4
unique.m: return 0x1 for empty matrices with some nonzero dims; preserve class of argument; new tests
John W. Eaton <jwe@octave.org>
parents:
10088
diff
changeset
|
189 %!assert(unique(uint8([1,2,2,3,2,4])), uint8([1,2,3,4])) |
634e182d34e4
unique.m: return 0x1 for empty matrices with some nonzero dims; preserve class of argument; new tests
John W. Eaton <jwe@octave.org>
parents:
10088
diff
changeset
|
190 %!assert(unique(uint8([1,2,2,3,2,4]'), 'rows'), uint8([1,2,3,4]')) |
7920
e56bb65186f6
improve set functions for Matlab compatibility
Jaroslav Hajek <highegg@gmail.com>
parents:
7650
diff
changeset
|
191 %!test |
e56bb65186f6
improve set functions for Matlab compatibility
Jaroslav Hajek <highegg@gmail.com>
parents:
7650
diff
changeset
|
192 %! [a,i,j] = unique([1,1,2,3,3,3,4]); |
e56bb65186f6
improve set functions for Matlab compatibility
Jaroslav Hajek <highegg@gmail.com>
parents:
7650
diff
changeset
|
193 %! assert(a,[1,2,3,4]) |
e56bb65186f6
improve set functions for Matlab compatibility
Jaroslav Hajek <highegg@gmail.com>
parents:
7650
diff
changeset
|
194 %! assert(i,[2,3,6,7]) |
e56bb65186f6
improve set functions for Matlab compatibility
Jaroslav Hajek <highegg@gmail.com>
parents:
7650
diff
changeset
|
195 %! assert(j,[1,1,2,3,3,3,4]) |
e56bb65186f6
improve set functions for Matlab compatibility
Jaroslav Hajek <highegg@gmail.com>
parents:
7650
diff
changeset
|
196 %! |
e56bb65186f6
improve set functions for Matlab compatibility
Jaroslav Hajek <highegg@gmail.com>
parents:
7650
diff
changeset
|
197 %!test |
8502
d437e8dc18fa
make unique work for row vectors
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
8413
diff
changeset
|
198 %! [a,i,j] = unique([1,1,2,3,3,3,4]','first'); |
d437e8dc18fa
make unique work for row vectors
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
8413
diff
changeset
|
199 %! assert(a,[1,2,3,4]') |
d437e8dc18fa
make unique work for row vectors
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
8413
diff
changeset
|
200 %! assert(i,[1,3,4,7]') |
d437e8dc18fa
make unique work for row vectors
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
8413
diff
changeset
|
201 %! assert(j,[1,1,2,3,3,3,4]') |
d437e8dc18fa
make unique work for row vectors
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
8413
diff
changeset
|
202 %! |
d437e8dc18fa
make unique work for row vectors
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
8413
diff
changeset
|
203 %!test |
d437e8dc18fa
make unique work for row vectors
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
8413
diff
changeset
|
204 %! [a,i,j] = unique({'z'; 'z'; 'z'}); |
d437e8dc18fa
make unique work for row vectors
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
8413
diff
changeset
|
205 %! assert(a,{'z'}) |
d437e8dc18fa
make unique work for row vectors
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
8413
diff
changeset
|
206 %! assert(i,[3]') |
d437e8dc18fa
make unique work for row vectors
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
8413
diff
changeset
|
207 %! assert(j,[1,1,1]') |
d437e8dc18fa
make unique work for row vectors
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
8413
diff
changeset
|
208 %! |
d437e8dc18fa
make unique work for row vectors
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
8413
diff
changeset
|
209 %!test |
d437e8dc18fa
make unique work for row vectors
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
8413
diff
changeset
|
210 %! A=[1,2,3;1,2,3]; |
d437e8dc18fa
make unique work for row vectors
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
8413
diff
changeset
|
211 %! [a,i,j] = unique(A,'rows'); |
d437e8dc18fa
make unique work for row vectors
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
8413
diff
changeset
|
212 %! assert(a,[1,2,3]) |
d437e8dc18fa
make unique work for row vectors
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
8413
diff
changeset
|
213 %! assert(A(i,:),a) |
d437e8dc18fa
make unique work for row vectors
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
8413
diff
changeset
|
214 %! assert(a(j,:),A) |