octave: libinterp/corefcn/__lin_interpn_

annotate libinterp/corefcn/__lin_interpn__.cc @ 29958:32c3a5805893

move DEFUN and DEFMETHOD functions inside octave namespace * mk-opts.pl: Surround emitted function definitions with OCTAVE_NAMESPACE_BEGIN and OCTAVE_NAMESPACE_END tags. * mk-builtins.pl: Surround emitted function declarations with OCTAVE_NAMESPACE_BEGIN and OCTAVE_NAMESPACE_END tags. Emit deprecated global inline functions. * __betainc__.cc, __contourc__.cc, __dsearchn__.cc, __eigs__.cc, __expint__.cc, __ftp__.cc, __gammainc__.cc, __ichol__.cc, __ilu__.cc, __lin_interpn__.cc, __magick_read__.cc, __pchip_deriv__.cc, __qp__.cc, amd.cc, balance.cc, besselj.cc, bitfcns.cc, bsxfun.cc, call-stack.cc, ccolamd.cc, cellfun.cc, chol.cc, colamd.cc, colloc.cc, conv2.cc, daspk.cc, dasrt.cc, dassl.cc, data.cc, debug.cc, defaults.cc, defun.cc, det.cc, dirfns.cc, display.cc, dlmread.cc, dmperm.cc, dot.cc, eig.cc, ellipj.cc, environment.cc, error.cc, event-manager.cc, fcn-info.cc, fft.cc, fft2.cc, fftn.cc, file-io.cc, filter.cc, find.cc, gcd.cc, getgrent.cc, getpwent.cc, getrusage.cc, givens.cc, graphics.cc, gsvd.cc, hash.cc, help.cc, hess.cc, hex2num.cc, input.cc, interpreter.cc, inv.cc, jsondecode.cc, jsonencode.cc, kron.cc, load-path.cc, load-save.cc, lookup.cc, ls-oct-text.cc, lsode.cc, lu.cc, mappers.cc, matrix_type.cc, max.cc, mgorth.cc, nproc.cc, oct-hist.cc, ordqz.cc, ordschur.cc, pager.cc, pinv.cc, pr-flt-fmt.cc, pr-output.cc, psi.cc, qr.cc, quad.cc, quadcc.cc, qz.cc, rand.cc, rcond.cc, regexp.cc, schur.cc, settings.cc, sighandlers.cc, sparse.cc, spparms.cc, sqrtm.cc, stream-euler.cc, strfind.cc, strfns.cc, sub2ind.cc, svd.cc, sylvester.cc, symbfact.cc, symrcm.cc, symtab.cc, syscalls.cc, sysdep.cc, time.cc, toplev.cc, tril.cc, tsearch.cc, typecast.cc, urlwrite.cc, utils.cc, variables.cc, __delaunayn__.cc, __fltk_uigetfile__.cc, __glpk__.cc, __init_gnuplot__.cc, __ode15__.cc, __voronoi__.cc, audiodevinfo.cc, audioread.cc, convhulln.cc, fftw.cc, gzip.cc, ov-base.cc, ov-bool-mat.cc, ov-cell.cc, ov-class.cc, ov-classdef.cc, ov-fcn-handle.cc, ov-java.cc, ov-null-mat.cc, ov-oncleanup.cc, ov-struct.cc, ov-typeinfo.cc, ov-usr-fcn.cc, ov.cc, octave.cc, lex.ll, oct-parse.yy, profiler.cc, pt-eval.cc: Surround DEFUN and DEFMETHOD function defnitions with OCTAVE_NAMESPACE_BEGIN and OCTAVE_NAMESPACE_END tags.

author	John W. Eaton <jwe@octave.org>
date	Fri, 13 Aug 2021 21:53:51 -0400
parents	0a5b15007766
children	796f54d4ddbf

