\frac{1}{x} - \frac{1}{\tan x}\sqrt{\sqrt{\sqrt{0.3333333333333333}}} \cdot \left(\sqrt{\sqrt{\sqrt{0.3333333333333333}}} \cdot \left(x \cdot {\left(\sqrt{0.3333333333333333}\right)}^{1.5}\right)\right) + \left(0.022222222222222223 \cdot {x}^{3} + 0.0021164021164021165 \cdot {x}^{5}\right)(FPCore (x) :precision binary64 (- (/ 1.0 x) (/ 1.0 (tan x))))
(FPCore (x)
:precision binary64
(+
(*
(sqrt (sqrt (sqrt 0.3333333333333333)))
(*
(sqrt (sqrt (sqrt 0.3333333333333333)))
(* x (pow (sqrt 0.3333333333333333) 1.5))))
(+
(* 0.022222222222222223 (pow x 3.0))
(* 0.0021164021164021165 (pow x 5.0)))))double code(double x) {
return (1.0 / x) - (1.0 / tan(x));
}
double code(double x) {
return (sqrt(sqrt(sqrt(0.3333333333333333))) * (sqrt(sqrt(sqrt(0.3333333333333333))) * (x * pow(sqrt(0.3333333333333333), 1.5)))) + ((0.022222222222222223 * pow(x, 3.0)) + (0.0021164021164021165 * pow(x, 5.0)));
}




Bits error versus x
Results
| Original | 59.9 |
|---|---|
| Target | 0.1 |
| Herbie | 0.4 |
Initial program 59.9
Taylor expanded around 0 0.3
rmApplied add-sqr-sqrt_binary64_11230.3
Applied associate-*l*_binary64_10420.7
Simplified0.7
rmApplied add-sqr-sqrt_binary64_11230.7
Applied associate-*l*_binary64_10420.5
Simplified0.5
rmApplied add-sqr-sqrt_binary64_11230.5
Applied associate-*l*_binary64_10420.4
Simplified0.4
Final simplification0.4
herbie shell --seed 2021050
(FPCore (x)
:name "invcot (example 3.9)"
:precision binary64
:pre (and (< -0.026 x) (< x 0.026))
:herbie-target
(if (< (fabs x) 0.026) (* (/ x 3.0) (+ 1.0 (/ (* x x) 15.0))) (- (/ 1.0 x) (/ 1.0 (tan x))))
(- (/ 1.0 x) (/ 1.0 (tan x))))