octave-nkf: scripts/miscellaneous/mex.m annotate

annotate scripts/miscellaneous/mex.m @ 20596:87b557ee8e5d

clean up and vectorize code for dense output in ode45 * scripts/ode/private/ode_rk_interpolate.m: new file * scripts/ode/private/ode_rk_interpolate.m(hermite_quartic_interpolation): move to internal function, use vectorization and broadcasting. * scripts/ode/private/hermite_quartic_interpolation.m: remove file * scripts/ode/module.mk: list added and removed files * scripts/ode/private/integrate_adaptive.m: use new interpolation code.

author	Carlo de Falco <carlo.defalco@polimi.it>
date	Tue, 06 Oct 2015 19:28:59 +0200
parents	4197fc428c7d
children

rev	line source
19731 4197fc428c7d maint: Update copyright notices for 2015. John W. Eaton <jwe@octave.org> parents: 19631 diff changeset	1 ## Copyright (C) 2006-2015 David Bateman
5904 80d3933fb8b6 [project @ 2006-07-26 17:19:10 by jwe] jwe parents: diff changeset	2 ##
80d3933fb8b6 [project @ 2006-07-26 17:19:10 by jwe] jwe parents: diff changeset	3 ## This file is part of Octave.
80d3933fb8b6 [project @ 2006-07-26 17:19:10 by jwe] jwe parents: diff changeset	4 ##
80d3933fb8b6 [project @ 2006-07-26 17:19:10 by jwe] jwe parents: diff changeset	5 ## Octave is free software; you can redistribute it and/or modify it
80d3933fb8b6 [project @ 2006-07-26 17:19:10 by jwe] jwe parents: diff changeset	6 ## under the terms of the GNU General Public License as published by
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6547 diff changeset	7 ## the Free Software Foundation; either version 3 of the License, or (at
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6547 diff changeset	8 ## your option) any later version.
5904 80d3933fb8b6 [project @ 2006-07-26 17:19:10 by jwe] jwe parents: diff changeset	9 ##
80d3933fb8b6 [project @ 2006-07-26 17:19:10 by jwe] jwe parents: diff changeset	10 ## Octave is distributed in the hope that it will be useful, but
80d3933fb8b6 [project @ 2006-07-26 17:19:10 by jwe] jwe parents: diff changeset	11 ## WITHOUT ANY WARRANTY; without even the implied warranty of
80d3933fb8b6 [project @ 2006-07-26 17:19:10 by jwe] jwe parents: diff changeset	12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
80d3933fb8b6 [project @ 2006-07-26 17:19:10 by jwe] jwe parents: diff changeset	13 ## General Public License for more details.
80d3933fb8b6 [project @ 2006-07-26 17:19:10 by jwe] jwe parents: diff changeset	14 ##
80d3933fb8b6 [project @ 2006-07-26 17:19:10 by jwe] jwe parents: diff changeset	15 ## You should have received a copy of the GNU General Public License
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6547 diff changeset	16 ## along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6547 diff changeset	17 ## <http://www.gnu.org/licenses/>.
5904 80d3933fb8b6 [project @ 2006-07-26 17:19:10 by jwe] jwe parents: diff changeset	18
80d3933fb8b6 [project @ 2006-07-26 17:19:10 by jwe] jwe parents: diff changeset	19 ## -- texinfo --
17170 d6499c14021c doc: Periodic grammarcheck of documentation. Rik <rik@octave.org> parents: 14138 diff changeset	20 ## @deftypefn {Command} {} mex [options] file @dots{}
5904 80d3933fb8b6 [project @ 2006-07-26 17:19:10 by jwe] jwe parents: diff changeset	21 ## Compile source code written in C, C++, or Fortran, to a MEX file.
19631 db92e7e28e1f strip trailing whitespace from most source files John W. Eaton <jwe@octave.org> parents: 19226 diff changeset	22 ##
5917 f47c0a988fe3 [project @ 2006-07-28 21:21:51 by jwe] jwe parents: 5904 diff changeset	23 ## This is equivalent to @code{mkoctfile --mex [options] file}.
19226 8a8a7bc2a09d Improve docstrings and mark documentation m-files as tested in miscellaneous/ dir. Rik <rik@octave.org> parents: 18193 diff changeset	24 ## @seealso{mkoctfile, mexext}
5904 80d3933fb8b6 [project @ 2006-07-26 17:19:10 by jwe] jwe parents: diff changeset	25 ## @end deftypefn
80d3933fb8b6 [project @ 2006-07-26 17:19:10 by jwe] jwe parents: diff changeset	26
18193 d3c6842ef188 mex.m: Return status if called with an output argument (bug #40984). Rik <rik@octave.org> parents: 17744 diff changeset	27 function retval = mex (varargin)
d3c6842ef188 mex.m: Return status if called with an output argument (bug #40984). Rik <rik@octave.org> parents: 17744 diff changeset	28
d3c6842ef188 mex.m: Return status if called with an output argument (bug #40984). Rik <rik@octave.org> parents: 17744 diff changeset	29 [output, status] = mkoctfile ("--mex", varargin{:});
d3c6842ef188 mex.m: Return status if called with an output argument (bug #40984). Rik <rik@octave.org> parents: 17744 diff changeset	30
d3c6842ef188 mex.m: Return status if called with an output argument (bug #40984). Rik <rik@octave.org> parents: 17744 diff changeset	31 if (! isempty (output))
d3c6842ef188 mex.m: Return status if called with an output argument (bug #40984). Rik <rik@octave.org> parents: 17744 diff changeset	32 disp (output);
d3c6842ef188 mex.m: Return status if called with an output argument (bug #40984). Rik <rik@octave.org> parents: 17744 diff changeset	33 endif
d3c6842ef188 mex.m: Return status if called with an output argument (bug #40984). Rik <rik@octave.org> parents: 17744 diff changeset	34 if (nargout > 0)
d3c6842ef188 mex.m: Return status if called with an output argument (bug #40984). Rik <rik@octave.org> parents: 17744 diff changeset	35 retval = status;
d3c6842ef188 mex.m: Return status if called with an output argument (bug #40984). Rik <rik@octave.org> parents: 17744 diff changeset	36 endif
d3c6842ef188 mex.m: Return status if called with an output argument (bug #40984). Rik <rik@octave.org> parents: 17744 diff changeset	37
5904 80d3933fb8b6 [project @ 2006-07-26 17:19:10 by jwe] jwe parents: diff changeset	38 endfunction
17338 1c89599167a6 maint: End m-files with 1 blank line. Rik <rik@octave.org> parents: 17170 diff changeset	39
19226 8a8a7bc2a09d Improve docstrings and mark documentation m-files as tested in miscellaneous/ dir. Rik <rik@octave.org> parents: 18193 diff changeset	40
19631 db92e7e28e1f strip trailing whitespace from most source files John W. Eaton <jwe@octave.org> parents: 19226 diff changeset	41 ## Remove from test statistics. All real tests are in mkoctfile.
19226 8a8a7bc2a09d Improve docstrings and mark documentation m-files as tested in miscellaneous/ dir. Rik <rik@octave.org> parents: 18193 diff changeset	42 %!assert (1)
8a8a7bc2a09d Improve docstrings and mark documentation m-files as tested in miscellaneous/ dir. Rik <rik@octave.org> parents: 18193 diff changeset	43

Mercurial > octave-nkf

annotate scripts/miscellaneous/mex.m @ 20596:87b557ee8e5d