CACSD: fix freson() Scilab 5 behavior 18/18718/5
Clément DAVID [Mon, 28 Nov 2016 07:36:31 +0000 (08:36 +0100)]
 * fix freson unit-test

Change-Id: Id6d81cfbae91ab87e37d4ea2b61e458166c6c91e

scilab/modules/cacsd/macros/freson.sci
scilab/modules/cacsd/tests/unit_tests/freson.dia.ref
scilab/modules/cacsd/tests/unit_tests/freson.tst

index 123c0e7..1a15f4c 100644 (file)
@@ -62,5 +62,5 @@ function fr=freson(h)
     k=find(abs(repfreq(h,fr))-abs(repfreq(h,fr*0.999))>0)
     fr=fr(k)
     if fr==[] then return;end
-    fr=gsort(fr,"g","i");
+    fr=gsort(fr,"g","d");
 endfunction
index 5f73ae1..ef7a563 100644 (file)
@@ -1,13 +1,13 @@
-//<-- CLI SHELL MODE -->
 // =============================================================================
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 // Copyright (C) 2010 - 2016 - INRIA - Serge Steer
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+//<-- CLI SHELL MODE -->
 h=syslin("c",-1+%s,(3+2*%s+%s^2)*(50+0.1*%s+%s^2));
 fr=freson(h);
-assert_checkalmostequal(fr,[0.26162097704;1.12527981797]);
+assert_checkalmostequal(fr,[1.12527981797;0.26162097704]);
 hd=dscr(h,0.05);
 fr=freson(hd);
-assert_checkalmostequal(fr,[0.26155702493;1.12527923264]);
+assert_checkalmostequal(fr,[1.12527923264;0.26155702493]);
index 4671821..5aa3cc5 100644 (file)
@@ -1,15 +1,17 @@
-//<-- CLI SHELL MODE -->
 // =============================================================================
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 // Copyright (C) 2010 - 2016 - INRIA - Serge Steer
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+
+//<-- CLI SHELL MODE -->
+
 h=syslin("c",-1+%s,(3+2*%s+%s^2)*(50+0.1*%s+%s^2));
 fr=freson(h);
-assert_checkalmostequal(fr,[0.26162097704;1.12527981797]);
+assert_checkalmostequal(fr,[1.12527981797;0.26162097704]);
 
 
 hd=dscr(h,0.05);
 fr=freson(hd);
-assert_checkalmostequal(fr,[0.26155702493;1.12527923264]);
+assert_checkalmostequal(fr,[1.12527923264;0.26155702493]);