\frac{1}{x} - \frac{1}{\tan x}{x}^{5} \cdot \frac{2}{945} + \frac{x}{\frac{\left(\left(x \cdot x\right) \cdot \frac{1}{45}\right) \cdot \left(\left(x \cdot x\right) \cdot \frac{1}{45}\right) + \left(\frac{1}{9} - \left(x \cdot x\right) \cdot \frac{1}{135}\right)}{\left(x \cdot \left(x \cdot x\right)\right) \cdot \left(\frac{1}{91125} \cdot \left(x \cdot \left(x \cdot x\right)\right)\right) + \frac{1}{27}}}double f(double x) {
double r2075778 = 1.0;
double r2075779 = x;
double r2075780 = r2075778 / r2075779;
double r2075781 = tan(r2075779);
double r2075782 = r2075778 / r2075781;
double r2075783 = r2075780 - r2075782;
return r2075783;
}
double f(double x) {
double r2075784 = x;
double r2075785 = 5.0;
double r2075786 = pow(r2075784, r2075785);
double r2075787 = 0.0021164021164021165;
double r2075788 = r2075786 * r2075787;
double r2075789 = r2075784 * r2075784;
double r2075790 = 0.022222222222222223;
double r2075791 = r2075789 * r2075790;
double r2075792 = r2075791 * r2075791;
double r2075793 = 0.1111111111111111;
double r2075794 = 0.007407407407407408;
double r2075795 = r2075789 * r2075794;
double r2075796 = r2075793 - r2075795;
double r2075797 = r2075792 + r2075796;
double r2075798 = r2075784 * r2075789;
double r2075799 = 1.0973936899862826e-05;
double r2075800 = r2075799 * r2075798;
double r2075801 = r2075798 * r2075800;
double r2075802 = 0.037037037037037035;
double r2075803 = r2075801 + r2075802;
double r2075804 = r2075797 / r2075803;
double r2075805 = r2075784 / r2075804;
double r2075806 = r2075788 + r2075805;
return r2075806;
}




Bits error versus x
Results
| 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.3
rmApplied associate-/l*0.0
Simplified0.0
Final simplification0.0
herbie shell --seed 2019151
(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))))