\frac{1}{x} - \frac{1}{\tan x}{x}^{5} \cdot \frac{2}{945} + \frac{\left(\frac{1}{27} + \frac{\left(x \cdot x\right) \cdot x}{\frac{91125}{\left(x \cdot x\right) \cdot x}}\right) \cdot x}{\frac{1}{9} + \left(\frac{x \cdot x}{45} \cdot \frac{x \cdot x}{45} - \frac{1}{3} \cdot \frac{x \cdot x}{45}\right)}double f(double x) {
double r2571592 = 1.0;
double r2571593 = x;
double r2571594 = r2571592 / r2571593;
double r2571595 = tan(r2571593);
double r2571596 = r2571592 / r2571595;
double r2571597 = r2571594 - r2571596;
return r2571597;
}
double f(double x) {
double r2571598 = x;
double r2571599 = 5.0;
double r2571600 = pow(r2571598, r2571599);
double r2571601 = 0.0021164021164021165;
double r2571602 = r2571600 * r2571601;
double r2571603 = 0.037037037037037035;
double r2571604 = r2571598 * r2571598;
double r2571605 = r2571604 * r2571598;
double r2571606 = 91125.0;
double r2571607 = r2571606 / r2571605;
double r2571608 = r2571605 / r2571607;
double r2571609 = r2571603 + r2571608;
double r2571610 = r2571609 * r2571598;
double r2571611 = 0.1111111111111111;
double r2571612 = 45.0;
double r2571613 = r2571604 / r2571612;
double r2571614 = r2571613 * r2571613;
double r2571615 = 0.3333333333333333;
double r2571616 = r2571615 * r2571613;
double r2571617 = r2571614 - r2571616;
double r2571618 = r2571611 + r2571617;
double r2571619 = r2571610 / r2571618;
double r2571620 = r2571602 + r2571619;
return r2571620;
}




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