23 #if defined (HAVE_CONFIG_H) 38 DEFUN (colloc, args, ,
47 int nargin = args.length ();
52 if (! args(0).is_scalar_type ())
53 error (
"colloc: N must be a scalar");
55 double tmp = args(0).double_value ();
57 error (
"colloc: N cannot be NaN");
61 error (
"colloc: N must be positive");
69 std::string s = args(
i).xstring_value (
"colloc: optional arguments must be strings");
73 if (
s ==
"r" ||
s ==
"right")
75 else if (
s ==
"l" ||
s ==
"left")
78 error (R
"(colloc: string argument must be "left" or "right")"); 83 error (R
"("colloc: the total number of roots (N + "left" + "right") must be >= 1)"); 92 return ovl (r,
A,
B, q);
F77_RET_T const F77_INT F77_CMPLX const F77_INT F77_CMPLX * B
OCTINTERP_API void print_usage(void)
#define DEFUN(name, args_name, nargout_name, doc)
Macro to define a builtin function.
void error(const char *fmt,...)
in this the arguments are accumulated from left to right
F77_RET_T const F77_INT F77_CMPLX * A
OCTAVE_EXPORT octave_value_list isa nd deftypefn *return ovl(args(0).isinteger())
octave_idx_type nint_big(double x)
ColumnVector transform(const Matrix &m, double x, double y, double z)
ColumnVector quad_weights(void)
If this string is the system will ring the terminal sometimes it is useful to be able to print the original representation of the string