\frac{1}{x} - \frac{1}{\tan x}{x}^{5} \cdot \frac{2}{945} + \frac{x}{\frac{\frac{1}{9} + \left(\left(\frac{1}{45} \cdot x\right) \cdot x - \frac{1}{3}\right) \cdot \left(\left(\frac{1}{45} \cdot x\right) \cdot x\right)}{\left(x \cdot x\right) \cdot \left(\left(x \cdot x\right) \cdot \left(\frac{1}{91125} \cdot \left(x \cdot x\right)\right)\right) + \frac{1}{27}}}double f(double x) {
double r2964155 = 1.0;
double r2964156 = x;
double r2964157 = r2964155 / r2964156;
double r2964158 = tan(r2964156);
double r2964159 = r2964155 / r2964158;
double r2964160 = r2964157 - r2964159;
return r2964160;
}
double f(double x) {
double r2964161 = x;
double r2964162 = 5.0;
double r2964163 = pow(r2964161, r2964162);
double r2964164 = 0.0021164021164021165;
double r2964165 = r2964163 * r2964164;
double r2964166 = 0.1111111111111111;
double r2964167 = 0.022222222222222223;
double r2964168 = r2964167 * r2964161;
double r2964169 = r2964168 * r2964161;
double r2964170 = 0.3333333333333333;
double r2964171 = r2964169 - r2964170;
double r2964172 = r2964171 * r2964169;
double r2964173 = r2964166 + r2964172;
double r2964174 = r2964161 * r2964161;
double r2964175 = 1.0973936899862826e-05;
double r2964176 = r2964175 * r2964174;
double r2964177 = r2964174 * r2964176;
double r2964178 = r2964174 * r2964177;
double r2964179 = 0.037037037037037035;
double r2964180 = r2964178 + r2964179;
double r2964181 = r2964173 / r2964180;
double r2964182 = r2964161 / r2964181;
double r2964183 = r2964165 + r2964182;
return r2964183;
}




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-*l/1.1
Simplified0.2
rmApplied associate-/l*0.0
Simplified0.0
Final simplification0.0
herbie shell --seed 2019132
(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))))