bug 4799 fix
[scilab.git] / scilab / modules / cacsd / tests / nonreg_tests / bug_4799.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2010 - INRIA - Serge Steer
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7
8 // <-- JVM NOT MANDATORY -->
9
10 // <-- Non-regression test for bug 4799 -->
11 //
12 // <-- Bugzilla URL -->
13 // http://bugzilla.scilab.org/show_bug.cgi?id=4799
14 //
15 // <-- Short Description -->
16 // Some times the bode, nyquist , ... function report a "non convergence" error
17
18
19 s = poly(0,'s');
20 tau=.011; a=82.794; b=103.089;
21 S = a/(s*tau-b);
22 n=22; Sn = (1+S)^n-1; Snw = syslin('c',Sn);
23
24 if execstr('[frq,bnds,splitf]=calfrq(Snw,100,20000)','errcatch')<>0 then pause,end
25 if execstr('[frq,bnds,splitf]=calfrq(Snw,0.01,1000000)','errcatch')<>0 then pause,end
26
27 s = poly(0,'s');
28 tau=11; a=82.794; b=103.089;
29 S = a/(s*tau-b);
30 n=20; Sn = (1+S)^n-1; Snw = syslin('c',Sn);
31 if execstr('[frq,bnds,splitf]=calfrq(Snw,0.1,20)','errcatch')<>0 then pause,end