\frac{x - \sin x}{x - \tan x}\begin{array}{l}
\mathbf{if}\;x \leq -0.027961819008046895 \lor \neg \left(x \leq 0.025924503586868625\right):\\
\;\;\;\;\log \left(e^{\frac{x - \sin x}{x - \tan x}}\right)\\
\mathbf{else}:\\
\;\;\;\;\left(x \cdot x\right) \cdot 0.225 - \left(0.5 + 0.009642857142857142 \cdot {x}^{4}\right)\\
\end{array}(FPCore (x) :precision binary64 (/ (- x (sin x)) (- x (tan x))))
(FPCore (x) :precision binary64 (if (or (<= x -0.027961819008046895) (not (<= x 0.025924503586868625))) (log (exp (/ (- x (sin x)) (- x (tan x))))) (- (* (* x x) 0.225) (+ 0.5 (* 0.009642857142857142 (pow x 4.0))))))
double code(double x) {
return (x - sin(x)) / (x - tan(x));
}
double code(double x) {
double tmp;
if ((x <= -0.027961819008046895) || !(x <= 0.025924503586868625)) {
tmp = log(exp((x - sin(x)) / (x - tan(x))));
} else {
tmp = ((x * x) * 0.225) - (0.5 + (0.009642857142857142 * pow(x, 4.0)));
}
return tmp;
}



Bits error versus x
Results
if x < -0.027961819008046895 or 0.025924503586868625 < x Initial program 0.0
rmApplied add-log-exp_binary640.0
if -0.027961819008046895 < x < 0.025924503586868625Initial program 63.1
Taylor expanded around 0 0.0
Simplified0.0
Final simplification0.0
herbie shell --seed 2020349
(FPCore (x)
:name "sintan (problem 3.4.5)"
:precision binary64
(/ (- x (sin x)) (- x (tan x))))