\frac{x - \sin x}{x - \tan x}\begin{array}{l}
\mathbf{if}\;x \leq -0.03062657705051721:\\
\;\;\;\;\sqrt[3]{{\left(\frac{x - \sin x}{x - \sqrt[3]{\tan x} \cdot \left(\sqrt[3]{\tan x} \cdot \sqrt[3]{\tan x}\right)}\right)}^{3}}\\
\mathbf{elif}\;x \leq 0.028616561567871263:\\
\;\;\;\;\left(0.225 \cdot \left(x \cdot x\right) - 0.5\right) - 0.009642857142857142 \cdot {x}^{4}\\
\mathbf{else}:\\
\;\;\;\;\sqrt[3]{{\left(\frac{x - \sin x}{x - \tan x}\right)}^{3}}\\
\end{array}(FPCore (x) :precision binary64 (/ (- x (sin x)) (- x (tan x))))
(FPCore (x)
:precision binary64
(if (<= x -0.03062657705051721)
(cbrt
(pow
(/
(- x (sin x))
(- x (* (cbrt (tan x)) (* (cbrt (tan x)) (cbrt (tan x))))))
3.0))
(if (<= x 0.028616561567871263)
(- (- (* 0.225 (* x x)) 0.5) (* 0.009642857142857142 (pow x 4.0)))
(cbrt (pow (/ (- x (sin x)) (- x (tan x))) 3.0)))))double code(double x) {
return (x - sin(x)) / (x - tan(x));
}
double code(double x) {
double tmp;
if (x <= -0.03062657705051721) {
tmp = cbrt(pow(((x - sin(x)) / (x - (cbrt(tan(x)) * (cbrt(tan(x)) * cbrt(tan(x)))))), 3.0));
} else if (x <= 0.028616561567871263) {
tmp = ((0.225 * (x * x)) - 0.5) - (0.009642857142857142 * pow(x, 4.0));
} else {
tmp = cbrt(pow(((x - sin(x)) / (x - tan(x))), 3.0));
}
return tmp;
}



Bits error versus x
Results
if x < -0.030626577050517211Initial program 0.0
rmApplied add-cbrt-cube_binary640.1
Simplified0.1
rmApplied add-cube-cbrt_binary640.1
Applied cancel-sign-sub-inv_binary640.1
if -0.030626577050517211 < x < 0.028616561567871263Initial program 63.2
Taylor expanded around 0 0.0
Simplified0.0
rmApplied associate--r+_binary640.0
if 0.028616561567871263 < x Initial program 0.1
rmApplied add-cbrt-cube_binary640.1
Simplified0.1
Final simplification0.0
herbie shell --seed 2021173
(FPCore (x)
:name "sintan (problem 3.4.5)"
:precision binary64
(/ (- x (sin x)) (- x (tan x))))