Update of the localization templates
[scilab.git] / scilab / modules / parameters / tests / unit_tests / get_param.dia.ref
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) 2008 - Yann COLLETTE <yann.collette@renault.com>
3 // Copyright (C) 2010 - 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 // <-- JVM_NOT_MANDATORY -->
11 test_list = init_param();
12 test_list = add_param(test_list,"test",%T);
13 if get_param(test_list,"test")~=%T then bugmes();quit;end
14 function y = rastrigin(x)
15   y = x(1)^2+x(2)^2-cos(12*x(1))-cos(18*x(2));
16 endfunction
17 function x_neigh = myneighfun (x_current, T,param)
18   sa_min_delta = -0.1*ones(size(x_current,1),size(x_current,2));
19   sa_max_delta = 0.1*ones(size(x_current,1),size(x_current,2));
20   x_neigh = x_current + (sa_max_delta - sa_min_delta).*rand(size(x_current,1),size(x_current,2)) + sa_min_delta;
21 endfunction
22 function T_init = myclientfunction ( x0, cit_f, proba_init, ItMX, param)
23   [neigh_func,err]  = get_param(param,"neigh_func",neigh_func_default);
24   [type_accept,err] = get_param(param,"type_accept","sa");
25   T_init = 0
26 endfunction
27 x0          = [2 2];
28 Proba_start = 0.7;
29 It_Pre      = 100;
30 t_extern   = 100;
31 t_intern   = 1000;
32 params = init_param();
33 params = add_param(params,"neigh_func", myneighfun);
34 T0 = myclientfunction ( x0, rastrigin, Proba_start, It_Pre, params);
35 // The test is : no warning must be generated.