\frac{1}{x} - \frac{1}{\tan x}\mathsf{fma}\left(\frac{1}{3}, x, \left(\mathsf{fma}\left(\frac{1}{45}, \left(\left(x \cdot x\right) \cdot x\right), \left(\frac{2}{945} \cdot {x}^{5}\right)\right)\right)\right)double f(double x) {
double r1754032 = 1.0;
double r1754033 = x;
double r1754034 = r1754032 / r1754033;
double r1754035 = tan(r1754033);
double r1754036 = r1754032 / r1754035;
double r1754037 = r1754034 - r1754036;
return r1754037;
}
double f(double x) {
double r1754038 = 0.3333333333333333;
double r1754039 = x;
double r1754040 = 0.022222222222222223;
double r1754041 = r1754039 * r1754039;
double r1754042 = r1754041 * r1754039;
double r1754043 = 0.0021164021164021165;
double r1754044 = 5.0;
double r1754045 = pow(r1754039, r1754044);
double r1754046 = r1754043 * r1754045;
double r1754047 = fma(r1754040, r1754042, r1754046);
double r1754048 = fma(r1754038, r1754039, r1754047);
return r1754048;
}




Bits error versus x
| Original | 60.0 |
|---|---|
| Target | 0.1 |
| Herbie | 0.3 |
Initial program 60.0
Taylor expanded around 0 0.3
Simplified0.3
Final simplification0.3
herbie shell --seed 2019128 +o rules:numerics
(FPCore (x)
:name "invcot (example 3.9)"
:pre (and (< -0.026 x) (< x 0.026))
:herbie-target
(if (< (fabs x) 0.026) (* (/ x 3) (+ 1 (/ (* x x) 15))) (- (/ 1 x) (/ 1 (tan x))))
(- (/ 1 x) (/ 1 (tan x))))