1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
// =============================================================================
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier
//
// This file is distributed under the same license as the Scilab package.
// =============================================================================
// <-- CLI SHELL MODE -->
// <-- ENGLISH IMPOSED -->
// Run with test_run('statistics', 'InfTests', ['no_check_error_output'])
inf = %inf;
tol = 1e-299;
// Testing that the requested return is %inf when one input argument is %inf
// cdfchi
[res, res2] = cdfchi("PQ", inf, 1);
assert_checkequal(res, 1);
assert_checkequal(res2, 0);
[res, res2] = cdfchi("PQ", 1, inf);
cdfchi: Warning: using non integer values for argument #3 may lead to incorrect results.
assert_checkalmostequal(res, 0, tol);
assert_checkalmostequal(res2, 1, tol);
// cdfchn
[res, res2] = cdfchn("PQ", inf, 1, 1);
assert_checkequal(res, 1);
assert_checkequal(res2, 0);
[res, res2] = cdfchn("PQ", 1, inf, 1e-10);
cdfchn: Warning: using non integer values for argument #3 may lead to incorrect results.
assert_checkalmostequal(res, 0, tol);
assert_checkalmostequal(res2, 1, tol);
// cdff
[res, res2] = cdff("PQ", inf, 1, 1e-50);
cdff: Warning: using non integer values for argument #4 may lead to incorrect results.
assert_checkequal(res, 1);
assert_checkequal(res2, 0);
[res, res2] = cdff("PQ", 1, inf, 1e-50);
cdff: Warning: using non integer values for argument #3 may lead to incorrect results.
cdff: Warning: using non integer values for argument #4 may lead to incorrect results.
assert_checkalmostequal(res, 1, tol);
assert_checkalmostequal(res2, 0, tol);
// cdffnc
[res, res2] = cdffnc("PQ", inf, 1, 10, 0);
assert_checkequal(res, 1);
assert_checkequal(res2, 0);
[res, res2] = cdffnc("PQ", 1e-10, inf, 10, 0);
cdffnc: Warning: using non integer values for argument #3 may lead to incorrect results.
assert_checkalmostequal(res, 0, tol);
assert_checkalmostequal(res2, 1, tol);
// cdfgam
[res, res2] = cdfgam("PQ", inf, 1, 1);
assert_checkequal(res, 1);
assert_checkequal(res2, 0);
[res, res2] = cdfgam("PQ", 1, inf, 1);
assert_checkalmostequal(res, 0, tol);
assert_checkalmostequal(res2, 1, tol);
[res, res2] = cdfgam("PQ", 1, 1, inf);
assert_checkalmostequal(res, 1, tol);
assert_checkalmostequal(res2, 0, tol);
// cdfnbn
[res, res2] = cdfnbn("PQ", inf, 1, 0, 1);
assert_checkequal(res, 1);
assert_checkequal(res2, 0);
[res, res2] = cdfnbn("PQ", 1, inf, 0, 1);
assert_checkalmostequal(res, 0, tol);
assert_checkalmostequal(res2, 1, tol);
// cdfnor
[res, res2] = cdfnor("PQ", inf, 1, 1);
assert_checkequal(res, 1);
assert_checkequal(res2, 0);
[res, res2] = cdfnor("PQ", -inf, 1, 1);
assert_checkequal(res, 0);
assert_checkequal(res2, 1);
[res, res2] = cdfnor("PQ", 1, inf, 1);
assert_checkalmostequal(res, 0, tol);
assert_checkalmostequal(res2, 1, tol);
[res, res2] = cdfnor("PQ", 1, -inf, 1);
assert_checkalmostequal(res, 1, tol);
assert_checkalmostequal(res2, 0, tol);
// cdfpoi
[res, res2] = cdfpoi("PQ", inf, 1);
assert_checkequal(res, 1);
assert_checkequal(res2, 0);
[res, res2] = cdfpoi("PQ", 1, inf);
assert_checkalmostequal(res, 0, tol);
assert_checkalmostequal(res2, 1, tol);
// cdft
[res, res2] = cdft("PQ", inf, 1);
assert_checkequal(res, 1);
assert_checkequal(res2, 0);
[res, res2] = cdft("PQ", -inf, 1);
assert_checkequal(res, 0);
assert_checkequal(res2, 1);
|
