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);