\frac{x - \sin x}{x - \tan x}\begin{array}{l}
\mathbf{if}\;x \leq -4.728769858289019:\\
\;\;\;\;\left(1 + \frac{\sin x}{x \cdot \cos x}\right) - \frac{\sin x}{x}\\
\mathbf{elif}\;x \leq 0.02883492941991452:\\
\;\;\;\;\left(-0.5 + 0.225 \cdot \left(x \cdot x\right)\right) - 0.009642857142857142 \cdot {x}^{4}\\
\mathbf{else}:\\
\;\;\;\;\frac{x}{x - \tan x} - \frac{\sin x}{x - \tan x}\\
\end{array}(FPCore (x) :precision binary64 (/ (- x (sin x)) (- x (tan x))))
(FPCore (x)
:precision binary64
(if (<= x -4.728769858289019)
(- (+ 1.0 (/ (sin x) (* x (cos x)))) (/ (sin x) x))
(if (<= x 0.02883492941991452)
(- (+ -0.5 (* 0.225 (* x x))) (* 0.009642857142857142 (pow x 4.0)))
(- (/ x (- x (tan x))) (/ (sin x) (- x (tan x)))))))double code(double x) {
return (x - sin(x)) / (x - tan(x));
}
double code(double x) {
double tmp;
if (x <= -4.728769858289019) {
tmp = (1.0 + (sin(x) / (x * cos(x)))) - (sin(x) / x);
} else if (x <= 0.02883492941991452) {
tmp = (-0.5 + (0.225 * (x * x))) - (0.009642857142857142 * pow(x, 4.0));
} else {
tmp = (x / (x - tan(x))) - (sin(x) / (x - tan(x)));
}
return tmp;
}



Bits error versus x
Results
if x < -4.72876985828901919Initial program 0.0
Taylor expanded around inf 0.6
Simplified0.6
if -4.72876985828901919 < x < 0.0288349294199145186Initial program 63.0
Taylor expanded around 0 0.1
Simplified0.1
rmApplied associate--r+_binary640.1
Simplified0.1
if 0.0288349294199145186 < x Initial program 0.0
rmApplied div-sub_binary640.0
Final simplification0.2
herbie shell --seed 2021044
(FPCore (x)
:name "sintan (problem 3.4.5)"
:precision binary64
(/ (- x (sin x)) (- x (tan x))))