octave: scripts/ode/ode23.m annotate

annotate scripts/ode/ode23.m @ 22323:bac0d6f07a3e

maint: Update copyright notices for 2016.

author	John W. Eaton <jwe@octave.org>
date	Wed, 17 Aug 2016 01:05:19 -0400
parents	9fc91bb2aec3
children	cbac595d23ac

rev	line source
22323 bac0d6f07a3e maint: Update copyright notices for 2016. John W. Eaton <jwe@octave.org> parents: 22299 diff changeset	1 ## Copyright (C) 2014-2016 Jacopo Corno <jacopo.corno@gmail.com>
bac0d6f07a3e maint: Update copyright notices for 2016. John W. Eaton <jwe@octave.org> parents: 22299 diff changeset	2 ## Copyright (C) 2013-2016 Roberto Porcu' <roberto.porcu@polimi.it>
bac0d6f07a3e maint: Update copyright notices for 2016. John W. Eaton <jwe@octave.org> parents: 22299 diff changeset	3 ## Copyright (C) 2006-2016 Thomas Treichl <treichl@users.sourceforge.net>
20901 afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	4 ##
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	5 ## This file is part of Octave.
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	6 ##
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	7 ## Octave is free software; you can redistribute it and/or modify it
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	8 ## under the terms of the GNU General Public License as published by
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	9 ## the Free Software Foundation; either version 3 of the License, or (at
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	10 ## your option) any later version.
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	11 ##
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	12 ## Octave is distributed in the hope that it will be useful, but
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	13 ## WITHOUT ANY WARRANTY; without even the implied warranty of
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	14 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	15 ## General Public License for more details.
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	16 ##
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	17 ## You should have received a copy of the GNU General Public License
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	18 ## along with Octave; see the file COPYING. If not, see
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	19 ## <http://www.gnu.org/licenses/>.
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	20
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	21 ## -- texinfo --
21319 8880d93010d8 Remove further uses of CLASS field in @deftypefn macro. Rik <rik@octave.org> parents: 21123 diff changeset	22 ## @deftypefn {} {[@var{t}, @var{y}] =} ode23 (@var{fun}, @var{trange}, @var{init})
8880d93010d8 Remove further uses of CLASS field in @deftypefn macro. Rik <rik@octave.org> parents: 21123 diff changeset	23 ## @deftypefnx {} {[@var{t}, @var{y}] =} ode23 (@var{fun}, @var{trange}, @var{init}, @var{ode_opt})
8880d93010d8 Remove further uses of CLASS field in @deftypefn macro. Rik <rik@octave.org> parents: 21123 diff changeset	24 ## @deftypefnx {} {[@var{t}, @var{y}] =} ode23 (@dots{}, @var{par1}, @var{par2}, @dots{})
8880d93010d8 Remove further uses of CLASS field in @deftypefn macro. Rik <rik@octave.org> parents: 21123 diff changeset	25 ## @deftypefnx {} {[@var{t}, @var{y}, @var{te}, @var{ye}, @var{ie}] =} ode23 (@dots{})
8880d93010d8 Remove further uses of CLASS field in @deftypefn macro. Rik <rik@octave.org> parents: 21123 diff changeset	26 ## @deftypefnx {} {@var{solution} =} ode23 (@dots{})
20901 afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	27 ##
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	28 ## Solve a set of non-stiff Ordinary Differential Equations (non-stiff ODEs)
21123 71408ab5071e doc: Periodic spellcheck of documentation. Rik <rik@octave.org> parents: 20928 diff changeset	29 ## with the well known explicit @nospell{Bogacki-Shampine} method of order 3.
71408ab5071e doc: Periodic spellcheck of documentation. Rik <rik@octave.org> parents: 20928 diff changeset	30 ## For the definition of this method see
20901 afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	31 ## @url{http://en.wikipedia.org/wiki/List_of_Runge%E2%80%93Kutta_methods}.
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	32 ##
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	33 ## @var{fun} is a function handle, inline function, or string containing the
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	34 ## name of the function that defines the ODE: @code{y' = f(t,y)}. The function
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	35 ## must accept two inputs where the first is time @var{t} and the second is a
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	36 ## column vector of unknowns @var{y}.
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	37 ##
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	38 ## @var{trange} specifies the time interval over which the ODE will be
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	39 ## evaluated. Typically, it is a two-element vector specifying the initial and
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	40 ## final times (@code{[tinit, tfinal]}). If there are more than two elements
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	41 ## then the solution will also be evaluated at these intermediate time
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	42 ## instances unless the integrate function specified is
22299 9fc91bb2aec3 doc: grammarcheck documentation for 4.2 release. Rik <rik@octave.org> parents: 21955 diff changeset	43 ## @code{integrate_n_steps}.
20901 afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	44 ##
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	45 ## By default, @code{ode23} uses an adaptive timestep with the
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	46 ## @code{integrate_adaptive} algorithm. The tolerance for the timestep
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	47 ## computation may be changed by using the option @qcode{"Tau"}, that has a
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	48 ## default value of @math{1e-6}. If the ODE option @qcode{"TimeStepSize"} is
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	49 ## not empty, then the stepper called will be @code{integrate_const}. If, in
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	50 ## addition, the option @qcode{"TimeStepNumber"} is also specified then the
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	51 ## integrate function @code{integrate_n_steps} will be used.
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	52 ##
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	53 ## @var{init} contains the initial value for the unknowns. If it is a row
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	54 ## vector then the solution @var{y} will be a matrix in which each column is
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	55 ## the solution for the corresponding initial value in @var{init}.
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	56 ##
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	57 ## The optional fourth argument @var{ode_opt} specifies non-default options to
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	58 ## the ODE solver. It is a structure generated by @code{odeset}.
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	59 ##
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	60 ## The function typically returns two outputs. Variable @var{t} is a
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	61 ## column vector and contains the times where the solution was found. The
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	62 ## output @var{y} is a matrix in which each column refers to a different
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	63 ## unknown of the problem and each row corresponds to a time in @var{t}.
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	64 ##
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	65 ## The output can also be returned as a structure @var{solution} which
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	66 ## has field @var{x} containing the time where the solution was evaluated and
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	67 ## field @var{y} containing the solution matrix for the times in @var{x}.
21546 f7f97d7e9294 doc: Wrap m-file docstrings to 79 characters + newline (80 total). Rik <rik@octave.org> parents: 21443 diff changeset	68 ## Use @code{fieldnames (@var{solution})} to see the other fields and
f7f97d7e9294 doc: Wrap m-file docstrings to 79 characters + newline (80 total). Rik <rik@octave.org> parents: 21443 diff changeset	69 ## additional information returned.
20901 afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	70 ##
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	71 ## If using the @qcode{"Events"} option then three additional outputs may
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	72 ## be returned. @var{te} holds the time when an Event function returned a
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	73 ## zero. @var{ye} holds the value of the solution at time @var{te}. @var{ie}
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	74 ## contains an index indicating which Event function was triggered in the case
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	75 ## of multiple Event functions.
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	76 ##
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	77 ## This function can be called with two output arguments: @var{t} and @var{y}.
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	78 ## Variable @var{t} is a column vector and contains the time stamps, instead
21546 f7f97d7e9294 doc: Wrap m-file docstrings to 79 characters + newline (80 total). Rik <rik@octave.org> parents: 21443 diff changeset	79 ## @var{y} is a matrix in which each column refers to a different unknown of
f7f97d7e9294 doc: Wrap m-file docstrings to 79 characters + newline (80 total). Rik <rik@octave.org> parents: 21443 diff changeset	80 ## the problem and the rows number is the same of @var{t} rows number so
f7f97d7e9294 doc: Wrap m-file docstrings to 79 characters + newline (80 total). Rik <rik@octave.org> parents: 21443 diff changeset	81 ## that each row of @var{y} contains the values of all unknowns at the time
f7f97d7e9294 doc: Wrap m-file docstrings to 79 characters + newline (80 total). Rik <rik@octave.org> parents: 21443 diff changeset	82 ## value contained in the corresponding row in @var{t}.
20901 afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	83 ##
21123 71408ab5071e doc: Periodic spellcheck of documentation. Rik <rik@octave.org> parents: 20928 diff changeset	84 ## Example: Solve the @nospell{Van der Pol} equation
20901 afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	85 ##
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	86 ## @example
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	87 ## @group
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	88 ## fvdp = @@(@var{t},@var{y}) [@var{y}(2); (1 - @var{y}(1)^2) * @var{y}(2) - @var{y}(1)];
21443 acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	89 ## [@var{t},@var{y}] = ode23 (fvdp, [0, 20], [2, 0]);
20901 afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	90 ## @end group
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	91 ## @end example
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	92 ## @seealso{odeset, odeget}
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	93 ## @end deftypefn
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	94
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	95 ## ChangeLog:
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	96 ## 20010703 the function file "ode23.m" was written by Marc Compere
21751 b571fc85953f maint: Use two spaces after period to indicate sentence break. Rik <rik@octave.org> parents: 21634 diff changeset	97 ## under the GPL for the use with this software. This function has been
20901 afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	98 ## taken as a base for the following implementation.
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	99 ## 20060810, Thomas Treichl
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	100 ## This function was adapted to the new syntax that is used by the
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	101 ## new OdePkg for Octave and is compatible to Matlab's ode23.
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	102
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	103 function varargout = ode23 (fun, trange, init, varargin)
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	104
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	105 if (nargin < 3)
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	106 print_usage ();
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	107 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	108
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	109 order = 3;
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	110 solver = "ode23";
20928 2b8447888e0a strip trailing whitespace from files John W. Eaton <jwe@octave.org> parents: 20908 diff changeset	111
20901 afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	112 if (nargin >= 4)
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	113 if (! isstruct (varargin{1}))
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	114 ## varargin{1:len} are parameters for fun
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	115 odeopts = odeset ();
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	116 odeopts.funarguments = varargin;
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	117 elseif (length (varargin) > 1)
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	118 ## varargin{1} is an ODE options structure opt
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	119 odeopts = ode_struct_value_check ("ode23", varargin{1}, "ode23");
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	120 odeopts.funarguments = {varargin{2:length(varargin)}};
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	121 else # if (isstruct (varargin{1}))
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	122 odeopts = ode_struct_value_check ("ode23", varargin{1}, "ode23");
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	123 odeopts.funarguments = {};
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	124 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	125 else # nargin == 3
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	126 odeopts = odeset ();
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	127 odeopts.funarguments = {};
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	128 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	129
21443 acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	130 if (! isnumeric (trange) \|\| ! isvector (trange))
20901 afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	131 error ("Octave:invalid-input-arg",
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	132 "ode23: TRANGE must be a numeric vector");
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	133 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	134
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	135 TimeStepNumber = odeget (odeopts, "TimeStepNumber", [], "fast");
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	136 TimeStepSize = odeget (odeopts, "TimeStepSize", [], "fast");
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	137 if (length (trange) < 2
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	138 && (isempty (TimeStepSize) \|\| isempty (TimeStepNumber)))
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	139 error ("Octave:invalid-input-arg",
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	140 "ode23: TRANGE must contain at least 2 elements");
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	141 elseif (trange(2) == trange(1))
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	142 error ("Octave:invalid-input-arg",
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	143 "ode23: invalid time span, TRANGE(1) == TRANGE(2)");
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	144 else
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	145 odeopts.direction = sign (trange(2) - trange(1));
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	146 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	147 trange = trange(:);
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	148
21443 acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	149 if (! isnumeric (init) \|\| ! isvector (init))
20901 afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	150 error ("Octave:invalid-input-arg",
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	151 "ode23: INIT must be a numeric vector");
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	152 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	153 init = init(:);
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	154
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	155 if (ischar (fun))
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	156 try
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	157 fun = str2func (fun);
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	158 catch
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	159 warning (lasterr);
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	160 end_try_catch
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	161 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	162 if (! isa (fun, "function_handle"))
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	163 error ("Octave:invalid-input-arg",
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	164 "ode23: FUN must be a valid function handle");
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	165 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	166
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	167 ## Start preprocessing, have a look which options are set in odeopts,
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	168 ## check if an invalid or unused option is set
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	169 if (isempty (TimeStepNumber) && isempty (TimeStepSize))
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	170 integrate_func = "adaptive";
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	171 odeopts.stepsizefixed = false;
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	172 elseif (! isempty (TimeStepNumber) && ! isempty (TimeStepSize))
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	173 integrate_func = "n_steps";
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	174 odeopts.stepsizefixed = true;
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	175 if (sign (TimeStepSize) != odeopts.direction)
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	176 warning ("Octave:invalid-input-arg",
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	177 ["ode23: option \"TimeStepSize\" has the wrong sign, ", ...
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	178 "but will be corrected automatically\n"]);
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	179 TimeStepSize = -TimeStepSize;
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	180 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	181 elseif (isempty (TimeStepNumber) && ! isempty (TimeStepSize))
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	182 integrate_func = "const";
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	183 odeopts.stepsizefixed = true;
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	184 if (sign (TimeStepSize) != odeopts.direction)
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	185 warning ("Octave:invalid-input-arg",
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	186 ["ode23: option \"TimeStepSize\" has the wrong sign, ",
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	187 "but will be corrected automatically\n"]);
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	188 TimeStepSize = -TimeStepSize;
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	189 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	190 else
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	191 warning ("Octave:invalid-input-arg",
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	192 "ode23: assuming an adaptive integrate function\n");
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	193 integrate_func = "adaptive";
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	194 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	195
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	196 if (isempty (odeopts.RelTol) && ! odeopts.stepsizefixed)
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	197 odeopts.RelTol = 1e-3;
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	198 elseif (! isempty (odeopts.RelTol) && odeopts.stepsizefixed)
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	199 warning ("Octave:invalid-input-arg",
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	200 ["ode23: option \"RelTol\" is ignored", ...
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	201 " when fixed time stamps are given\n"]);
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	202 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	203
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	204 if (isempty (odeopts.AbsTol) && ! odeopts.stepsizefixed)
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	205 odeopts.AbsTol = 1e-6;
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	206 elseif (! isempty (odeopts.AbsTol) && odeopts.stepsizefixed)
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	207 warning ("Octave:invalid-input-arg",
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	208 ["ode23: option \"AbsTol\" is ignored", ...
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	209 " when fixed time stamps are given\n"]);
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	210 else
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	211 odeopts.AbsTol = odeopts.AbsTol(:); # Create column vector
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	212 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	213
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	214 odeopts.normcontrol = strcmp (odeopts.NormControl, "on");
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	215
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	216 if (! isempty (odeopts.NonNegative))
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	217 if (isempty (odeopts.Mass))
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	218 odeopts.havenonnegative = true;
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	219 else
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	220 odeopts.havenonnegative = false;
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	221 warning ("Octave:invalid-input-arg",
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	222 ["ode23: option \"NonNegative\" is ignored", ...
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	223 " when mass matrix is set\n"]);
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	224 endif
20928 2b8447888e0a strip trailing whitespace from files John W. Eaton <jwe@octave.org> parents: 20908 diff changeset	225 else
20901 afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	226 odeopts.havenonnegative = false;
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	227 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	228
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	229 if (isempty (odeopts.OutputFcn) && nargout == 0)
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	230 odeopts.OutputFcn = @odeplot;
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	231 odeopts.haveoutputfunction = true;
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	232 else
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	233 odeopts.haveoutputfunction = ! isempty (odeopts.OutputFcn);
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	234 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	235
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	236 odeopts.haveoutputselection = ! isempty (odeopts.OutputSel);
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	237
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	238 if (odeopts.Refine > 0)
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	239 odeopts.haverefine = true;
20928 2b8447888e0a strip trailing whitespace from files John W. Eaton <jwe@octave.org> parents: 20908 diff changeset	240 else
20901 afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	241 odeopts.haverefine = false;
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	242 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	243
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	244 if (isempty (odeopts.InitialStep) && strcmp (integrate_func, "adaptive"))
20908 0fb9de5b7903 remove verbose warnings from ode solvers Carlo de Falco <carlo.defalco@polimi.it> parents: 20902 diff changeset	245 odeopts.InitialStep = odeopts.direction * ...
0fb9de5b7903 remove verbose warnings from ode solvers Carlo de Falco <carlo.defalco@polimi.it> parents: 20902 diff changeset	246 starting_stepsize (order, fun, trange(1),
0fb9de5b7903 remove verbose warnings from ode solvers Carlo de Falco <carlo.defalco@polimi.it> parents: 20902 diff changeset	247 init, odeopts.AbsTol,
0fb9de5b7903 remove verbose warnings from ode solvers Carlo de Falco <carlo.defalco@polimi.it> parents: 20902 diff changeset	248 odeopts.RelTol,
0fb9de5b7903 remove verbose warnings from ode solvers Carlo de Falco <carlo.defalco@polimi.it> parents: 20902 diff changeset	249 odeopts.normcontrol);
20901 afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	250 elseif (isempty (odeopts.InitialStep))
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	251 odeopts.InitialStep = TimeStepSize;
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	252 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	253
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	254 if (isempty (odeopts.MaxStep) && ! odeopts.stepsizefixed)
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	255 odeopts.MaxStep = abs (trange(end) - trange(1)) / 10;
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	256 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	257
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	258 odeopts.haveeventfunction = ! isempty (odeopts.Events);
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	259
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	260 ## The options 'Jacobian', 'JPattern' and 'Vectorized' will be ignored
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	261 ## by this solver because this solver uses an explicit Runge-Kutta method
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	262 ## and therefore no Jacobian calculation is necessary
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	263 if (! isempty (odeopts.Jacobian))
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	264 warning ("Octave:invalid-input-arg",
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	265 "ode23: option \"Jacobian\" is ignored by this solver\n");
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	266 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	267
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	268 if (! isempty (odeopts.JPattern))
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	269 warning ("Octave:invalid-input-arg",
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	270 "ode23: option \"JPattern\" is ignored by this solver\n");
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	271 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	272
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	273 if (! isempty (odeopts.Vectorized))
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	274 warning ("Octave:invalid-input-arg",
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	275 "ode23: option \"Vectorized\" is ignored by this solver\n");
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	276 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	277
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	278 if (! isempty (odeopts.Mass) && isnumeric (odeopts.Mass))
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	279 havemasshandle = false;
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	280 mass = odeopts.Mass; # constant mass
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	281 elseif (isa (odeopts.Mass, "function_handle"))
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	282 havemasshandle = true; # mass defined by a function handle
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	283 else # no mass matrix - creating a diag-matrix of ones for mass
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	284 havemasshandle = false; # mass = diag (ones (length (init), 1), 0);
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	285 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	286
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	287 massdependence = ! strcmp (odeopts.MStateDependence, "none");
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	288
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	289 ## Other options that are not used by this solver.
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	290 if (! isempty (odeopts.MvPattern))
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	291 warning ("Octave:invalid-input-arg",
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	292 "ode23: option \"MvPattern\" is ignored by this solver\n");
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	293 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	294
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	295 if (! isempty (odeopts.MassSingular))
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	296 warning ("Octave:invalid-input-arg",
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	297 "ode23: option \"MassSingular\" is ignored by this solver\n");
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	298 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	299
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	300 if (! isempty (odeopts.InitialSlope))
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	301 warning ("Octave:invalid-input-arg",
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	302 "ode23: option \"InitialSlope\" is ignored by this solver\n");
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	303 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	304
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	305 if (! isempty (odeopts.MaxOrder))
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	306 warning ("Octave:invalid-input-arg",
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	307 "ode23: option \"MaxOrder\" is ignored by this solver\n");
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	308 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	309
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	310 if (! isempty (odeopts.BDF))
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	311 warning ("Octave:invalid-input-arg",
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	312 "ode23: option \"BDF\" is ignored by this solver\n");
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	313 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	314
21443 acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	315 ## Starting the initialization of the core solver ode23
20928 2b8447888e0a strip trailing whitespace from files John W. Eaton <jwe@octave.org> parents: 20908 diff changeset	316
20901 afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	317 if (havemasshandle) # Handle only the dynamic mass matrix,
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	318 if (massdependence) # constant mass matrices have already
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	319 mass = @(t,x) odeopts.Mass (t, x, odeopts.funarguments{:});
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	320 fun = @(t,x) mass (t, x, odeopts.funarguments{:}) ...
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	321 \ fun (t, x, odeopts.funarguments{:});
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	322 else # if (massdependence == false)
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	323 mass = @(t) odeopts.Mass (t, odeopts.funarguments{:});
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	324 fun = @(t,x) mass (t, odeopts.funarguments{:}) ...
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	325 \ fun (t, x, odeopts.funarguments{:});
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	326 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	327 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	328
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	329 switch (integrate_func)
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	330 case "adaptive"
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	331 solution = integrate_adaptive (@runge_kutta_23, ...
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	332 order, fun, trange, init, odeopts);
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	333 case "n_steps"
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	334 solution = integrate_n_steps (@runge_kutta_23, ...
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	335 fun, trange(1), init, ...
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	336 TimeStepSize, TimeStepNumber, odeopts);
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	337 case "const"
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	338 solution = integrate_const (@runge_kutta_23, ...
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	339 fun, trange, init, ...
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	340 TimeStepSize, odeopts);
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	341 endswitch
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	342
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	343 ## Postprocessing, do whatever when terminating integration algorithm
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	344 if (odeopts.haveoutputfunction) # Cleanup plotter
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	345 feval (odeopts.OutputFcn, solution.t(end), ...
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	346 solution.x(end,:)', "done", odeopts.funarguments{:});
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	347 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	348 if (odeopts.haveeventfunction) # Cleanup event function handling
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	349 ode_event_handler (odeopts.Events, solution.t(end), ...
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	350 solution.x(end,:)', "done", odeopts.funarguments{:});
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	351 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	352
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	353 ## Print additional information if option Stats is set
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	354 if (strcmp (odeopts.Stats, "on"))
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	355 havestats = true;
21955 0f3e875d9078 Fix statistics on solution solving for ode45, ode23 (bug #48243). jcorno <jacopo.corno@gmail.com> parents: 21751 diff changeset	356 nsteps = solution.cntloop; # cntloop from 2..end
0f3e875d9078 Fix statistics on solution solving for ode45, ode23 (bug #48243). jcorno <jacopo.corno@gmail.com> parents: 21751 diff changeset	357 nfailed = solution.cntcycles - nsteps; # cntcycl from 1..end
0f3e875d9078 Fix statistics on solution solving for ode45, ode23 (bug #48243). jcorno <jacopo.corno@gmail.com> parents: 21751 diff changeset	358 nfevals = 3 * solution.cntcycles + 1; # number of ode evaluations
21443 acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	359 ndecomps = 0; # number of LU decompositions
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	360 npds = 0; # number of partial derivatives
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	361 nlinsols = 0; # no. of solutions of linear systems
20901 afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	362 ## Print cost statistics if no output argument is given
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	363 if (nargout == 0)
21634 96518f623c91 Backed out changeset dcf8922b724b Mike Miller <mtmiller@octave.org> parents: 21633 diff changeset	364 printf ("Number of successful steps: %d\n", nsteps);
96518f623c91 Backed out changeset dcf8922b724b Mike Miller <mtmiller@octave.org> parents: 21633 diff changeset	365 printf ("Number of failed attempts: %d\n", nfailed);
96518f623c91 Backed out changeset dcf8922b724b Mike Miller <mtmiller@octave.org> parents: 21633 diff changeset	366 printf ("Number of function calls: %d\n", nfevals);
20901 afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	367 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	368 else
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	369 havestats = false;
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	370 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	371
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	372 if (nargout == 2)
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	373 varargout{1} = solution.t; # Time stamps are first output argument
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	374 varargout{2} = solution.x; # Results are second output argument
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	375 elseif (nargout == 1)
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	376 varargout{1}.x = solution.t; # Time stamps are saved in field x
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	377 varargout{1}.y = solution.x; # Results are saved in field y
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	378 varargout{1}.solver = solver; # Solver name is saved in field solver
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	379 if (odeopts.haveeventfunction)
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	380 varargout{1}.ie = solution.event{2}; # Index info which event occurred
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	381 varargout{1}.xe = solution.event{3}; # Time info when an event occurred
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	382 varargout{1}.ye = solution.event{4}; # Results when an event occurred
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	383 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	384 if (havestats)
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	385 varargout{1}.stats = struct ();
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	386 varargout{1}.stats.nsteps = nsteps;
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	387 varargout{1}.stats.nfailed = nfailed;
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	388 varargout{1}.stats.nfevals = nfevals;
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	389 varargout{1}.stats.npds = npds;
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	390 varargout{1}.stats.ndecomps = ndecomps;
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	391 varargout{1}.stats.nlinsols = nlinsols;
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	392 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	393 elseif (nargout == 5)
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	394 varargout = cell (1,5);
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	395 varargout{1} = solution.t;
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	396 varargout{2} = solution.x;
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	397 if (odeopts.haveeventfunction)
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	398 varargout{3} = solution.event{3}; # Time info when an event occurred
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	399 varargout{4} = solution.event{4}; # Results when an event occurred
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	400 varargout{5} = solution.event{2}; # Index info which event occurred
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	401 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	402 endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	403
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	404 endfunction
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	405
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	406
21599 f29d68e24c5a ode23.m, ode45.m: More reformatting of demos to Octave coding standards. Rik <rik@octave.org> parents: 21596 diff changeset	407 %!demo
f29d68e24c5a ode23.m, ode45.m: More reformatting of demos to Octave coding standards. Rik <rik@octave.org> parents: 21596 diff changeset	408 %!
f29d68e24c5a ode23.m, ode45.m: More reformatting of demos to Octave coding standards. Rik <rik@octave.org> parents: 21596 diff changeset	409 %! ## Demonstrate convergence order for ode23
f29d68e24c5a ode23.m, ode45.m: More reformatting of demos to Octave coding standards. Rik <rik@octave.org> parents: 21596 diff changeset	410 %! tol = 1e-5 ./ 10.^[0:8];
f29d68e24c5a ode23.m, ode45.m: More reformatting of demos to Octave coding standards. Rik <rik@octave.org> parents: 21596 diff changeset	411 %! for i = 1 : numel (tol)
f29d68e24c5a ode23.m, ode45.m: More reformatting of demos to Octave coding standards. Rik <rik@octave.org> parents: 21596 diff changeset	412 %! opt = odeset ("RelTol", tol(i), "AbsTol", realmin);
f29d68e24c5a ode23.m, ode45.m: More reformatting of demos to Octave coding standards. Rik <rik@octave.org> parents: 21596 diff changeset	413 %! [t, y] = ode23 (@(t, y) -y, [0, 1], 1, opt);
f29d68e24c5a ode23.m, ode45.m: More reformatting of demos to Octave coding standards. Rik <rik@octave.org> parents: 21596 diff changeset	414 %! h(i) = 1 / (numel (t) - 1);
f29d68e24c5a ode23.m, ode45.m: More reformatting of demos to Octave coding standards. Rik <rik@octave.org> parents: 21596 diff changeset	415 %! err(i) = norm (y .* exp (t) - 1, Inf);
f29d68e24c5a ode23.m, ode45.m: More reformatting of demos to Octave coding standards. Rik <rik@octave.org> parents: 21596 diff changeset	416 %! endfor
f29d68e24c5a ode23.m, ode45.m: More reformatting of demos to Octave coding standards. Rik <rik@octave.org> parents: 21596 diff changeset	417 %!
f29d68e24c5a ode23.m, ode45.m: More reformatting of demos to Octave coding standards. Rik <rik@octave.org> parents: 21596 diff changeset	418 %! ## Estimate order numerically
f29d68e24c5a ode23.m, ode45.m: More reformatting of demos to Octave coding standards. Rik <rik@octave.org> parents: 21596 diff changeset	419 %! p = diff (log (err)) ./ diff (log (h))
f29d68e24c5a ode23.m, ode45.m: More reformatting of demos to Octave coding standards. Rik <rik@octave.org> parents: 21596 diff changeset	420 %!
f29d68e24c5a ode23.m, ode45.m: More reformatting of demos to Octave coding standards. Rik <rik@octave.org> parents: 21596 diff changeset	421 %! ## Estimate order visually
f29d68e24c5a ode23.m, ode45.m: More reformatting of demos to Octave coding standards. Rik <rik@octave.org> parents: 21596 diff changeset	422 %! figure ();
f29d68e24c5a ode23.m, ode45.m: More reformatting of demos to Octave coding standards. Rik <rik@octave.org> parents: 21596 diff changeset	423 %! loglog (h, tol, "-ob",
f29d68e24c5a ode23.m, ode45.m: More reformatting of demos to Octave coding standards. Rik <rik@octave.org> parents: 21596 diff changeset	424 %! h, err, "-b",
f29d68e24c5a ode23.m, ode45.m: More reformatting of demos to Octave coding standards. Rik <rik@octave.org> parents: 21596 diff changeset	425 %! h, (h/h(end)) .^ 2 .* tol(end), "k--",
f29d68e24c5a ode23.m, ode45.m: More reformatting of demos to Octave coding standards. Rik <rik@octave.org> parents: 21596 diff changeset	426 %! h, (h/h(end)) .^ 3 .* tol(end), "k-");
f29d68e24c5a ode23.m, ode45.m: More reformatting of demos to Octave coding standards. Rik <rik@octave.org> parents: 21596 diff changeset	427 %! axis tight
f29d68e24c5a ode23.m, ode45.m: More reformatting of demos to Octave coding standards. Rik <rik@octave.org> parents: 21596 diff changeset	428 %! xlabel ("h");
f29d68e24c5a ode23.m, ode45.m: More reformatting of demos to Octave coding standards. Rik <rik@octave.org> parents: 21596 diff changeset	429 %! ylabel ("err(h)");
f29d68e24c5a ode23.m, ode45.m: More reformatting of demos to Octave coding standards. Rik <rik@octave.org> parents: 21596 diff changeset	430 %! title ("Convergence plot for ode23");
f29d68e24c5a ode23.m, ode45.m: More reformatting of demos to Octave coding standards. Rik <rik@octave.org> parents: 21596 diff changeset	431 %! legend ("imposed tolerance", "ode23 (relative) error",
f29d68e24c5a ode23.m, ode45.m: More reformatting of demos to Octave coding standards. Rik <rik@octave.org> parents: 21596 diff changeset	432 %! "order 2", "order 3", "location", "northwest");
f29d68e24c5a ode23.m, ode45.m: More reformatting of demos to Octave coding standards. Rik <rik@octave.org> parents: 21596 diff changeset	433
20901 afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	434 ## We are using the "Van der Pol" implementation for all tests that are done
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	435 ## for this function.
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	436 ## For further tests we also define a reference solution (computed at high
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	437 ## accuracy)
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	438 %!function ydot = fpol (t, y) # The Van der Pol
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	439 %! ydot = [y(2); (1 - y(1)^2) * y(2) - y(1)];
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	440 %!endfunction
21443 acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	441 %!function ref = fref () # The computed reference sol
20901 afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	442 %! ref = [0.32331666704577, -1.83297456798624];
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	443 %!endfunction
21443 acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	444 %!function jac = fjac (t, y, varargin) # its Jacobian
20901 afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	445 %! jac = [0, 1; -1 - 2 * y(1) * y(2), 1 - y(1)^2];
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	446 %!endfunction
21443 acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	447 %!function jac = fjcc (t, y, varargin) # sparse type
21580 ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21546 diff changeset	448 %! jac = sparse ([0, 1; -1 - 2 * y(1) * y(2), 1 - y(1)^2]);
20901 afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	449 %!endfunction
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	450 %!function [val, trm, dir] = feve (t, y, varargin)
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	451 %! val = fpol (t, y, varargin); # We use the derivatives
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	452 %! trm = zeros (2,1); # that's why component 2
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	453 %! dir = ones (2,1); # seems to not be exact
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	454 %!endfunction
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	455 %!function [val, trm, dir] = fevn (t, y, varargin)
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	456 %! val = fpol (t, y, varargin); # We use the derivatives
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	457 %! trm = ones (2,1); # that's why component 2
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	458 %! dir = ones (2,1); # seems to not be exact
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	459 %!endfunction
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	460 %!function mas = fmas (t, y, varargin)
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	461 %! mas = [1, 0; 0, 1]; # Dummy mass matrix for tests
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	462 %!endfunction
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	463 %!function mas = fmsa (t, y, varargin)
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	464 %! mas = sparse ([1, 0; 0, 1]); # A sparse dummy matrix
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	465 %!endfunction
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	466 %!function out = fout (t, y, flag, varargin)
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	467 %! if (regexp (char (flag), "init") == 1)
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	468 %! if (any (size (t) != [2, 1])) error ("\"fout\" step \"init\""); endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	469 %! elseif (isempty (flag))
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	470 %! if (any (size (t) != [1, 1])) error ("\"fout\" step \"calc\""); endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	471 %! out = false;
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	472 %! elseif (regexp (char (flag), "done") == 1)
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	473 %! if (any (size (t) != [1, 1])) error ("\"fout\" step \"done\""); endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	474 %! else
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	475 %! error ("\"fout\" invalid flag");
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	476 %! endif
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	477 %!endfunction
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	478 %!
21443 acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	479 %!test # two output arguments
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	480 %! [t, y] = ode23 (@fpol, [0 2], [2 0]);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	481 %! assert ([t(end), y(end,:)], [2, fref], 1e-3);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	482 %!test # anonymous function instead of real function
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	483 %! fvdb = @(t,y) [y(2); (1 - y(1)^2) * y(2) - y(1)];
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	484 %! [t, y] = ode23 (fvdb, [0 2], [2 0]);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	485 %! assert ([t(end), y(end,:)], [2, fref], 1e-3);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	486 %!test # extra input arguments passed through
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	487 %! [t, y] = ode23 (@fpol, [0 2], [2 0], 12, 13, "KL");
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	488 %! assert ([t(end), y(end,:)], [2, fref], 1e-3);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	489 %!test # empty OdePkg structure but extra input arguments
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	490 %! opt = odeset;
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	491 %! [t, y] = ode23 (@fpol, [0 2], [2 0], opt, 12, 13, "KL");
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	492 %! assert ([t(end), y(end,:)], [2, fref], 1e-2);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	493 %!test # Solve vdp in fixed step sizes
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	494 %! opt = odeset("TimeStepSize",0.1);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	495 %! [t, y] = ode23 (@fpol, [0,2], [2 0], opt);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	496 %! assert (t(:), [0:0.1:2]', 1e-3);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	497 %!test # Solve another anonymous function below zero
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	498 %! ref = [0, 14.77810590694212];
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	499 %! [t, y] = ode23 (@(t,y) y, [-2 0], 2);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	500 %! assert ([t(end), y(end,:)], ref, 1e-2);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	501 %!test # InitialStep option
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	502 %! opt = odeset ("InitialStep", 1e-8);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	503 %! [t, y] = ode23 (@fpol, [0 0.2], [2 0], opt);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	504 %! assert ([t(2)-t(1)], [1e-8], 1e-9);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	505 %!test # MaxStep option
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	506 %! opt = odeset ("MaxStep", 1e-3);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	507 %! sol = ode23 (@fpol, [0 0.2], [2 0], opt);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	508 %! assert ([sol.x(5)-sol.x(4)], [1e-3], 1e-4);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	509 %!test # Solve in backward direction starting at t=0
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	510 %! ref = [-1.205364552835178, 0.951542399860817];
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	511 %! sol = ode23 (@fpol, [0 -2], [2 0]);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	512 %! assert ([sol.x(end), sol.y(end,:)], [-2, ref], 5e-3);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	513 %!test # Solve in backward direction starting at t=2
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	514 %! ref = [-1.205364552835178, 0.951542399860817];
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	515 %! sol = ode23 (@fpol, [2 0 -2], fref);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	516 %! assert ([sol.x(end), sol.y(end,:)], [-2, ref], 2e-2);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	517 %!test # Solve another anonymous function in backward direction
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	518 %! ref = [-1, 0.367879437558975];
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	519 %! sol = ode23 (@(t,y) y, [0 -1], 1);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	520 %! assert ([sol.x(end), sol.y(end,:)], ref, 1e-2);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	521 %!test # Solve another anonymous function below zero
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	522 %! ref = [0, 14.77810590694212];
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	523 %! sol = ode23 (@(t,y) y, [-2 0], 2);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	524 %! assert ([sol.x(end), sol.y(end,:)], ref, 1e-2);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	525 %!test # Solve in backward direction starting at t=0 with MaxStep option
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	526 %! ref = [-1.205364552835178, 0.951542399860817];
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	527 %! opt = odeset ("MaxStep", 1e-3);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	528 %! sol = ode23 (@fpol, [0 -2], [2 0], opt);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	529 %! assert ([abs(sol.x(8)-sol.x(7))], [1e-3], 1e-3);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	530 %! assert ([sol.x(end), sol.y(end,:)], [-2, ref], 1e-3);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	531 %!test # AbsTol option
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	532 %! opt = odeset ("AbsTol", 1e-5);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	533 %! sol = ode23 (@fpol, [0 2], [2 0], opt);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	534 %! assert ([sol.x(end), sol.y(end,:)], [2, fref], 1e-3);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	535 %!test # AbsTol and RelTol option
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	536 %! opt = odeset ("AbsTol", 1e-8, "RelTol", 1e-8);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	537 %! sol = ode23 (@fpol, [0 2], [2 0], opt);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	538 %! assert ([sol.x(end), sol.y(end,:)], [2, fref], 1e-3);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	539 %!test # RelTol and NormControl option -- higher accuracy
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	540 %! opt = odeset ("RelTol", 1e-8, "NormControl", "on");
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	541 %! sol = ode23 (@fpol, [0 2], [2 0], opt);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	542 %! assert ([sol.x(end), sol.y(end,:)], [2, fref], 1e-4);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	543 %!test # Keeps initial values while integrating
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	544 %! opt = odeset ("NonNegative", 2);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	545 %! sol = ode23 (@fpol, [0 2], [2 0], opt);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	546 %! assert ([sol.x(end), sol.y(end,:)], [2, 2, 0], 1e-1);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	547 %!test # Details of OutputSel and Refine can't be tested
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	548 %! opt = odeset ("OutputFcn", @fout, "OutputSel", 1, "Refine", 5);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	549 %! sol = ode23 (@fpol, [0 2], [2 0], opt);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	550 %!test # Stats must add further elements in sol
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	551 %! opt = odeset ("Stats", "on");
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	552 %! sol = ode23 (@fpol, [0 2], [2 0], opt);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	553 %! assert (isfield (sol, "stats"));
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	554 %! assert (isfield (sol.stats, "nsteps"));
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	555 %!test # Events option add further elements in sol
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	556 %! opt = odeset ("Events", @feve);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	557 %! sol = ode23 (@fpol, [0 10], [2 0], opt);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	558 %! assert (isfield (sol, "ie"));
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	559 %! assert (sol.ie(1), 2);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	560 %! assert (isfield (sol, "xe"));
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	561 %! assert (isfield (sol, "ye"));
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	562 %!test # Events option, now stop integration
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	563 %! warning ("off", "integrate_adaptive:unexpected_termination", "local");
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	564 %! opt = odeset ("Events", @fevn, "NormControl", "on");
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	565 %! sol = ode23 (@fpol, [0 10], [2 0], opt);
21580 ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21546 diff changeset	566 %! assert ([sol.ie, sol.xe, sol.ye],
ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21546 diff changeset	567 %! [2.0, 2.496110, -0.830550, -2.677589], .5e-1);
21443 acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	568 %!test # Events option, five output arguments
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	569 %! warning ("off", "integrate_adaptive:unexpected_termination", "local");
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	570 %! opt = odeset ("Events", @fevn, "NormControl", "on");
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	571 %! [t, y, vxe, ye, vie] = ode23 (@fpol, [0 10], [2 0], opt);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	572 %! assert ([vie, vxe, ye], [2.0, 2.496110, -0.830550, -2.677589], 1e-1);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	573 %!test # Mass option as function
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	574 %! opt = odeset ("Mass", @fmas);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	575 %! sol = ode23 (@fpol, [0 2], [2 0], opt);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	576 %! assert ([sol.x(end), sol.y(end,:)], [2, fref], 1e-3);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	577 %!test # Mass option as matrix
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	578 %! opt = odeset ("Mass", eye (2,2));
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	579 %! sol = ode23 (@fpol, [0 2], [2 0], opt);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	580 %! assert ([sol.x(end), sol.y(end,:)], [2, fref], 1e-3);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	581 %!test # Mass option as sparse matrix
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	582 %! opt = odeset ("Mass", sparse (eye (2,2)));
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	583 %! sol = ode23 (@fpol, [0 2], [2 0], opt);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	584 %! assert ([sol.x(end), sol.y(end,:)], [2, fref], 1e-3);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	585 %!test # Mass option as function and sparse matrix
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	586 %! opt = odeset ("Mass", @fmsa);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	587 %! sol = ode23 (@fpol, [0 2], [2 0], opt);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	588 %! assert ([sol.x(end), sol.y(end,:)], [2, fref], 1e-3);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	589 %!test # Mass option as function and MStateDependence
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	590 %! opt = odeset ("Mass", @fmas, "MStateDependence", "strong");
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	591 %! sol = ode23 (@fpol, [0 2], [2 0], opt);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	592 %! assert ([sol.x(end), sol.y(end,:)], [2, fref], 1e-3);
20901 afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	593 %!
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	594 %! ## test for MvPattern option is missing
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	595 %! ## test for InitialSlope option is missing
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	596 %! ## test for MaxOrder option is missing
afe9c529760d 2015 Code Sprint: move ode23 and runge_kutta_23 from odepkg to core Stefan Miereis <stefan.miereis@gmx.de> parents: diff changeset	597
21443 acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	598 ## Test input validation
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	599 %!error ode23 ()
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	600 %!error ode23 (1)
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	601 %!error ode23 (1,2)
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	602 %!error <TRANGE must be a numeric>
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	603 %! ode23 (@fpol, {[0 25]}, [3 15 1]);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	604 %!error <TRANGE must be a .* vector>
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	605 %! ode23 (@fpol, [0 25; 25 0], [3 15 1]);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	606 %!error <TRANGE must contain at least 2 elements>
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	607 %! ode23 (@fpol, [1], [3 15 1]);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	608 %!error <invalid time span>
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	609 %! ode23 (@fpol, [1 1], [3 15 1]);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	610 %!error <INIT must be a numeric>
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	611 %! ode23 (@fpol, [0 25], {[3 15 1]});
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	612 %!error <INIT must be a .* vector>
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	613 %! ode23 (@fpol, [0 25], [3 15 1; 3 15 1]);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	614 %!error <FUN must be a valid function handle>
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	615 %! ode23 (1, [0 25], [3 15 1]);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	616 %!error # strange ODEOPT structure
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	617 %! opt = struct ("foo", 1);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	618 %! [t, y] = ode23 (@fpol, [0 2], [2 0], opt);
acd6e203031d Alter BIST tests stop emitting warnings during runtests invocation. Rik <rik@octave.org> parents: 21319 diff changeset	619