23 #if defined (HAVE_CONFIG_H)
48 if (nargin < 1 || nargin > 3)
51 if (!
args(0).is_scalar_type ())
52 error (
"colloc: N must be a scalar");
54 double tmp =
args(0).double_value ();
56 error (
"colloc: N cannot be NaN");
60 error (
"colloc: N must be positive");
68 std::string s =
args(
i).xstring_value (
"colloc: optional arguments must be strings");
70 if ((s.length () == 1 && (s[0] ==
'R' || s[0] ==
'r')) || s ==
"right")
72 else if ((s.length () == 1 && (s[0] ==
'L' || s[0] ==
'l'))
76 error (
"colloc: string argument must be \"left\" or \"right\"");
81 error (
"colloc: the total number of roots must be positive");
90 return ovl (r, A, B, q);
OCTAVE_EXPORT octave_value_list isa nd deftypefn *return ovl(args(0).is_integer_type())
OCTINTERP_API void print_usage(void)
#define DEFUN(name, args_name, nargout_name, doc)
void error(const char *fmt,...)
in this the arguments are accumulated from left to right
F77_RET_T const F77_INT F77_CMPLX const F77_INT F77_CMPLX * B
=val(i)}if ode{val(i)}occurs in table i
octave_idx_type nint_big(double x)
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
F77_RET_T const F77_INT F77_CMPLX * A