* Bug 16097 fixed: tanh() & coth() improved
[scilab.git] / scilab / modules / elementary_functions / tests / unit_tests / coth.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2019 - Samuel GOUGEON
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7
8 // <-- CLI SHELL MODE -->
9 // <-- NO CHECK REF -->
10
11 // Unitary tests for coth()
12
13 s = sprand(5, 4, 0.3);
14 assert_checkequal(coth(s), coth(full(s)));
15
16 x = [0:0.01:0.1 0.1:0.1:1 1:20]';
17 r = [
18    %inf
19    100.003333311111305
20    50.0066664888956609
21    33.3433327333847558
22    25.0133319113277963
23    20.0166638895500988
24    16.6866618683117913
25    14.3090400003806923
26    12.5266552958194826
27    11.1410949235981391
28    10.0333111322539885
29    10.0333111322539885
30    5.06648956343947265
31    3.43273843032174097
32    2.63193244183218855
33    2.16395341373865291
34    1.8620255213866661 
35    1.65462163580262911
36    1.50594070204370678
37    1.39606725303001178
38    1.31303528549933146
39    1.31303528549933146
40    1.03731472072754816
41    1.004969823313689
42    1.00067115040168253
43    1.00009080398201955
44    1.00001228850020984
45    1.0000016630588211
46    1.00000022507037478
47    1.00000003045995989
48    1.00000000412230716
49    1.00000000055789373
50    1.00000000007550272
51    1.00000000001021827
52    1.00000000000138289
53    1.00000000000018718
54    1.00000000000002554
55    1.00000000000000355
56    1.00000000000000044
57    1.00000000000000022
58    1.
59    ];
60 assert_checkequal(coth(x), r);
61 assert_checkequal(coth(-x), -r);