d50eae43ce5034ba4a5b42e2cb1800d7e925a1f4
[scilab.git] / scilab / modules / statistics / tests / nonreg_tests / bug_6306.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2013 - Scilab Enterprises - Paul Bignier
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 //
8 // <-- TEST WITH GRAPHIC -->
9 //
10 // <-- Non-regression test for bug 6306 -->
11 //
12 // <-- Bugzilla URL -->
13 // http://bugzilla.scilab.org/show_bug.cgi?id=6306
14 //
15 // <-- Short Description -->
16 // It was not possible to retrieve the data computed by histplot.
17 // Also, new function histc to compute histogram data instead of plotting it.
18
19 d = rand(1, 10000, "normal");
20 [cfC, indC] = histc(20, d);
21 [cfP, indP] = histplot(20, d);
22
23 assert_checkequal(indC, indP);
24 assert_checkalmostequal(cfC, cfP);
25
26 [cfC, indC] = histc(20, d, normalization=%f);
27 [cfP, indP] = histplot(20, d, normalization=%f);
28
29 assert_checkequal(indC, indP);
30 assert_checkalmostequal(cfC, cfP);
31
32 [cfC, indC] = histc([-1 0 1], d);
33 [cfP, indP] = histplot([-1 0 1], d);
34
35 assert_checkequal(indC, indP);
36 assert_checkalmostequal(cfC, cfP);
37
38 [cfC, indC] = histc([-1 0 1], d, normalization=%f);
39 [cfP, indP] = histplot([-1 0 1], d, normalization=%f);
40
41 assert_checkequal(indC, indP);
42 assert_checkalmostequal(cfC, cfP);
43
44
45
46 grand("setsd", 0);
47 lambda = 2;
48 D = grand(100000, 1, "exp", 1/lambda);
49 [cfC, indC] = histc(40, D);
50 [cfP, indP] = histplot(40, D);
51
52 assert_checkequal(indC, indP);
53 assert_checkalmostequal(cfC, cfP);
54
55 [cfC, indC] = histc(40, D, normalization=%f);
56 [cfP, indP] = histplot(40, D, normalization=%f);
57
58 assert_checkequal(indC, indP);
59 assert_checkalmostequal(cfC, cfP);
60
61 [cfC, indC] = histc([0 7], D);
62 [cfP, indP] = histplot([0 7], D);
63
64 assert_checkequal(indC, indP);
65 assert_checkalmostequal(cfC, cfP);
66
67 [cfC, indC] = histc([0 7], D, normalization=%f);
68 [cfP, indP] = histplot([0 7], D, normalization=%f);
69
70 assert_checkequal(indC, indP);
71 assert_checkalmostequal(cfC, cfP);