fac86f9863f769de2563ee5233786d6324dc8805
[scilab.git] / scilab / modules / signal_processing / tests / unit_tests / rpem.dia.ref
1 // -*- scilab -*-
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2009 - Digiteo - Vincent Liard
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 // 'rpem' unit tests
11 test_path = pathconvert(SCI + '/modules/signal_processing/tests/unit_tests');
12 // requires test_utilities.sci
13 n = 2;
14 theta=zeros(1,3*n);
15 p=eye(3*n,3*n);
16 phi=theta;
17 psi=theta;
18 l=theta;
19 w0=list(theta, p, l, phi, psi);
20 u0=[1 2 3 4];
21 y0=[5 2 7 3];
22 lambda=[1 1 1];
23 kappa=[1 1 1];
24 c=500;
25 // test 1 ****************************************************************
26 load(test_path + 'rpem_ref1.dat', 'w1_ref1', 'v_ref1');
27 check(rpem(w0, u0, y0), w1_ref1);
28 [w1,v] = rpem(w0, u0, y0);
29 check(w1, w1_ref1);
30 check(v, v_ref1);
31 // test 2 ****************************************************************
32 load(test_path + 'rpem_ref2.dat', 'w1_ref2', 'v_ref2');
33 check(rpem(w0, u0, y0, lambda), w1_ref2);
34 [w1,v] = rpem(w0, u0, y0, lambda);
35 check(w1, w1_ref2);
36 check(v, v_ref2);
37 // test 3 ****************************************************************
38 load(test_path + 'rpem_ref3.dat', 'w1_ref3', 'v_ref3');
39 check(rpem(w0, u0, y0, lambda, kappa), w1_ref3);
40 [w1,v] = rpem(w0, u0, y0, lambda, kappa);
41 check(w1, w1_ref3);
42 check(v, v_ref3);
43 // test 4 ****************************************************************
44 load(test_path + 'rpem_ref4.dat', 'w1_ref4', 'v_ref4');
45 check(rpem(w0, u0, y0, lambda, kappa, c), w1_ref4);
46 [w1,v] = rpem(w0, u0, y0, lambda, kappa, c);
47 check(w1, w1_ref4);
48 check(v, v_ref4);
49 //****************************************************************