double code(double x, double eps) {
return ((double) (((double) tan(((double) (x + eps)))) - ((double) tan(x))));
}
double code(double x, double eps) {
double VAR;
if ((eps <= -4.683864053063239e-144)) {
VAR = ((double) (((double) (((double) (1.0 - ((double) (((double) tan(x)) * ((double) (((double) tan(x)) * ((double) (((double) tan(eps)) * ((double) tan(eps)))))))))) * ((double) (((double) (((double) (((double) tan(x)) + ((double) tan(eps)))) * ((double) cos(x)))) + ((double) (((double) sin(x)) * ((double) (((double) (((double) tan(x)) * ((double) tan(eps)))) + -1.0)))))))) / ((double) (((double) (1.0 - ((double) (((double) tan(x)) * ((double) (((double) tan(x)) * ((double) (((double) tan(eps)) * ((double) tan(eps)))))))))) * ((double) (((double) cos(x)) * ((double) (1.0 - ((double) (((double) tan(x)) * ((double) tan(eps))))))))))));
} else {
double VAR_1;
if ((eps <= 1.9461005157827348e-72)) {
VAR_1 = ((double) (eps + ((double) (x * ((double) (eps * ((double) (eps + x))))))));
} else {
VAR_1 = ((double) (((double) (((double) (((double) pow(((double) tan(x)), 3.0)) + ((double) pow(((double) tan(eps)), 3.0)))) / ((double) (((double) (1.0 - ((double) (((double) tan(x)) * ((double) tan(eps)))))) * ((double) (((double) (((double) tan(x)) * ((double) tan(x)))) + ((double) (((double) tan(eps)) * ((double) (((double) tan(eps)) - ((double) tan(x)))))))))))) - ((double) tan(x))));
}
VAR = VAR_1;
}
return VAR;
}




Bits error versus x




Bits error versus eps
Results
| Original | 36.8 |
|---|---|
| Target | 14.6 |
| Herbie | 16.0 |
if eps < -4.6838640530632392e-144Initial program 31.1
rmApplied tan-sum11.1
rmApplied flip--11.1
Applied associate-/r/11.1
Simplified11.1
rmApplied tan-quot11.2
Applied flip-+11.2
Applied frac-times11.2
Applied frac-sub11.2
Simplified11.2
Simplified11.2
if -4.6838640530632392e-144 < eps < 1.9461005157827348e-72Initial program 48.8
Taylor expanded around 0 30.4
Simplified30.2
if 1.9461005157827348e-72 < eps Initial program 30.5
rmApplied tan-sum6.5
rmApplied flip3-+6.7
Applied associate-/l/6.7
Simplified6.7
Final simplification16.0
herbie shell --seed 2020190
(FPCore (x eps)
:name "2tan (problem 3.3.2)"
:precision binary64
:herbie-target
(/ (sin eps) (* (cos x) (cos (+ x eps))))
(- (tan (+ x eps)) (tan x)))