x + \left(y - z\right) \cdot \frac{t - x}{a - z}\begin{array}{l}
\mathbf{if}\;x + \left(y - z\right) \cdot \frac{t - x}{a - z} \leq -1.709836184743607 \cdot 10^{-192} \lor \neg \left(x + \left(y - z\right) \cdot \frac{t - x}{a - z} \leq 5.6919724263102575 \cdot 10^{-272}\right):\\
\;\;\;\;x + \frac{\sqrt[3]{t - x}}{\sqrt[3]{a - z}} \cdot \left(\left(y - z\right) \cdot \left(\frac{\sqrt[3]{t - x}}{\sqrt[3]{a - z}} \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 (<= (+ x (* (- y z) (/ (- t x) (- a z)))) -1.709836184743607e-192)
(not
(<= (+ x (* (- y z) (/ (- t x) (- a z)))) 5.6919724263102575e-272)))
(+
x
(*
(/ (cbrt (- t x)) (cbrt (- a z)))
(*
(- y z)
(*
(/ (cbrt (- t x)) (cbrt (- a 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 (((((double) (x + ((double) (((double) (y - z)) * (((double) (t - x)) / ((double) (a - z))))))) <= -1.709836184743607e-192) || !(((double) (x + ((double) (((double) (y - z)) * (((double) (t - x)) / ((double) (a - z))))))) <= 5.6919724263102575e-272))) {
tmp = ((double) (x + ((double) ((((double) cbrt(((double) (t - x)))) / ((double) cbrt(((double) (a - z))))) * ((double) (((double) (y - z)) * ((double) ((((double) cbrt(((double) (t - x)))) / ((double) cbrt(((double) (a - 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 (+ x (* (- y z) (/ (- t x) (- a z)))) < -1.70983618474360691e-192 or 5.69197242631025754e-272 < (+ x (* (- y z) (/ (- t x) (- a z)))) Initial program Error: 6.7 bits
rmApplied add-cube-cbrtError: 7.4 bits
Applied add-cube-cbrtError: 7.6 bits
Applied times-fracError: 7.6 bits
Applied associate-*r*Error: 4.3 bits
SimplifiedError: 4.4 bits
if -1.70983618474360691e-192 < (+ x (* (- y z) (/ (- t x) (- a z)))) < 5.69197242631025754e-272Initial program Error: 54.3 bits
Taylor expanded around inf Error: 28.3 bits
SimplifiedError: 24.4 bits
Final simplificationError: 7.8 bits
herbie shell --seed 2020203
(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)))))