\frac{1}{x} - \frac{1}{\tan x}\mathsf{fma}\left(\left({x}^{5}\right), \frac{2}{945}, \left(\mathsf{fma}\left(x, \left(\frac{1}{45} \cdot x\right), \frac{1}{3}\right) \cdot x\right)\right)double f(double x) {
double r7669244 = 1.0;
double r7669245 = x;
double r7669246 = r7669244 / r7669245;
double r7669247 = tan(r7669245);
double r7669248 = r7669244 / r7669247;
double r7669249 = r7669246 - r7669248;
return r7669249;
}
double f(double x) {
double r7669250 = x;
double r7669251 = 5.0;
double r7669252 = pow(r7669250, r7669251);
double r7669253 = 0.0021164021164021165;
double r7669254 = 0.022222222222222223;
double r7669255 = r7669254 * r7669250;
double r7669256 = 0.3333333333333333;
double r7669257 = fma(r7669250, r7669255, r7669256);
double r7669258 = r7669257 * r7669250;
double r7669259 = fma(r7669252, r7669253, r7669258);
return r7669259;
}




Bits error versus x
| Original | 59.9 |
|---|---|
| Target | 0.1 |
| Herbie | 0.3 |
Initial program 59.9
Taylor expanded around 0 0.3
Simplified0.3
Final simplification0.3
herbie shell --seed 2019120 +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))))