x + \left(y - z\right) \cdot \frac{t - x}{a - z}\begin{array}{l}
\mathbf{if}\;a \leq -4.807158068872457 \cdot 10^{-172} \lor \neg \left(a \leq 1.2161147335711477 \cdot 10^{-113}\right):\\
\;\;\;\;x + \frac{\sqrt[3]{t - x}}{\sqrt[3]{a - z}} \cdot \left(\frac{\sqrt[3]{t - x}}{\sqrt[3]{a - z}} \cdot \left(\left(y - z\right) \cdot \frac{\sqrt[3]{t - x}}{\sqrt[3]{a - z}}\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t + y \cdot \left(\frac{x}{z} - \frac{t}{z}\right)\\
\end{array}(FPCore (x y z t a) :precision binary64 (+ x (* (- y z) (/ (- t x) (- a z)))))
(FPCore (x y z t a)
:precision binary64
(if (or (<= a -4.807158068872457e-172) (not (<= a 1.2161147335711477e-113)))
(+
x
(*
(/ (cbrt (- t x)) (cbrt (- a z)))
(*
(/ (cbrt (- t x)) (cbrt (- a z)))
(* (- y z) (/ (cbrt (- t x)) (cbrt (- a z)))))))
(+ t (* y (- (/ x z) (/ t z))))))double code(double x, double y, double z, double t, double a) {
return ((double) (x + ((double) (((double) (y - z)) * (((double) (t - x)) / ((double) (a - z)))))));
}
double code(double x, double y, double z, double t, double a) {
double tmp;
if (((a <= -4.807158068872457e-172) || !(a <= 1.2161147335711477e-113))) {
tmp = ((double) (x + ((double) ((((double) cbrt(((double) (t - x)))) / ((double) cbrt(((double) (a - z))))) * ((double) ((((double) cbrt(((double) (t - x)))) / ((double) cbrt(((double) (a - z))))) * ((double) (((double) (y - z)) * (((double) cbrt(((double) (t - x)))) / ((double) cbrt(((double) (a - z)))))))))))));
} else {
tmp = ((double) (t + ((double) (y * ((double) ((x / z) - (t / z)))))));
}
return tmp;
}



Bits error versus x



Bits error versus y



Bits error versus z



Bits error versus t



Bits error versus a
Results
if a < -4.80715806887245703e-172 or 1.2161147335711477e-113 < a Initial program 11.9
rmApplied add-cube-cbrt_binary6412.4
Applied add-cube-cbrt_binary6412.5
Applied times-frac_binary6412.5
Applied associate-*r*_binary649.7
rmApplied times-frac_binary649.7
Applied associate-*r*_binary649.6
if -4.80715806887245703e-172 < a < 1.2161147335711477e-113Initial program 24.8
Taylor expanded around inf 13.1
Simplified11.1
Final simplification9.9
herbie shell --seed 2020205
(FPCore (x y z t a)
:name "Numeric.Signal:interpolate from hsignal-0.2.7.1"
:precision binary64
(+ x (* (- y z) (/ (- t x) (- a z)))))