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



Bits error versus x
Results
if x < -1.56786314123674564 or 1.58061698668156692 < x Initial program 0.0
rmApplied add-sqr-sqrt_binary640.0
if -1.56786314123674564 < x < 1.58061698668156692Initial program 62.8
Taylor expanded around 0 0.2
Simplified0.2
Final simplification0.1
herbie shell --seed 2020224
(FPCore (x)
:name "sintan (problem 3.4.5)"
:precision binary64
(/ (- x (sin x)) (- x (tan x))))