octave-nkf: scripts/ode/private/ode_struct_value

annotate scripts/ode/private/ode_struct_value_check.m @ 20620:e5f36a7854a5

Remove fuzzy matching from odeset/odeget. * levenshtein.cc: Deleted file. * libinterp/corefcn/module.mk: Remove levenshtein.cc from build system. * fuzzy_compare.m: Deleted file. * scripts/ode/module.mk: Remove fuzzy_compare.m from build system * odeget.m: Reword docstring. Use a persistent cellstr variable to keep track of all options. Replace fuzzy_compare() calls with combination of strcmpi and strncmpi. Report errors relative to function odeget rather than OdePkg. Rewrite and extend BIST tests. Add input validation BIST tests. * odeset.m: Reword docstring. Use a persistent cellstr variable to keep track of all options. Replace fuzzy_compare() calls with combination of strcmpi and strncmpi. Report errors relative to function odeset rather than OdePkg. Use more meaningful variables names and create intermediate variables with logical names to help make code readable. Remove interactive input when multiple property names match and just issue an error. Rewrite BIST tests. * ode_struct_value_check.m: Remove input checking for private function which must always be invoked correctly by caller. Use intermediate variables opt and val to make the code more understandable. Consolidate checks on values into single if statements. Use 'val == fix (val)' to check for integer. * __unimplemented__.m: Removed odeset, odeget, ode45 from list.

author	Rik <rik@octave.org>
date	Fri, 09 Oct 2015 12:03:23 -0700
parents	b7ac1e94266e
children

