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);