octave-nkf: scripts/ode/private/odepkg_structure

annotate scripts/ode/private/odepkg_structure_check.m @ 20584:eb9e2d187ed2

maint: Use Octave coding conventions in scripts/ode/private dir. * AbsRel_Norm.m, fuzzy_compare.m, hermite_quartic_interpolation.m, integrate_adaptive.m, integrate_const.m, integrate_n_steps.m, kahan.m, ode_struct_value_check.m, odepkg_event_handle.m, odepkg_structure_check.m, runge_kutta_45_dorpri.m, starting_stepsize.m: Wrap long lines to < 80 chars. Use double quotes rather than single quotes where possible. Use ';' at end of keywords "return;" and "break;" Use '##" for stand-alone comments and '#' for end-of-line comments. Use two spaces after period before starting new sentence. Use '!' instead of '~' for logical negation. Use specific form of end (endif, endfor, etc.). Don't use line continuation marker '...' unless necessary.

author	Rik <rik@octave.org>
date	Sun, 04 Oct 2015 22:18:54 -0700
parents	25623ef2ff4f
children	b7ac1e94266e

rev	line source
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	1 ## Copyright (C) 2006-2012, Thomas Treichl <treichl@users.sourceforge.net>
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	2 ## Copyright (C) 2013, Roberto Porcu' <roberto.porcu@polimi.it>
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	3 ## OdePkg - A package for solving ordinary differential equations and more
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	4 ##
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	5 ## This program is free software; you can redistribute it and/or modify
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	6 ## it under the terms of the GNU General Public License as published by
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	7 ## the Free Software Foundation; either version 2 of the License, or
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	8 ## (at your option) any later version.
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	9 ##
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	10 ## This program is distributed in the hope that it will be useful,
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	11 ## but WITHOUT ANY WARRANTY; without even the implied warranty of
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	13 ## GNU General Public License for more details.
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	14 ##
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	15 ## You should have received a copy of the GNU General Public License
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	16 ## along with this program; If not, see <http://www.gnu.org/licenses/>.
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	17
20580 25623ef2ff4f doc: Rewrite docstrings for ode* family of functions. Rik <rik@octave.org> parents: 20568 diff changeset	18 ## -- texinfo --
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	19 ## @deftypefn {Function File} {@var{newstruct} =} odepkg_structure_check (@var{oldstruct})
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	20 ## @deftypefnx {Function File} {@var{newstruct} =} odepkg_structure_check (@var{oldstruct}, @var{"solver"})
20580 25623ef2ff4f doc: Rewrite docstrings for ode* family of functions. Rik <rik@octave.org> parents: 20568 diff changeset	21 ##
25623ef2ff4f doc: Rewrite docstrings for ode* family of functions. Rik <rik@octave.org> parents: 20568 diff changeset	22 ## If this function is called with one input argument of type structure array
25623ef2ff4f doc: Rewrite docstrings for ode* family of functions. Rik <rik@octave.org> parents: 20568 diff changeset	23 ## then check the field names and the field values of the OdePkg structure
25623ef2ff4f doc: Rewrite docstrings for ode* family of functions. Rik <rik@octave.org> parents: 20568 diff changeset	24 ## @var{oldstruct} and return the structure as @var{newstruct} if no error is
25623ef2ff4f doc: Rewrite docstrings for ode* family of functions. Rik <rik@octave.org> parents: 20568 diff changeset	25 ## found.
25623ef2ff4f doc: Rewrite docstrings for ode* family of functions. Rik <rik@octave.org> parents: 20568 diff changeset	26 ##
25623ef2ff4f doc: Rewrite docstrings for ode* family of functions. Rik <rik@octave.org> parents: 20568 diff changeset	27 ## Optionally if this function is called with a second input argument
25623ef2ff4f doc: Rewrite docstrings for ode* family of functions. Rik <rik@octave.org> parents: 20568 diff changeset	28 ## @var{"solver"} of type string taht specifies the name of a valid OdePkg
25623ef2ff4f doc: Rewrite docstrings for ode* family of functions. Rik <rik@octave.org> parents: 20568 diff changeset	29 ## solver then a higher level error detection is performed. The function
25623ef2ff4f doc: Rewrite docstrings for ode* family of functions. Rik <rik@octave.org> parents: 20568 diff changeset	30 ## does not modify any of the field names or field values but terminates with
25623ef2ff4f doc: Rewrite docstrings for ode* family of functions. Rik <rik@octave.org> parents: 20568 diff changeset	31 ## an error if an invalid option or value is found.
25623ef2ff4f doc: Rewrite docstrings for ode* family of functions. Rik <rik@octave.org> parents: 20568 diff changeset	32 ##
25623ef2ff4f doc: Rewrite docstrings for ode* family of functions. Rik <rik@octave.org> parents: 20568 diff changeset	33 ## This function is an OdePkg internal helper function therefore it should
25623ef2ff4f doc: Rewrite docstrings for ode* family of functions. Rik <rik@octave.org> parents: 20568 diff changeset	34 ## never be necessary that this function is called directly by a user. There
25623ef2ff4f doc: Rewrite docstrings for ode* family of functions. Rik <rik@octave.org> parents: 20568 diff changeset	35 ## is only little error detection implemented in this function file to
25623ef2ff4f doc: Rewrite docstrings for ode* family of functions. Rik <rik@octave.org> parents: 20568 diff changeset	36 ## achieve the highest performance.
25623ef2ff4f doc: Rewrite docstrings for ode* family of functions. Rik <rik@octave.org> parents: 20568 diff changeset	37 ##
25623ef2ff4f doc: Rewrite docstrings for ode* family of functions. Rik <rik@octave.org> parents: 20568 diff changeset	38 ## Run examples with the command
25623ef2ff4f doc: Rewrite docstrings for ode* family of functions. Rik <rik@octave.org> parents: 20568 diff changeset	39 ##
25623ef2ff4f doc: Rewrite docstrings for ode* family of functions. Rik <rik@octave.org> parents: 20568 diff changeset	40 ## @example
25623ef2ff4f doc: Rewrite docstrings for ode* family of functions. Rik <rik@octave.org> parents: 20568 diff changeset	41 ## demo odepkg_structure_check
25623ef2ff4f doc: Rewrite docstrings for ode* family of functions. Rik <rik@octave.org> parents: 20568 diff changeset	42 ## @end example
25623ef2ff4f doc: Rewrite docstrings for ode* family of functions. Rik <rik@octave.org> parents: 20568 diff changeset	43 ## @end deftypefn
25623ef2ff4f doc: Rewrite docstrings for ode* family of functions. Rik <rik@octave.org> parents: 20568 diff changeset	44 ##
25623ef2ff4f doc: Rewrite docstrings for ode* family of functions. Rik <rik@octave.org> parents: 20568 diff changeset	45 ## @seealso{odepkg}
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	46
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	47 function vret = odepkg_structure_check (varargin)
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	48
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	49 ## Check the number of input arguments
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	50 if (nargin == 0)
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	51 help ("odepkg_structure_check");
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	52 error ("OdePkg:InvalidArgument",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	53 "Number of input arguments must be greater than zero");
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	54 elseif (nargin > 2)
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	55 print_usage;
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	56 elseif (nargin == 1 && isstruct (varargin{1}))
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	57 vret = varargin{1};
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	58 vsol = "";
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	59 vfld = fieldnames (vret);
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	60 vlen = length (vfld);
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	61 elseif (nargin == 2 && isstruct (varargin{1}) && ischar (varargin{2}))
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	62 vret = varargin{1};
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	63 vsol = varargin{2};
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	64 vfld = fieldnames (vret);
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	65 vlen = length (vfld);
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	66 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	67
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	68 for vcntarg = 1:vlen # Run through the number of given structure field names
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	69
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	70 switch (vfld{vcntarg})
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	71
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	72 case "RelTol"
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	73 if (isempty (vret.(vfld{vcntarg})) \|\| ...
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	74 (isnumeric (vret.(vfld{vcntarg})) && ...
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	75 isreal (vret.(vfld{vcntarg})) && ...
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	76 all (vret.(vfld{vcntarg}) > 0))) # "all" is a MatLab need
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	77 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	78 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	79 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	80 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	81 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	82
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	83 if (any (strcmp (vsol, {"ode23", "ode45", "ode54", "ode78",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	84 "ode23d", "ode45d", "ode54d", "ode78d"})))
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	85 if (! isscalar (vret.(vfld{vcntarg}))
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	86 && ! isempty (vret.(vfld{vcntarg})))
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	87 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	88 'Value of option "RelTol" must be a scalar');
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	89 endif
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	90 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	91
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	92 case "AbsTol"
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	93 if (isempty (vret.(vfld{vcntarg})) \|\| ...
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	94 (isnumeric (vret.(vfld{vcntarg})) && ...
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	95 isreal (vret.(vfld{vcntarg})) && ...
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	96 all (vret.(vfld{vcntarg}) > 0)))
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	97 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	98 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	99 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	100 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	101 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	102
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	103 case "NormControl"
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	104 if (isempty (vret.(vfld{vcntarg})) \|\| ...
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	105 (strcmp (vret.(vfld{vcntarg}), "on") \|\| ...
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	106 strcmp (vret.(vfld{vcntarg}), "off")))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	107 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	108 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	109 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	110 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	111 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	112
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	113 case "NonNegative"
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	114 if (isempty (vret.(vfld{vcntarg})) \|\| ...
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	115 (isnumeric (vret.(vfld{vcntarg}))
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	116 && isvector (vret.(vfld{vcntarg}))))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	117 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	118 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	119 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	120 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	121 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	122
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	123 case "OutputFcn"
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	124 if (isempty (vret.(vfld{vcntarg})) \|\| ...
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	125 isa (vret.(vfld{vcntarg}), "function_handle"))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	126 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	127 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	128 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	129 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	130 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	131
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	132 case "OutputSel"
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	133 if (isempty (vret.(vfld{vcntarg})) \|\| ...
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	134 (isnumeric (vret.(vfld{vcntarg}))
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	135 && isvector (vret.(vfld{vcntarg}))) \|\| ...
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	136 isscalar (vret.(vfld{vcntarg})))
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	137 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	138 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	139 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	140 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	141 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	142
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	143 case "OutputSave"
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	144 if (isempty (vret.(vfld{vcntarg})) \|\| ...
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	145 (isscalar (vret.(vfld{vcntarg})) && ...
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	146 mod (vret.(vfld{vcntarg}), 1) == 0 && ...
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	147 vret.(vfld{vcntarg}) > 0) \|\| ...
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	148 vret.(vfld{vcntarg}) == Inf)
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	149 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	150 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	151 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	152 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	153 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	154
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	155 case "Refine"
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	156 if (isempty (vret.(vfld{vcntarg})) \|\| ...
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	157 (isscalar (vret.(vfld{vcntarg})) && ...
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	158 mod (vret.(vfld{vcntarg}), 1) == 0 && ...
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	159 vret.(vfld{vcntarg}) >= 0 && ...
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	160 vret.(vfld{vcntarg}) <= 5))
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	161 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	162 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	163 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	164 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	165 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	166
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	167 case "Stats"
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	168 if (isempty (vret.(vfld{vcntarg})) \|\| ...
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	169 (strcmp (vret.(vfld{vcntarg}), "on") \|\| ...
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	170 strcmp (vret.(vfld{vcntarg}), "off")))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	171 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	172 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	173 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	174 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	175 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	176
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	177 case "InitialStep"
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	178 if (isempty (vret.(vfld{vcntarg})) \|\| ...
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	179 (isscalar (vret.(vfld{vcntarg})) && ...
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	180 isreal (vret.(vfld{vcntarg}))))
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	181 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	182 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	183 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	184 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	185 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	186
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	187 case "MaxStep"
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	188 if (isempty (vret.(vfld{vcntarg})) \|\| ...
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	189 (isscalar (vret.(vfld{vcntarg})) && ...
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	190 vret.(vfld{vcntarg}) > 0) )
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	191 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	192 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	193 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	194 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	195 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	196
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	197 case "Events"
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	198 if (isempty (vret.(vfld{vcntarg})) \|\| ...
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	199 isa (vret.(vfld{vcntarg}), "function_handle"))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	200 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	201 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	202 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	203 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	204 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	205
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	206 case "Jacobian"
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	207 if (isempty (vret.(vfld{vcntarg})) \|\| ...
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	208 isnumeric (vret.(vfld{vcntarg})) \|\| ...
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	209 isa (vret.(vfld{vcntarg}), "function_handle") \|\| ...
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	210 iscell (vret.(vfld{vcntarg})))
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	211 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	212 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	213 'Unknown parameter name "%s" or no valid parameter value',
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	214 vfld{vcntarg});
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	215 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	216
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	217 case "JPattern"
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	218 if (isempty (vret.(vfld{vcntarg})) \|\| ...
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	219 isvector (vret.(vfld{vcntarg})) \|\| ...
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	220 isnumeric (vret.(vfld{vcntarg})))
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	221 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	222 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	223 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	224 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	225 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	226
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	227 case "Vectorized"
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	228 if (isempty (vret.(vfld{vcntarg})) \|\| ...
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	229 (strcmp (vret.(vfld{vcntarg}), "on") \|\| ...
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	230 strcmp (vret.(vfld{vcntarg}), "off")))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	231 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	232 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	233 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	234 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	235 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	236
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	237 case "Mass"
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	238 if (isempty (vret.(vfld{vcntarg})) \|\| ...
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	239 (isnumeric (vret.(vfld{vcntarg})) \|\| ...
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	240 isa (vret.(vfld{vcntarg}), "function_handle")))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	241 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	242 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	243 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	244 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	245 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	246
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	247 case "MStateDependence"
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	248 if (isempty (vret.(vfld{vcntarg})) \|\| ...
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	249 (strcmp (vret.(vfld{vcntarg}), "none") \|\| ...
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	250 strcmp (vret.(vfld{vcntarg}), "weak") \|\| ...
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	251 strcmp (vret.(vfld{vcntarg}), "strong")))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	252 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	253 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	254 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	255 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	256 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	257
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	258 case "MvPattern"
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	259 if (isempty (vret.(vfld{vcntarg})) \|\| ...
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	260 (isvector (vret.(vfld{vcntarg})) \|\| ...
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	261 isnumeric (vret.(vfld{vcntarg}))))
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	262 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	263 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	264 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	265 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	266 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	267
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	268 case "MassSingular"
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	269 if (isempty (vret.(vfld{vcntarg})) \|\| ...
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	270 (strcmp (vret.(vfld{vcntarg}), "yes") \|\| ...
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	271 strcmp (vret.(vfld{vcntarg}), "no") \|\| ...
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	272 strcmp (vret.(vfld{vcntarg}), "maybe")))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	273 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	274 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	275 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	276 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	277 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	278
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	279 case "InitialSlope"
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	280 if (isempty (vret.(vfld{vcntarg})) \|\| ...
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	281 isvector (vret.(vfld{vcntarg})))
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	282 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	283 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	284 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	285 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	286 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	287
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	288 case "MaxOrder"
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	289 if (isempty (vret.(vfld{vcntarg})) \|\| ...
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	290 (mod (vret.(vfld{vcntarg}), 1) == 0 && ...
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	291 vret.(vfld{vcntarg}) > 0 && ...
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	292 vret.(vfld{vcntarg}) < 8))
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	293 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	294 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	295 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	296 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	297 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	298
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	299 case "BDF"
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	300 if (isempty (vret.(vfld{vcntarg})) \|\| ...
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	301 (strcmp (vret.(vfld{vcntarg}), "on") \|\| ...
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	302 strcmp (vret.(vfld{vcntarg}), "off")))
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	303 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	304 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	305 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	306 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	307 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	308
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	309 case "NewtonTol"
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	310 if (isempty (vret.(vfld{vcntarg})) \|\| ...
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	311 (isnumeric (vret.(vfld{vcntarg})) && ...
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	312 isreal (vret.(vfld{vcntarg})) && ...
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	313 all (vret.(vfld{vcntarg}) > 0))) # "all" is a MatLab need
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	314 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	315 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	316 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	317 vfld{vcntarg});
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
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	320 case "MaxNewtonIterations"
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	321 if (isempty (vret.(vfld{vcntarg})) \|\| ...
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	322 (mod (vret.(vfld{vcntarg}), 1) == 0 && ...
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	323 vret.(vfld{vcntarg}) > 0))
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	324 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	325 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	326 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	327 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	328 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	329
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	330 ## new fields added
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	331 case "Algorithm"
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	332 if ( isempty(vret.(vfld{vcntarg})) \|\| ischar(vret.(vfld{vcntarg})) )
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	333 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	334 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	335 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	336 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	337 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	338
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	339 case "Choice"
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	340 if ( isempty(vret.(vfld{vcntarg}))
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	341 \|\| (isnumeric(vret.(vfld{vcntarg})) && (vret.(vfld{vcntarg})==1)
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	342 \|\| vret.(vfld{vcntarg})==2 ) )
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	343 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	344 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	345 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	346 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	347 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	348
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	349 case "Eta"
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	350 if ( isempty(vret.(vfld{vcntarg}))
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	351 \|\| ( isreal(vret.(vfld{vcntarg}))
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	352 && vret.(vfld{vcntarg})>=0 && vret.(vfld{vcntarg})<1) )
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	353 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	354 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	355 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	356 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	357 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	358
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	359 case "Explicit"
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	360 if ( isempty(vret.(vfld{vcntarg}))
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	361 \|\| (ischar(vret.(vfld{vcntarg}))
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	362 && (strcmp(vret.(vfld{vcntarg}),"yes")
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	363 \|\| strcmp(vret.(vfld{vcntarg}),"no"))) )
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	364 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	365 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	366 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	367 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	368 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	369
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	370 case "InexactSolver"
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	371 if ( isempty(vret.(vfld{vcntarg})) \|\| ischar(vret.(vfld{vcntarg})) )
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	372 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	373 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	374 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	375 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	376 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	377
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	378 case "InitialSlope"
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	379 if ( isempty(vret.(vfld{vcntarg}))
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	380 \|\| ( ischar(vret.(vfld{vcntarg}))
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	381 \|\| (isnumeric(vret.(vfld{vcntarg}))
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	382 && (isvector(vret.(vfld{vcntarg}))
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	383 \|\| isreal(vret.(vfld{vcntarg}))))) )
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	384 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	385 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	386 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	387 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	388 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	389
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	390 case "JConstant"
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	391 if ( isempty(vret.(vfld{vcntarg}))
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	392 \|\| (ischar(vret.(vfld{vcntarg}))
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	393 && (strcmp(vret.(vfld{vcntarg}),"yes")
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	394 \|\| strcmp(vret.(vfld{vcntarg}),"no"))) )
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	395 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	396 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	397 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	398 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	399 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	400
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	401 case "MassConstant"
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	402 if ( isempty(vret.(vfld{vcntarg}))
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	403 \|\| (strcmp(vret.(vfld{vcntarg}),"on")
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	404 \|\| strcmp(vret.(vfld{vcntarg}),"off")) )
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	405 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	406 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	407 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	408 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	409 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	410
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	411 case "PolynomialDegree"
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	412 if ( isempty(vret.(vfld{vcntarg}))
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	413 \|\| (isnumeric(vret.(vfld{vcntarg}))
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	414 && mod(vret.(vfld{vcntarg}),1)==0 && vret.(vfld{vcntarg})>0) )
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	415 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	416 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	417 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	418 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	419 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	420
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	421 case "QuadratureOrder"
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	422 if ( isempty(vret.(vfld{vcntarg}))
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	423 \|\| (isnumeric(vret.(vfld{vcntarg}))
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	424 && mod(vret.(vfld{vcntarg}),1)==0 && vret.(vfld{vcntarg})>0) )
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	425 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	426 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	427 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	428 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	429 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	430
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	431 case "Restart"
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	432 if ( isempty(vret.(vfld{vcntarg}))
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	433 \|\| (isnumeric(vret.(vfld{vcntarg}))
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	434 && mod(vret.(vfld{vcntarg}),1)==0 && vret.(vfld{vcntarg})>0) )
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	435 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	436 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	437 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	438 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	439 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	440
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	441 case "TimeStepNumber"
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	442 if ( isempty(vret.(vfld{vcntarg}))
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	443 \|\| (isnumeric(vret.(vfld{vcntarg}))
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	444 && mod(vret.(vfld{vcntarg}),1)==0 && vret.(vfld{vcntarg})>0) )
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	445 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	446 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	447 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	448 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	449 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	450
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	451 case "TimeStepSize"
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	452 if ( isempty(vret.(vfld{vcntarg}))
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	453 \|\| ( isreal(vret.(vfld{vcntarg})) && vret.(vfld{vcntarg})!=0) )
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	454 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	455 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	456 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	457 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	458 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	459
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	460 case "UseJacobian"
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	461 if ( isempty(vret.(vfld{vcntarg}))
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	462 \|\| (ischar(vret.(vfld{vcntarg}))
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	463 && (strcmp(vret.(vfld{vcntarg}),"yes")
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	464 \|\| strcmp(vret.(vfld{vcntarg}),"no"))) )
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	465 else
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	466 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	467 'Unknown parameter name "%s" or no valid parameter value',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	468 vfld{vcntarg});
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	469 endif
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	470
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	471 otherwise
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	472 error ("OdePkg:InvalidParameter",
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	473 'Unknown parameter name "%s"',
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	474 vfld{vcntarg});
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	475
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	476 endswitch
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	477
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	478 endfor
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	479
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	480 endfunction
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	481
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	482
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	483 %!demo
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	484 %! # 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	485 %! # the command odeset.
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	486 %!
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	487 %! odepkg_structure_check (odeset);
20584 eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	488
20568 fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	489 %!demo
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	490 %! # 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	491 %! # with odepkg_structure_check. This actually is unnecessary
eb9e2d187ed2 maint: Use Octave coding conventions in scripts/ode/private dir. Rik <rik@octave.org> parents: 20580 diff changeset	492 %! # 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	493 %! # returning.
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	494 %!
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	495 %! A = odeset (); odepkg_structure_check (A);
fcb792acab9b Moving ode45, odeset, odeget, and levenshtein from odepkg to core. jcorno <jacopo.corno@gmail.com> parents: diff changeset	496

Mercurial > octave-nkf

annotate scripts/ode/private/odepkg_structure_check.m @ 20584:eb9e2d187ed2