\tan \left(x + \varepsilon\right) - \tan x
\left(\frac{\sin x}{\left(1 - \frac{\sqrt[3]{\left(\left(\sin x \cdot \sin \varepsilon\right) \cdot \left(\sin x \cdot \sin \varepsilon\right)\right) \cdot \left(\sin x \cdot \sin \varepsilon\right)}}{\cos x \cdot \cos \varepsilon}\right) \cdot \cos x} - \frac{\sin x}{\cos x}\right) + \frac{\sin \varepsilon}{\cos \varepsilon \cdot \left(1 - \frac{\sin x \cdot \sin \varepsilon}{\cos x \cdot \cos \varepsilon}\right)}double f(double x, double eps) {
double r13664549 = x;
double r13664550 = eps;
double r13664551 = r13664549 + r13664550;
double r13664552 = tan(r13664551);
double r13664553 = tan(r13664549);
double r13664554 = r13664552 - r13664553;
return r13664554;
}
double f(double x, double eps) {
double r13664555 = x;
double r13664556 = sin(r13664555);
double r13664557 = 1.0;
double r13664558 = eps;
double r13664559 = sin(r13664558);
double r13664560 = r13664556 * r13664559;
double r13664561 = r13664560 * r13664560;
double r13664562 = r13664561 * r13664560;
double r13664563 = cbrt(r13664562);
double r13664564 = cos(r13664555);
double r13664565 = cos(r13664558);
double r13664566 = r13664564 * r13664565;
double r13664567 = r13664563 / r13664566;
double r13664568 = r13664557 - r13664567;
double r13664569 = r13664568 * r13664564;
double r13664570 = r13664556 / r13664569;
double r13664571 = r13664556 / r13664564;
double r13664572 = r13664570 - r13664571;
double r13664573 = r13664560 / r13664566;
double r13664574 = r13664557 - r13664573;
double r13664575 = r13664565 * r13664574;
double r13664576 = r13664559 / r13664575;
double r13664577 = r13664572 + r13664576;
return r13664577;
}




Bits error versus x




Bits error versus eps
Results
| Original | 37.2 |
|---|---|
| Target | 14.6 |
| Herbie | 13.2 |
Initial program 37.2
rmApplied tan-sum22.5
Taylor expanded around -inf 22.6
rmApplied associate--l+13.2
rmApplied add-cbrt-cube13.2
Final simplification13.2
herbie shell --seed 2019125
(FPCore (x eps)
:name "2tan (problem 3.3.2)"
:herbie-target
(/ (sin eps) (* (cos x) (cos (+ x eps))))
(- (tan (+ x eps)) (tan x)))