1 | /* |
2 | * IBM Accurate Mathematical Library |
3 | * Written by International Business Machines Corp. |
4 | * Copyright (C) 2001-2021 Free Software Foundation, Inc. |
5 | * |
6 | * This program is free software; you can redistribute it and/or modify |
7 | * it under the terms of the GNU Lesser General Public License as published by |
8 | * the Free Software Foundation; either version 2.1 of the License, or |
9 | * (at your option) any later version. |
10 | * |
11 | * This program is distributed in the hope that it will be useful, |
12 | * but WITHOUT ANY WARRANTY; without even the implied warranty of |
13 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
14 | * GNU Lesser General Public License for more details. |
15 | * |
16 | * You should have received a copy of the GNU Lesser General Public License |
17 | * along with this program; if not, see <https://www.gnu.org/licenses/>. |
18 | */ |
19 | |
20 | /********************************************************************/ |
21 | /* Ultimate math functions. Each function computes the exact */ |
22 | /* theoretical value of its argument rounded to nearest or even. */ |
23 | /* */ |
24 | /* Assumption: Machine arithmetic operations are performed in */ |
25 | /* round nearest mode of IEEE 754 standard. */ |
26 | /********************************************************************/ |
27 | |
28 | #ifndef UMATH_LIB |
29 | #define UMATH_LIB |
30 | /********************************************************************/ |
31 | /* Function changes the precision mode to IEEE 754 double precision */ |
32 | /* and the rounding mode to nearest or even. */ |
33 | /* It returns the original status of these modes. */ |
34 | /* See further explanations of usage in DPChange.h */ |
35 | /********************************************************************/ |
36 | unsigned short Init_Lib (void); |
37 | |
38 | /********************************************************************/ |
39 | /* Function that changes the precision and rounding modes to the */ |
40 | /* specified by the argument received. See further explanations in */ |
41 | /* DPChange.h */ |
42 | /********************************************************************/ |
43 | void Exit_Lib (unsigned short); |
44 | |
45 | |
46 | /* The asin() function calculates the arc sine of its argument. */ |
47 | /* The function returns the arc sine in radians */ |
48 | /* (between -PI/2 and PI/2). */ |
49 | /* If the argument is greater than 1 or less than -1 it returns */ |
50 | /* a NaN. */ |
51 | double uasin (double); |
52 | |
53 | |
54 | /* The acos() function calculates the arc cosine of its argument. */ |
55 | /* The function returns the arc cosine in radians */ |
56 | /* (between -PI/2 and PI/2). */ |
57 | /* If the argument is greater than 1 or less than -1 it returns */ |
58 | /* a NaN. */ |
59 | double uacos (double); |
60 | |
61 | /* The atan() function calculates the arctanget of its argument. */ |
62 | /* The function returns the arc tangent in radians */ |
63 | /* (between -PI/2 and PI/2). */ |
64 | double uatan (double); |
65 | |
66 | |
67 | /* The uatan2() function calculates the arc tangent of the two arguments x */ |
68 | /* and y (x is the right argument and y is the left one).The signs of both */ |
69 | /* arguments are used to determine the quadrant of the result. */ |
70 | /* The function returns the result in radians, which is between -PI and PI */ |
71 | double uatan2 (double, double); |
72 | |
73 | /* Compute log(x). The base of log is e (natural logarithm) */ |
74 | double ulog (double); |
75 | |
76 | /* Compute e raised to the power of argument x. */ |
77 | double uexp (double); |
78 | |
79 | /* Compute sin(x). The argument x is assumed to be given in radians.*/ |
80 | double usin (double); |
81 | |
82 | /* Compute cos(x). The argument x is assumed to be given in radians.*/ |
83 | double ucos (double); |
84 | |
85 | /* Compute tan(x). The argument x is assumed to be given in radians.*/ |
86 | double utan (double); |
87 | |
88 | /* Compute the square root of non-negative argument x. */ |
89 | /* If x is negative the returned value is NaN. */ |
90 | double usqrt (double); |
91 | |
92 | /* Compute x raised to the power of y, where x is the left argument */ |
93 | /* and y is the right argument. The function returns a NaN if x<0. */ |
94 | /* If x equals zero it returns -inf */ |
95 | double upow (double, double); |
96 | |
97 | /* Computing x mod y, where x is the left argument and y is the */ |
98 | /* right one. */ |
99 | double uremainder (double, double); |
100 | #endif |
101 | |