Mercurial > octave
annotate libinterp/corefcn/max.cc @ 21100:e39e05d90788
Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
* libinterp/corefcn/errwarn.h, libinterp/corefcn/errwarn.cc: New header and .cc
file with common errors and warnings for libinterp.
* libinterp/corefcn/module.mk: Add errwarn.h, errwarn.cc to build system.
* liboctave/util/lo-array-errwarn.h, liboctave/util/lo-array-errwarn.cc: New
header and .cc file with common errors and warnings for liboctave.
* liboctave/util/module.mk: Add lo-array-errwarn.h, lo-array-errwarn.cc to
build system.
* lo-array-gripes.h: #include "lo-array-errwarn.h" for access to class
index_exception. Remove const char *error_id_XXX prototypes.
* lo-array-gripes.cc: Remove const char *error_id_XXX initializations.
Remove index_exception method definitions.
* Cell.cc, __pchip_deriv__.cc, __qp__.cc, balance.cc, betainc.cc, cellfun.cc,
daspk.cc, dasrt.cc, dassl.cc, data.cc, debug.cc, defaults.cc, det.cc,
dirfns.cc, eig.cc, fft.cc, fft2.cc, fftn.cc, find.cc, gammainc.cc, gcd.cc,
getgrent.cc, getpwent.cc, graphics.in.h, help.cc, hess.cc, hex2num.cc,
input.cc, inv.cc, jit-typeinfo.cc, load-save.cc, lookup.cc, ls-hdf5.cc,
ls-mat-ascii.cc, ls-mat4.cc, ls-mat5.cc, ls-oct-binary.cc, ls-oct-text.cc,
lsode.cc, lu.cc, luinc.cc, max.cc, mgorth.cc, oct-hist.cc, oct-procbuf.cc,
oct-stream.cc, oct.h, pager.cc, pinv.cc, pr-output.cc, quad.cc, qz.cc, rand.cc,
rcond.cc, regexp.cc, schur.cc, sparse-xdiv.cc, sparse-xpow.cc, sparse.cc,
spparms.cc, sqrtm.cc, str2double.cc, strfind.cc, strfns.cc, sub2ind.cc, svd.cc,
sylvester.cc, syscalls.cc, typecast.cc, utils.cc, variables.cc, xdiv.cc,
xnorm.cc, xpow.cc, __eigs__.cc, __glpk__.cc, __magick_read__.cc,
__osmesa_print__.cc, audiodevinfo.cc, audioread.cc, chol.cc, dmperm.cc,
fftw.cc, qr.cc, symbfact.cc, symrcm.cc, ov-base-diag.cc, ov-base-int.cc,
ov-base-mat.cc, ov-base-scalar.cc, ov-base-sparse.cc, ov-base.cc,
ov-bool-mat.cc, ov-bool-sparse.cc, ov-bool.cc, ov-builtin.cc, ov-cell.cc,
ov-ch-mat.cc, ov-class.cc, ov-complex.cc, ov-complex.h, ov-cs-list.cc,
ov-cx-diag.cc, ov-cx-mat.cc, ov-cx-sparse.cc, ov-fcn-handle.cc,
ov-fcn-inline.cc, ov-float.cc, ov-float.h, ov-flt-complex.cc, ov-flt-complex.h,
ov-flt-cx-diag.cc, ov-flt-cx-mat.cc, ov-flt-re-mat.cc, ov-int16.cc,
ov-int32.cc, ov-int64.cc, ov-int8.cc, ov-intx.h, ov-mex-fcn.cc, ov-perm.cc,
ov-range.cc, ov-re-mat.cc, ov-re-sparse.cc, ov-scalar.cc, ov-scalar.h,
ov-str-mat.cc, ov-struct.cc, ov-type-conv.h, ov-uint16.cc, ov-uint32.cc,
ov-uint64.cc, ov-uint8.cc, ov-usr-fcn.cc, ov.cc, op-b-b.cc, op-b-bm.cc,
op-b-sbm.cc, op-bm-b.cc, op-bm-bm.cc, op-bm-sbm.cc, op-cdm-cdm.cc, op-cell.cc,
op-chm.cc, op-class.cc, op-cm-cm.cc, op-cm-cs.cc, op-cm-m.cc, op-cm-s.cc,
op-cm-scm.cc, op-cm-sm.cc, op-cs-cm.cc, op-cs-cs.cc, op-cs-m.cc, op-cs-s.cc,
op-cs-scm.cc, op-cs-sm.cc, op-dm-dm.cc, op-dm-scm.cc, op-dm-sm.cc,
op-dms-template.cc, op-double-conv.cc, op-fcdm-fcdm.cc, op-fcdm-fdm.cc,
op-fcm-fcm.cc, op-fcm-fcs.cc, op-fcm-fm.cc, op-fcm-fs.cc, op-fcn.cc,
op-fcs-fcm.cc, op-fcs-fcs.cc, op-fcs-fm.cc, op-fcs-fs.cc, op-fdm-fdm.cc,
op-float-conv.cc, op-fm-fcm.cc, op-fm-fcs.cc, op-fm-fm.cc, op-fm-fs.cc,
op-fs-fcm.cc, op-fs-fcs.cc, op-fs-fm.cc, op-fs-fs.cc, op-i16-i16.cc,
op-i32-i32.cc, op-i64-i64.cc, op-i8-i8.cc, op-int-concat.cc, op-int-conv.cc,
op-int.h, op-m-cm.cc, op-m-cs.cc, op-m-m.cc, op-m-s.cc, op-m-scm.cc,
op-m-sm.cc, op-pm-pm.cc, op-pm-scm.cc, op-pm-sm.cc, op-range.cc, op-s-cm.cc,
op-s-cs.cc, op-s-m.cc, op-s-s.cc, op-s-scm.cc, op-s-sm.cc, op-sbm-b.cc,
op-sbm-bm.cc, op-sbm-sbm.cc, op-scm-cm.cc, op-scm-cs.cc, op-scm-m.cc,
op-scm-s.cc, op-scm-scm.cc, op-scm-sm.cc, op-sm-cm.cc, op-sm-cs.cc, op-sm-m.cc,
op-sm-s.cc, op-sm-scm.cc, op-sm-sm.cc, op-str-m.cc, op-str-s.cc, op-str-str.cc,
op-struct.cc, op-ui16-ui16.cc, op-ui32-ui32.cc, op-ui64-ui64.cc, op-ui8-ui8.cc,
ops.h, lex.ll, pt-assign.cc, pt-eval.cc, pt-idx.cc, pt-loop.cc, pt-mat.cc,
pt-stmt.cc, Array-util.cc, Array-util.h, Array.cc, CColVector.cc,
CDiagMatrix.cc, CMatrix.cc, CNDArray.cc, CRowVector.cc, CSparse.cc,
DiagArray2.cc, MDiagArray2.cc, MSparse.cc, PermMatrix.cc, Range.cc, Sparse.cc,
dColVector.cc, dDiagMatrix.cc, dMatrix.cc, dNDArray.cc, dRowVector.cc,
dSparse.cc, fCColVector.cc, fCDiagMatrix.cc, fCMatrix.cc, fCNDArray.cc,
fCRowVector.cc, fColVector.cc, fDiagMatrix.cc, fMatrix.cc, fNDArray.cc,
fRowVector.cc, idx-vector.cc, CmplxGEPBAL.cc, dbleGEPBAL.cc, fCmplxGEPBAL.cc,
floatGEPBAL.cc, Sparse-diag-op-defs.h, Sparse-op-defs.h, Sparse-perm-op-defs.h,
mx-inlines.cc, mx-op-defs.h, oct-binmap.h:
Replace 'include "gripes.h"' with 'include "errwarn.h". Change all gripe_XXX
to err_XXX or warn_XXX or errwarn_XXX.
author | Rik <rik@octave.org> |
---|---|
date | Mon, 18 Jan 2016 18:28:06 -0800 |
parents | 6eff66fb8a02 |
children | 538b57866b90 |
rev | line source |
---|---|
2928 | 1 /* |
2 | |
19697
4197fc428c7d
maint: Update copyright notices for 2015.
John W. Eaton <jwe@octave.org>
parents:
19591
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" |
21100
e39e05d90788
Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
20946
diff
changeset
|
37 #include "errwarn.h" |
20940
48b2ad5ee801
maint: Rename oct-obj.[cc|h] to ovl.[cc|h] for clarity.
Rik <rik@octave.org>
parents:
20921
diff
changeset
|
38 #include "ovl.h" |
2928 | 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 { |
20892 | 49 octave_value_list retval (nargout > 1 ? 2 : 1); |
9790
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 |
20892 | 52 if (nargout <= 1) |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
53 { |
20892 | 54 if (ismin) |
55 retval(0) = array.min (dim); | |
56 else | |
57 retval(0) = array.max (dim); | |
58 } | |
59 else | |
60 { | |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
61 Array<octave_idx_type> idx; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
62 if (ismin) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
63 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
|
64 else |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
65 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
|
66 |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
67 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
|
68 } |
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 return retval; |
8777
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
71 } |
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
72 |
16370
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
73 // 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
|
74 // 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
|
75 // 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
|
76 // 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
|
77 // 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
|
78 // 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
|
79 // functions work. |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
80 |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
81 template <> |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
82 octave_value_list |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
83 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
|
84 int nargout, int dim, bool ismin) |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
85 { |
20892 | 86 octave_value_list retval (nargout > 1 ? 2 : 1); |
16370
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
87 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
|
88 |
20892 | 89 if (nargout <= 1) |
16370
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
90 { |
20892 | 91 if (ismin) |
92 retval(0) = NDArray (array.min (dim)); | |
93 else | |
94 retval(0) = NDArray (array.max (dim)); | |
95 } | |
96 else | |
97 { | |
16370
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
98 Array<octave_idx_type> idx; |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
99 if (ismin) |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
100 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
|
101 else |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
102 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
|
103 |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
104 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
|
105 } |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
106 |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
107 return retval; |
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 |
9993
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
110 // Specialization for bool arrays. |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
111 template <> |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
112 octave_value_list |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
113 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
|
114 int nargout, int dim, bool ismin) |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
115 { |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
116 octave_value_list retval; |
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 if (nargout <= 1) |
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 // This case can be handled using any/all. |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
121 boolNDArray array = arg.bool_array_value (); |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
122 |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
123 if (array.is_empty ()) |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
124 retval(0) = array; |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
125 else if (ismin) |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
126 retval(0) = array.all (dim); |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
127 else |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
128 retval(0) = array.any (dim); |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
129 } |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
130 else |
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 // 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
|
133 retval = do_minmax_red_op<int8NDArray> (arg, nargout, dim, ismin); |
20555
f90c8372b7ba
eliminate many more simple uses of error_state
John W. Eaton <jwe@octave.org>
parents:
20228
diff
changeset
|
134 |
f90c8372b7ba
eliminate many more simple uses of error_state
John W. Eaton <jwe@octave.org>
parents:
20228
diff
changeset
|
135 retval(0) = retval(0).bool_array_value (); |
9993
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
136 } |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
137 |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
138 return retval; |
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 |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
141 template <class ArrayType> |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
142 static octave_value |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
143 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
|
144 bool ismin) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
145 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
146 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
|
147 |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
148 octave_value retval; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
149 |
19412
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
150 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
|
151 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
152 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
|
153 ArrayType y = octave_value_extract<ArrayType> (argy); |
7189 | 154 |
20555
f90c8372b7ba
eliminate many more simple uses of error_state
John W. Eaton <jwe@octave.org>
parents:
20228
diff
changeset
|
155 if (ismin) |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
156 retval = min (x, y); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
157 else |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
158 retval = max (x, y); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
159 } |
19412
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
160 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
|
161 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
162 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
|
163 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
|
164 |
20555
f90c8372b7ba
eliminate many more simple uses of error_state
John W. Eaton <jwe@octave.org>
parents:
20228
diff
changeset
|
165 if (ismin) |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
166 retval = min (x, y); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
167 else |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
168 retval = max (x, y); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
169 } |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
170 else |
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 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
|
173 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
|
174 |
20555
f90c8372b7ba
eliminate many more simple uses of error_state
John W. Eaton <jwe@octave.org>
parents:
20228
diff
changeset
|
175 if (ismin) |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
176 retval = min (x, y); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
177 else |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
178 retval = max (x, y); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
179 } |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
180 |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
181 return retval; |
8777
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
182 } |
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
183 |
16370
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
184 // 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
|
185 // 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
|
186 // 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
|
187 // 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
|
188 // 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
|
189 // 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
|
190 // functions work. |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
191 |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
192 template <> |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
193 octave_value |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
194 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
|
195 const octave_value& argy, bool ismin) |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
196 { |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
197 octave_value retval; |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
198 |
19412
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
199 charNDArray x = octave_value_extract<charNDArray> (argx); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
200 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
|
201 |
20555
f90c8372b7ba
eliminate many more simple uses of error_state
John W. Eaton <jwe@octave.org>
parents:
20228
diff
changeset
|
202 if (ismin) |
19412
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
203 { |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
204 if (x.numel () == 1) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
205 retval = NDArray (min (x(0), y)); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
206 else if (y.numel () == 1) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
207 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
|
208 else |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
209 retval = NDArray (min (x, y)); |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
210 } |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
211 else |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
212 { |
19412
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
213 if (x.numel () == 1) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
214 retval = NDArray (max (x(0), y)); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
215 else if (y.numel () == 1) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
216 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
|
217 else |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
218 retval = NDArray (max (x, y)); |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
219 } |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
220 |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
221 return retval; |
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 |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
224 static octave_value_list |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
225 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
|
226 int nargout, bool ismin) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
227 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
228 int nargin = args.length (); |
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7662
diff
changeset
|
229 |
20802
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
230 if (nargin < 1 || nargin > 3) |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
231 print_usage (); |
20921
4d3daf7e43f3
eliminate trailing whitespace in source files
John W. Eaton <jwe@octave.org>
parents:
20892
diff
changeset
|
232 |
20892 | 233 octave_value_list retval (nargout > 1 ? 2 : 1); |
234 | |
235 const char *func = ismin ? "min" : "max"; | |
236 | |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
237 if (nargin == 3 || nargin == 1) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
238 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
239 octave_value arg = args(0); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
240 int dim = -1; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
241 if (nargin == 3) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
242 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
243 dim = args(2).int_value (true) - 1; |
20743
b6408331bfa2
eliminate more uses of error_state
John W. Eaton <jwe@octave.org>
parents:
20555
diff
changeset
|
244 |
b6408331bfa2
eliminate more uses of error_state
John W. Eaton <jwe@octave.org>
parents:
20555
diff
changeset
|
245 if (dim < 0) |
20831
35241c4b696c
eliminate return statements after calls to error
John W. Eaton <jwe@octave.org>
parents:
20802
diff
changeset
|
246 error ("%s: DIM must be a valid dimension", func); |
8777
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
247 |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
248 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
|
249 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
|
250 } |
7189 | 251 |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
252 switch (arg.builtin_type ()) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
253 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
254 case btyp_double: |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
255 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
256 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
|
257 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
258 Range range = arg.range_value (); |
20228
00cf2847355d
Deprecate Array::nelem() and Range::nelem() in favour of ::numel().
Carnë Draug <carandraug@octave.org>
parents:
20172
diff
changeset
|
259 if (range.numel () < 1) |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
260 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
261 retval(0) = arg; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
262 if (nargout > 1) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
263 retval(1) = arg; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
264 } |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
265 else if (ismin) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
266 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
267 retval(0) = range.min (); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
268 if (nargout > 1) |
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
269 retval(1) = static_cast<double> |
20228
00cf2847355d
Deprecate Array::nelem() and Range::nelem() in favour of ::numel().
Carnë Draug <carandraug@octave.org>
parents:
20172
diff
changeset
|
270 (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
|
271 } |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
272 else |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
273 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
274 retval(0) = range.max (); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
275 if (nargout > 1) |
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
276 retval(1) = static_cast<double> |
20228
00cf2847355d
Deprecate Array::nelem() and Range::nelem() in favour of ::numel().
Carnë Draug <carandraug@octave.org>
parents:
20172
diff
changeset
|
277 (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
|
278 } |
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 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
|
281 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
|
282 ismin); |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
283 else |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
284 retval = do_minmax_red_op<NDArray> (arg, nargout, dim, ismin); |
20802
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
285 |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
286 } |
20802
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
287 break; |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
288 |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
289 case btyp_complex: |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
290 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
291 if (arg.is_sparse_type ()) |
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
292 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
|
293 ismin); |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
294 else |
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
295 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
|
296 ismin); |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
297 } |
20802
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
298 break; |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
299 |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
300 case btyp_float: |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
301 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
|
302 break; |
20802
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
303 |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
304 case btyp_float_complex: |
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
305 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
|
306 ismin); |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
307 break; |
20802
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
308 |
16370
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
309 case btyp_char: |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
310 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
|
311 break; |
20802
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
312 |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
313 #define MAKE_INT_BRANCH(X) \ |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
314 case btyp_ ## X: \ |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
315 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
|
316 break; |
20802
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
317 |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
318 MAKE_INT_BRANCH (int8); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
319 MAKE_INT_BRANCH (int16); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
320 MAKE_INT_BRANCH (int32); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
321 MAKE_INT_BRANCH (int64); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
322 MAKE_INT_BRANCH (uint8); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
323 MAKE_INT_BRANCH (uint16); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
324 MAKE_INT_BRANCH (uint32); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
325 MAKE_INT_BRANCH (uint64); |
20802
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
326 |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
327 #undef MAKE_INT_BRANCH |
20802
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
328 |
9993
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
329 case btyp_bool: |
b22a2f4b34aa
support min/max with logical arrays
Jaroslav Hajek <highegg@gmail.com>
parents:
9791
diff
changeset
|
330 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
|
331 break; |
20802
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
332 |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
333 default: |
21100
e39e05d90788
Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
20946
diff
changeset
|
334 err_wrong_type_arg (func, arg); |
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
335 } |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
336 } |
20802
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
337 else |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
338 { |
18100
6a71e5030df5
Follow coding convention of defining and initializing only 1 variable per line in liboctinterp.
Rik <rik@octave.org>
parents:
18076
diff
changeset
|
339 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
|
340 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
|
341 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
|
342 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
|
343 builtin_type_t rtyp; |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
344 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
|
345 rtyp = btyp_char; |
20946 | 346 // FIXME: This is what should happen when boolNDArray has max() |
347 // else if (xtyp == btyp_bool && ytyp == btyp_bool) | |
348 // rtyp = btyp_bool; | |
16370
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
349 else |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
350 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
|
351 |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
352 switch (rtyp) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
353 { |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
354 case btyp_double: |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
355 { |
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
356 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
|
357 && (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
|
358 || (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
|
359 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
|
360 else |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
361 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
|
362 } |
20802
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
363 break; |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
364 |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
365 case btyp_complex: |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
366 { |
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
367 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
|
368 && (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
|
369 || (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
|
370 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
|
371 ismin); |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
372 else |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
373 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
|
374 } |
20802
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
375 break; |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
376 |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
377 case btyp_float: |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
378 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
|
379 break; |
20802
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
380 |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
381 case btyp_float_complex: |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
382 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
|
383 break; |
20802
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
384 |
16370
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
385 case btyp_char: |
7ce21619a4b9
min Matlab compatibility issue (bug #33530)
Axel Mathéi <axel.mathei@gmail.com>
parents:
15195
diff
changeset
|
386 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
|
387 break; |
20802
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
388 |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
389 #define MAKE_INT_BRANCH(X) \ |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
390 case btyp_ ## X: \ |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
391 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
|
392 break; |
20802
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
393 |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
394 MAKE_INT_BRANCH (int8); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
395 MAKE_INT_BRANCH (int16); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
396 MAKE_INT_BRANCH (int32); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
397 MAKE_INT_BRANCH (int64); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
398 MAKE_INT_BRANCH (uint8); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
399 MAKE_INT_BRANCH (uint16); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
400 MAKE_INT_BRANCH (uint32); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
401 MAKE_INT_BRANCH (uint64); |
20802
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
402 |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
403 #undef MAKE_INT_BRANCH |
20802
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
404 |
20946 | 405 // FIXME: This is what should happen when boolNDArray has max() |
406 // case btyp_bool: | |
407 // retval = do_minmax_bin_op<boolNDArray> (argx, argy, ismin); | |
408 // break; | |
409 | |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
410 default: |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
411 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
|
412 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
|
413 } |
19412
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
414 |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
415 // FIXME: Delete when boolNDArray has max() |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
416 if (xtyp == btyp_bool && ytyp == btyp_bool) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
417 retval(0) = retval(0).bool_array_value (); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
418 |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
419 } |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
420 |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
421 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
|
422 } |
f5005d9510f4
Remove dispatched sparse functions and treat in the generic versions of the functions
David Bateman <dbateman@free.fr>
parents:
7231
diff
changeset
|
423 |
15039
e753177cde93
maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory
Rik <rik@octave.org>
parents:
14501
diff
changeset
|
424 DEFUN (min, args, nargout, |
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
425 "-*- texinfo -*-\n\ |
20853
1142cf6abc0d
2015 Code Sprint: remove class of function from docstring for all C++ files.
Rik <rik@octave.org>
parents:
20831
diff
changeset
|
426 @deftypefn {} {} min (@var{x})\n\ |
1142cf6abc0d
2015 Code Sprint: remove class of function from docstring for all C++ files.
Rik <rik@octave.org>
parents:
20831
diff
changeset
|
427 @deftypefnx {} {} min (@var{x}, [], @var{dim})\n\ |
1142cf6abc0d
2015 Code Sprint: remove class of function from docstring for all C++ files.
Rik <rik@octave.org>
parents:
20831
diff
changeset
|
428 @deftypefnx {} {[@var{w}, @var{iw}] =} min (@var{x})\n\ |
1142cf6abc0d
2015 Code Sprint: remove class of function from docstring for all C++ files.
Rik <rik@octave.org>
parents:
20831
diff
changeset
|
429 @deftypefnx {} {} min (@var{x}, @var{y})\n\ |
19412
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
430 Find minimum values in the array @var{x}.\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
431 \n\ |
20172
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19697
diff
changeset
|
432 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:
19697
diff
changeset
|
433 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:
19697
diff
changeset
|
434 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:
19697
diff
changeset
|
435 dimension.\n\ |
19412
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
436 \n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
437 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:
18227
diff
changeset
|
438 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:
18227
diff
changeset
|
439 set to the empty matrix.\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
440 \n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
441 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:
18227
diff
changeset
|
442 \n\ |
4522 | 443 Thus,\n\ |
3443 | 444 \n\ |
445 @example\n\ | |
446 min (min (@var{x}))\n\ | |
447 @end example\n\ | |
448 \n\ | |
449 @noindent\n\ | |
19412
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
450 returns the smallest element of the 2-D matrix @var{x}, and\n\ |
4522 | 451 \n\ |
452 @example\n\ | |
453 @group\n\ | |
454 min (2:5, pi)\n\ | |
455 @result{} 2.0000 3.0000 3.1416 3.1416\n\ | |
456 @end group\n\ | |
457 @end example\n\ | |
10840 | 458 \n\ |
4522 | 459 @noindent\n\ |
20172
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19697
diff
changeset
|
460 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:
19697
diff
changeset
|
461 row vector of the minimum values.\n\ |
3443 | 462 \n\ |
463 For complex arguments, the magnitude of the elements are used for\n\ | |
19412
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
464 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:
18227
diff
changeset
|
465 by phase angle in the range (-pi, pi]. Hence,\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
466 \n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
467 @example\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
468 @group\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
469 min ([-1 i 1 -i])\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
470 @result{} -i\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
471 @end group\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
472 @end example\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
473 \n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
474 @noindent\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
475 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:
18227
diff
changeset
|
476 with value -pi/2.\n\ |
3657 | 477 \n\ |
20172
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19697
diff
changeset
|
478 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:
19697
diff
changeset
|
479 the first index of the minimum value(s). Thus,\n\ |
4522 | 480 \n\ |
3775 | 481 @example\n\ |
4522 | 482 @group\n\ |
9165
8c71a86c4bf4
Update section 17.5 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9141
diff
changeset
|
483 [x, ix] = min ([1, 3, 0, 2, 0])\n\ |
4522 | 484 @result{} x = 0\n\ |
485 ix = 3\n\ | |
486 @end group\n\ | |
3657 | 487 @end example\n\ |
9141
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
488 @seealso{max, cummin, cummax}\n\ |
4522 | 489 @end deftypefn") |
2928 | 490 { |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
491 return do_minmax_body (args, nargout, true); |
2928 | 492 } |
493 | |
7600
24abf5a702d9
Chop trailing singletons in min/max functions
David Bateman <dbateman@free.fr>
parents:
7505
diff
changeset
|
494 /* |
19412
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
495 ## 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
|
496 %!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
|
497 %!assert (min ([1; -10; 5; -2]), -10) |
19412
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
498 %!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:
18227
diff
changeset
|
499 ## Special routines for char arrays |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
500 %!assert (min (["abc", "ABC"]), 65) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
501 %!assert (min (["abc"; "CBA"]), [67 66 65]) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
502 ## Special routines for logical arrays |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
503 %!assert (min (logical ([])), logical ([])) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
504 %!assert (min (logical ([0 0 1 0])), false) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
505 %!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:
18227
diff
changeset
|
506 ## Single values |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
507 %!assert (min (single ([1, 4, 2, 3])), single (1)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
508 %!assert (min (single ([1; -10; 5; -2])), single (-10)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
509 %!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:
18227
diff
changeset
|
510 ## Integer values |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
511 %!assert (min (uint8 ([1, 4, 2, 3])), uint8 (1)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
512 %!assert (min (uint8 ([1; -10; 5; -2])), uint8 (-10)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
513 %!assert (min (int8 ([1, 4, 2, 3])), int8 (1)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
514 %!assert (min (int8 ([1; -10; 5; -2])), int8 (-10)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
515 %!assert (min (uint16 ([1, 4, 2, 3])), uint16 (1)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
516 %!assert (min (uint16 ([1; -10; 5; -2])), uint16 (-10)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
517 %!assert (min (int16 ([1, 4, 2, 3])), int16 (1)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
518 %!assert (min (int16 ([1; -10; 5; -2])), int16 (-10)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
519 %!assert (min (uint32 ([1, 4, 2, 3])), uint32 (1)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
520 %!assert (min (uint32 ([1; -10; 5; -2])), uint32 (-10)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
521 %!assert (min (int32 ([1, 4, 2, 3])), int32 (1)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
522 %!assert (min (int32 ([1; -10; 5; -2])), int32 (-10)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
523 %!assert (min (uint64 ([1, 4, 2, 3])), uint64 (1)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
524 %!assert (min (uint64 ([1; -10; 5; -2])), uint64 (-10)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
525 %!assert (min (int64 ([1, 4, 2, 3])), int64 (1)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
526 %!assert (min (int64 ([1; -10; 5; -2])), int64 (-10)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
527 ## Sparse double values |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
528 %!assert (min (sparse ([1, 4, 2, 3])), sparse (1)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
529 %!assert (min (sparse ([1; -10; 5; -2])), sparse(-10)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
530 ## FIXME: sparse doesn't order complex values by phase angle |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
531 %!xtest |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
532 %! 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
|
533 |
19412
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
534 ## Test dimension argument |
7600
24abf5a702d9
Chop trailing singletons in min/max functions
David Bateman <dbateman@free.fr>
parents:
7505
diff
changeset
|
535 %!test |
14501
60e5cf354d80
Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions.
Rik <octave@nomad.inbox5.com>
parents:
14360
diff
changeset
|
536 %! x = reshape (1:8, [2,2,2]); |
19412
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
537 %! 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:
18227
diff
changeset
|
538 %! 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:
18227
diff
changeset
|
539 %! [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
|
540 %! assert (ndims (y), 2); |
19412
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
541 %! 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
|
542 %! assert (ndims (i), 2); |
19412
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
543 %! assert (i, [1, 1; 1, 1]); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
544 |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
545 ## Test 2-output forms for various arg types |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
546 ## Special routines for char arrays |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
547 %!test |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
548 %! [y, i] = min (["abc", "ABC"]); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
549 %! assert (y, 65); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
550 %! assert (i, 4); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
551 ## Special routines for logical arrays |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
552 %!test |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
553 %! x = logical ([0 0 1 0]); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
554 %! [y, i] = min (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
555 %! assert (y, false); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
556 %! assert (i, 1); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
557 ## Special handling of ranges |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
558 %!test |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
559 %! rng = 1:2:10; |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
560 %! [y, i] = min (rng); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
561 %! assert (y, 1); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
562 %! assert (i, 1); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
563 %! rng = 10:-2:1; |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
564 %! [y, i] = min (rng); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
565 %! assert (y, 2); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
566 %! assert (i, 5); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
567 |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
568 ## Test 2-input calling form for various arg types |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
569 ## Test generic double class |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
570 %!test |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
571 %! x = [1, 2, 3, 4]; y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
572 %! assert (min (x, y), [1 2 2 1]); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
573 %! assert (min (x, 3), [1 2 3 3]); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
574 %! assert (min (2, x), [1 2 2 2]); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
575 %! assert (min (x, 2.1i), [1 2 2.1i 2.1i]); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
576 ## 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:
18227
diff
changeset
|
577 ## 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:
18227
diff
changeset
|
578 ## appears in the argument list. |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
579 %!xtest |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
580 %! x = [1, 2, 3, 4]; y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
581 %! assert (min (x, 2i), [2i 2i 3 4]); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
582 ## Special routines for char arrays |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
583 %!assert (min ("abc", "b"), [97 98 98]) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
584 %!assert (min ("b", "cba"), [98 98 97]) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
585 ## Special handling for logical arrays |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
586 %!assert (min ([true false], false), [false false]) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
587 %!assert (min (true, [true false]), [true false]) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
588 ## Single values |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
589 %!test |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
590 %! x = single ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
591 %! assert (min (x, y), single ([1 2 2 1])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
592 %! assert (min (x, 3), single ([1 2 3 3])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
593 %! assert (min (2, x), single ([1 2 2 2])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
594 %! 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:
18227
diff
changeset
|
595 ## Integer values |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
596 %!test |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
597 %! x = uint8 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
598 %! assert (min (x, y), uint8 ([1 2 2 1])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
599 %! assert (min (x, 3), uint8 ([1 2 3 3])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
600 %! assert (min (2, x), uint8 ([1 2 2 2])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
601 %! x = int8 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
602 %! assert (min (x, y), int8 ([1 2 2 1])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
603 %! assert (min (x, 3), int8 ([1 2 3 3])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
604 %! assert (min (2, x), int8 ([1 2 2 2])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
605 %! x = uint16 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
606 %! assert (min (x, y), uint16 ([1 2 2 1])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
607 %! assert (min (x, 3), uint16 ([1 2 3 3])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
608 %! assert (min (2, x), uint16 ([1 2 2 2])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
609 %! x = int16 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
610 %! assert (min (x, y), int16 ([1 2 2 1])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
611 %! assert (min (x, 3), int16 ([1 2 3 3])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
612 %! assert (min (2, x), int16 ([1 2 2 2])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
613 %! x = uint32 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
614 %! assert (min (x, y), uint32 ([1 2 2 1])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
615 %! assert (min (x, 3), uint32 ([1 2 3 3])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
616 %! assert (min (2, x), uint32 ([1 2 2 2])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
617 %! x = int32 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
618 %! assert (min (x, y), int32 ([1 2 2 1])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
619 %! assert (min (x, 3), int32 ([1 2 3 3])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
620 %! assert (min (2, x), int32 ([1 2 2 2])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
621 %! x = uint64 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
622 %! assert (min (x, y), uint64 ([1 2 2 1])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
623 %! assert (min (x, 3), uint64 ([1 2 3 3])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
624 %! assert (min (2, x), uint64 ([1 2 2 2])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
625 %! x = int64 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
626 %! assert (min (x, y), int64 ([1 2 2 1])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
627 %! assert (min (x, 3), int64 ([1 2 3 3])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
628 %! assert (min (2, x), int64 ([1 2 2 2])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
629 ## Sparse double values |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
630 %!test |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
631 %! x = sparse ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
632 %! assert (min (x, y), sparse ([1 2 2 1])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
633 %! assert (min (x, 3), sparse ([1 2 3 3])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
634 %! assert (min (2, x), sparse ([1 2 2 2])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
635 %! 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
|
636 |
14501
60e5cf354d80
Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions.
Rik <octave@nomad.inbox5.com>
parents:
14360
diff
changeset
|
637 %!error min () |
60e5cf354d80
Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions.
Rik <octave@nomad.inbox5.com>
parents:
14360
diff
changeset
|
638 %!error min (1, 2, 3, 4) |
19412
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
639 %!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:
18227
diff
changeset
|
640 %!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:
18227
diff
changeset
|
641 %!error <wrong type argument 'cell'> min ({1 2 3 4}) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
642 %!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
|
643 */ |
24abf5a702d9
Chop trailing singletons in min/max functions
David Bateman <dbateman@free.fr>
parents:
7505
diff
changeset
|
644 |
15039
e753177cde93
maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory
Rik <rik@octave.org>
parents:
14501
diff
changeset
|
645 DEFUN (max, args, nargout, |
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
646 "-*- texinfo -*-\n\ |
20853
1142cf6abc0d
2015 Code Sprint: remove class of function from docstring for all C++ files.
Rik <rik@octave.org>
parents:
20831
diff
changeset
|
647 @deftypefn {} {} max (@var{x})\n\ |
1142cf6abc0d
2015 Code Sprint: remove class of function from docstring for all C++ files.
Rik <rik@octave.org>
parents:
20831
diff
changeset
|
648 @deftypefnx {} {} max (@var{x}, [], @var{dim})\n\ |
1142cf6abc0d
2015 Code Sprint: remove class of function from docstring for all C++ files.
Rik <rik@octave.org>
parents:
20831
diff
changeset
|
649 @deftypefnx {} {[@var{w}, @var{iw}] =} max (@var{x})\n\ |
1142cf6abc0d
2015 Code Sprint: remove class of function from docstring for all C++ files.
Rik <rik@octave.org>
parents:
20831
diff
changeset
|
650 @deftypefnx {} {} max (@var{x}, @var{y})\n\ |
19412
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
651 Find maximum values in the array @var{x}.\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
652 \n\ |
20172
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19697
diff
changeset
|
653 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:
19697
diff
changeset
|
654 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:
19697
diff
changeset
|
655 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:
19697
diff
changeset
|
656 dimension.\n\ |
19412
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
657 \n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
658 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:
18227
diff
changeset
|
659 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:
18227
diff
changeset
|
660 set to the empty matrix.\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
661 \n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
662 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:
18227
diff
changeset
|
663 \n\ |
4522 | 664 Thus,\n\ |
3443 | 665 \n\ |
666 @example\n\ | |
667 max (max (@var{x}))\n\ | |
668 @end example\n\ | |
669 \n\ | |
670 @noindent\n\ | |
19412
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
671 returns the largest element of the 2-D matrix @var{x}, and\n\ |
4522 | 672 \n\ |
673 @example\n\ | |
674 @group\n\ | |
675 max (2:5, pi)\n\ | |
676 @result{} 3.1416 3.1416 4.0000 5.0000\n\ | |
677 @end group\n\ | |
678 @end example\n\ | |
10840 | 679 \n\ |
4522 | 680 @noindent\n\ |
19412
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
681 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:
18227
diff
changeset
|
682 row vector of the maximum values.\n\ |
3443 | 683 \n\ |
684 For complex arguments, the magnitude of the elements are used for\n\ | |
19412
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
685 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:
18227
diff
changeset
|
686 by phase angle in the range (-pi, pi]. Hence,\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
687 \n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
688 @example\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
689 @group\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
690 max ([-1 i 1 -i])\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
691 @result{} -1\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
692 @end group\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
693 @end example\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
694 \n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
695 @noindent\n\ |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
696 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:
18227
diff
changeset
|
697 with value pi.\n\ |
3657 | 698 \n\ |
20172
4f45eaf83908
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19697
diff
changeset
|
699 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:
19697
diff
changeset
|
700 the first index of the maximum value(s). Thus,\n\ |
4522 | 701 \n\ |
3775 | 702 @example\n\ |
4522 | 703 @group\n\ |
704 [x, ix] = max ([1, 3, 5, 2, 5])\n\ | |
705 @result{} x = 5\n\ | |
706 ix = 3\n\ | |
707 @end group\n\ | |
3657 | 708 @end example\n\ |
9141
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
709 @seealso{min, cummax, cummin}\n\ |
4522 | 710 @end deftypefn") |
2928 | 711 { |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
712 return do_minmax_body (args, nargout, false); |
2928 | 713 } |
714 | |
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
715 /* |
19412
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
716 ## 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
|
717 %!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
|
718 %!assert (max ([1; -10; 5; -2]), 5) |
19412
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
719 %!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:
18227
diff
changeset
|
720 ## Special routines for char arrays |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
721 %!assert (max (["abc", "ABC"]), 99) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
722 %!assert (max (["abc"; "CBA"]), [97 98 99]) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
723 ## Special routines for logical arrays |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
724 %!assert (max (logical ([])), logical ([])) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
725 %!assert (max (logical ([0 0 1 0])), true) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
726 %!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:
18227
diff
changeset
|
727 ## Single values |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
728 %!assert (max (single ([1, 4, 2, 3])), single (4)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
729 %!assert (max (single ([1; -10; 5; -2])), single (5)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
730 %!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:
18227
diff
changeset
|
731 ## Integer values |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
732 %!assert (max (uint8 ([1, 4, 2, 3])), uint8 (4)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
733 %!assert (max (uint8 ([1; -10; 5; -2])), uint8 (5)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
734 %!assert (max (int8 ([1, 4, 2, 3])), int8 (4)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
735 %!assert (max (int8 ([1; -10; 5; -2])), int8 (5)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
736 %!assert (max (uint16 ([1, 4, 2, 3])), uint16 (4)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
737 %!assert (max (uint16 ([1; -10; 5; -2])), uint16 (5)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
738 %!assert (max (int16 ([1, 4, 2, 3])), int16 (4)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
739 %!assert (max (int16 ([1; -10; 5; -2])), int16 (5)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
740 %!assert (max (uint32 ([1, 4, 2, 3])), uint32 (4)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
741 %!assert (max (uint32 ([1; -10; 5; -2])), uint32 (5)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
742 %!assert (max (int32 ([1, 4, 2, 3])), int32 (4)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
743 %!assert (max (int32 ([1; -10; 5; -2])), int32 (5)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
744 %!assert (max (uint64 ([1, 4, 2, 3])), uint64 (4)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
745 %!assert (max (uint64 ([1; -10; 5; -2])), uint64 (5)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
746 %!assert (max (int64 ([1, 4, 2, 3])), int64 (4)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
747 %!assert (max (int64 ([1; -10; 5; -2])), int64 (5)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
748 ## Sparse double values |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
749 %!assert (max (sparse ([1, 4, 2, 3])), sparse (4)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
750 %!assert (max (sparse ([1; -10; 5; -2])), sparse(5)) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
751 %!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
|
752 |
19412
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
753 ## Test dimension argument |
7600
24abf5a702d9
Chop trailing singletons in min/max functions
David Bateman <dbateman@free.fr>
parents:
7505
diff
changeset
|
754 %!test |
14501
60e5cf354d80
Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions.
Rik <octave@nomad.inbox5.com>
parents:
14360
diff
changeset
|
755 %! 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
|
756 %! 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
|
757 %! 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
|
758 %! [y, i] = min (x, [], 3); |
19412
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
759 %! assert (ndims (y), 2); |
7600
24abf5a702d9
Chop trailing singletons in min/max functions
David Bateman <dbateman@free.fr>
parents:
7505
diff
changeset
|
760 %! assert (y, [1, 3; 2, 4]); |
19412
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
761 %! assert (ndims (i), 2); |
7600
24abf5a702d9
Chop trailing singletons in min/max functions
David Bateman <dbateman@free.fr>
parents:
7505
diff
changeset
|
762 %! assert (i, [1, 1; 1, 1]); |
24abf5a702d9
Chop trailing singletons in min/max functions
David Bateman <dbateman@free.fr>
parents:
7505
diff
changeset
|
763 |
19412
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
764 ## Test 2-output forms for various arg types |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
765 ## Special routines for char arrays |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
766 %!test |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
767 %! [y, i] = max (["abc", "ABC"]); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
768 %! assert (y, 99); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
769 %! assert (i, 3); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
770 ## Special routines for logical arrays |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
771 %!test |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
772 %! x = logical ([0 0 1 0]); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
773 %! [y, i] = max (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
774 %! assert (y, true); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
775 %! assert (i, 3); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
776 ## Special handling of ranges |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
777 %!test |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
778 %! rng = 1:2:10; |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
779 %! [y, i] = max (rng); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
780 %! assert (y, 9); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
781 %! assert (i, 5); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
782 %! rng = 10:-2:1; |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
783 %! [y, i] = max (rng); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
784 %! assert (y, 10); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
785 %! assert (i, 1); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
786 |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
787 ## Test 2-input calling form for various arg types |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
788 ## Test generic double class |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
789 %!test |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
790 %! x = [1, 2, 3, 4]; y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
791 %! assert (max (x, y), [4 3 3 4]); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
792 %! assert (max (x, 3), [3 3 3 4]); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
793 %! assert (max (2, x), [2 2 3 4]); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
794 %! assert (max (x, 2.1i), [2.1i 2.1i 3 4]); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
795 ## 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:
18227
diff
changeset
|
796 ## 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:
18227
diff
changeset
|
797 ## appears in the argument list. |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
798 %!xtest |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
799 %! x = [1, 2, 3, 4]; y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
800 %! assert (max (x, 2i), [2i 2i 3 4]); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
801 ## Special routines for char arrays |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
802 %!assert (max ("abc", "b"), [98 98 99]) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
803 %!assert (max ("b", "cba"), [99 98 98]) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
804 ## Special handling for logical arrays |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
805 %!assert (max ([true false], false), [true false]) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
806 %!assert (max (true, [false false]), [true true]) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
807 ## Single values |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
808 %!test |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
809 %! x = single ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
810 %! assert (max (x, y), single ([4 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
811 %! assert (max (x, 3), single ([3 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
812 %! assert (max (2, x), single ([2 2 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
813 %! 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:
18227
diff
changeset
|
814 ## Integer values |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
815 %!test |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
816 %! x = uint8 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
817 %! assert (max (x, y), uint8 ([4 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
818 %! assert (max (x, 3), uint8 ([3 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
819 %! assert (max (2, x), uint8 ([2 2 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
820 %! x = int8 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
821 %! assert (max (x, y), int8 ([4 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
822 %! assert (max (x, 3), int8 ([3 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
823 %! assert (max (2, x), int8 ([2 2 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
824 %! x = uint16 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
825 %! assert (max (x, y), uint16 ([4 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
826 %! assert (max (x, 3), uint16 ([3 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
827 %! assert (max (2, x), uint16 ([2 2 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
828 %! x = int16 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
829 %! assert (max (x, y), int16 ([4 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
830 %! assert (max (x, 3), int16 ([3 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
831 %! assert (max (2, x), int16 ([2 2 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
832 %! x = uint32 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
833 %! assert (max (x, y), uint32 ([4 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
834 %! assert (max (x, 3), uint32 ([3 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
835 %! assert (max (2, x), uint32 ([2 2 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
836 %! x = int32 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
837 %! assert (max (x, y), int32 ([4 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
838 %! assert (max (x, 3), int32 ([3 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
839 %! assert (max (2, x), int32 ([2 2 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
840 %! x = uint64 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
841 %! assert (max (x, y), uint64 ([4 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
842 %! assert (max (x, 3), uint64 ([3 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
843 %! assert (max (2, x), uint64 ([2 2 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
844 %! x = int64 ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
845 %! assert (max (x, y), int64 ([4 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
846 %! assert (max (x, 3), int64 ([3 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
847 %! assert (max (2, x), int64 ([2 2 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
848 ## Sparse double values |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
849 %!test |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
850 %! x = sparse ([1, 2, 3, 4]); y = fliplr (x); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
851 %! assert (max (x, y), sparse ([4 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
852 %! assert (max (x, 3), sparse ([3 3 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
853 %! assert (max (2, x), sparse ([2 2 3 4])); |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
854 %! 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:
18227
diff
changeset
|
855 |
18076 | 856 ## Test for bug #40743 |
857 %!assert (max (zeros (1,0), ones (1,1)), zeros (1,0)) | |
858 %!assert (max (sparse (zeros (1,0)), sparse (ones (1,1))), sparse (zeros (1,0))) | |
859 | |
14501
60e5cf354d80
Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions.
Rik <octave@nomad.inbox5.com>
parents:
14360
diff
changeset
|
860 %!error max () |
60e5cf354d80
Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions.
Rik <octave@nomad.inbox5.com>
parents:
14360
diff
changeset
|
861 %!error max (1, 2, 3, 4) |
19412
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
862 %!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:
18227
diff
changeset
|
863 %!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:
18227
diff
changeset
|
864 %!error <wrong type argument 'cell'> max ({1 2 3 4}) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
865 %!error <cannot compute max \(cell, scalar\)> max ({1, 2, 3}, 2) |
78e424d31596
Overhaul max/min functions (fixes bug #43712).
Rik <rik@octave.org>
parents:
18227
diff
changeset
|
866 |
7600
24abf5a702d9
Chop trailing singletons in min/max functions
David Bateman <dbateman@free.fr>
parents:
7505
diff
changeset
|
867 */ |
24abf5a702d9
Chop trailing singletons in min/max functions
David Bateman <dbateman@free.fr>
parents:
7505
diff
changeset
|
868 |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
869 template <class ArrayType> |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
870 static octave_value_list |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
871 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
|
872 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
|
873 { |
20892 | 874 octave_value_list retval (nargout > 1 ? 2 : 1); |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
875 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
|
876 |
20892 | 877 if (nargout <= 1) |
878 { | |
879 if (ismin) | |
880 retval(0) = array.cummin (dim); | |
881 else | |
882 retval(0) = array.cummax (dim); | |
883 } | |
884 else | |
9790
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 retval.resize (2); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
887 Array<octave_idx_type> idx; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
888 if (ismin) |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
889 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
|
890 else |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
891 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
|
892 |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
893 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
|
894 } |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
895 |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
896 return retval; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
897 } |
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 static octave_value_list |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
900 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
|
901 int nargout, bool ismin) |
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 int nargin = args.length (); |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
904 |
20802
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
905 if (nargin < 1 || nargin > 2) |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
906 print_usage (); |
20743
b6408331bfa2
eliminate more uses of error_state
John W. Eaton <jwe@octave.org>
parents:
20555
diff
changeset
|
907 |
20892 | 908 const char *func = ismin ? "cummin" : "cummax"; |
909 | |
20802
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
910 octave_value arg = args(0); |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
911 int dim = -1; |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
912 if (nargin == 2) |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
913 { |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
914 dim = args(1).int_value (true) - 1; |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
915 |
20802
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
916 if (dim < 0) |
20831
35241c4b696c
eliminate return statements after calls to error
John W. Eaton <jwe@octave.org>
parents:
20802
diff
changeset
|
917 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
|
918 } |
20802
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
919 |
20892 | 920 octave_value_list retval; |
921 | |
20802
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
922 switch (arg.builtin_type ()) |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
923 { |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
924 case btyp_double: |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
925 retval = do_cumminmax_red_op<NDArray> (arg, nargout, dim, ismin); |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
926 break; |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
927 |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
928 case btyp_complex: |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
929 retval = do_cumminmax_red_op<ComplexNDArray> (arg, nargout, dim, |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
930 ismin); |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
931 break; |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
932 |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
933 case btyp_float: |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
934 retval = do_cumminmax_red_op<FloatNDArray> (arg, nargout, dim, ismin); |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
935 break; |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
936 |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
937 case btyp_float_complex: |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
938 retval = do_cumminmax_red_op<FloatComplexNDArray> (arg, nargout, dim, |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
939 ismin); |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
940 break; |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
941 |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
942 #define MAKE_INT_BRANCH(X) \ |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
943 case btyp_ ## X: \ |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
944 retval = do_cumminmax_red_op<X ## NDArray> (arg, nargout, dim, \ |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
945 ismin); \ |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
946 break; |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
947 |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
948 MAKE_INT_BRANCH (int8); |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
949 MAKE_INT_BRANCH (int16); |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
950 MAKE_INT_BRANCH (int32); |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
951 MAKE_INT_BRANCH (int64); |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
952 MAKE_INT_BRANCH (uint8); |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
953 MAKE_INT_BRANCH (uint16); |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
954 MAKE_INT_BRANCH (uint32); |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
955 MAKE_INT_BRANCH (uint64); |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
956 |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
957 #undef MAKE_INT_BRANCH |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
958 |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
959 case btyp_bool: |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
960 { |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
961 retval = do_cumminmax_red_op<int8NDArray> (arg, nargout, dim, |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
962 ismin); |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
963 if (retval.length () > 0) |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
964 retval(0) = retval(0).bool_array_value (); |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
965 } |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
966 break; |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
967 |
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
968 default: |
21100
e39e05d90788
Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents:
20946
diff
changeset
|
969 err_wrong_type_arg (func, arg); |
20802
8bb38ba1bad6
eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents:
20743
diff
changeset
|
970 } |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
971 |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
972 return retval; |
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
973 } |
8777
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
974 |
15039
e753177cde93
maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory
Rik <rik@octave.org>
parents:
14501
diff
changeset
|
975 DEFUN (cummin, args, nargout, |
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
976 "-*- texinfo -*-\n\ |
20853
1142cf6abc0d
2015 Code Sprint: remove class of function from docstring for all C++ files.
Rik <rik@octave.org>
parents:
20831
diff
changeset
|
977 @deftypefn {} {} cummin (@var{x})\n\ |
1142cf6abc0d
2015 Code Sprint: remove class of function from docstring for all C++ files.
Rik <rik@octave.org>
parents:
20831
diff
changeset
|
978 @deftypefnx {} {} cummin (@var{x}, @var{dim})\n\ |
1142cf6abc0d
2015 Code Sprint: remove class of function from docstring for all C++ files.
Rik <rik@octave.org>
parents:
20831
diff
changeset
|
979 @deftypefnx {} {[@var{w}, @var{iw}] =} cummin (@var{x})\n\ |
17403
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
980 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
|
981 \n\ |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
982 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
|
983 example:\n\ |
9141
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
984 \n\ |
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
985 @example\n\ |
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
986 @group\n\ |
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
987 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
|
988 @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
|
989 @end group\n\ |
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
990 @end example\n\ |
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
991 \n\ |
17403
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
992 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
|
993 returned.\n\ |
10840 | 994 \n\ |
8777
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
995 @example\n\ |
9064
7c02ec148a3c
Check grammar on all .cc files
Rik <rdrider0-list@yahoo.com>
parents:
8949
diff
changeset
|
996 @group\n\ |
17403
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
997 [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
|
998 @result{}\n\ |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
999 w = 5 4 4 2 2 1\n\ |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1000 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
|
1001 @end group\n\ |
8777
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
1002 @end example\n\ |
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
1003 \n\ |
9141
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
1004 @seealso{cummax, min, max}\n\ |
8777
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
1005 @end deftypefn") |
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
1006 { |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
1007 return do_cumminmax_body (args, nargout, true); |
8777
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
1008 } |
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
1009 |
17403
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1010 /* |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1011 %!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
|
1012 %!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
|
1013 %!assert (cummin ([4, i; -2, 2]), [4, i; -2, i]) |
19591
6b09dd576521
Fix cummin/cummax operations on rows when NaN element present (bug #44009).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
19412
diff
changeset
|
1014 %!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
|
1015 |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1016 %!test |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1017 %! x = reshape (1:8, [2,2,2]); |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1018 %! 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
|
1019 %! 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
|
1020 %! [w, iw] = cummin (x, 3); |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1021 %! assert (ndims (w), 3); |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1022 %! 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
|
1023 %! assert (ndims (iw), 3); |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1024 %! assert (iw, ones (2,2,2)); |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1025 |
19591
6b09dd576521
Fix cummin/cummax operations on rows when NaN element present (bug #44009).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
19412
diff
changeset
|
1026 |
17403
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1027 %!error cummin () |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1028 %!error cummin (1, 2, 3) |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1029 */ |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1030 |
15039
e753177cde93
maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory
Rik <rik@octave.org>
parents:
14501
diff
changeset
|
1031 DEFUN (cummax, args, nargout, |
17787
175b392e91fe
Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
1032 "-*- texinfo -*-\n\ |
20853
1142cf6abc0d
2015 Code Sprint: remove class of function from docstring for all C++ files.
Rik <rik@octave.org>
parents:
20831
diff
changeset
|
1033 @deftypefn {} {} cummax (@var{x})\n\ |
1142cf6abc0d
2015 Code Sprint: remove class of function from docstring for all C++ files.
Rik <rik@octave.org>
parents:
20831
diff
changeset
|
1034 @deftypefnx {} {} cummax (@var{x}, @var{dim})\n\ |
1142cf6abc0d
2015 Code Sprint: remove class of function from docstring for all C++ files.
Rik <rik@octave.org>
parents:
20831
diff
changeset
|
1035 @deftypefnx {} {[@var{w}, @var{iw}] =} cummax (@dots{})\n\ |
17403
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1036 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
|
1037 \n\ |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1038 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
|
1039 example:\n\ |
9141
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
1040 \n\ |
8777
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
1041 @example\n\ |
9141
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
1042 @group\n\ |
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
1043 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
|
1044 @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
|
1045 @end group\n\ |
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
1046 @end example\n\ |
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
1047 \n\ |
17403
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1048 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
|
1049 returned.\n\ |
10840 | 1050 \n\ |
8777
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
1051 @example\n\ |
9064
7c02ec148a3c
Check grammar on all .cc files
Rik <rdrider0-list@yahoo.com>
parents:
8949
diff
changeset
|
1052 @group\n\ |
17403
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1053 [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
|
1054 @result{}\n\ |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1055 w = 1 3 3 6 6 6\n\ |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1056 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
|
1057 @end group\n\ |
8777
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
1058 @end example\n\ |
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
1059 \n\ |
9141
c1fff751b5a8
Update section 17.1 (Utility Functions) of arith.txi
Rik <rdrider0-list@yahoo.com>
parents:
9086
diff
changeset
|
1060 @seealso{cummin, max, min}\n\ |
8777
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
1061 @end deftypefn") |
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
1062 { |
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9732
diff
changeset
|
1063 return do_cumminmax_body (args, nargout, false); |
8777
724c0f46d9d4
implement cummin/cummax functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7919
diff
changeset
|
1064 } |
17403
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 /* |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1067 %!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
|
1068 %!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
|
1069 %!assert (cummax ([4, i 4.9, -2, 2, 3+4i]), [4, 4, 4.9, 4.9, 4.9, 3+4i]) |
19591
6b09dd576521
Fix cummin/cummax operations on rows when NaN element present (bug #44009).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
19412
diff
changeset
|
1070 %!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
|
1071 |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1072 %!test |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1073 %! x = reshape (8:-1:1, [2,2,2]); |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1074 %! 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
|
1075 %! 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
|
1076 %! [w, iw] = cummax (x, 3); |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1077 %! assert (ndims (w), 3); |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1078 %! 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
|
1079 %! assert (ndims (iw), 3); |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1080 %! assert (iw, ones (2,2,2)); |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1081 |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1082 %!error cummax () |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1083 %!error cummax (1, 2, 3) |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1084 */ |
db8b90a56298
doc: Reword docstrings for cummax, cummin.
Rik <rik@octave.org>
parents:
16370
diff
changeset
|
1085 |