Mercurial > octave
changeset 22644:23941beb44cd stable
Cleanup variable names, obsolete ChangeLog info in ode23, ode45.
* ode23.m: Remove FIXME and ancient ChangeLog material stored in
file. Rename variable fvdb to fvdp for "Function Van der Pol".
* ode45.m: Rename variable fvdb to fvdp for "Function Van der Pol".
author | Rik <rik@octave.org> |
---|---|
date | Wed, 19 Oct 2016 12:21:27 -0700 |
parents | fb8b23754d76 |
children | 34bf558de127 |
files | scripts/ode/ode23.m scripts/ode/ode45.m |
diffstat | 2 files changed, 6 insertions(+), 15 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/ode/ode23.m Wed Oct 19 09:54:44 2016 -0700 +++ b/scripts/ode/ode23.m Wed Oct 19 12:21:27 2016 -0700 @@ -89,15 +89,6 @@ ## @seealso{odeset, odeget, ode45} ## @end deftypefn -## FIXME: We store ChangeLog information in Mercurial. Can this be deleted? -## ChangeLog: -## 20010703 the function file "ode23.m" was written by Marc Compere -## under the GPL for the use with this software. This function has been -## taken as a base for the following implementation. -## 20060810, Thomas Treichl -## This function was adapted to the new syntax that is used by the -## new OdePkg for Octave and is compatible to Matlab's ode23. - function varargout = ode23 (fun, trange, init, varargin) if (nargin < 3) @@ -375,8 +366,8 @@ %! [t, y] = ode23 (@fpol, [0 2], [2 0]); %! assert ([t(end), y(end,:)], [2, fref], 1e-3); %!test # anonymous function instead of real function -%! fvdb = @(t,y) [y(2); (1 - y(1)^2) * y(2) - y(1)]; -%! [t, y] = ode23 (fvdb, [0 2], [2 0]); +%! fvdp = @(t,y) [y(2); (1 - y(1)^2) * y(2) - y(1)]; +%! [t, y] = ode23 (fvdp, [0 2], [2 0]); %! assert ([t(end), y(end,:)], [2, fref], 1e-3); %!test # extra input arguments passed through %! [t, y] = ode23 (@fpol, [0 2], [2 0], 12, 13, "KL"); @@ -483,9 +474,9 @@ %! assert ([sol.x(end), sol.y(end,:)], [2, fref], 1e-3); ## FIXME: Missing tests. -## test for MvPattern option is missing ## test for InitialSlope option is missing ## test for MaxOrder option is missing +## test for MvPattern option is missing ## Test input validation %!error ode23 ()
--- a/scripts/ode/ode45.m Wed Oct 19 09:54:44 2016 -0700 +++ b/scripts/ode/ode45.m Wed Oct 19 12:21:27 2016 -0700 @@ -360,8 +360,8 @@ %! [t, y] = ode45 (@fpol, [0 2], [2 0]); %! assert (size (t) < 20); %!test # anonymous function instead of real function -%! fvdb = @(t,y) [y(2); (1 - y(1)^2) * y(2) - y(1)]; -%! [t, y] = ode45 (fvdb, [0 2], [2 0]); +%! fvdp = @(t,y) [y(2); (1 - y(1)^2) * y(2) - y(1)]; +%! [t, y] = ode45 (fvdp, [0 2], [2 0]); %! assert ([t(end), y(end,:)], [2, fref], 1e-2); %!test # string instead of function %! [t, y] = ode45 ("fpol", [0 2], [2 0]); @@ -482,9 +482,9 @@ %! assert ([sol.x(end), sol.y(end,:)], [2, fref], 1e-3); ## FIXME: Missing tests. -## test for MvPattern option is missing ## test for InitialSlope option is missing ## test for MaxOrder option is missing +## test for MvPattern option is missing %!error ode45 () %!error ode45 (1)