* Bug #14461 fixed - grand(n, 'markov', P, x0) dit not return all outputs.
[scilab.git] / scilab / modules / randlib / tests / nonreg_tests / bug_14461.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2016 - Scilab Enterprises - Adeline CARNIS
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7
8 // <-- CLI SHELL MODE -->
9
10 // <-- Non-regression test for bug 14461 -->
11 //
12 // <-- Bugzilla URL -->
13 // http://bugzilla.scilab.org/show_bug.cgi?id=14461
14 //
15 // <-- Short Description -->
16 //    Calling grand(n, "markov", P, x0) did not return all outputs.
17 // =============================================================================
18
19 n = 200;
20 P = [0.1 0.3 0.2 0.01 0.09 0.3 ; ...
21 0.2 0.1 0.1 0.5  0.05 0.05; ...
22 0   0   0.2 0.3  0.4  0.1 ; ...
23 0.4 0   0.1 0.05 0.05 0.4 ; ...
24 0.1 0.1 0.1 0.3  0.2  0.2 ; ...
25 0.2 0.2 0.1 0.1  0.2  0.2];
26 x0 = [1:3];
27
28 a=grand(n, "markov", P, x0);
29 assert_checkequal(size(a), [3 200]);