bug 4799 fix
[scilab.git] / scilab / modules / cacsd / tests / nonreg_tests / bug_4799.dia.ref
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 // <-- JVM NOT MANDATORY -->
8 // <-- Non-regression test for bug 4799 -->
9 //
10 // <-- Bugzilla URL -->
11 // http://bugzilla.scilab.org/show_bug.cgi?id=4799
12 //
13 // <-- Short Description -->
14 // Some times the bode, nyquist , ... function report a "non convergence" error
15 s = poly(0,'s');
16 tau=.011; a=82.794; b=103.089;
17 S = a/(s*tau-b);
18 n=22; Sn = (1+S)^n-1; Snw = syslin('c',Sn);
19 if execstr('[frq,bnds,splitf]=calfrq(Snw,100,20000)','errcatch')<>0 then bugmes();quit;end
20 if execstr('[frq,bnds,splitf]=calfrq(Snw,0.01,1000000)','errcatch')<>0 then bugmes();quit;end
21 s = poly(0,'s');
22 tau=11; a=82.794; b=103.089;
23 S = a/(s*tau-b);
24 n=20; Sn = (1+S)^n-1; Snw = syslin('c',Sn);
25 if execstr('[frq,bnds,splitf]=calfrq(Snw,0.1,20)','errcatch')<>0 then bugmes();quit;end