[Octave-cvsupdate] SF.net SVN: octave:[7095] trunk/octave-forge/main/optim

[<ha...@us...>]

Revision: 7095
          http://octave.svn.sourceforge.net/octave/?rev=7095&view=rev
Author:   hauberg
Date:     2010-03-21 18:40:41 +0000 (Sun, 21 Mar 2010)

Log Message:
-----------
Remove 'fminbnd' as it is in Octave core

Modified Paths:
--------------
    trunk/octave-forge/main/optim/INDEX

Removed Paths:
-------------
    trunk/octave-forge/main/optim/inst/fminbnd.m

Modified: trunk/octave-forge/main/optim/INDEX
===================================================================
--- trunk/octave-forge/main/optim/INDEX	2010-03-21 09:14:41 UTC (rev 7094)
+++ trunk/octave-forge/main/optim/INDEX	2010-03-21 18:40:41 UTC (rev 7095)
@@ -4,7 +4,7 @@
  nelder_mead_min
  d2_min
  nrm
- fmin fminbnd
+ fmin
  line_min
  fmins adsmax mdsmax nmsmax
  bfgsmin samin battery

Deleted: trunk/octave-forge/main/optim/inst/fminbnd.m
===================================================================
--- trunk/octave-forge/main/optim/inst/fminbnd.m	2010-03-21 09:14:41 UTC (rev 7094)
+++ trunk/octave-forge/main/optim/inst/fminbnd.m	2010-03-21 18:40:41 UTC (rev 7095)
@@ -1,72 +0,0 @@
-## Copyright (C) 2000 Ben Sapp.  All rights reserved.
-## Modification by Andreas Helms
-## This program 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 2, or (at your option) any
-## later version.
-##
-## This 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.
-
-## -*- texinfo -*-
-## @deftypefn {Function File} {[@var{x},@var{v}] =} fminbnd(@var{f},@var{lb},@var{ub},@var{[options]},@var{P1},@var{P2}, ...)
-## 
-## Find the minimizer @var{x} of a scalar function and the corresponding
-## value @var{v} with the Golden Search method.
-## 
-## @strong{Inputs}
-## @table @var 
-## @item f 
-## A string contining the name of the function to minimiz
-## @item lb
-## Value to use as an initial lower bound on @var{x}.
-## @item ub 
-## Value to use as an initial upper bound on @var{x}.
-## @item options
-## Vector with control parameters (For compatibily with MATLAB, not used 
-## here) 
-## @item P1,P2, ...
-## Optional parameter for function @var{f} 
-##
-## @end table
-## @end deftypefn
-
-## 2001-09-24 Andreas Helms <he...@as...>
-## * modified for use with functions of more than one parameter
-## 2007-08-09 Marco Caliari <mca...@ma...>
-## * modified in order to get optionally the value of the function
-## 2008-06-16 Florent Angly <flo...@gm...>
-## * modified to accept an initial lower bound equal to the initial upper bound
-##   (like in Matlab)
-function [min,val] = fminbnd(_func,lb,ub, options, varargin)
-
-  delta = 1e-17;
-  gr = (sqrt(5)-1)/2;
-  width = (ub-lb);
-  out = linspace(lb, ub, 4);
-  out(2) = out(4)-gr*width;
-  out(3) = out(1)+gr*width;
-  upper = feval(_func,out(3), varargin{:});
-  lower = feval(_func,out(2), varargin{:});
-  while((out(3)-out(2)) > delta) #this will not work for symmetric funcs
-    if(upper > lower)
-      out(4) = out(3);
-      out(3) = out(2);
-      width = out(4)-out(1);
-      out(2) = out(4)-gr*width;
-      upper = lower;
-      lower = feval(_func,out(2), varargin{:});
-    else
-      out(1) = out(2);
-      out(2) = out(3);
-      width = out(4)-out(1);
-      out(3) = out(1)+width*gr;
-      lower = upper;
-      upper = feval(_func,out(3), varargin{:});
-    endif
-  endwhile
-  min = out(2);
-  val = feval(_func,out(2), varargin{:});
-endfunction


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.