Mercurial > octave
comparison libinterp/corefcn/mappers.cc @ 31607:aac27ad79be6 stable
maint: Re-indent code after switch to using namespace macros.
* build-env.h, build-env.in.cc, Cell.h, __betainc__.cc, __eigs__.cc,
__ftp__.cc, __ichol__.cc, __ilu__.cc, __isprimelarge__.cc, __magick_read__.cc,
__pchip_deriv__.cc, amd.cc, base-text-renderer.cc, base-text-renderer.h,
besselj.cc, bitfcns.cc, bsxfun.cc, c-file-ptr-stream.h, call-stack.cc,
call-stack.h, ccolamd.cc, cellfun.cc, chol.cc, colamd.cc, dasrt.cc, data.cc,
debug.cc, defaults.cc, defaults.h, det.cc, display.cc, display.h, dlmread.cc,
dynamic-ld.cc, dynamic-ld.h, ellipj.cc, environment.cc, environment.h,
error.cc, error.h, errwarn.h, event-manager.cc, event-manager.h,
event-queue.cc, event-queue.h, fcn-info.cc, fcn-info.h, fft.cc, fft2.cc,
file-io.cc, filter.cc, find.cc, ft-text-renderer.cc, ft-text-renderer.h,
gcd.cc, gl-render.cc, gl-render.h, gl2ps-print.cc, gl2ps-print.h,
graphics-toolkit.cc, graphics-toolkit.h, graphics.cc, gsvd.cc, gtk-manager.cc,
gtk-manager.h, help.cc, help.h, hook-fcn.cc, hook-fcn.h, input.cc, input.h,
interpreter-private.cc, interpreter-private.h, interpreter.cc, interpreter.h,
inv.cc, jsondecode.cc, jsonencode.cc, latex-text-renderer.cc,
latex-text-renderer.h, load-path.cc, load-path.h, load-save.cc, load-save.h,
lookup.cc, ls-hdf5.cc, ls-mat4.cc, ls-mat5.cc, lsode.cc, lu.cc, mappers.cc,
matrix_type.cc, max.cc, mex.cc, mexproto.h, mxarray.h, mxtypes.in.h,
oct-errno.in.cc, oct-hdf5-types.cc, oct-hist.cc, oct-hist.h, oct-map.cc,
oct-map.h, oct-opengl.h, oct-prcstrm.h, oct-process.cc, oct-process.h,
oct-stdstrm.h, oct-stream.cc, oct-stream.h, oct-strstrm.h,
octave-default-image.h, ordqz.cc, ordschur.cc, pager.cc, pager.h, pinv.cc,
pow2.cc, pr-output.cc, psi.cc, qr.cc, quadcc.cc, rand.cc, regexp.cc,
settings.cc, settings.h, sighandlers.cc, sighandlers.h, sparse-xpow.cc,
sqrtm.cc, stack-frame.cc, stack-frame.h, stream-euler.cc, strfns.cc, svd.cc,
syminfo.cc, syminfo.h, symrcm.cc, symrec.cc, symrec.h, symscope.cc, symscope.h,
symtab.cc, symtab.h, sysdep.cc, sysdep.h, text-engine.cc, text-engine.h,
text-renderer.cc, text-renderer.h, time.cc, toplev.cc, typecast.cc,
url-handle-manager.cc, url-handle-manager.h, urlwrite.cc, utils.cc, utils.h,
variables.cc, variables.h, xdiv.cc, __delaunayn__.cc, __init_fltk__.cc,
__init_gnuplot__.cc, __ode15__.cc, __voronoi__.cc, audioread.cc, convhulln.cc,
gzip.cc, cdef-class.cc, cdef-class.h, cdef-fwd.h, cdef-manager.cc,
cdef-manager.h, cdef-method.cc, cdef-method.h, cdef-object.cc, cdef-object.h,
cdef-package.cc, cdef-package.h, cdef-property.cc, cdef-property.h,
cdef-utils.cc, cdef-utils.h, ov-base-diag.cc, ov-base-int.cc, ov-base-mat.cc,
ov-base-mat.h, ov-base-scalar.cc, ov-base.cc, ov-base.h, ov-bool-mat.cc,
ov-bool-mat.h, ov-bool-sparse.cc, ov-bool.cc, ov-builtin.h, ov-cell.cc,
ov-ch-mat.cc, ov-class.cc, ov-class.h, ov-classdef.cc, ov-classdef.h,
ov-complex.cc, ov-cx-diag.cc, ov-cx-mat.cc, ov-cx-sparse.cc, ov-dld-fcn.cc,
ov-dld-fcn.h, ov-fcn-handle.cc, ov-fcn-handle.h, ov-fcn.h, ov-float.cc,
ov-flt-complex.cc, ov-flt-cx-diag.cc, ov-flt-cx-mat.cc, ov-flt-re-diag.cc,
ov-flt-re-mat.cc, ov-flt-re-mat.h, ov-intx.h, ov-java.cc, ov-lazy-idx.cc,
ov-legacy-range.cc, ov-magic-int.cc, ov-mex-fcn.cc, ov-mex-fcn.h,
ov-null-mat.cc, ov-perm.cc, ov-range.cc, ov-re-diag.cc, ov-re-mat.cc,
ov-re-mat.h, ov-re-sparse.cc, ov-scalar.cc, ov-str-mat.cc, ov-struct.cc,
ov-typeinfo.cc, ov-typeinfo.h, ov-usr-fcn.cc, ov-usr-fcn.h, ov.cc, ov.h, ovl.h,
octave.cc, octave.h, op-b-sbm.cc, op-bm-sbm.cc, op-cs-scm.cc, op-fm-fcm.cc,
op-fs-fcm.cc, op-s-scm.cc, op-scm-cs.cc, op-scm-s.cc, op-sm-cs.cc, ops.h,
anon-fcn-validator.cc, anon-fcn-validator.h, bp-table.cc, bp-table.h,
comment-list.cc, comment-list.h, filepos.h, lex.h, oct-lvalue.cc, oct-lvalue.h,
parse.h, profiler.cc, profiler.h, pt-anon-scopes.cc, pt-anon-scopes.h,
pt-arg-list.cc, pt-arg-list.h, pt-args-block.cc, pt-args-block.h,
pt-array-list.cc, pt-array-list.h, pt-assign.cc, pt-assign.h, pt-binop.cc,
pt-binop.h, pt-bp.cc, pt-bp.h, pt-cbinop.cc, pt-cbinop.h, pt-cell.cc,
pt-cell.h, pt-check.cc, pt-check.h, pt-classdef.cc, pt-classdef.h, pt-cmd.h,
pt-colon.cc, pt-colon.h, pt-const.cc, pt-const.h, pt-decl.cc, pt-decl.h,
pt-eval.cc, pt-eval.h, pt-except.cc, pt-except.h, pt-exp.cc, pt-exp.h,
pt-fcn-handle.cc, pt-fcn-handle.h, pt-id.cc, pt-id.h, pt-idx.cc, pt-idx.h,
pt-jump.h, pt-loop.cc, pt-loop.h, pt-mat.cc, pt-mat.h, pt-misc.cc, pt-misc.h,
pt-pr-code.cc, pt-pr-code.h, pt-select.cc, pt-select.h, pt-spmd.cc, pt-spmd.h,
pt-stmt.cc, pt-stmt.h, pt-tm-const.cc, pt-tm-const.h, pt-unop.cc, pt-unop.h,
pt-walk.cc, pt-walk.h, pt.cc, pt.h, token.cc, token.h, Range.cc, Range.h,
idx-vector.cc, idx-vector.h, range-fwd.h, CollocWt.cc, CollocWt.h,
aepbalance.cc, aepbalance.h, chol.cc, chol.h, gepbalance.cc, gepbalance.h,
gsvd.cc, gsvd.h, hess.cc, hess.h, lo-mappers.cc, lo-mappers.h, lo-specfun.cc,
lo-specfun.h, lu.cc, lu.h, oct-convn.cc, oct-convn.h, oct-fftw.cc, oct-fftw.h,
oct-norm.cc, oct-norm.h, oct-rand.cc, oct-rand.h, oct-spparms.cc,
oct-spparms.h, qr.cc, qr.h, qrp.cc, qrp.h, randgamma.cc, randgamma.h,
randmtzig.cc, randmtzig.h, randpoisson.cc, randpoisson.h, schur.cc, schur.h,
sparse-chol.cc, sparse-chol.h, sparse-lu.cc, sparse-lu.h, sparse-qr.cc,
sparse-qr.h, svd.cc, svd.h, child-list.cc, child-list.h, dir-ops.cc, dir-ops.h,
file-ops.cc, file-ops.h, file-stat.cc, file-stat.h, lo-sysdep.cc, lo-sysdep.h,
lo-sysinfo.cc, lo-sysinfo.h, mach-info.cc, mach-info.h, oct-env.cc, oct-env.h,
oct-group.cc, oct-group.h, oct-password.cc, oct-password.h, oct-syscalls.cc,
oct-syscalls.h, oct-time.cc, oct-time.h, oct-uname.cc, oct-uname.h,
action-container.cc, action-container.h, base-list.h, cmd-edit.cc, cmd-edit.h,
cmd-hist.cc, cmd-hist.h, f77-fcn.h, file-info.cc, file-info.h,
lo-array-errwarn.cc, lo-array-errwarn.h, lo-hash.cc, lo-hash.h, lo-ieee.h,
lo-regexp.cc, lo-regexp.h, lo-utils.cc, lo-utils.h, oct-base64.cc,
oct-base64.h, oct-glob.cc, oct-glob.h, oct-inttypes.h, oct-mutex.cc,
oct-mutex.h, oct-refcount.h, oct-shlib.cc, oct-shlib.h, oct-sparse.cc,
oct-sparse.h, oct-string.h, octave-preserve-stream-state.h, pathsearch.cc,
pathsearch.h, quit.cc, quit.h, unwind-prot.cc, unwind-prot.h, url-transfer.cc,
url-transfer.h:
Re-indent code after switch to using namespace macros.
author | Rik <rik@octave.org> |
---|---|
date | Thu, 01 Dec 2022 18:02:15 -0800 |
parents | e88a07dec498 |
children | 597f3ee61a48 |
comparison
equal
deleted
inserted
replaced
31605:e88a07dec498 | 31607:aac27ad79be6 |
---|---|
195 %! assert (acosh (x), v, sqrt (eps ("single"))); | 195 %! assert (acosh (x), v, sqrt (eps ("single"))); |
196 | 196 |
197 %!test <49091> | 197 %!test <49091> |
198 %! re = single (2.99822295029797); | 198 %! re = single (2.99822295029797); |
199 %! im = single (pi/2); | 199 %! im = single (pi/2); |
200 %! assert (acosh (single (10i)), re + i*im, 5*eps ("single")); | 200 %! assert (acosh (single (10i)), re + i*im, 5* eps ("single")); |
201 %! assert (acosh (single (-10i)), re - i*im, 5*eps ("single")); | 201 %! assert (acosh (single (-10i)), re - i*im, 5* eps ("single")); |
202 | 202 |
203 ## Test large magnitude arguments (bug #45507) | 203 ## Test large magnitude arguments (bug #45507) |
204 ## Test fails with older versions of libm, solution is to upgrade. | 204 ## Test fails with older versions of libm, solution is to upgrade. |
205 %!testif ; ! ismac () && ! ispc () <*45507> | 205 %!testif ; ! ismac () && ! ispc () <*45507> |
206 %! x = [1, -1, i, -i] .* 1e150; | 206 %! x = [1, -1, i, -i] .* 1e150; |
273 %!assert (arg (single (1)), single (0)) | 273 %!assert (arg (single (1)), single (0)) |
274 %!assert (arg (single (i)), single (pi/2)) | 274 %!assert (arg (single (i)), single (pi/2)) |
275 %!test | 275 %!test |
276 %! if (ismac ()) | 276 %! if (ismac ()) |
277 %! ## Avoid failing for a MacOS feature | 277 %! ## Avoid failing for a MacOS feature |
278 %! assert (arg (single (-1)), single (pi), 2*eps (single (1))); | 278 %! assert (arg (single (-1)), single (pi), 2* eps (single (1))); |
279 %! else | 279 %! else |
280 %! assert (arg (single (-1)), single (pi)); | 280 %! assert (arg (single (-1)), single (pi)); |
281 %! endif | 281 %! endif |
282 %!assert (arg (single (-i)), single (-pi/2)) | 282 %!assert (arg (single (-i)), single (-pi/2)) |
283 %!assert (arg (single ([1, i; -1, -i])), | 283 %!assert (arg (single ([1, i; -1, -i])), |
284 %! single ([0, pi/2; pi, -pi/2]), 2e1*eps ("single")) | 284 %! single ([0, pi/2; pi, -pi/2]), 2e1* eps ("single")) |
285 | 285 |
286 %!error arg () | 286 %!error arg () |
287 %!error arg (1, 2) | 287 %!error arg (1, 2) |
288 */ | 288 */ |
289 | 289 |
676 return ovl (args(0).erf ()); | 676 return ovl (args(0).erf ()); |
677 } | 677 } |
678 | 678 |
679 /* | 679 /* |
680 %!test | 680 %!test |
681 %! a = -1i*sqrt (-1/(6.4187*6.4187)); | 681 %! a = -1i* sqrt (-1/(6.4187*6.4187)); |
682 %! assert (erf (a), erf (real (a))); | 682 %! assert (erf (a), erf (real (a))); |
683 | 683 |
684 %!test | 684 %!test |
685 %! x = [0,.5,1]; | 685 %! x = [0,.5,1]; |
686 %! v = [0, .520499877813047, .842700792949715]; | 686 %! v = [0, .520499877813047, .842700792949715]; |
688 %! assert (erf (-x), -v, 1.e-10); | 688 %! assert (erf (-x), -v, 1.e-10); |
689 %! assert (erfc (x), 1-v, 1.e-10); | 689 %! assert (erfc (x), 1-v, 1.e-10); |
690 %! assert (erfinv (v), x, 1.e-10); | 690 %! assert (erfinv (v), x, 1.e-10); |
691 | 691 |
692 %!test | 692 %!test |
693 %! a = -1i*sqrt (single (-1/(6.4187*6.4187))); | 693 %! a = -1i* sqrt (single (-1/(6.4187*6.4187))); |
694 %! assert (erf (a), erf (real (a))); | 694 %! assert (erf (a), erf (real (a))); |
695 | 695 |
696 %!test | 696 %!test |
697 %! x = single ([0,.5,1]); | 697 %! x = single ([0,.5,1]); |
698 %! v = single ([0, .520499877813047, .842700792949715]); | 698 %! v = single ([0, .520499877813047, .842700792949715]); |
817 return ovl (args(0).erfc ()); | 817 return ovl (args(0).erfc ()); |
818 } | 818 } |
819 | 819 |
820 /* | 820 /* |
821 %!test | 821 %!test |
822 %! a = -1i*sqrt (-1/(6.4187*6.4187)); | 822 %! a = -1i* sqrt (-1/(6.4187*6.4187)); |
823 %! assert (erfc (a), erfc (real (a))); | 823 %! assert (erfc (a), erfc (real (a))); |
824 | 824 |
825 %!error erfc () | 825 %!error erfc () |
826 %!error erfc (1, 2) | 826 %!error erfc (1, 2) |
827 */ | 827 */ |
1155 return ovl (args(0).gamma ()); | 1155 return ovl (args(0).gamma ()); |
1156 } | 1156 } |
1157 | 1157 |
1158 /* | 1158 /* |
1159 %!test | 1159 %!test |
1160 %! a = -1i*sqrt (-1/(6.4187*6.4187)); | 1160 %! a = -1i* sqrt (-1/(6.4187*6.4187)); |
1161 %! assert (gamma (a), gamma (real (a))); | 1161 %! assert (gamma (a), gamma (real (a))); |
1162 | 1162 |
1163 %!test | 1163 %!test |
1164 %! x = [.5, 1, 1.5, 2, 3, 4, 5]; | 1164 %! x = [.5, 1, 1.5, 2, 3, 4, 5]; |
1165 %! v = [sqrt(pi), 1, .5*sqrt(pi), 1, 2, 6, 24]; | 1165 %! v = [sqrt(pi), 1, .5*sqrt(pi), 1, 2, 6, 24]; |
1166 %! assert (gamma (x), v, sqrt (eps)); | 1166 %! assert (gamma (x), v, sqrt (eps)); |
1167 | 1167 |
1168 %!test | 1168 %!test |
1169 %! a = single (-1i*sqrt (-1/(6.4187*6.4187))); | 1169 %! a = single (-1i* sqrt (-1/(6.4187*6.4187))); |
1170 %! assert (gamma (a), gamma (real (a))); | 1170 %! assert (gamma (a), gamma (real (a))); |
1171 | 1171 |
1172 %!test | 1172 %!test |
1173 %! x = single ([.5, 1, 1.5, 2, 3, 4, 5]); | 1173 %! x = single ([.5, 1, 1.5, 2, 3, 4, 5]); |
1174 %! v = single ([sqrt(pi), 1, .5*sqrt(pi), 1, 2, 6, 24]); | 1174 %! v = single ([sqrt(pi), 1, .5*sqrt(pi), 1, 2, 6, 24]); |
1683 return ovl (args(0).lgamma ()); | 1683 return ovl (args(0).lgamma ()); |
1684 } | 1684 } |
1685 | 1685 |
1686 /* | 1686 /* |
1687 %!test | 1687 %!test |
1688 %! a = -1i*sqrt (-1/(6.4187*6.4187)); | 1688 %! a = -1i* sqrt (-1/(6.4187*6.4187)); |
1689 %! assert (gammaln (a), gammaln (real (a))); | 1689 %! assert (gammaln (a), gammaln (real (a))); |
1690 | 1690 |
1691 %!test | 1691 %!test |
1692 %! x = [.5, 1, 1.5, 2, 3, 4, 5]; | 1692 %! x = [.5, 1, 1.5, 2, 3, 4, 5]; |
1693 %! v = [sqrt(pi), 1, .5*sqrt(pi), 1, 2, 6, 24]; | 1693 %! v = [sqrt(pi), 1, .5*sqrt(pi), 1, 2, 6, 24]; |
1694 %! assert (gammaln (x), log (v), sqrt (eps)); | 1694 %! assert (gammaln (x), log (v), sqrt (eps)); |
1695 | 1695 |
1696 %!test | 1696 %!test |
1697 %! a = single (-1i*sqrt (-1/(6.4187*6.4187))); | 1697 %! a = single (-1i* sqrt (-1/(6.4187*6.4187))); |
1698 %! assert (gammaln (a), gammaln (real (a))); | 1698 %! assert (gammaln (a), gammaln (real (a))); |
1699 | 1699 |
1700 %!test | 1700 %!test |
1701 %! x = single ([.5, 1, 1.5, 2, 3, 4, 5]); | 1701 %! x = single ([.5, 1, 1.5, 2, 3, 4, 5]); |
1702 %! v = single ([sqrt(pi), 1, .5*sqrt(pi), 1, 2, 6, 24]); | 1702 %! v = single ([sqrt(pi), 1, .5*sqrt(pi), 1, 2, 6, 24]); |
1738 %!assert (log ([1, e, e^2]), [0, 1, 2], sqrt (eps)) | 1738 %!assert (log ([1, e, e^2]), [0, 1, 2], sqrt (eps)) |
1739 %!assert (log ([-0.5, -1.5, -2.5]), log ([0.5, 1.5, 2.5]) + pi*1i, sqrt (eps)) | 1739 %!assert (log ([-0.5, -1.5, -2.5]), log ([0.5, 1.5, 2.5]) + pi*1i, sqrt (eps)) |
1740 | 1740 |
1741 %!assert (log (single ([1, e, e^2])), single ([0, 1, 2]), sqrt (eps ("single"))) | 1741 %!assert (log (single ([1, e, e^2])), single ([0, 1, 2]), sqrt (eps ("single"))) |
1742 %!assert (log (single ([-0.5, -1.5, -2.5])), | 1742 %!assert (log (single ([-0.5, -1.5, -2.5])), |
1743 %! single (log ([0.5, 1.5, 2.5]) + pi*1i), 4*eps ("single")) | 1743 %! single (log ([0.5, 1.5, 2.5]) + pi*1i), 4* eps ("single")) |
1744 | 1744 |
1745 %!error log () | 1745 %!error log () |
1746 %!error log (1, 2) | 1746 %!error log (1, 2) |
1747 */ | 1747 */ |
1748 | 1748 |