\frac{1}{x} - \frac{1}{\tan x}\mathsf{fma}\left({x}^{5}, \frac{2}{945}, \frac{x}{\frac{\mathsf{fma}\left(\frac{1}{2025}, \left(x \cdot x\right) \cdot \left(x \cdot x\right), \mathsf{fma}\left(\frac{1}{3}, \frac{1}{3}, \left(\frac{-1}{45} \cdot \left(x \cdot x\right)\right) \cdot \frac{1}{3}\right)\right)}{\mathsf{fma}\left(x \cdot x, \left(\left(x \cdot x\right) \cdot \frac{1}{91125}\right) \cdot \left(x \cdot x\right), \frac{1}{27}\right)}}\right)double f(double x) {
double r3330541 = 1.0;
double r3330542 = x;
double r3330543 = r3330541 / r3330542;
double r3330544 = tan(r3330542);
double r3330545 = r3330541 / r3330544;
double r3330546 = r3330543 - r3330545;
return r3330546;
}
double f(double x) {
double r3330547 = x;
double r3330548 = 5.0;
double r3330549 = pow(r3330547, r3330548);
double r3330550 = 0.0021164021164021165;
double r3330551 = 0.0004938271604938272;
double r3330552 = r3330547 * r3330547;
double r3330553 = r3330552 * r3330552;
double r3330554 = 0.3333333333333333;
double r3330555 = -0.022222222222222223;
double r3330556 = r3330555 * r3330552;
double r3330557 = r3330556 * r3330554;
double r3330558 = fma(r3330554, r3330554, r3330557);
double r3330559 = fma(r3330551, r3330553, r3330558);
double r3330560 = 1.0973936899862826e-05;
double r3330561 = r3330552 * r3330560;
double r3330562 = r3330561 * r3330552;
double r3330563 = 0.037037037037037035;
double r3330564 = fma(r3330552, r3330562, r3330563);
double r3330565 = r3330559 / r3330564;
double r3330566 = r3330547 / r3330565;
double r3330567 = fma(r3330549, r3330550, r3330566);
return r3330567;
}




Bits error versus x
| Original | 59.9 |
|---|---|
| Target | 0.1 |
| Herbie | 0.0 |
Initial program 59.9
Taylor expanded around 0 0.3
Simplified0.3
rmApplied flip3-+1.2
Applied associate-*r/1.1
Simplified0.2
rmApplied associate-/l*0.0
Simplified0.0
Final simplification0.0
herbie shell --seed 2019152 +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))))