rev	line source
20586 b7ac1e94266e maint: Further clean up of functions in ode/private dir. Rik <rik@octave.org> parents: 20584 diff changeset	1 ## Copyright (C) 2013, Roberto Porcu' <roberto.porcu@polimi.it>
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	2 ## Copyright (C) 2006-2012, Thomas Treichl <treichl@users.sourceforge.net>
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	3 ##
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	4 ## This file is part of Octave.
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	5 ##
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	6 ## Octave is free software; you can redistribute it and/or modify it
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	7 ## under the terms of the GNU General Public License as published by
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	8 ## the Free Software Foundation; either version 3 of the License, or (at
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	9 ## your option) any later version.
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	10 ##
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	11 ## Octave is distributed in the hope that it will be useful, but
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	12 ## WITHOUT ANY WARRANTY; without even the implied warranty of
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	13 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	14 ## General Public License for more details.
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	15 ##
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	16 ## You should have received a copy of the GNU General Public License
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	17 ## along with Octave; see the file COPYING. If not, see
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	18 ## <http://www.gnu.org/licenses/>.
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	19
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	20 ## -- texinfo --
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	21 ## @deftypefn {Function File} {} ode_struct_value_check (@var{arg})
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	22 ## @deftypefnx {Function File} {} ode_struct_value_check (@var{arg}, @var{"solver"})
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	23 ##
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	24 ## If this function is called with one input argument of type structure array
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	25 ## then check the field names and the field values of the OdePkg structure
20580 25623ef2ff4f doc: Rewrite docstrings for ode* family of functions. Rik <rik@octave.org> parents: 20570 diff changeset	26 ## @var{arg}. Optionally if this function is called with a second input
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	27 ## argument @var{"solver"} of type string that specifies the name of a valid
20580 25623ef2ff4f doc: Rewrite docstrings for ode* family of functions. Rik <rik@octave.org> parents: 20570 diff changeset	28 ## OdePkg solver then a higher level error detection is performed. The function
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	29 ## does not modify any of the field names or field values but terminates with
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	30 ## an error if an invalid option or value is found.
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	31 ##
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	32 ## This function is an OdePkg internal helper function; Therefore, it should
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	33 ## never be necessary for a user to call this function directly.
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	34 ## @end deftypefn
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	35 ##
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	36 ## @seealso{odeset, odeget}
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	37
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	38 function ode_struct_value_check (arg, solver = [])
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	39
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	40 fields = (fieldnames (arg)).';
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	41 fields_nb = length (fields);
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	42
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	43 for fldname = fields # Cycle over all fields
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	44 opt = fldname{1};
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	45 val = arg.(opt);
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	46
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	47 switch (opt)
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	48
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	49 case "AbsTol"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	50 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	51 if (! isnumeric (val) \|\| ! isreal (val)
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	52 \|\| ! isvector (val) \|\| any (val <= 0))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	53 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	54 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	55 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	56 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	57
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	58 case "Algorithm"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	59 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	60 if (! ischar (val))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	61 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	62 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	63 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	64 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	65
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	66 case "BDF"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	67 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	68 if (! strcmp (val, "on") && ! strcmp (val, "off"))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	69 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	70 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	71 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	72 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	73
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	74 case "Choice"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	75 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	76 if (! isnumeric (val))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	77 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	78 "invalid value assigned to field %s", opt);
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	79 elseif (val != 1 && val != 2)
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	80 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	81 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	82 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	83 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	84
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	85 case "Eta"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	86 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	87 if (! isreal (val) \|\| val < 0 \|\| val >= 1)
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	88 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	89 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	90 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	91 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	92
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	93 case "Events"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	94 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	95 if (! isa (val, "function_handle"))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	96 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	97 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	98 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	99 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	100
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	101 case "Explicit"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	102 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	103 if (! strcmp (val, "yes") && ! strcmp (val, "no"))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	104 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	105 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	106 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	107 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	108
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	109 case "InexactSolver"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	110 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	111 if (! ischar (val))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	112 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	113 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	114 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	115 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	116
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	117 case "InitialSlope"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	118 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	119 if (! ischar (val)
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	120 && (! isnumeric (val) \|\| (! isvector (val) && ! isreal (val))))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	121 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	122 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	123 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	124 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	125
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	126 case "InitialStep"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	127 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	128 if (! isnumeric (val) \|\| ! isreal (val) \|\| ! isscalar (val)
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	129 \|\| val <= 0)
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	130 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	131 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	132 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	133 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	134
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	135 case "Jacobian"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	136 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	137 if (! isnumeric (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	138 if (! isa (val, "function_handle") && ! iscell (val))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	139 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	140 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	141 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	142 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	143 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	144
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	145 case "JConstant"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	146 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	147 if (! strcmp (val, "on") && ! strcmp (val, "off"))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	148 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	149 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	150 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	151 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	152
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	153 case "JPattern"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	154 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	155 if (! isnumeric (val) && ! isvector (val))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	156 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	157 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	158 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	159 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	160
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	161 case "Mass"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	162 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	163 if ((! isnumeric (val) \|\| ! ismatrix (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	164 && ! isa (val, "function_handle"))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	165 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	166 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	167 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	168 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	169
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	170 case "MassConstant"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	171 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	172 if (! strcmp (val, "on") && ! strcmp (val, "off"))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	173 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	174 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	175 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	176 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	177
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	178 case "MassSingular"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	179 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	180 if (! any (strcmp (val, {"yes", "no", "maybe"})))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	181 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	182 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	183 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	184 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	185
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	186 case "MaxNewtonIterations"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	187 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	188 if (! isnumeric (val)
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	189 \|\| val != fix (val) \|\| val <= 0)
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	190 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	191 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	192 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	193 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	194
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	195 case "MaxOrder"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	196 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	197 if (! isnumeric (val)
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	198 \|\| val != fix (val) \|\| val <= 0 \|\| val >= 8)
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	199 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	200 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	201 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	202 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	203
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	204 case "MaxStep"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	205 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	206 if (! isnumeric (val) \|\| ! isscalar (val) \|\| val <= 0)
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	207 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	208 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	209 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	210 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	211
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	212 case "MStateDependence"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	213 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	214 if (! any (strcmp (val, {"none", "weak", "strong"})))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	215 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	216 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	217 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	218 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	219
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	220 case "MvPattern"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	221 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	222 if (! isnumeric (val) && ! isvector (val))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	223 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	224 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	225 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	226 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	227
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	228 case "NewtonTol"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	229 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	230 if (! isnumeric (val) \|\| ! isreal (val) \|\| any (val <= 0))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	231 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	232 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	233 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	234 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	235
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	236 case "NonNegative"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	237 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	238 if (! isnumeric (val) \|\| ! isvector (val)
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	239 \|\| any (val <= 0) \|\| any (val != fix (val)))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	240 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	241 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	242 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	243 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	244
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	245 case "NormControl"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	246 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	247 if (! strcmp (val, "on") && ! strcmp (val, "off"))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	248 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	249 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	250 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	251 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	252
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	253 case "OutputFcn"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	254 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	255 if (! isa (val, "function_handle"))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	256 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	257 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	258 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	259 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	260
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	261 case "OutputSave"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	262 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	263 if (! isscalar (val) && val != Inf)
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	264 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	265 "invalid value assigned to field %s", opt);
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	266 elseif ((val != fix (val) \|\| val <= 0) && val != Inf)
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	267 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	268 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	269 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	270 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	271
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	272 case "OutputSel"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	273 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	274 if (! isnumeric (val) \|\| ! isvector (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	275 error ("OdePkg:InvalidArgument",
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	276 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	277 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	278 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	279
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	280 case "PolynomialDegree"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	281 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	282 if (! isnumeric (val) \|\| ! isvector (val) \|\| any (val <= 0))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	283 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	284 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	285 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	286 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	287
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	288 case "QuadratureOrder"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	289 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	290 if (! isnumeric (val) \|\| ! isvector (val) \|\| any (val <= 0))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	291 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	292 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	293 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	294 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	295
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	296 case "Refine"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	297 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	298 if (! isnumeric (val) \|\| ! isscalar (val)
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	299 \|\| val != fix (val) \|\| val < 0 \|\| val > 5)
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	300 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	301 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	302 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	303 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	304
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	305 case "RelTol"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	306 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	307 if (! isnumeric (val) \|\| ! isreal (val) \|\| any (val <= 0))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	308 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	309 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	310 endif
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	311 if (any (strcmp (solver, {"ode23", "ode23d", "ode45", "ode45d",
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	312 "ode54", "ode54d", "ode78", "ode78d"})))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	313 if (! isscalar (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	314 error ("OdePkg:InvalidArgument",
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	315 "invalid value assigned to field %s", opt);
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	316 endif
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	317 endif
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	318 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	319
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	320 case "Restart"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	321 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	322 if (! isnumeric (val) \|\| val != fix (val) \|\| val <= 0)
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	323 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	324 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	325 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	326 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	327
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	328 case "Stats"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	329 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	330 if (! strcmp (val, "on") && ! strcmp (val, "off"))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	331 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	332 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	333 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	334 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	335
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	336 case "TimeStepNumber"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	337 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	338 if (val != fix (val) \|\| val <= 0)
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	339 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	340 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	341 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	342 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	343
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	344 case "TimeStepSize"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	345 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	346 if (! isreal (val) \|\| val == 0)
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	347 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	348 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	349 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	350 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	351
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	352 case "UseJacobian"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	353 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	354 if (! strcmp (val, "yes") && ! strcmp (val, "no"))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	355 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	356 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	357 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	358 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	359
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	360 case "Vectorized"
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	361 if (! isempty (val))
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	362 if (! strcmp (val, "on") && ! strcmp (val, "off"))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	363 error ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	364 "invalid value assigned to field %s", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	365 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	366 endif
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	367
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	368 otherwise
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	369 warning ("OdePkg:InvalidArgument",
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	370 "invalid field '%s' in ODE options", opt);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	371 endswitch
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	372 endfor
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	373
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	374 endfunction
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	375
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	376
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	377 %!demo
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	378 %! # Return the checked OdePkg options structure that is created by
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	379 %! # the command odeset.
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	380 %!
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	381 %! ode_struct_value_check (odeset);
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	382 %!
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	383 %!demo
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	384 %! # Create the OdePkg options structure A with odeset and check it
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	385 %! # with odepkg_structure_check. This actually is unnecessary
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	386 %! # because odeset automatically calls odepkg_structure_check before
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	387 %! # returning.
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	388 %!
20620 e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	389 %! A = odeset ();
e5f36a7854a5 Remove fuzzy matching from odeset/odeget. Rik <rik@octave.org> parents: 20586 diff changeset	390 %! ode_struct_value_check (A);
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	391

Mercurial > octave-nkf

annotate scripts/ode/private/ode_struct_value_check.m @ 20620:e5f36a7854a5