rev	line source
27923 bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	1 ////////////////////////////////////////////////////////////////////////
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	2 //
29358 0a5b15007766 update Octave Project Developers copyright for the new year John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	3 // Copyright (C) 2007-2021 The Octave Project Developers
27923 bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	4 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	5 // See the file COPYRIGHT.md in the top-level directory of this
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	6 // distribution or <https://octave.org/copyright/>.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	7 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	8 // This file is part of Octave.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	9 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	10 // Octave is free software: you can redistribute it and/or modify it
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	11 // under the terms of the GNU General Public License as published by
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	12 // the Free Software Foundation, either version 3 of the License, or
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	13 // (at your option) any later version.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	14 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	15 // Octave is distributed in the hope that it will be useful, but
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	16 // WITHOUT ANY WARRANTY; without even the implied warranty of
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	17 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	18 // GNU General Public License for more details.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	19 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	20 // You should have received a copy of the GNU General Public License
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	21 // along with Octave; see the file COPYING. If not, see
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	22 // <https://www.gnu.org/licenses/>.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	23 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	24 ////////////////////////////////////////////////////////////////////////
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	25
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21660 diff changeset	26 #if defined (HAVE_CONFIG_H)
21301 40de9f8f23a6 Use '#include "config.h"' rather than <config.h>. Rik <rik@octave.org> parents: 21200 diff changeset	27 # include "config.h"
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	28 #endif
b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	29
9003 0631d397fbe0 replace lo_ieee_isnan by xisnan, add missing includes Jaroslav Hajek <highegg@gmail.com> parents: 8920 diff changeset	30 #include "lo-ieee.h"
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	31 #include "dNDArray.h"
8377 25bc2d31e1bf improve OCTAVE_LOCAL_BUFFER Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	32 #include "oct-locbuf.h"
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	33
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14846 diff changeset	34 #include "defun.h"
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	35 #include "error.h"
20940 48b2ad5ee801 maint: Rename oct-obj.[cc\|h] to ovl.[cc\|h] for clarity. Rik <rik@octave.org> parents: 20918 diff changeset	36 #include "ovl.h"
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	37
29958 32c3a5805893 move DEFUN and DEFMETHOD functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29358 diff changeset	38 OCTAVE_NAMESPACE_BEGIN
32c3a5805893 move DEFUN and DEFMETHOD functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29358 diff changeset	39
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	40 // equivalent to isvector.m
b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	41
21139 538b57866b90 consistently use "typename" intead of "class" in template declarations John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	42 template <typename T>
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	43 bool
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	44 isvector (const T& array)
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	45 {
b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	46 const dim_vector dv = array.dims ();
21660 53728df3e4c9 maint: for clarity, call ndims() rather than length() on dimension vectors. Rik <rik@octave.org> parents: 21568 diff changeset	47 return dv.ndims () == 2 && (dv(0) == 1 \|\| dv(1) == 1);
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	48 }
b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	49
b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	50 // lookup a value in a sorted table (lookup.m)
21139 538b57866b90 consistently use "typename" intead of "class" in template declarations John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	51 template <typename T>
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	52 octave_idx_type
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	53 lookup (const T *x, octave_idx_type n, T y)
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	54 {
7561 a938cd7869b2 __lin_interpn__.cc: handle decreasing coordinate values Alexander Barth parents: 7016 diff changeset	55 octave_idx_type j;
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	56
7561 a938cd7869b2 __lin_interpn__.cc: handle decreasing coordinate values Alexander Barth parents: 7016 diff changeset	57 if (x[0] < x[n-1])
a938cd7869b2 __lin_interpn__.cc: handle decreasing coordinate values Alexander Barth parents: 7016 diff changeset	58 {
a938cd7869b2 __lin_interpn__.cc: handle decreasing coordinate values Alexander Barth parents: 7016 diff changeset	59 // increasing x
a938cd7869b2 __lin_interpn__.cc: handle decreasing coordinate values Alexander Barth parents: 7016 diff changeset	60
a938cd7869b2 __lin_interpn__.cc: handle decreasing coordinate values Alexander Barth parents: 7016 diff changeset	61 if (y > x[n-1] \|\| y < x[0])
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	62 return -1;
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	63
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21660 diff changeset	64 #if defined (EXHAUSTIF)
7561 a938cd7869b2 __lin_interpn__.cc: handle decreasing coordinate values Alexander Barth parents: 7016 diff changeset	65 for (j = 0; j < n - 1; j++)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	66 {
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	67 if (x[j] <= y && y <= x[j+1])
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	68 return j;
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	69 }
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	70 #else
7561 a938cd7869b2 __lin_interpn__.cc: handle decreasing coordinate values Alexander Barth parents: 7016 diff changeset	71 octave_idx_type j0 = 0;
a938cd7869b2 __lin_interpn__.cc: handle decreasing coordinate values Alexander Barth parents: 7016 diff changeset	72 octave_idx_type j1 = n - 1;
a938cd7869b2 __lin_interpn__.cc: handle decreasing coordinate values Alexander Barth parents: 7016 diff changeset	73
a938cd7869b2 __lin_interpn__.cc: handle decreasing coordinate values Alexander Barth parents: 7016 diff changeset	74 while (true)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	75 {
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	76 j = (j0+j1)/2;
7561 a938cd7869b2 __lin_interpn__.cc: handle decreasing coordinate values Alexander Barth parents: 7016 diff changeset	77
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	78 if (y <= x[j+1])
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	79 {
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	80 if (x[j] <= y)
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	81 return j;
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	82
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	83 j1 = j;
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	84 }
7561 a938cd7869b2 __lin_interpn__.cc: handle decreasing coordinate values Alexander Barth parents: 7016 diff changeset	85
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	86 if (x[j] <= y)
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	87 j0 = j;
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	88 }
7561 a938cd7869b2 __lin_interpn__.cc: handle decreasing coordinate values Alexander Barth parents: 7016 diff changeset	89 #endif
a938cd7869b2 __lin_interpn__.cc: handle decreasing coordinate values Alexander Barth parents: 7016 diff changeset	90 }
a938cd7869b2 __lin_interpn__.cc: handle decreasing coordinate values Alexander Barth parents: 7016 diff changeset	91 else
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	92 {
7561 a938cd7869b2 __lin_interpn__.cc: handle decreasing coordinate values Alexander Barth parents: 7016 diff changeset	93 // decreasing x
a938cd7869b2 __lin_interpn__.cc: handle decreasing coordinate values Alexander Barth parents: 7016 diff changeset	94 // previous code with x -> -x and y -> -y
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	95
7561 a938cd7869b2 __lin_interpn__.cc: handle decreasing coordinate values Alexander Barth parents: 7016 diff changeset	96 if (y > x[0] \|\| y < x[n-1])
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	97 return -1;
7561 a938cd7869b2 __lin_interpn__.cc: handle decreasing coordinate values Alexander Barth parents: 7016 diff changeset	98
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21660 diff changeset	99 #if defined (EXHAUSTIF)
7561 a938cd7869b2 __lin_interpn__.cc: handle decreasing coordinate values Alexander Barth parents: 7016 diff changeset	100 for (j = 0; j < n - 1; j++)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	101 {
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	102 if (x[j+1] <= y && y <= x[j])
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	103 return j;
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	104 }
7561 a938cd7869b2 __lin_interpn__.cc: handle decreasing coordinate values Alexander Barth parents: 7016 diff changeset	105 #else
a938cd7869b2 __lin_interpn__.cc: handle decreasing coordinate values Alexander Barth parents: 7016 diff changeset	106 octave_idx_type j0 = 0;
a938cd7869b2 __lin_interpn__.cc: handle decreasing coordinate values Alexander Barth parents: 7016 diff changeset	107 octave_idx_type j1 = n - 1;
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	108
7561 a938cd7869b2 __lin_interpn__.cc: handle decreasing coordinate values Alexander Barth parents: 7016 diff changeset	109 while (true)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	110 {
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	111 j = (j0+j1)/2;
7561 a938cd7869b2 __lin_interpn__.cc: handle decreasing coordinate values Alexander Barth parents: 7016 diff changeset	112
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	113 if (y >= x[j+1])
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	114 {
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	115 if (x[j] >= y)
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	116 return j;
7561 a938cd7869b2 __lin_interpn__.cc: handle decreasing coordinate values Alexander Barth parents: 7016 diff changeset	117
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	118 j1 = j;
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	119 }
7561 a938cd7869b2 __lin_interpn__.cc: handle decreasing coordinate values Alexander Barth parents: 7016 diff changeset	120
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	121 if (x[j] >= y)
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	122 j0 = j;
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	123 }
7561 a938cd7869b2 __lin_interpn__.cc: handle decreasing coordinate values Alexander Barth parents: 7016 diff changeset	124 #endif
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	125 }
b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	126 }
b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	127
b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	128 // n-dimensional linear interpolation
b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	129
21139 538b57866b90 consistently use "typename" intead of "class" in template declarations John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	130 template <typename T>
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	131 void
b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	132 lin_interpn (int n, const octave_idx_type size, const octave_idx_type scale,
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	133 octave_idx_type Ni, T extrapval, const T **x,
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	134 const T v, const T y, T vi)
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	135 {
b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	136 bool out = false;
b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	137 int bit;
b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	138
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	139 OCTAVE_LOCAL_BUFFER (T, coef, 2*n);
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	140 OCTAVE_LOCAL_BUFFER (octave_idx_type, index, n);
b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	141
b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	142 // loop over all points
b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	143 for (octave_idx_type m = 0; m < Ni; m++)
b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	144 {
b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	145 // loop over all dimensions
b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	146 for (int i = 0; i < n; i++)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	147 {
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	148 index[i] = lookup (x[i], size[i], y[i][m]);
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	149 out = index[i] == -1;
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	150
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	151 if (out)
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	152 break;
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	153 else
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	154 {
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	155 octave_idx_type j = index[i];
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	156 coef[2*i+1] = (y[i][m] - x[i][j])/(x[i][j+1] - x[i][j]);
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	157 coef[2i] = 1 - coef[2i+1];
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	158 }
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	159 }
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	160
b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	161 if (out)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	162 vi[m] = extrapval;
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	163 else
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	164 {
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	165 vi[m] = 0;
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	166
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	167 // loop over all corners of hypercube (1<<n = 2^n)
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	168 for (int i = 0; i < (1 << n); i++)
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	169 {
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	170 T c = 1;
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	171 octave_idx_type l = 0;
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	172
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	173 // loop over all dimensions
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	174 for (int j = 0; j < n; j++)
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	175 {
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	176 // test if the jth bit in i is set
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	177 bit = i >> j & 1;
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	178 l += scale[j] * (index[j] + bit);
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	179 c = coef[2j+bit];
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	180 }
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	181
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	182 vi[m] += c * v[l];
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	183 }
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	184 }
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	185 }
b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	186 }
b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	187
21139 538b57866b90 consistently use "typename" intead of "class" in template declarations John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	188 template <typename T, typename M>
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	189 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	190 lin_interpn (int n, M X, const M V, M Y)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	191 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	192 octave_value retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	193
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	194 M Vi = M (Y[0].dims ());
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	195
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	196 OCTAVE_LOCAL_BUFFER (const T *, y, n);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	197 OCTAVE_LOCAL_BUFFER (octave_idx_type, size, n);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	198
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	199 for (int i = 0; i < n; i++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	200 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	201 y[i] = Y[i].data ();
21568 3d60ed163b70 maint: Eliminate bad spacing around '='. Rik <rik@octave.org> parents: 21301 diff changeset	202 size[i] = V.dims ()(i);
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	203 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	204
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	205 OCTAVE_LOCAL_BUFFER (const T *, x, n);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	206 OCTAVE_LOCAL_BUFFER (octave_idx_type, scale, n);
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	207
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	208 const T *v = V.data ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	209 T *vi = Vi.fortran_vec ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	210 octave_idx_type Ni = Vi.numel ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	211
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	212 T extrapval = octave_NA;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	213
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	214 // offset in memory of each dimension
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	215
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	216 scale[0] = 1;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	217
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	218 for (int i = 1; i < n; i++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	219 scale[i] = scale[i-1] * size[i-1];
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	220
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	221 // tests if X[0] is a vector, if yes, assume that all elements of X are
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	222 // in the ndgrid format.
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	223
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	224 if (! isvector (X[0]))
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	225 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	226 for (int i = 0; i < n; i++)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	227 {
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	228 if (X[i].dims () != V.dims ())
20831 35241c4b696c eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	229 error ("interpn: incompatible size of argument number %d", i+1);
35241c4b696c eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	230
35241c4b696c eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	231 M tmp = M (dim_vector (size[i], 1));
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	232
20831 35241c4b696c eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	233 for (octave_idx_type j = 0; j < size[i]; j++)
21568 3d60ed163b70 maint: Eliminate bad spacing around '='. Rik <rik@octave.org> parents: 21301 diff changeset	234 tmp(j) = X[i](scale[i]*j);
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	235
20831 35241c4b696c eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	236 X[i] = tmp;
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	237 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	238 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	239
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	240 for (int i = 0; i < n; i++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	241 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	242 if (! isvector (X[i]) && X[i].numel () != size[i])
20831 35241c4b696c eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	243 error ("interpn: incompatible size of argument number %d", i+1);
35241c4b696c eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	244
35241c4b696c eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	245 x[i] = X[i].data ();
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	246 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	247
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	248 lin_interpn (n, size, scale, Ni, extrapval, x, v, y, vi);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	249
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	250 retval = Vi;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	251
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	252 return retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	253 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	254
6945 6bbf56a9718a [project @ 2007-10-02 20:47:22 by jwe] jwe parents: 6742 diff changeset	255 // Perform @var{n}-dimensional interpolation. Each element of then
6bbf56a9718a [project @ 2007-10-02 20:47:22 by jwe] jwe parents: 6742 diff changeset	256 // @var{n}-dimensional array @var{v} represents a value at a location
21751 b571fc85953f maint: Use two spaces after period to indicate sentence break. Rik <rik@octave.org> parents: 21724 diff changeset	257 // given by the parameters @var{x1}, @var{x2},...,@var{xn}. The parameters
6945 6bbf56a9718a [project @ 2007-10-02 20:47:22 by jwe] jwe parents: 6742 diff changeset	258 // @var{x1}, @var{x2}, @dots{}, @var{xn} are either @var{n}-dimensional
23803 90689bdbe048 Use C++11 raw string literals to avoid escaping double quotes. Rik <rik@octave.org> parents: 23220 diff changeset	259 // arrays of the same size as the array @var{v} in the "ndgrid" format
6945 6bbf56a9718a [project @ 2007-10-02 20:47:22 by jwe] jwe parents: 6742 diff changeset	260 // or vectors. The parameters @var{y1}, @var{y2}, @dots{}, @var{yn} are
6bbf56a9718a [project @ 2007-10-02 20:47:22 by jwe] jwe parents: 6742 diff changeset	261 // all @var{n}-dimensional arrays of the same size and represent the
6bbf56a9718a [project @ 2007-10-02 20:47:22 by jwe] jwe parents: 6742 diff changeset	262 // points at which the array @var{vi} is interpolated.
6bbf56a9718a [project @ 2007-10-02 20:47:22 by jwe] jwe parents: 6742 diff changeset	263 //
6bbf56a9718a [project @ 2007-10-02 20:47:22 by jwe] jwe parents: 6742 diff changeset	264 //This function only performs linear interpolation.
6bbf56a9718a [project @ 2007-10-02 20:47:22 by jwe] jwe parents: 6742 diff changeset	265
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14846 diff changeset	266 DEFUN (__lin_interpn__, args, ,
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	267 doc: /* -- texinfo --
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	268 @deftypefn {} {@var{vi} =} __lin_interpn__ (@var{x1}, @var{x2}, @dots{}, @var{xn}, @var{v}, @var{y1}, @var{y2}, @dots{}, @var{yn})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	269 Undocumented internal function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	270 @end deftypefn */)
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	271 {
b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	272 int nargin = args.length ();
b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	273
20812 d9ca869ca124 maint: Clean-up more instances of print_usage(). Rik <rik@octave.org> parents: 20802 diff changeset	274 if (nargin < 2 \|\| nargin % 2 == 0)
20802 8bb38ba1bad6 eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20678 diff changeset	275 print_usage ();
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	276
20918 6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20853 diff changeset	277 octave_value retval;
6f0bd96f93c0 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20853 diff changeset	278
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	279 // dimension of the problem
b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	280 int n = (nargin-1)/2;
b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	281
14846 460a3c6d8bf1 maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	282 if (args(n).is_single_type ())
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	283 {
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	284 OCTAVE_LOCAL_BUFFER (FloatNDArray, X, n);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	285 OCTAVE_LOCAL_BUFFER (FloatNDArray, Y, n);
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	286
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	287 const FloatNDArray V = args(n).float_array_value ();
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	288
b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	289 for (int i = 0; i < n; i++)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	290 {
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	291 X[i] = args(i).float_array_value ();
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	292 Y[i] = args(n+i+1).float_array_value ();
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	293
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	294 if (Y[0].dims () != Y[i].dims ())
20831 35241c4b696c eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	295 error ("interpn: incompatible size of argument number %d", n+i+2);
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	296 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	297
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	298 retval = lin_interpn<float, FloatNDArray> (n, X, V, Y);
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	299 }
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	300 else
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	301 {
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	302 OCTAVE_LOCAL_BUFFER (NDArray, X, n);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	303 OCTAVE_LOCAL_BUFFER (NDArray, Y, n);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	304
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	305 const NDArray V = args(n).array_value ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	306
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	307 for (int i = 0; i < n; i++)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	308 {
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	309 X[i] = args(i).array_value ();
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	310 Y[i] = args(n+i+1).array_value ();
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	311
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	312 if (Y[0].dims () != Y[i].dims ())
20831 35241c4b696c eliminate return statements after calls to error John W. Eaton <jwe@octave.org> parents: 20812 diff changeset	313 error ("interpn: incompatible size of argument number %d", n+i+2);
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9003 diff changeset	314 }
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	315
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	316 retval = lin_interpn<double, NDArray> (n, X, V, Y);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7561 diff changeset	317 }
6702 b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	318
b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	319 return retval;
b2391d403ed2 [project @ 2007-06-12 21:39:26 by dbateman] dbateman parents: diff changeset	320 }
12805 3641167e5b75 codesprint: .cc helper functions do not need tests Rik <octave@nomad.inbox5.com>* parents: 11586 diff changeset	321
3641167e5b75 codesprint: .cc helper functions do not need tests Rik <octave@nomad.inbox5.com>* parents: 11586 diff changeset	322 /*
3641167e5b75 codesprint: .cc helper functions do not need tests Rik <octave@nomad.inbox5.com>* parents: 11586 diff changeset	323 ## No test needed for internal helper function.
3641167e5b75 codesprint: .cc helper functions do not need tests Rik <octave@nomad.inbox5.com>* parents: 11586 diff changeset	324 %!assert (1)
3641167e5b75 codesprint: .cc helper functions do not need tests Rik <octave@nomad.inbox5.com>* parents: 11586 diff changeset	325 */
29958 32c3a5805893 move DEFUN and DEFMETHOD functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29358 diff changeset	326
32c3a5805893 move DEFUN and DEFMETHOD functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 29358 diff changeset	327 OCTAVE_NAMESPACE_END

Mercurial > octave

annotate libinterp/corefcn/__lin_interpn__.cc @ 29958:32c3a5805893