Update order of files in ref file.
[scilab.git] / scilab / modules / optimization / tests / unit_tests / neldermead / neldermead_searchaddargobsolete.dia.ref
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) 2008-2009 - INRIA - Michael Baudin
3 // Copyright (C) 2011 - DIGITEO - Michael Baudin
4 //
5 // This file must be used under the terms of the CeCILL.
6 // This source file is licensed as described in the file COPYING, which
7 // you should have received as part of this distribution.  The terms
8 // are also available at
9 // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
10 // <-- CLI SHELL MODE -->
11 // <-- ENGLISH IMPOSED -->
12 // <-- NO CHECK REF -->
13 // This test is designed to produce a warning:
14 // this warning is localized.
15 // This is why we do not check the ref.
16 // Checking the ref file under Linux fails, because
17 // <-- ENGLISH IMPOSED --> has no effect there.
18 // See : http://bugzilla.scilab.org/show_bug.cgi?id=9284
19 x0 = [11.0 140.0]';
20 //
21 // In this case, the mydata variable is passed
22 // explicitely by the neldermead class.
23 // So the actual name "mydata" does not matter
24 // and whatever variable name can be used.
25 //
26 function [ y , index ] = rosenbrock2 ( x , index , mydata )
27   a = mydata.a
28   y = 100*(x(2)-x(1)^2)^2 + ( a - x(1))^2;
29 endfunction
30 //
31 // Check backward compatibility with the "-costfargument" option.
32 //
33 mystuff = tlist(["T_MYSTUFF","a"]);
34 mystuff.a = 12.0;
35 nm = neldermead_new ();
36 nm = neldermead_configure(nm,"-numberofvariables",2);
37 nm = neldermead_configure(nm,"-function",rosenbrock2);
38 nm = neldermead_configure(nm,"-costfargument",mystuff);
39 AVERTISSEMENT : La fonctionnalité optimbase_configure est obsolète.
40 AVERTISSEMENT : Utilisez plutôt -function s'il vous plait.
41 AVERTISSEMENT : Cette fonctionnalité va être définitivement enlevée dans Scilab 5.4.1
42
43 nm = neldermead_configure(nm,"-x0",x0);
44 nm = neldermead_configure(nm,"-maxfunevals",%inf);
45 nm = neldermead_configure(nm,"-maxiter",10);
46 nm = neldermead_search(nm);
47 iter = neldermead_get(nm,"-iterations");
48 assert_checkequal ( iter , 10 );
49 nm = neldermead_destroy(nm);