Fixe endianness issue with namstr.
[scilab.git] / scilab / modules / cacsd / tests / nonreg_tests / bug_12174.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 // <-- Non-regression test for bug 12174 -->
9 //
10 // <-- Bugzilla URL -->
11 // http://bugzilla.scilab.org/show_bug.cgi?id=12174
12 //
13 // <-- Short Description -->
14 // The function "routh_t" gives incorrect output for all denominators that include
15 //gain value "k".
16
17 s = poly(0, 's');
18 k=poly(0,'k');
19 P=s*(s+7)*(s+11);
20 h=1/P;
21 r=routh_t(h,k);
22
23 ref=[1 77; 18 k;(1386-k)/18 0; k 0];
24 numref=numer(ref);
25 numref(3)=1386 - k;
26 denr=denom(r);
27 denr=horner(denr,1);
28 denref=denom(ref);
29 denref(3)=18;
30
31 assert_checkequal(numer(r)/denr,numref/denref);