Mercurial > octave

changeset 20620:b5d2ca6a690c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ode45.m: Fix two failing BIST tests. * ode45.m: Fix two failing BIST tests.
author Rik <rik@octave.org>
date Wed, 14 Oct 2015 09:25:04 -0700
parents 96163bdd2ea1
children b92f8e148936
files scripts/ode/ode45.m
diffstat 1 files changed, 2 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ode/ode45.m	Tue Oct 13 09:55:46 2015 -0700
+++ b/scripts/ode/ode45.m	Wed Oct 14 09:25:04 2015 -0700
@@ -513,7 +513,7 @@
 %!error  # input argument number one
 %! [vt, vy] = ode45 (1, [0 25], [3 15 1]);
 %!error  # input argument number one as name of non existing function
-%! [vt, vy] = ode45 ("non-existing-function"", [0 25], [3 15 1]);
+%! [vt, vy] = ode45 ("non-existing-function", [0 25], [3 15 1]);
 %!error  # input argument number two
 %! [vt, vy] = ode45 (@fpol, 1, [3 15 1]);
 %!test  # two output arguments
@@ -527,8 +527,7 @@
 %! [vt, vy] = ode45 (fvdb, [0 2], [2 0]);
 %! assert ([vt(end), vy(end,:)], [2, fref], 1e-2);
 %!test  # string instead of function
-%! fvdb = @(vt,vy) [vy(2); (1 - vy(1)^2) * vy(2) - vy(1)];
-%! [vt, vy] = ode45 ("atan2", [0 2], [2 0]);
+%! [vt, vy] = ode45 ("fpol", [0 2], [2 0]);
 %! assert ([vt(end), vy(end,:)], [2, fref], 1e-2);
 %!test  # extra input arguments passed through
 %! [vt, vy] = ode45 (@fpol, [0 2], [2 0], 12, 13, "KL");