Mercurial > octave

diff scripts/ode/ode15s.m @ 29039:1aa69571a313

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use 1-based indexing for "ie" variable in ode15i/s (bug #59063). * __ode15__.cc (integrate): Add 1.0 to "ie" variable to change from zero-based to 1-based indexing. * ode15i.m, ode15s.m: Adapt BISTs.
author Rik <rik@octave.org>
date Mon, 07 Sep 2020 20:06:35 -0700
parents bf62eeabf6d1
children 2190720bca3e
line wrap: on
line diff
--- a/scripts/ode/ode15s.m	Fri Nov 06 14:38:21 2020 +0100
+++ b/scripts/ode/ode15s.m	Mon Sep 07 20:06:35 2020 -0700
@@ -715,7 +715,7 @@
 %!               "MStateDependence", "none");
 %! sol = ode15s (@rob, [0, 100], [1; 0; 0], opt);
 %! assert (isfield (sol, "ie"));
-%! assert (sol.ie, [0;1]);
+%! assert (sol.ie, [1; 2]);
 %! assert (isfield (sol, "xe"));
 %! assert (isfield (sol, "ye"));
 %! assert (sol.x(end), 10, 1);
@@ -725,7 +725,9 @@
 %! opt = odeset ("Events", @feve, "Mass", @massdensefunstate,
 %!               "MStateDependence", "none");
 %! [t, y, te, ye, ie] = ode15s (@rob, [0, 100], [1; 0; 0], opt);
-%! assert ([t(end), te', ie'], [10, 10, 10, 0, 1], [1, 0.5, 0.5, 0, 0]);
+%! assert (t(end), 10, 1);
+%! assert (te, [10; 10], 0.5);
+%! assert (ie, [1; 2]);
 
 ## Initial solution as row vector
 %!testif HAVE_SUNDIALS