bug 4319 fix (ccontrg)
[scilab.git] / scilab / modules / cacsd / tests / nonreg_tests / bug_4319.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2009 - INRIA - Serge Steer
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7
8 // <-- Non-regression test for bug 4319 -->
9 //
10 // <-- Bugzilla URL -->
11 // http://bugzilla.scilab.org/show_bug.cgi?id=4319
12 //
13 // <-- Short Description -->
14 //  The function nthresh called by the function parrt in ccontrg.sci is
15 //  missing
16 //2 states
17 A = [-5,-6;
18      6,-4]
19 //five inputs
20 B = [0,-14,17,2,9;
21      2,17,19,-10,-9]
22 //three ouputs
23 C = [0,-17;
24      3,-14;
25      8,7]
26
27 D = [1,1,1,3,4;
28      1,1,6,0,2;
29      1,1,7,5,5]
30 PP=syslin('c',A,B,C,D);
31 gopt=gamitg(PP,[1 1]);
32
33 if execstr('KK=ccontrg(PP,[1 1],gopt+0.1)','errcatch')<>0 then pause,end