\frac{1}{x} - \frac{1}{\tan x}0.02222222222222222307030925492199457949027 \cdot {x}^{3} + \left(0.002116402116402116544841005563171165704262 \cdot {x}^{5} + 0.3333333333333333148296162562473909929395 \cdot x\right)double f(double x) {
double r144990 = 1.0;
double r144991 = x;
double r144992 = r144990 / r144991;
double r144993 = tan(r144991);
double r144994 = r144990 / r144993;
double r144995 = r144992 - r144994;
return r144995;
}
double f(double x) {
double r144996 = 0.022222222222222223;
double r144997 = x;
double r144998 = 3.0;
double r144999 = pow(r144997, r144998);
double r145000 = r144996 * r144999;
double r145001 = 0.0021164021164021165;
double r145002 = 5.0;
double r145003 = pow(r144997, r145002);
double r145004 = r145001 * r145003;
double r145005 = 0.3333333333333333;
double r145006 = r145005 * r144997;
double r145007 = r145004 + r145006;
double r145008 = r145000 + r145007;
return r145008;
}




Bits error versus x
Results
| Original | 59.9 |
|---|---|
| Target | 0.1 |
| Herbie | 0.3 |
Initial program 59.9
Taylor expanded around 0 0.3
Final simplification0.3
herbie shell --seed 2019318
(FPCore (x)
:name "invcot (example 3.9)"
:precision binary64
:pre (and (< -0.0259999999999999988 x) (< x 0.0259999999999999988))
:herbie-target
(if (< (fabs x) 0.0259999999999999988) (* (/ x 3) (+ 1 (/ (* x x) 15))) (- (/ 1 x) (/ 1 (tan x))))
(- (/ 1 x) (/ 1 (tan x))))