Mercurial > octave
diff scripts/ode/ode15i.m @ 25803:23483673ba43
Use is_function_handle instead of isa (x, "function_handle").
* ov-fcn-handle.cc (Fis_function_handle): Add BIST test for an inline function.
* gradient.m, isequal.m, isequaln.m, __makeinfo__.m,
nthargout.m, decic.m, ode15i.m, ode15s.m, ode23.m, ode45.m,
check_default_input.m, fplot.m, __ezplot__.m, __alltohandles__.m, qmr.m,
spfun.m, args.tst: Use is_function_handle instead of
isa (x, "function_handle").
| author | Rik <rik@octave.org> |
|---|---|
| date | Wed, 15 Aug 2018 15:29:11 -0700 |
| parents | 5625b2237a4d |
| children | 00f796120a6d |
line wrap: on
line diff
--- a/scripts/ode/ode15i.m Wed Aug 15 14:13:28 2018 -0700 +++ b/scripts/ode/ode15i.m Wed Aug 15 15:29:11 2018 -0700 @@ -115,7 +115,7 @@ catch warning (lasterr); end_try_catch - if (! isa (options.Jacobian, "function_handle")) + if (! is_function_handle (options.Jacobian)) error ("Octave:invalid-input-arg", [solver ": invalid value assigned to field 'Jacobian'"]); endif @@ -129,7 +129,7 @@ catch warning (lasterr); end_try_catch - if (! isa (options.OutputFcn, "function_handle")) + if (! is_function_handle (options.OutputFcn)) error ("Octave:invalid-input-arg", [solver ": invalid value assigned to field 'OutputFcn'"]); endif @@ -143,7 +143,7 @@ catch warning (lasterr); end_try_catch - if (! isa (options.Events, "function_handle") + if (! is_function_handle (options.Events) && ! ismatrix (options.Events)) error ("Octave:invalid-input-arg", [solver ": invalid value assigned to field 'Events'"]); @@ -194,7 +194,7 @@ [solver ": invalid value assigned to field 'Jacobian'"]); endif - elseif (isa (options.Jacobian, "function_handle")) + elseif (is_function_handle (options.Jacobian)) options.havejacfun = true; if (nargin (options.Jacobian) == 3) [A, B] = options.Jacobian (trange(1), y0, yp0);