Mercurial > octave-nkf
annotate libinterp/corefcn/max.cc @ 20626:5fc798a9b32c
maint: Periodic merge of stable to default.
author | Rik <rik@octave.org> |
---|---|
date | Fri, 09 Oct 2015 19:28:05 -0700 |
parents | f90c8372b7ba |
children |
rev | line source |
---|---|
2928 | 1 /* |
2 | |
19731
4197fc428c7d
maint: Update copyright notices for 2015.
John W. Eaton <jwe@octave.org>
parents:
19625
diff
changeset
|
3 Copyright (C) 1996-2015 John W. Eaton |
8777
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
4 Copyright (C) 2009 VZLU Prague |
2928 | 5 |
6 This file is part of Octave. | |
7 | |
8 Octave is free software; you can redistribute it and/or modify it | |
9 under the terms of the GNU General Public License as published by the | |
7016 | 10 Free Software Foundation; either version 3 of the License, or (at your |
11 option) any later version. | |
2928 | 12 |
13 Octave is distributed in the hope that it will be useful, but WITHOUT | |
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
16 for more details. | |
17 | |
18 You should have received a copy of the GNU General Public License | |
7016 | 19 along with Octave; see the file COPYING. If not, see |
20 <http://www.gnu.org/licenses/>. | |
2928 | 21 |
22 */ | |
23 | |
24 #ifdef HAVE_CONFIG_H | |
25 #include <config.h> | |
26 #endif | |
27 | |
28 #include "lo-ieee.h" | |
3248 | 29 #include "lo-mappers.h" |
7231 | 30 #include "lo-math.h" |
4844 | 31 #include "dNDArray.h" |
32 #include "CNDArray.h" | |
4153 | 33 #include "quit.h" |
2928 | 34 |
15039
e753177cde93
maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory
Rik <rik@octave.org>
parents:
14501
diff
changeset
|
35 #include "defun.h" |
2928 | 36 #include "error.h" |
37 #include "gripes.h" | |
38 #include "oct-obj.h" | |
39 | |
4844 | 40 #include "ov-cx-mat.h" |
7505
f5005d9510f4
Remove dispatched sparse functions and treat in the generic versions of the functions
David Bateman <dbateman@free.fr>
parents:
7231
diff
changeset
|
41 #include "ov-re-sparse.h" |
f5005d9510f4
Remove dispatched sparse functions and treat in the generic versions of the functions
David Bateman <dbateman@free.fr>
parents:
7231
diff
changeset
|
42 #include "ov-cx-sparse.h" |
4844 | 43 |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
44 template <class ArrayType> |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
45 static octave_value_list |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
46 do_minmax_red_op (const octave_value& arg, |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
47 int nargout, int dim, bool ismin) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
48 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
49 octave_value_list retval; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
50 ArrayType array = octave_value_extract<ArrayType> (arg); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
51 |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
52 if (nargout == 2) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
53 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
54 retval.resize (2); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
55 Array<octave_idx_type> idx; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
56 if (ismin) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
57 retval(0) = array.min (idx, dim); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
58 else |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
59 retval(0) = array.max (idx, dim); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
60 |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
61 retval(1) = octave_value (idx, true, true); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
62 } |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
63 else |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
64 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
65 if (ismin) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
66 retval(0) = array.min (dim); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
67 else |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
68 retval(0) = array.max (dim); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
69 } |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
70 |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
71 return retval; |
8777
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
72 } |
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
73 |
16370
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
74 // Matlab returns double arrays for min/max operations on character |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
75 // arrays, so we specialize here to get that behavior. Other possible |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
76 // solutions are to convert the argument to double here and call the |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
77 // code for double, but that could waste memory, or to have the |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
78 // underlying charNDArray::min/max functions return NDArray instead of |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
79 // charNDArray, but that is inconsistent with the way other min/max |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
80 // functions work. |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
81 |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
82 template <> |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
83 octave_value_list |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
84 do_minmax_red_op<charNDArray> (const octave_value& arg, |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
85 int nargout, int dim, bool ismin) |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
86 { |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
87 octave_value_list retval; |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
88 charNDArray array = octave_value_extract<charNDArray> (arg); |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
89 |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
90 if (nargout == 2) |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
91 { |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
92 retval.resize (2); |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
93 Array<octave_idx_type> idx; |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
94 if (ismin) |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
95 retval(0) = NDArray (array.min (idx, dim)); |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
96 else |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
97 retval(0) = NDArray (array.max (idx, dim)); |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
98 |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
99 retval(1) = octave_value (idx, true, true); |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
100 } |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
101 else |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
102 { |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
103 if (ismin) |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
104 retval(0) = NDArray (array.min (dim)); |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
105 else |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
106 retval(0) = NDArray (array.max (dim)); |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
107 } |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
108 |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
109 return retval; |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
110 } |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
111 |
9993
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
112 // Specialization for bool arrays. |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
113 template <> |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
114 octave_value_list |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
115 do_minmax_red_op<boolNDArray> (const octave_value& arg, |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
116 int nargout, int dim, bool ismin) |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
117 { |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
118 octave_value_list retval; |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
119 |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
120 if (nargout <= 1) |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
121 { |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
122 // This case can be handled using any/all. |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
123 boolNDArray array = arg.bool_array_value (); |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
124 |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
125 if (array.is_empty ()) |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
126 retval(0) = array; |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
127 else if (ismin) |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
128 retval(0) = array.all (dim); |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
129 else |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
130 retval(0) = array.any (dim); |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
131 } |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
132 else |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
133 { |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
134 // any/all don't have indexed versions, so do it via a conversion. |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
135 retval = do_minmax_red_op<int8NDArray> (arg, nargout, dim, ismin); |
20587
f90c8372b7ba
eliminate many more simple uses of error_state
John W. Eaton <jwe@octave.org>
parents:
20263
diff
changeset
|
136 |
f90c8372b7ba
eliminate many more simple uses of error_state
John W. Eaton <jwe@octave.org>
parents:
20263
diff
changeset
|
137 retval(0) = retval(0).bool_array_value (); |
9993
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
138 } |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
139 |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
140 return retval; |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
141 } |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
142 |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
143 template <class ArrayType> |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
144 static octave_value |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
145 do_minmax_bin_op (const octave_value& argx, const octave_value& argy, |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
146 bool ismin) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
147 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
148 typedef typename ArrayType::element_type ScalarType; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
149 |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
150 octave_value retval; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
151 |
19446
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
152 if (argx.is_scalar_type ()) |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
153 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
154 ScalarType x = octave_value_extract<ScalarType> (argx); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
155 ArrayType y = octave_value_extract<ArrayType> (argy); |
7189 | 156 |
20587
f90c8372b7ba
eliminate many more simple uses of error_state
John W. Eaton <jwe@octave.org>
parents:
20263
diff
changeset
|
157 if (ismin) |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
158 retval = min (x, y); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
159 else |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
160 retval = max (x, y); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
161 } |
19446
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
162 else if (argy.is_scalar_type ()) |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
163 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
164 ArrayType x = octave_value_extract<ArrayType> (argx); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
165 ScalarType y = octave_value_extract<ScalarType> (argy); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
166 |
20587
f90c8372b7ba
eliminate many more simple uses of error_state
John W. Eaton <jwe@octave.org>
parents:
20263
diff
changeset
|
167 if (ismin) |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
168 retval = min (x, y); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
169 else |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
170 retval = max (x, y); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
171 } |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
172 else |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
173 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
174 ArrayType x = octave_value_extract<ArrayType> (argx); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
175 ArrayType y = octave_value_extract<ArrayType> (argy); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
176 |
20587
f90c8372b7ba
eliminate many more simple uses of error_state
John W. Eaton <jwe@octave.org>
parents:
20263
diff
changeset
|
177 if (ismin) |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
178 retval = min (x, y); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
179 else |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
180 retval = max (x, y); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
181 } |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
182 |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
183 return retval; |
8777
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
184 } |
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
185 |
16370
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
186 // Matlab returns double arrays for min/max operations on character |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
187 // arrays, so we specialize here to get that behavior. Other possible |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
188 // solutions are to convert the arguments to double here and call the |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
189 // code for double, but that could waste a lot of memory, or to have the |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
190 // underlying charNDArray::min/max functions return NDArray instead of |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
191 // charNDArray, but that is inconsistent with the way other min/max |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
192 // functions work. |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
193 |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
194 template <> |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
195 octave_value |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
196 do_minmax_bin_op<charNDArray> (const octave_value& argx, |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
197 const octave_value& argy, bool ismin) |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
198 { |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
199 octave_value retval; |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
200 |
19446
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
201 charNDArray x = octave_value_extract<charNDArray> (argx); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
202 charNDArray y = octave_value_extract<charNDArray> (argy); |
16370
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
203 |
20587
f90c8372b7ba
eliminate many more simple uses of error_state
John W. Eaton <jwe@octave.org>
parents:
20263
diff
changeset
|
204 if (ismin) |
19446
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
205 { |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
206 if (x.numel () == 1) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
207 retval = NDArray (min (x(0), y)); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
208 else if (y.numel () == 1) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
209 retval = NDArray (min (x, y(0))); |
16370
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
210 else |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
211 retval = NDArray (min (x, y)); |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
212 } |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
213 else |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
214 { |
19446
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
215 if (x.numel () == 1) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
216 retval = NDArray (max (x(0), y)); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
217 else if (y.numel () == 1) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
218 retval = NDArray (max (x, y(0))); |
16370
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
219 else |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
220 retval = NDArray (max (x, y)); |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
221 } |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
222 |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
223 return retval; |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
224 } |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
225 |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
226 static octave_value_list |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
227 do_minmax_body (const octave_value_list& args, |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
228 int nargout, bool ismin) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
229 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
230 octave_value_list retval; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
231 |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
232 const char *func = ismin ? "min" : "max"; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
233 |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
234 int nargin = args.length (); |
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7662
diff
changeset
|
235 |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
236 if (nargin == 3 || nargin == 1) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
237 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
238 octave_value arg = args(0); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
239 int dim = -1; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
240 if (nargin == 3) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
241 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
242 dim = args(2).int_value (true) - 1; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
243 if (error_state || dim < 0) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
244 { |
11553
01f703952eff
Improve docstrings for functions in DLD-FUNCTIONS directory.
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
245 error ("%s: DIM must be a valid dimension", func); |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
246 return retval; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
247 } |
8777
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
248 |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
249 if (! args(1).is_empty ()) |
13717
fcdf0993b8c9
Fix segfault in do_minmax_bin_op (bug #34589)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
11586
diff
changeset
|
250 warning ("%s: second argument is ignored", func); |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
251 } |
7189 | 252 |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
253 switch (arg.builtin_type ()) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
254 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
255 case btyp_double: |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
256 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
257 if (arg.is_range () && (dim == -1 || dim == 1)) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
258 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
259 Range range = arg.range_value (); |
20263
00cf2847355d
Deprecate Array::nelem() and Range::nelem() in favour of ::numel().
Carnë Draug <carandraug@octave.org>
parents:
20207
diff
changeset
|
260 if (range.numel () < 1) |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
261 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
262 retval(0) = arg; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
263 if (nargout > 1) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
264 retval(1) = arg; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
265 } |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
266 else if (ismin) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
267 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
268 retval(0) = range.min (); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
269 if (nargout > 1) |
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
270 retval(1) = static_cast<double> |
20263
00cf2847355d
Deprecate Array::nelem() and Range::nelem() in favour of ::numel().
Carnë Draug <carandraug@octave.org>
parents:
20207
diff
changeset
|
271 (range.inc () < 0 ? range.numel () : 1); |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
272 } |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
273 else |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
274 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
275 retval(0) = range.max (); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
276 if (nargout > 1) |
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
277 retval(1) = static_cast<double> |
20263
00cf2847355d
Deprecate Array::nelem() and Range::nelem() in favour of ::numel().
Carnë Draug <carandraug@octave.org>
parents:
20207
diff
changeset
|
278 (range.inc () >= 0 ? range.numel () : 1); |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
279 } |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
280 } |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
281 else if (arg.is_sparse_type ()) |
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
282 retval = do_minmax_red_op<SparseMatrix> (arg, nargout, dim, |
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
283 ismin); |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
284 else |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
285 retval = do_minmax_red_op<NDArray> (arg, nargout, dim, ismin); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
286 break; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
287 } |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
288 case btyp_complex: |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
289 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
290 if (arg.is_sparse_type ()) |
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
291 retval = do_minmax_red_op<SparseComplexMatrix> (arg, nargout, dim, |
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
292 ismin); |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
293 else |
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
294 retval = do_minmax_red_op<ComplexNDArray> (arg, nargout, dim, |
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
295 ismin); |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
296 break; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
297 } |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
298 case btyp_float: |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
299 retval = do_minmax_red_op<FloatNDArray> (arg, nargout, dim, ismin); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
300 break; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
301 case btyp_float_complex: |
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
302 retval = do_minmax_red_op<FloatComplexNDArray> (arg, nargout, dim, |
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
303 ismin); |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
304 break; |
16370
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
305 case btyp_char: |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
306 retval = do_minmax_red_op<charNDArray> (arg, nargout, dim, ismin); |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
307 break; |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
308 #define MAKE_INT_BRANCH(X) \ |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
309 case btyp_ ## X: \ |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
310 retval = do_minmax_red_op<X ## NDArray> (arg, nargout, dim, ismin); \ |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
311 break; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
312 MAKE_INT_BRANCH (int8); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
313 MAKE_INT_BRANCH (int16); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
314 MAKE_INT_BRANCH (int32); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
315 MAKE_INT_BRANCH (int64); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
316 MAKE_INT_BRANCH (uint8); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
317 MAKE_INT_BRANCH (uint16); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
318 MAKE_INT_BRANCH (uint32); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
319 MAKE_INT_BRANCH (uint64); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
320 #undef MAKE_INT_BRANCH |
9993
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
321 case btyp_bool: |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
322 retval = do_minmax_red_op<boolNDArray> (arg, nargout, dim, ismin); |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
323 break; |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
324 default: |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
325 gripe_wrong_type_arg (func, arg); |
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
326 } |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
327 } |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
328 else if (nargin == 2) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
329 { |
18099
6a71e5030df5
Follow coding convention of defining and initializing only 1 variable per line in liboctinterp.
Rik <rik@octave.org>
parents:
18076
diff
changeset
|
330 octave_value argx = args(0); |
6a71e5030df5
Follow coding convention of defining and initializing only 1 variable per line in liboctinterp.
Rik <rik@octave.org>
parents:
18076
diff
changeset
|
331 octave_value argy = args(1); |
6a71e5030df5
Follow coding convention of defining and initializing only 1 variable per line in liboctinterp.
Rik <rik@octave.org>
parents:
18076
diff
changeset
|
332 builtin_type_t xtyp = argx.builtin_type (); |
6a71e5030df5
Follow coding convention of defining and initializing only 1 variable per line in liboctinterp.
Rik <rik@octave.org>
parents:
18076
diff
changeset
|
333 builtin_type_t ytyp = argy.builtin_type (); |
16370
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
334 builtin_type_t rtyp; |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
335 if (xtyp == btyp_char && ytyp == btyp_char) |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
336 rtyp = btyp_char; |
19446
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
337 /* |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
338 FIXME: This is what should happen when boolNDArray has max() |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
339 else if (xtyp == btyp_bool && ytyp == btyp_bool) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
340 rtyp = btyp_bool; |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
341 */ |
16370
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
342 else |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
343 rtyp = btyp_mixed_numeric (xtyp, ytyp); |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
344 |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
345 switch (rtyp) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
346 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
347 case btyp_double: |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
348 { |
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
349 if ((argx.is_sparse_type () |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
350 && (argy.is_sparse_type () || argy.is_scalar_type ())) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
351 || (argy.is_sparse_type () && argx.is_scalar_type ())) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
352 retval = do_minmax_bin_op<SparseMatrix> (argx, argy, ismin); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
353 else |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
354 retval = do_minmax_bin_op<NDArray> (argx, argy, ismin); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
355 break; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
356 } |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
357 case btyp_complex: |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
358 { |
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
359 if ((argx.is_sparse_type () |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
360 && (argy.is_sparse_type () || argy.is_scalar_type ())) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
361 || (argy.is_sparse_type () && argx.is_scalar_type ())) |
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
362 retval = do_minmax_bin_op<SparseComplexMatrix> (argx, argy, |
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
363 ismin); |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
364 else |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
365 retval = do_minmax_bin_op<ComplexNDArray> (argx, argy, ismin); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
366 break; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
367 } |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
368 case btyp_float: |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
369 retval = do_minmax_bin_op<FloatNDArray> (argx, argy, ismin); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
370 break; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
371 case btyp_float_complex: |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
372 retval = do_minmax_bin_op<FloatComplexNDArray> (argx, argy, ismin); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
373 break; |
16370
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
374 case btyp_char: |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
375 retval = do_minmax_bin_op<charNDArray> (argx, argy, ismin); |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
376 break; |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
377 #define MAKE_INT_BRANCH(X) \ |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
378 case btyp_ ## X: \ |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
379 retval = do_minmax_bin_op<X ## NDArray> (argx, argy, ismin); \ |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
380 break; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
381 MAKE_INT_BRANCH (int8); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
382 MAKE_INT_BRANCH (int16); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
383 MAKE_INT_BRANCH (int32); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
384 MAKE_INT_BRANCH (int64); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
385 MAKE_INT_BRANCH (uint8); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
386 MAKE_INT_BRANCH (uint16); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
387 MAKE_INT_BRANCH (uint32); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
388 MAKE_INT_BRANCH (uint64); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
389 #undef MAKE_INT_BRANCH |
19446
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
390 /* |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
391 FIXME: This is what should happen when boolNDArray has max() |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
392 case btyp_bool: |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
393 retval = do_minmax_bin_op<boolNDArray> (argx, argy, ismin); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
394 break; |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
395 */ |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
396 default: |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
397 error ("%s: cannot compute %s (%s, %s)", func, func, |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
398 argx.type_name ().c_str (), argy.type_name ().c_str ()); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
399 } |
19446
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
400 |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
401 // FIXME: Delete when boolNDArray has max() |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
402 if (xtyp == btyp_bool && ytyp == btyp_bool) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
403 retval(0) = retval(0).bool_array_value (); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
404 |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
405 } |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
406 else |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
407 print_usage (); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
408 |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
409 return retval; |
7505
f5005d9510f4
Remove dispatched sparse functions and treat in the generic versions of the functions
David Bateman <dbateman@free.fr>
parents:
7231
diff
changeset
|
410 } |
f5005d9510f4
Remove dispatched sparse functions and treat in the generic versions of the functions
David Bateman <dbateman@free.fr>
parents:
7231
diff
changeset
|
411 |
15039
e753177cde93
maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory
Rik <rik@octave.org>
parents:
14501
diff
changeset
|
412 DEFUN (min, args, nargout, |
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
413 "-*- texinfo -*-\n\ |
15039
e753177cde93
maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory
Rik <rik@octave.org>
parents:
14501
diff
changeset
|
414 @deftypefn {Built-in Function} {} min (@var{x})\n\ |
e753177cde93
maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory
Rik <rik@octave.org>
parents:
14501
diff
changeset
|
415 @deftypefnx {Built-in Function} {} min (@var{x}, [], @var{dim})\n\ |
e753177cde93
maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory
Rik <rik@octave.org>
parents:
14501
diff
changeset
|
416 @deftypefnx {Built-in Function} {[@var{w}, @var{iw}] =} min (@var{x})\n\ |
19446
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
417 @deftypefnx {Built-in Function} {} min (@var{x}, @var{y})\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
418 Find minimum values in the array @var{x}.\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
419 \n\ |
20207
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19731
diff
changeset
|
420 For a vector argument, return the minimum value. For a matrix argument,\n\ |
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19731
diff
changeset
|
421 return a row vector with the minimum value of each column. For a\n\ |
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19731
diff
changeset
|
422 multi-dimensional array, @code{min} operates along the first non-singleton\n\ |
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19731
diff
changeset
|
423 dimension.\n\ |
19446
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
424 \n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
425 If the optional third argument @var{dim} is present then operate along\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
426 this dimension. In this case the second argument is ignored and should be\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
427 set to the empty matrix.\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
428 \n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
429 For two matrices (or a matrix and a scalar), return the pairwise minimum.\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
430 \n\ |
4522 | 431 Thus,\n\ |
3443 | 432 \n\ |
433 @example\n\ | |
434 min (min (@var{x}))\n\ | |
435 @end example\n\ | |
436 \n\ | |
437 @noindent\n\ | |
19446
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
438 returns the smallest element of the 2-D matrix @var{x}, and\n\ |
4522 | 439 \n\ |
440 @example\n\ | |
441 @group\n\ | |
442 min (2:5, pi)\n\ | |
443 @result{} 2.0000 3.0000 3.1416 3.1416\n\ | |
444 @end group\n\ | |
445 @end example\n\ | |
10840 | 446 \n\ |
4522 | 447 @noindent\n\ |
20207
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19731
diff
changeset
|
448 compares each element of the range @code{2:5} with @code{pi}, and returns a\n\ |
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19731
diff
changeset
|
449 row vector of the minimum values.\n\ |
3443 | 450 \n\ |
451 For complex arguments, the magnitude of the elements are used for\n\ | |
19446
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
452 comparison. If the magnitudes are identical, then the results are ordered\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
453 by phase angle in the range (-pi, pi]. Hence,\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
454 \n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
455 @example\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
456 @group\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
457 min ([-1 i 1 -i])\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
458 @result{} -i\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
459 @end group\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
460 @end example\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
461 \n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
462 @noindent\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
463 because all entries have magnitude 1, but -i has the smallest phase angle\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
464 with value -pi/2.\n\ |
3657 | 465 \n\ |
20207
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19731
diff
changeset
|
466 If called with one input and two output arguments, @code{min} also returns\n\ |
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19731
diff
changeset
|
467 the first index of the minimum value(s). Thus,\n\ |
4522 | 468 \n\ |
3775 | 469 @example\n\ |
4522 | 470 @group\n\ |
9165
8c71a86c4bf4
Update section 17.5 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9141
diff
changeset
|
471 [x, ix] = min ([1, 3, 0, 2, 0])\n\ |
4522 | 472 @result{} x = 0\n\ |
473 ix = 3\n\ | |
474 @end group\n\ | |
3657 | 475 @end example\n\ |
9141
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
476 @seealso{max, cummin, cummax}\n\ |
4522 | 477 @end deftypefn") |
2928 | 478 { |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
479 return do_minmax_body (args, nargout, true); |
2928 | 480 } |
481 | |
7600
24abf5a702d9
Chop trailing singletons in min/max functions
David Bateman <dbateman@free.fr>
parents:
7505
diff
changeset
|
482 /* |
19446
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
483 ## Test generic double class |
14501
60e5cf354d80
Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions.
Rik <octave@nomad.inbox5.com>
parents:
14360
diff
changeset
|
484 %!assert (min ([1, 4, 2, 3]), 1) |
60e5cf354d80
Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions.
Rik <octave@nomad.inbox5.com>
parents:
14360
diff
changeset
|
485 %!assert (min ([1; -10; 5; -2]), -10) |
19446
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
486 %!assert (min ([4, 2i 4.999; -2, 2, 3+4i]), [-2, 2, 4.999]) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
487 ## Special routines for char arrays |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
488 %!assert (min (["abc", "ABC"]), 65) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
489 %!assert (min (["abc"; "CBA"]), [67 66 65]) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
490 ## Special routines for logical arrays |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
491 %!assert (min (logical ([])), logical ([])) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
492 %!assert (min (logical ([0 0 1 0])), false) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
493 %!assert (min (logical ([0 0 1 0; 0 1 1 0])), logical ([0 0 1 0])) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
494 ## Single values |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
495 %!assert (min (single ([1, 4, 2, 3])), single (1)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
496 %!assert (min (single ([1; -10; 5; -2])), single (-10)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
497 %!assert (min (single ([4, 2i 4.999; -2, 2, 3+4i])), single ([-2, 2, 4.999])) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
498 ## Integer values |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
499 %!assert (min (uint8 ([1, 4, 2, 3])), uint8 (1)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
500 %!assert (min (uint8 ([1; -10; 5; -2])), uint8 (-10)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
501 %!assert (min (int8 ([1, 4, 2, 3])), int8 (1)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
502 %!assert (min (int8 ([1; -10; 5; -2])), int8 (-10)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
503 %!assert (min (uint16 ([1, 4, 2, 3])), uint16 (1)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
504 %!assert (min (uint16 ([1; -10; 5; -2])), uint16 (-10)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
505 %!assert (min (int16 ([1, 4, 2, 3])), int16 (1)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
506 %!assert (min (int16 ([1; -10; 5; -2])), int16 (-10)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
507 %!assert (min (uint32 ([1, 4, 2, 3])), uint32 (1)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
508 %!assert (min (uint32 ([1; -10; 5; -2])), uint32 (-10)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
509 %!assert (min (int32 ([1, 4, 2, 3])), int32 (1)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
510 %!assert (min (int32 ([1; -10; 5; -2])), int32 (-10)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
511 %!assert (min (uint64 ([1, 4, 2, 3])), uint64 (1)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
512 %!assert (min (uint64 ([1; -10; 5; -2])), uint64 (-10)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
513 %!assert (min (int64 ([1, 4, 2, 3])), int64 (1)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
514 %!assert (min (int64 ([1; -10; 5; -2])), int64 (-10)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
515 ## Sparse double values |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
516 %!assert (min (sparse ([1, 4, 2, 3])), sparse (1)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
517 %!assert (min (sparse ([1; -10; 5; -2])), sparse(-10)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
518 ## FIXME: sparse doesn't order complex values by phase angle |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
519 %!xtest |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
520 %! assert (min (sparse ([4, 2i 4.999; -2, 2, 3+4i])), sparse ([-2, 2, 4.999])); |
7600
24abf5a702d9
Chop trailing singletons in min/max functions
David Bateman <dbateman@free.fr>
parents:
7505
diff
changeset
|
521 |
19446
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
522 ## Test dimension argument |
7600
24abf5a702d9
Chop trailing singletons in min/max functions
David Bateman <dbateman@free.fr>
parents:
7505
diff
changeset
|
523 %!test |
14501
60e5cf354d80
Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions.
Rik <octave@nomad.inbox5.com>
parents:
14360
diff
changeset
|
524 %! x = reshape (1:8, [2,2,2]); |
19446
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
525 %! assert (min (x, [], 1), reshape ([1, 3, 5, 7], [1,2,2])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
526 %! assert (min (x, [], 2), reshape ([1, 2, 5, 6], [2,1,2])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
527 %! [y, i] = min (x, [], 3); |
14501
60e5cf354d80
Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions.
Rik <octave@nomad.inbox5.com>
parents:
14360
diff
changeset
|
528 %! assert (ndims (y), 2); |
19446
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
529 %! assert (y, [1, 3; 2, 4]); |
14501
60e5cf354d80
Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions.
Rik <octave@nomad.inbox5.com>
parents:
14360
diff
changeset
|
530 %! assert (ndims (i), 2); |
19446
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
531 %! assert (i, [1, 1; 1, 1]); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
532 |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
533 ## Test 2-output forms for various arg types |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
534 ## Special routines for char arrays |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
535 %!test |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
536 %! [y, i] = min (["abc", "ABC"]); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
537 %! assert (y, 65); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
538 %! assert (i, 4); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
539 ## Special routines for logical arrays |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
540 %!test |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
541 %! x = logical ([0 0 1 0]); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
542 %! [y, i] = min (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
543 %! assert (y, false); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
544 %! assert (i, 1); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
545 ## Special handling of ranges |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
546 %!test |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
547 %! rng = 1:2:10; |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
548 %! [y, i] = min (rng); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
549 %! assert (y, 1); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
550 %! assert (i, 1); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
551 %! rng = 10:-2:1; |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
552 %! [y, i] = min (rng); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
553 %! assert (y, 2); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
554 %! assert (i, 5); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
555 |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
556 ## Test 2-input calling form for various arg types |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
557 ## Test generic double class |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
558 %!test |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
559 %! x = [1, 2, 3, 4]; y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
560 %! assert (min (x, y), [1 2 2 1]); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
561 %! assert (min (x, 3), [1 2 3 3]); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
562 %! assert (min (2, x), [1 2 2 2]); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
563 %! assert (min (x, 2.1i), [1 2 2.1i 2.1i]); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
564 ## FIXME: Ordering of complex results with equal magnitude is not by phase |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
565 ## angle in the 2-input form. Instead, it is in the order in which it |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
566 ## appears in the argument list. |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
567 %!xtest |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
568 %! x = [1, 2, 3, 4]; y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
569 %! assert (min (x, 2i), [2i 2i 3 4]); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
570 ## Special routines for char arrays |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
571 %!assert (min ("abc", "b"), [97 98 98]) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
572 %!assert (min ("b", "cba"), [98 98 97]) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
573 ## Special handling for logical arrays |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
574 %!assert (min ([true false], false), [false false]) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
575 %!assert (min (true, [true false]), [true false]) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
576 ## Single values |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
577 %!test |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
578 %! x = single ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
579 %! assert (min (x, y), single ([1 2 2 1])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
580 %! assert (min (x, 3), single ([1 2 3 3])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
581 %! assert (min (2, x), single ([1 2 2 2])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
582 %! assert (min (x, 2.1i), single ([1 2 2.1i 2.1i])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
583 ## Integer values |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
584 %!test |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
585 %! x = uint8 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
586 %! assert (min (x, y), uint8 ([1 2 2 1])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
587 %! assert (min (x, 3), uint8 ([1 2 3 3])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
588 %! assert (min (2, x), uint8 ([1 2 2 2])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
589 %! x = int8 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
590 %! assert (min (x, y), int8 ([1 2 2 1])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
591 %! assert (min (x, 3), int8 ([1 2 3 3])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
592 %! assert (min (2, x), int8 ([1 2 2 2])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
593 %! x = uint16 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
594 %! assert (min (x, y), uint16 ([1 2 2 1])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
595 %! assert (min (x, 3), uint16 ([1 2 3 3])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
596 %! assert (min (2, x), uint16 ([1 2 2 2])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
597 %! x = int16 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
598 %! assert (min (x, y), int16 ([1 2 2 1])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
599 %! assert (min (x, 3), int16 ([1 2 3 3])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
600 %! assert (min (2, x), int16 ([1 2 2 2])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
601 %! x = uint32 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
602 %! assert (min (x, y), uint32 ([1 2 2 1])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
603 %! assert (min (x, 3), uint32 ([1 2 3 3])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
604 %! assert (min (2, x), uint32 ([1 2 2 2])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
605 %! x = int32 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
606 %! assert (min (x, y), int32 ([1 2 2 1])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
607 %! assert (min (x, 3), int32 ([1 2 3 3])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
608 %! assert (min (2, x), int32 ([1 2 2 2])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
609 %! x = uint64 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
610 %! assert (min (x, y), uint64 ([1 2 2 1])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
611 %! assert (min (x, 3), uint64 ([1 2 3 3])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
612 %! assert (min (2, x), uint64 ([1 2 2 2])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
613 %! x = int64 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
614 %! assert (min (x, y), int64 ([1 2 2 1])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
615 %! assert (min (x, 3), int64 ([1 2 3 3])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
616 %! assert (min (2, x), int64 ([1 2 2 2])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
617 ## Sparse double values |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
618 %!test |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
619 %! x = sparse ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
620 %! assert (min (x, y), sparse ([1 2 2 1])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
621 %! assert (min (x, 3), sparse ([1 2 3 3])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
622 %! assert (min (2, x), sparse ([1 2 2 2])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
623 %! assert (min (x, 2.1i), sparse ([1 2 2.1i 2.1i])); |
7600
24abf5a702d9
Chop trailing singletons in min/max functions
David Bateman <dbateman@free.fr>
parents:
7505
diff
changeset
|
624 |
14501
60e5cf354d80
Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions.
Rik <octave@nomad.inbox5.com>
parents:
14360
diff
changeset
|
625 %!error min () |
60e5cf354d80
Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions.
Rik <octave@nomad.inbox5.com>
parents:
14360
diff
changeset
|
626 %!error min (1, 2, 3, 4) |
19446
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
627 %!error <DIM must be a valid dimension> min ([1 2; 3 4], [], -3) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
628 %!warning <second argument is ignored> min ([1 2 3 4], 2, 2); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
629 %!error <wrong type argument 'cell'> min ({1 2 3 4}) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
630 %!error <cannot compute min \(cell, scalar\)> min ({1, 2, 3}, 2) |
7600
24abf5a702d9
Chop trailing singletons in min/max functions
David Bateman <dbateman@free.fr>
parents:
7505
diff
changeset
|
631 */ |
24abf5a702d9
Chop trailing singletons in min/max functions
David Bateman <dbateman@free.fr>
parents:
7505
diff
changeset
|
632 |
15039
e753177cde93
maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory
Rik <rik@octave.org>
parents:
14501
diff
changeset
|
633 DEFUN (max, args, nargout, |
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
634 "-*- texinfo -*-\n\ |
15039
e753177cde93
maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory
Rik <rik@octave.org>
parents:
14501
diff
changeset
|
635 @deftypefn {Built-in Function} {} max (@var{x})\n\ |
e753177cde93
maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory
Rik <rik@octave.org>
parents:
14501
diff
changeset
|
636 @deftypefnx {Built-in Function} {} max (@var{x}, [], @var{dim})\n\ |
e753177cde93
maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory
Rik <rik@octave.org>
parents:
14501
diff
changeset
|
637 @deftypefnx {Built-in Function} {[@var{w}, @var{iw}] =} max (@var{x})\n\ |
19446
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
638 @deftypefnx {Built-in Function} {} max (@var{x}, @var{y})\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
639 Find maximum values in the array @var{x}.\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
640 \n\ |
20207
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19731
diff
changeset
|
641 For a vector argument, return the maximum value. For a matrix argument,\n\ |
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19731
diff
changeset
|
642 return a row vector with the maximum value of each column. For a\n\ |
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19731
diff
changeset
|
643 multi-dimensional array, @code{max} operates along the first non-singleton\n\ |
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19731
diff
changeset
|
644 dimension.\n\ |
19446
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
645 \n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
646 If the optional third argument @var{dim} is present then operate along\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
647 this dimension. In this case the second argument is ignored and should be\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
648 set to the empty matrix.\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
649 \n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
650 For two matrices (or a matrix and a scalar), return the pairwise maximum.\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
651 \n\ |
4522 | 652 Thus,\n\ |
3443 | 653 \n\ |
654 @example\n\ | |
655 max (max (@var{x}))\n\ | |
656 @end example\n\ | |
657 \n\ | |
658 @noindent\n\ | |
19446
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
659 returns the largest element of the 2-D matrix @var{x}, and\n\ |
4522 | 660 \n\ |
661 @example\n\ | |
662 @group\n\ | |
663 max (2:5, pi)\n\ | |
664 @result{} 3.1416 3.1416 4.0000 5.0000\n\ | |
665 @end group\n\ | |
666 @end example\n\ | |
10840 | 667 \n\ |
4522 | 668 @noindent\n\ |
19446
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
669 compares each element of the range @code{2:5} with @code{pi}, and returns a\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
670 row vector of the maximum values.\n\ |
3443 | 671 \n\ |
672 For complex arguments, the magnitude of the elements are used for\n\ | |
19446
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
673 comparison. If the magnitudes are identical, then the results are ordered\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
674 by phase angle in the range (-pi, pi]. Hence,\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
675 \n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
676 @example\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
677 @group\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
678 max ([-1 i 1 -i])\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
679 @result{} -1\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
680 @end group\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
681 @end example\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
682 \n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
683 @noindent\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
684 because all entries have magnitude 1, but -1 has the largest phase angle\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
685 with value pi.\n\ |
3657 | 686 \n\ |
20207
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19731
diff
changeset
|
687 If called with one input and two output arguments, @code{max} also returns\n\ |
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19731
diff
changeset
|
688 the first index of the maximum value(s). Thus,\n\ |
4522 | 689 \n\ |
3775 | 690 @example\n\ |
4522 | 691 @group\n\ |
692 [x, ix] = max ([1, 3, 5, 2, 5])\n\ | |
693 @result{} x = 5\n\ | |
694 ix = 3\n\ | |
695 @end group\n\ | |
3657 | 696 @end example\n\ |
9141
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
697 @seealso{min, cummax, cummin}\n\ |
4522 | 698 @end deftypefn") |
2928 | 699 { |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
700 return do_minmax_body (args, nargout, false); |
2928 | 701 } |
702 | |
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
703 /* |
19446
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
704 ## Test generic double class |
14501
60e5cf354d80
Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions.
Rik <octave@nomad.inbox5.com>
parents:
14360
diff
changeset
|
705 %!assert (max ([1, 4, 2, 3]), 4) |
60e5cf354d80
Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions.
Rik <octave@nomad.inbox5.com>
parents:
14360
diff
changeset
|
706 %!assert (max ([1; -10; 5; -2]), 5) |
19446
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
707 %!assert (max ([4, 2i 4.999; -2, 2, 3+4i]), [4, 2i, 3+4i]) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
708 ## Special routines for char arrays |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
709 %!assert (max (["abc", "ABC"]), 99) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
710 %!assert (max (["abc"; "CBA"]), [97 98 99]) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
711 ## Special routines for logical arrays |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
712 %!assert (max (logical ([])), logical ([])) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
713 %!assert (max (logical ([0 0 1 0])), true) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
714 %!assert (max (logical ([0 0 1 0; 0 1 0 0])), logical ([0 1 1 0])) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
715 ## Single values |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
716 %!assert (max (single ([1, 4, 2, 3])), single (4)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
717 %!assert (max (single ([1; -10; 5; -2])), single (5)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
718 %!assert (max (single ([4, 2i 4.999; -2, 2, 3+4i])), single ([4, 2i, 3+4i])) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
719 ## Integer values |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
720 %!assert (max (uint8 ([1, 4, 2, 3])), uint8 (4)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
721 %!assert (max (uint8 ([1; -10; 5; -2])), uint8 (5)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
722 %!assert (max (int8 ([1, 4, 2, 3])), int8 (4)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
723 %!assert (max (int8 ([1; -10; 5; -2])), int8 (5)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
724 %!assert (max (uint16 ([1, 4, 2, 3])), uint16 (4)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
725 %!assert (max (uint16 ([1; -10; 5; -2])), uint16 (5)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
726 %!assert (max (int16 ([1, 4, 2, 3])), int16 (4)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
727 %!assert (max (int16 ([1; -10; 5; -2])), int16 (5)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
728 %!assert (max (uint32 ([1, 4, 2, 3])), uint32 (4)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
729 %!assert (max (uint32 ([1; -10; 5; -2])), uint32 (5)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
730 %!assert (max (int32 ([1, 4, 2, 3])), int32 (4)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
731 %!assert (max (int32 ([1; -10; 5; -2])), int32 (5)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
732 %!assert (max (uint64 ([1, 4, 2, 3])), uint64 (4)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
733 %!assert (max (uint64 ([1; -10; 5; -2])), uint64 (5)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
734 %!assert (max (int64 ([1, 4, 2, 3])), int64 (4)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
735 %!assert (max (int64 ([1; -10; 5; -2])), int64 (5)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
736 ## Sparse double values |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
737 %!assert (max (sparse ([1, 4, 2, 3])), sparse (4)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
738 %!assert (max (sparse ([1; -10; 5; -2])), sparse(5)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
739 %!assert (max (sparse ([4, 2i 4.999; -2, 2, 3+4i])), sparse ([4, 2i, 3+4i])) |
7600
24abf5a702d9
Chop trailing singletons in min/max functions
David Bateman <dbateman@free.fr>
parents:
7505
diff
changeset
|
740 |
19446
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
741 ## Test dimension argument |
7600
24abf5a702d9
Chop trailing singletons in min/max functions
David Bateman <dbateman@free.fr>
parents:
7505
diff
changeset
|
742 %!test |
14501
60e5cf354d80
Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions.
Rik <octave@nomad.inbox5.com>
parents:
14360
diff
changeset
|
743 %! x = reshape (1:8, [2,2,2]); |
60e5cf354d80
Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions.
Rik <octave@nomad.inbox5.com>
parents:
14360
diff
changeset
|
744 %! assert (min (x, [], 1), reshape ([1, 3, 5, 7], [1,2,2])); |
60e5cf354d80
Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions.
Rik <octave@nomad.inbox5.com>
parents:
14360
diff
changeset
|
745 %! assert (min (x, [], 2), reshape ([1, 2, 5, 6], [2,1,2])); |
60e5cf354d80
Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions.
Rik <octave@nomad.inbox5.com>
parents:
14360
diff
changeset
|
746 %! [y, i] = min (x, [], 3); |
19446
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
747 %! assert (ndims (y), 2); |
7600
24abf5a702d9
Chop trailing singletons in min/max functions
David Bateman <dbateman@free.fr>
parents:
7505
diff
changeset
|
748 %! assert (y, [1, 3; 2, 4]); |
19446
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
749 %! assert (ndims (i), 2); |
7600
24abf5a702d9
Chop trailing singletons in min/max functions
David Bateman <dbateman@free.fr>
parents:
7505
diff
changeset
|
750 %! assert (i, [1, 1; 1, 1]); |
24abf5a702d9
Chop trailing singletons in min/max functions
David Bateman <dbateman@free.fr>
parents:
7505
diff
changeset
|
751 |
19446
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
752 ## Test 2-output forms for various arg types |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
753 ## Special routines for char arrays |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
754 %!test |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
755 %! [y, i] = max (["abc", "ABC"]); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
756 %! assert (y, 99); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
757 %! assert (i, 3); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
758 ## Special routines for logical arrays |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
759 %!test |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
760 %! x = logical ([0 0 1 0]); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
761 %! [y, i] = max (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
762 %! assert (y, true); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
763 %! assert (i, 3); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
764 ## Special handling of ranges |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
765 %!test |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
766 %! rng = 1:2:10; |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
767 %! [y, i] = max (rng); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
768 %! assert (y, 9); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
769 %! assert (i, 5); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
770 %! rng = 10:-2:1; |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
771 %! [y, i] = max (rng); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
772 %! assert (y, 10); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
773 %! assert (i, 1); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
774 |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
775 ## Test 2-input calling form for various arg types |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
776 ## Test generic double class |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
777 %!test |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
778 %! x = [1, 2, 3, 4]; y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
779 %! assert (max (x, y), [4 3 3 4]); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
780 %! assert (max (x, 3), [3 3 3 4]); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
781 %! assert (max (2, x), [2 2 3 4]); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
782 %! assert (max (x, 2.1i), [2.1i 2.1i 3 4]); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
783 ## FIXME: Ordering of complex results with equal magnitude is not by phase |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
784 ## angle in the 2-input form. Instead, it is in the order in which it |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
785 ## appears in the argument list. |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
786 %!xtest |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
787 %! x = [1, 2, 3, 4]; y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
788 %! assert (max (x, 2i), [2i 2i 3 4]); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
789 ## Special routines for char arrays |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
790 %!assert (max ("abc", "b"), [98 98 99]) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
791 %!assert (max ("b", "cba"), [99 98 98]) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
792 ## Special handling for logical arrays |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
793 %!assert (max ([true false], false), [true false]) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
794 %!assert (max (true, [false false]), [true true]) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
795 ## Single values |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
796 %!test |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
797 %! x = single ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
798 %! assert (max (x, y), single ([4 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
799 %! assert (max (x, 3), single ([3 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
800 %! assert (max (2, x), single ([2 2 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
801 %! assert (max (x, 2.1i), single ([2.1i 2.1i 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
802 ## Integer values |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
803 %!test |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
804 %! x = uint8 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
805 %! assert (max (x, y), uint8 ([4 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
806 %! assert (max (x, 3), uint8 ([3 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
807 %! assert (max (2, x), uint8 ([2 2 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
808 %! x = int8 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
809 %! assert (max (x, y), int8 ([4 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
810 %! assert (max (x, 3), int8 ([3 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
811 %! assert (max (2, x), int8 ([2 2 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
812 %! x = uint16 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
813 %! assert (max (x, y), uint16 ([4 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
814 %! assert (max (x, 3), uint16 ([3 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
815 %! assert (max (2, x), uint16 ([2 2 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
816 %! x = int16 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
817 %! assert (max (x, y), int16 ([4 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
818 %! assert (max (x, 3), int16 ([3 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
819 %! assert (max (2, x), int16 ([2 2 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
820 %! x = uint32 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
821 %! assert (max (x, y), uint32 ([4 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
822 %! assert (max (x, 3), uint32 ([3 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
823 %! assert (max (2, x), uint32 ([2 2 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
824 %! x = int32 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
825 %! assert (max (x, y), int32 ([4 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
826 %! assert (max (x, 3), int32 ([3 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
827 %! assert (max (2, x), int32 ([2 2 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
828 %! x = uint64 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
829 %! assert (max (x, y), uint64 ([4 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
830 %! assert (max (x, 3), uint64 ([3 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
831 %! assert (max (2, x), uint64 ([2 2 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
832 %! x = int64 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
833 %! assert (max (x, y), int64 ([4 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
834 %! assert (max (x, 3), int64 ([3 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
835 %! assert (max (2, x), int64 ([2 2 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
836 ## Sparse double values |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
837 %!test |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
838 %! x = sparse ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
839 %! assert (max (x, y), sparse ([4 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
840 %! assert (max (x, 3), sparse ([3 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
841 %! assert (max (2, x), sparse ([2 2 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
842 %! assert (max (x, 2.1i), sparse ([2.1i 2.1i 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
843 |
18076 | 844 ## Test for bug #40743 |
845 %!assert (max (zeros (1,0), ones (1,1)), zeros (1,0)) | |
846 %!assert (max (sparse (zeros (1,0)), sparse (ones (1,1))), sparse (zeros (1,0))) | |
847 | |
14501
60e5cf354d80
Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions.
Rik <octave@nomad.inbox5.com>
parents:
14360
diff
changeset
|
848 %!error max () |
60e5cf354d80
Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions.
Rik <octave@nomad.inbox5.com>
parents:
14360
diff
changeset
|
849 %!error max (1, 2, 3, 4) |
19446
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
850 %!error <DIM must be a valid dimension> max ([1 2; 3 4], [], -3) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
851 %!warning <second argument is ignored> max ([1 2 3 4], 2, 2); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
852 %!error <wrong type argument 'cell'> max ({1 2 3 4}) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
853 %!error <cannot compute max \(cell, scalar\)> max ({1, 2, 3}, 2) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18226
diff
changeset
|
854 |
7600
24abf5a702d9
Chop trailing singletons in min/max functions
David Bateman <dbateman@free.fr>
parents:
7505
diff
changeset
|
855 */ |
24abf5a702d9
Chop trailing singletons in min/max functions
David Bateman <dbateman@free.fr>
parents:
7505
diff
changeset
|
856 |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
857 template <class ArrayType> |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
858 static octave_value_list |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
859 do_cumminmax_red_op (const octave_value& arg, |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
860 int nargout, int dim, bool ismin) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
861 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
862 octave_value_list retval; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
863 ArrayType array = octave_value_extract<ArrayType> (arg); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
864 |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
865 if (nargout == 2) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
866 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
867 retval.resize (2); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
868 Array<octave_idx_type> idx; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
869 if (ismin) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
870 retval(0) = array.cummin (idx, dim); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
871 else |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
872 retval(0) = array.cummax (idx, dim); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
873 |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
874 retval(1) = octave_value (idx, true, true); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
875 } |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
876 else |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
877 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
878 if (ismin) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
879 retval(0) = array.cummin (dim); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
880 else |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
881 retval(0) = array.cummax (dim); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
882 } |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
883 |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
884 return retval; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
885 } |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
886 |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
887 static octave_value_list |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
888 do_cumminmax_body (const octave_value_list& args, |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
889 int nargout, bool ismin) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
890 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
891 octave_value_list retval; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
892 |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
893 const char *func = ismin ? "cummin" : "cummax"; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
894 |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
895 int nargin = args.length (); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
896 |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
897 if (nargin == 1 || nargin == 2) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
898 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
899 octave_value arg = args(0); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
900 int dim = -1; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
901 if (nargin == 2) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
902 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
903 dim = args(1).int_value (true) - 1; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
904 if (error_state || dim < 0) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
905 { |
11553
01f703952eff
Improve docstrings for functions in DLD-FUNCTIONS directory.
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
906 error ("%s: DIM must be a valid dimension", func); |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
907 return retval; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
908 } |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
909 } |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
910 |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
911 switch (arg.builtin_type ()) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
912 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
913 case btyp_double: |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
914 retval = do_cumminmax_red_op<NDArray> (arg, nargout, dim, ismin); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
915 break; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
916 case btyp_complex: |
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
917 retval = do_cumminmax_red_op<ComplexNDArray> (arg, nargout, dim, |
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
918 ismin); |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
919 break; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
920 case btyp_float: |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
921 retval = do_cumminmax_red_op<FloatNDArray> (arg, nargout, dim, ismin); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
922 break; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
923 case btyp_float_complex: |
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
924 retval = do_cumminmax_red_op<FloatComplexNDArray> (arg, nargout, dim, |
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
925 ismin); |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
926 break; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
927 #define MAKE_INT_BRANCH(X) \ |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
928 case btyp_ ## X: \ |
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
929 retval = do_cumminmax_red_op<X ## NDArray> (arg, nargout, dim, \ |
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
930 ismin); \ |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
931 break; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
932 MAKE_INT_BRANCH (int8); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
933 MAKE_INT_BRANCH (int16); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
934 MAKE_INT_BRANCH (int32); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
935 MAKE_INT_BRANCH (int64); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
936 MAKE_INT_BRANCH (uint8); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
937 MAKE_INT_BRANCH (uint16); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
938 MAKE_INT_BRANCH (uint32); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
939 MAKE_INT_BRANCH (uint64); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
940 #undef MAKE_INT_BRANCH |
10017
1ce1ae448572
support cummin/cummax for bools
Jaroslav Hajek <highegg@gmail.com>
parents:
9993
diff
changeset
|
941 case btyp_bool: |
1ce1ae448572
support cummin/cummax for bools
Jaroslav Hajek <highegg@gmail.com>
parents:
9993
diff
changeset
|
942 { |
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
943 retval = do_cumminmax_red_op<int8NDArray> (arg, nargout, dim, |
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
944 ismin); |
10017
1ce1ae448572
support cummin/cummax for bools
Jaroslav Hajek <highegg@gmail.com>
parents:
9993
diff
changeset
|
945 if (retval.length () > 0) |
1ce1ae448572
support cummin/cummax for bools
Jaroslav Hajek <highegg@gmail.com>
parents:
9993
diff
changeset
|
946 retval(0) = retval(0).bool_array_value (); |
1ce1ae448572
support cummin/cummax for bools
Jaroslav Hajek <highegg@gmail.com>
parents:
9993
diff
changeset
|
947 break; |
1ce1ae448572
support cummin/cummax for bools
Jaroslav Hajek <highegg@gmail.com>
parents:
9993
diff
changeset
|
948 } |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
949 default: |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
950 gripe_wrong_type_arg (func, arg); |
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
951 } |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
952 } |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
953 else |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
954 print_usage (); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
955 |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
956 return retval; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
957 } |
8777
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
958 |
15039
e753177cde93
maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory
Rik <rik@octave.org>
parents:
14501
diff
changeset
|
959 DEFUN (cummin, args, nargout, |
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
960 "-*- texinfo -*-\n\ |
15039
e753177cde93
maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory
Rik <rik@octave.org>
parents:
14501
diff
changeset
|
961 @deftypefn {Built-in Function} {} cummin (@var{x})\n\ |
e753177cde93
maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory
Rik <rik@octave.org>
parents:
14501
diff
changeset
|
962 @deftypefnx {Built-in Function} {} cummin (@var{x}, @var{dim})\n\ |
e753177cde93
maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory
Rik <rik@octave.org>
parents:
14501
diff
changeset
|
963 @deftypefnx {Built-in Function} {[@var{w}, @var{iw}] =} cummin (@var{x})\n\ |
17403
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
964 Return the cumulative minimum values along dimension @var{dim}.\n\ |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
965 \n\ |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
966 If @var{dim} is unspecified it defaults to column-wise operation. For\n\ |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
967 example:\n\ |
9141
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
968 \n\ |
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
969 @example\n\ |
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
970 @group\n\ |
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
971 cummin ([5 4 6 2 3 1])\n\ |
14360
97883071e8e4
doc: Correct off-by-1 spacings in all .cc docstrings
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
972 @result{} 5 4 4 2 2 1\n\ |
9141
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
973 @end group\n\ |
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
974 @end example\n\ |
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
975 \n\ |
17403
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
976 If called with two output arguments the index of the minimum value is also\n\ |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
977 returned.\n\ |
10840 | 978 \n\ |
8777
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
979 @example\n\ |
9064
7c02ec148a3c
Check grammar on all .cc files
Rik <rdrider0-list@yahoo.com>
parents:
8949
diff
changeset
|
980 @group\n\ |
17403
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
981 [w, iw] = cummin ([5 4 6 2 3 1])\n\ |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
982 @result{}\n\ |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
983 w = 5 4 4 2 2 1\n\ |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
984 iw = 1 2 2 4 4 6\n\ |
9064
7c02ec148a3c
Check grammar on all .cc files
Rik <rdrider0-list@yahoo.com>
parents:
8949
diff
changeset
|
985 @end group\n\ |
8777
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
986 @end example\n\ |
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
987 \n\ |
9141
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
988 @seealso{cummax, min, max}\n\ |
8777
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
989 @end deftypefn") |
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
990 { |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
991 return do_cumminmax_body (args, nargout, true); |
8777
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
992 } |
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
993 |
17403
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
994 /* |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
995 %!assert (cummin ([1, 4, 2, 3]), [1 1 1 1]) |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
996 %!assert (cummin ([1; -10; 5; -2]), [1; -10; -10; -10]) |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
997 %!assert (cummin ([4, i; -2, 2]), [4, i; -2, i]) |
19625
6b09dd576521
Fix cummin/cummax operations on rows when NaN element present (bug #44009).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
19446
diff
changeset
|
998 %!assert (cummin ([1 2; NaN 1], 2), [1 1; NaN 1]) |
17403
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
999 |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1000 %!test |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1001 %! x = reshape (1:8, [2,2,2]); |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1002 %! assert (cummin (x, 1), reshape ([1 1 3 3 5 5 7 7], [2,2,2])); |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1003 %! assert (cummin (x, 2), reshape ([1 2 1 2 5 6 5 6], [2,2,2])); |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1004 %! [w, iw] = cummin (x, 3); |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1005 %! assert (ndims (w), 3); |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1006 %! assert (w, repmat ([1 3; 2 4], [1 1 2])); |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1007 %! assert (ndims (iw), 3); |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1008 %! assert (iw, ones (2,2,2)); |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1009 |
19625
6b09dd576521
Fix cummin/cummax operations on rows when NaN element present (bug #44009).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
19446
diff
changeset
|
1010 |
17403
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1011 %!error cummin () |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1012 %!error cummin (1, 2, 3) |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1013 */ |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1014 |
15039
e753177cde93
maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory
Rik <rik@octave.org>
parents:
14501
diff
changeset
|
1015 DEFUN (cummax, args, nargout, |
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
1016 "-*- texinfo -*-\n\ |
15039
e753177cde93
maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory
Rik <rik@octave.org>
parents:
14501
diff
changeset
|
1017 @deftypefn {Built-in Function} {} cummax (@var{x})\n\ |
e753177cde93
maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory
Rik <rik@octave.org>
parents:
14501
diff
changeset
|
1018 @deftypefnx {Built-in Function} {} cummax (@var{x}, @var{dim})\n\ |
17403
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1019 @deftypefnx {Built-in Function} {[@var{w}, @var{iw}] =} cummax (@dots{})\n\ |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1020 Return the cumulative maximum values along dimension @var{dim}.\n\ |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1021 \n\ |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1022 If @var{dim} is unspecified it defaults to column-wise operation. For\n\ |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1023 example:\n\ |
9141
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
1024 \n\ |
8777
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
1025 @example\n\ |
9141
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
1026 @group\n\ |
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
1027 cummax ([1 3 2 6 4 5])\n\ |
14360
97883071e8e4
doc: Correct off-by-1 spacings in all .cc docstrings
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
1028 @result{} 1 3 3 6 6 6\n\ |
9141
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
1029 @end group\n\ |
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
1030 @end example\n\ |
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
1031 \n\ |
17403
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1032 If called with two output arguments the index of the maximum value is also\n\ |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1033 returned.\n\ |
10840 | 1034 \n\ |
8777
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
1035 @example\n\ |
9064
7c02ec148a3c
Check grammar on all .cc files
Rik <rdrider0-list@yahoo.com>
parents:
8949
diff
changeset
|
1036 @group\n\ |
17403
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1037 [w, iw] = cummax ([1 3 2 6 4 5])\n\ |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1038 @result{}\n\ |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1039 w = 1 3 3 6 6 6\n\ |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1040 iw = 1 2 2 4 4 4\n\ |
9064
7c02ec148a3c
Check grammar on all .cc files
Rik <rdrider0-list@yahoo.com>
parents:
8949
diff
changeset
|
1041 @end group\n\ |
8777
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
1042 @end example\n\ |
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
1043 \n\ |
9141
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
1044 @seealso{cummin, max, min}\n\ |
8777
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
1045 @end deftypefn") |
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
1046 { |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
1047 return do_cumminmax_body (args, nargout, false); |
8777
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
1048 } |
17403
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1049 |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1050 /* |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1051 %!assert (cummax ([1, 4, 2, 3]), [1 4 4 4]) |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1052 %!assert (cummax ([1; -10; 5; -2]), [1; 1; 5; 5]) |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1053 %!assert (cummax ([4, i 4.9, -2, 2, 3+4i]), [4, 4, 4.9, 4.9, 4.9, 3+4i]) |
19625
6b09dd576521
Fix cummin/cummax operations on rows when NaN element present (bug #44009).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
19446
diff
changeset
|
1054 %!assert (cummax ([1 NaN 0; NaN NaN 1], 2), [1 1 1; NaN NaN 1]) |
17403
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1055 |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1056 %!test |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1057 %! x = reshape (8:-1:1, [2,2,2]); |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1058 %! assert (cummax (x, 1), reshape ([8 8 6 6 4 4 2 2], [2,2,2])); |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1059 %! assert (cummax (x, 2), reshape ([8 7 8 7 4 3 4 3], [2,2,2])); |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1060 %! [w, iw] = cummax (x, 3); |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1061 %! assert (ndims (w), 3); |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1062 %! assert (w, repmat ([8 6; 7 5], [1 1 2])); |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1063 %! assert (ndims (iw), 3); |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1064 %! assert (iw, ones (2,2,2)); |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1065 |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1066 %!error cummax () |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1067 %!error cummax (1, 2, 3) |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1068 */ |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1069 |