Mercurial > octave-nkf
changeset 8591:ffc9e9737507
remove obsolete source
author | Jaroslav Hajek <highegg@gmail.com> |
---|---|
date | Mon, 26 Jan 2009 15:43:44 +0100 |
parents | c136d313206a |
children | dacfd030633a |
files | scripts/ChangeLog scripts/optimization/Makefile.in scripts/optimization/__fsolve_defopts__.m |
diffstat | 3 files changed, 5 insertions(+), 55 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/ChangeLog Mon Jan 26 11:29:16 2009 +0100 +++ b/scripts/ChangeLog Mon Jan 26 15:43:44 2009 +0100 @@ -1,3 +1,8 @@ +2009-01-17 Jaroslav Hajek <highegg@gmail.com> + + * optimization/__fsolve_defopts__.m: Remove. + * optimization/Makefile.in: Reflect change. + 2009-01-17 Jaroslav Hajek <highegg@gmail.com> * optimization/__fdjac__.m: Fix setting up h.
--- a/scripts/optimization/Makefile.in Mon Jan 26 11:29:16 2009 +0100 +++ b/scripts/optimization/Makefile.in Mon Jan 26 15:43:44 2009 +0100 @@ -33,7 +33,6 @@ INSTALL_DATA = @INSTALL_DATA@ SOURCES = \ - __fsolve_defopts__.m \ fzero.m \ __fdjac__.m \ __dogleg__.m \
--- a/scripts/optimization/__fsolve_defopts__.m Mon Jan 26 11:29:16 2009 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,54 +0,0 @@ -## Copyright (C) 2007 John W. Eaton -## -## This file is part of Octave. -## -## Octave is free software; you can redistribute it and/or modify it -## under the terms of the GNU General Public License as published by -## the Free Software Foundation; either version 3 of the License, or (at -## your option) any later version. -## -## Octave is distributed in the hope that it will be useful, but -## WITHOUT ANY WARRANTY; without even the implied warranty of -## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -## General Public License for more details. -## -## You should have received a copy of the GNU General Public License -## along with Octave; see the file COPYING. If not, see -## <http://www.gnu.org/licenses/>. - -## Undocumented internal function. - -## -*- texinfo -*- -## @deftypefn {Function File} {} __fsolve_defopts__ () -## @end deftypefn - -function retval = __fsolve_defopts__ () - - if (nargin == 0) - retval = struct ("DerivativeCheck", "off", - "Diagnostics", "off", - "DiffMaxChange", 0.1, - "DiffMinChange", 1e-8, - "Display", "final", - "FunValCheck", "off", - "JacobMult", [], - "JacobPattern", "sparse (ones (jrows, jcols))", - "Jacobian", "off", - "LargeScale", "off", - "LineSearchtype", "quadcubic", - "MaxFunEvals", "100*numberofvariables", - "MaxIter", 400, - "MaxPCGIter", "max (1, floor (numberofvariables/2))", - "NonlEqnAlgorithm", "dogleg", - "OutputFcn", [], - "PlotFcns", [], - "PrecondBandWidth", 0, - "TolFun", 1e-6, - "TolPCG", 0.1, - "TolX", 1e-6, - "TypicalX", "ones (numberofvariables, 1)"); - else - print_usage (); - endif - -endfunction