Fix test win 64b : test_run(cacsd, bug_9836) 97/10997/3
Adeline CARNIS [Mon, 25 Mar 2013 16:32:18 +0000 (17:32 +0100)]
Change-Id: Id5f6a6c4b7463e932490c9b42b1840580f608dee

scilab/modules/cacsd/tests/nonreg_tests/bug_9836.unix.dia.ref [moved from scilab/modules/cacsd/tests/nonreg_tests/bug_9836.dia.ref with 100% similarity]
scilab/modules/cacsd/tests/nonreg_tests/bug_9836.win.dia.ref [new file with mode: 0644]

diff --git a/scilab/modules/cacsd/tests/nonreg_tests/bug_9836.win.dia.ref b/scilab/modules/cacsd/tests/nonreg_tests/bug_9836.win.dia.ref
new file mode 100644 (file)
index 0000000..e8dc791
--- /dev/null
@@ -0,0 +1,36 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2011 - INRIA - Serge Steer
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- CLI SHELL MODE -->
+//
+// <-- ENGLISH IMPOSED -->
+//
+// <-- Non-regression test for bug 9836 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=9836 
+//
+// <-- Short Description -->
+// repfreq failed due to "singular problem
+s=%s;
+num=1+8*s-8*s^2-16*s^3;
+den=32*s^2+64*s^3+32*s^4+8*s^5+s^6;
+H=syslin('c',num,den); //The system includes 2 integrators
+f=2^(-29);//evaluate at a very low frequency
+r_ref=-2.2815502244818564e14-imult(1.60210611463226081e7);//computed with Maple   
+assert_checkalmostequal(repfreq(H,f),r_ref);
+S1=syslin('c',cont_frm(H.num,H.den));
+assert_checkalmostequal(repfreq(S1,f),r_ref);
+Warning :
+matrix is close to singular or badly scaled. rcond =    9.8309D-18
+
+//using tf2ss make the error explode, just check if repfreq returns
+//without error (warning must be issued)
+S2=tf2ss(H);
+assert_checkequal(execstr("repfreq(S2,f)","errcatch"),0);
+Warning :
+matrix is close to singular or badly scaled. rcond =    7.0450D-17
+