Update of the localization templates
[scilab.git] / scilab / modules / parameters / tests / nonreg_tests / bug_6774.tst
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
8 // <-- CLI SHELL MODE -->
9
10 // <-- Non-regression test for bug 6774 -->
11 // <-- Bugzilla URL -->
12 // http://bugzilla.scilab.org/show_bug.cgi?id=6774
13 //
14 // <-- Short Description -->
15 //  Detailed description of the problem
16 // The use of get_param requires to
17 // be extra-careful when we get the value of an option which is a function.
18
19
20 function y = rastrigin(x)
21   y = x(1)^2+x(2)^2-cos(12*x(1))-cos(18*x(2));
22 endfunction
23
24 function x_neigh = myneighfun (x_current, T,param)
25   sa_min_delta = -0.1*ones(size(x_current,1),size(x_current,2));
26   sa_max_delta = 0.1*ones(size(x_current,1),size(x_current,2));
27   x_neigh = x_current + (sa_max_delta - sa_min_delta).*rand(size(x_current,1),size(x_current,2)) + sa_min_delta;
28 endfunction
29
30 function T_init = myclientfunction ( x0, cit_f, proba_init, ItMX, param)
31   [neigh_func,err]  = get_param(param,"neigh_func",neigh_func_default);
32   [type_accept,err] = get_param(param,"type_accept","sa");
33   T_init = 0
34 endfunction
35
36 x0          = [2 2];
37 Proba_start = 0.7;
38 It_Pre      = 100;
39 t_extern   = 100;
40 t_intern   = 1000;
41
42 params = init_param();
43 params = add_param(params,"neigh_func", myneighfun);
44 T0 = myclientfunction ( x0, rastrigin, Proba_start, It_Pre, params);
45
46 // The test is : no warning must be generated.
47