\frac{1}{x} - \frac{1}{\tan x}\sqrt{\sqrt{\sqrt{0.3333333333333333}}} \cdot \left(\left(x \cdot {\left(\sqrt{0.3333333333333333}\right)}^{1.5}\right) \cdot \sqrt{\sqrt{\sqrt{0.3333333333333333}}}\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)))
(*
(* x (pow (sqrt 0.3333333333333333) 1.5))
(sqrt (sqrt (sqrt 0.3333333333333333)))))
(+
(* 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))) * ((x * pow(sqrt(0.3333333333333333), 1.5)) * sqrt(sqrt(sqrt(0.3333333333333333))))) + ((0.022222222222222223 * pow(x, 3.0)) + (0.0021164021164021165 * pow(x, 5.0)));
}




Bits error versus x
Results
| Original | 59.8 |
|---|---|
| Target | 0.1 |
| Herbie | 0.4 |
Initial program 59.8
Taylor expanded around 0 0.3
Simplified0.3
rmApplied add-sqr-sqrt_binary64_14640.3
Applied associate-*r*_binary64_13820.7
rmApplied add-sqr-sqrt_binary64_14640.7
Applied associate-*r*_binary64_13820.5
Simplified0.5
rmApplied add-sqr-sqrt_binary64_14640.5
Applied associate-*r*_binary64_13820.4
Final simplification0.4
herbie shell --seed 2020356
(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))))