\tan \left(x + \varepsilon\right) - \tan x
\begin{array}{l}
\mathbf{if}\;\varepsilon \le -9.8659234500181248 \cdot 10^{-33}:\\
\;\;\;\;\frac{\left(\tan x + \tan \varepsilon\right) \cdot \cos x - \left(1 - \tan x \cdot \tan \varepsilon\right) \cdot \sin x}{\left(1 - \tan x \cdot \tan \varepsilon\right) \cdot \cos x}\\
\mathbf{elif}\;\varepsilon \le 6.6299322689363935 \cdot 10^{-71}:\\
\;\;\;\;\left(\varepsilon \cdot x\right) \cdot \left(x + \varepsilon\right) + \varepsilon\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{\frac{1 - \frac{\sin x \cdot \tan \varepsilon}{\cos x}}{\tan x + \tan \varepsilon}} - \tan x\\
\end{array}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 <= -9.865923450018125e-33)) {
VAR = ((double) (((double) (((double) (((double) (((double) tan(x)) + ((double) tan(eps)))) * ((double) cos(x)))) - ((double) (((double) (1.0 - ((double) (((double) tan(x)) * ((double) tan(eps)))))) * ((double) sin(x)))))) / ((double) (((double) (1.0 - ((double) (((double) tan(x)) * ((double) tan(eps)))))) * ((double) cos(x))))));
} else {
double VAR_1;
if ((eps <= 6.6299322689363935e-71)) {
VAR_1 = ((double) (((double) (((double) (eps * x)) * ((double) (x + eps)))) + eps));
} else {
VAR_1 = ((double) (((double) (1.0 / ((double) (((double) (1.0 - ((double) (((double) (((double) sin(x)) * ((double) tan(eps)))) / ((double) cos(x)))))) / ((double) (((double) tan(x)) + ((double) tan(eps)))))))) - ((double) tan(x))));
}
VAR = VAR_1;
}
return VAR;
}




Bits error versus x




Bits error versus eps
Results
| Original | 37.0 |
|---|---|
| Target | 15.2 |
| Herbie | 15.4 |
if eps < -9.865923450018125e-33Initial program 29.7
rmApplied tan-quot29.5
Applied tan-sum2.2
Applied frac-sub2.3
if -9.865923450018125e-33 < eps < 6.6299322689363935e-71Initial program 46.5
Taylor expanded around 0 31.2
Simplified31.0
if 6.6299322689363935e-71 < eps Initial program 30.5
rmApplied tan-sum5.7
rmApplied tan-quot5.7
Applied associate-*l/5.7
rmApplied clear-num5.8
Final simplification15.4
herbie shell --seed 2020148
(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)))