5bdaedb83d0269f1fb9888abfbae90c69afdcb64
[scilab.git] / scilab / modules / statistics / tests / unit_tests / InfTests.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 // <-- CLI SHELL MODE -->
9 // <-- ENGLISH IMPOSED -->
10
11 // Run with test_run('statistics', 'InfTests', ['no_check_error_output'])
12
13 inf = %inf;
14 tol = 1e-299;
15
16 // Testing that the requested return is %inf when one input argument is %inf
17
18 // cdfchi
19 [res, res2] = cdfchi("PQ", inf, 1);
20 assert_checkequal(res, 1);
21 assert_checkequal(res2, 0);
22 [res, res2] = cdfchi("PQ", 1, inf);
23 assert_checkalmostequal(res, 0, tol);
24 assert_checkalmostequal(res2, 1, tol);
25
26 // cdfchn
27 [res, res2] = cdfchn("PQ", inf, 1, 1);
28 assert_checkequal(res, 1);
29 assert_checkequal(res2, 0);
30 [res, res2] = cdfchn("PQ", 1, inf, 1e-10);
31 assert_checkalmostequal(res, 0, tol);
32 assert_checkalmostequal(res2, 1, tol);
33
34 // cdff
35 [res, res2] = cdff("PQ", inf, 1, 1e-50);
36 assert_checkequal(res, 1);
37 assert_checkequal(res2, 0);
38 [res, res2] = cdff("PQ", 1, inf, 1e-50);
39 assert_checkalmostequal(res, 1, tol);
40 assert_checkalmostequal(res2, 0, tol);
41
42 // cdffnc
43 [res, res2] = cdffnc("PQ", inf, 1, 10, 0);
44 assert_checkequal(res, 1);
45 assert_checkequal(res2, 0);
46 [res, res2] = cdffnc("PQ", 1e-10, inf, 10, 0);
47 assert_checkalmostequal(res, 0, tol);
48 assert_checkalmostequal(res2, 1, tol);
49
50 // cdfgam
51 [res, res2] = cdfgam("PQ", inf, 1, 1);
52 assert_checkequal(res, 1);
53 assert_checkequal(res2, 0);
54 [res, res2] = cdfgam("PQ", 1, inf, 1);
55 assert_checkalmostequal(res, 0, tol);
56 assert_checkalmostequal(res2, 1, tol);
57 [res, res2] = cdfgam("PQ", 1, 1, inf);
58 assert_checkalmostequal(res, 1, tol);
59 assert_checkalmostequal(res2, 0, tol);
60
61 // cdfnbn
62 [res, res2] = cdfnbn("PQ", inf, 1, 0, 1);
63 assert_checkequal(res, 1);
64 assert_checkequal(res2, 0);
65 [res, res2] = cdfnbn("PQ", 1, inf, 0, 1);
66 assert_checkalmostequal(res, 0, tol);
67 assert_checkalmostequal(res2, 1, tol);
68
69 // cdfnor
70 [res, res2] = cdfnor("PQ", inf, 1, 1);
71 assert_checkequal(res, 1);
72 assert_checkequal(res2, 0);
73 [res, res2] = cdfnor("PQ", -inf, 1, 1);
74 assert_checkequal(res, 0);
75 assert_checkequal(res2, 1);
76 [res, res2] = cdfnor("PQ", 1, inf, 1);
77 assert_checkequal(res, %nan);
78 assert_checkequal(res2, %nan);
79 [res, res2] = cdfnor("PQ", 1, -inf, 1);
80 assert_checkequal(res, %nan);
81 assert_checkequal(res2, %nan);
82
83 // cdfpoi
84 [res, res2] = cdfpoi("PQ", inf, 1);
85 assert_checkequal(res, 1);
86 assert_checkequal(res2, 0);
87 [res, res2] = cdfpoi("PQ", 1, inf);
88 assert_checkalmostequal(res, 0, tol);
89 assert_checkalmostequal(res2, 1, tol);
90
91 // cdft
92 [res, res2] = cdft("PQ", inf, 1);
93 assert_checkequal(res, 1);
94 assert_checkequal(res2, 0);
95 [res, res2] = cdft("PQ", -inf, 1);
96 assert_checkequal(res, 0);
97 assert_checkequal(res2, 1);