37 DEFUN (__dsearchn__, args, ,
39 @deftypefn {Built-in Function} {[@var{idx}, @var{d}] =} dsearch (@var{x}, @var{xi})\n\
40 Undocumented internal function.\n\
43 int nargin = args.length ();
52 Matrix x = args(0).matrix_value ().transpose ();
53 Matrix xi = args(1).matrix_value ().transpose ();
58 error (
"__dsearch__: number of rows of X and XI must match");
70 #define DIST(dd, y, yi, m) \
72 for (octave_idx_type k = 0; k < m; k++) \
74 double yd = y[k] - yi[k]; \
94 *pidx =
static_cast<double>(j + 1);
OCTINTERP_API void print_usage(void)
#define DEFUN(name, args_name, nargout_name, doc)
void error(const char *fmt,...)
octave_idx_type rows(void) const
F77_RET_T const double const double double * d
#define DIST(dd, y, yi, m)
const T * fortran_vec(void) const
static const double xi[33]
octave_idx_type columns(void) const
F77_RET_T const double * x