Mercurial > hg > octave-nkf

diff scripts/optimization/fminunc.m @ 13305:63463570d9fe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add %!endfunction block keyword to test.m test.m: Accept, but don't process, %!endfunction block keyword * structfun.m, fminunc.m, fsolve.m, sqp.m, unwrap.m, test.m: Close %!function declarations with %!endfunction. Until Bug #34497 (unable to clear command line functions from user workspace) is fixed, use Octave reserved namespace for test functions.
author Rik <octave@nomad.inbox5.com>
date Sun, 09 Oct 2011 07:25:07 -0700
parents b9a89ca0fb75
children 72c96de7a403
line wrap: on
line diff
--- a/scripts/optimization/fminunc.m
+++ b/scripts/optimization/fminunc.m
@@ -359,17 +359,18 @@
   endif
 endfunction
 
-%!function f = rosenb (x)
+%!function f = __rosenb (x)
 %!  n = length (x);
 %!  f = sumsq (1 - x(1:n-1)) + 100 * sumsq (x(2:n) - x(1:n-1).^2);
+%!endfunction
 %!test
-%! [x, fval, info, out] = fminunc (@rosenb, [5, -5]);
+%! [x, fval, info, out] = fminunc (@__rosenb, [5, -5]);
 %! tol = 2e-5;
 %! assert (info > 0);
 %! assert (x, ones (1, 2), tol);
 %! assert (fval, 0, tol);
 %!test
-%! [x, fval, info, out] = fminunc (@rosenb, zeros (1, 4));
+%! [x, fval, info, out] = fminunc (@__rosenb, zeros (1, 4));
 %! tol = 2e-5;
 %! assert (info > 0);
 %! assert (x, ones (1, 4), tol);