Update of the localization templates
[scilab.git] / scilab / modules / parameters / tests / nonreg_tests / bug_6774.dia.ref
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2010 - DIGITEO - Michael Baudin
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 // <-- CLI SHELL MODE -->
8 // <-- Non-regression test for bug 6774 -->
9 // <-- Bugzilla URL -->
10 // http://bugzilla.scilab.org/show_bug.cgi?id=6774
11 //
12 // <-- Short Description -->
13 //  Detailed description of the problem
14 // The use of get_param requires to
15 // be extra-careful when we get the value of an option which is a function.
16 function y = rastrigin(x)
17   y = x(1)^2+x(2)^2-cos(12*x(1))-cos(18*x(2));
18 endfunction
19 function x_neigh = myneighfun (x_current, T,param)
20   sa_min_delta = -0.1*ones(size(x_current,1),size(x_current,2));
21   sa_max_delta = 0.1*ones(size(x_current,1),size(x_current,2));
22   x_neigh = x_current + (sa_max_delta - sa_min_delta).*rand(size(x_current,1),size(x_current,2)) + sa_min_delta;
23 endfunction
24 function T_init = myclientfunction ( x0, cit_f, proba_init, ItMX, param)
25   [neigh_func,err]  = get_param(param,"neigh_func",neigh_func_default);
26   [type_accept,err] = get_param(param,"type_accept","sa");
27   T_init = 0
28 endfunction
29 x0          = [2 2];
30 Proba_start = 0.7;
31 It_Pre      = 100;
32 t_extern   = 100;
33 t_intern   = 1000;
34 params = init_param();
35 params = add_param(params,"neigh_func", myneighfun);
36 T0 = myclientfunction ( x0, rastrigin, Proba_start, It_Pre, params);
37 // The test is : no warning must be generated.