Update of the localization templates
[scilab.git] / scilab / modules / parameters / tests / unit_tests / get_param.tst
1
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2008 - Yann COLLETTE <yann.collette@renault.com>
4 // Copyright (C) 2010 - DIGITEO - Michael Baudin
5 //
6 // This file must be used under the terms of the CeCILL.
7 // This source file is licensed as described in the file COPYING, which
8 // you should have received as part of this distribution.  The terms
9 // are also available at
10 // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
11
12 // <-- JVM_NOT_MANDATORY -->
13
14 test_list = init_param();
15
16 test_list = add_param(test_list,"test",%T);
17
18 if get_param(test_list,"test")~=%T then pause,end
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