* Bug #4504 fixed - Function sskf did not work with two outputs (+ help page updated).
[scilab.git] / scilab / modules / signal_processing / tests / nonreg_tests / bug_4504.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2013 - Scilab Enterprises - Charlotte HECQUET
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 4504 -->
11 //
12 // <-- Bugzilla URL -->
13 // http://bugzilla.scilab.org/show_bug.cgi?id=4504
14 //
15 // <-- Short Description -->
16 // Function sskf does not act as the documentation says:
17 // Only xe = sskf(y,f,h,q,r,x0) works (not [xe pe] = sskf(y,f,h,q,r,x0))
18
19 rand("seed",5);
20 rand("normal");
21 q=[.03 0.01;.01 0.03];
22 u=rand(2,11);
23 f=[1.1 0.1;0 0.8];
24 g=(chol(q))';
25 m0=[10 10]';
26 p0=[2 0;0 2];
27 x0=m0+(chol(p0))'*rand(2,1);
28 x=ltitr(f,g,u,x0);
29 r=[2 0;0 2];
30 v=(chol(r))'*rand(2,11);
31 y=x+v;
32 h=eye(2,2);
33 assert_checktrue(execstr("[xe pe]=sskf(y,f,h,q,r,m0)","errcatch")==0);