635ddf50d5cacfdbd408752c1ed0edcc23e0d03b
[scilab.git] / scilab / modules / optimization / demos / neldermead / fminsearch_display.sce
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab\r
2 // Copyright (C) 2009 - DIGITEO - Michael Baudin\r
3 // Copyright (C) 2010 - DIGITEO - Allan CORNET\r
4 // Copyright (C) 2012 - Scilab Enterprises - Adeline CARNIS\r
5 //\r
6 // This file must be used under the terms of the CeCILL.\r
7 // This source file is licensed as described in the file COPYING, which\r
8 // you should have received as part of this distribution.  The terms\r
9 // are also available at\r
10 // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt\r
11 \r
12 function demo_fmin_display()\r
13 \r
14     mprintf(_("Running optimization ...\n"));\r
15 \r
16     function y = banana (x)\r
17         y = 100*(x(2)-x(1)^2)^2 + (1-x(1))^2;\r
18     endfunction\r
19 \r
20     opt = optimset ( "Display" , "iter" );\r
21     [x fval] = fminsearch ( banana , [-1.2 1] , opt );\r
22 \r
23     //\r
24     // Display results\r
25     //\r
26     mprintf("x = %s\n", strcat(string(x)," "));\r
27     mprintf("fval = %e\n", fval);\r
28 \r
29     //\r
30     // Load this script into the editor\r
31     //\r
32     m = messagebox(_("View Code?"), "Question", "question", _(["Yes" "No"]), "modal")\r
33     if(m == 1)\r
34         filename = 'fminsearch_display.sce';\r
35         dname = get_absolute_file_path(filename);\r
36         editor ( dname + filename, "readonly" );\r
37     end \r
38 endfunction\r
39 \r
40 demo_fmin_display();\r
41 clear demo_fmin_display;\r
42 \r
43 \r
44 \r
45 \r
46 \r
47 \r
48 \r
49 \r\r