x + \left(y - z\right) \cdot \frac{t - x}{a - z}\begin{array}{l}
\mathbf{if}\;a \leq -4.807158068872457 \cdot 10^{-172}:\\
\;\;\;\;x + \frac{y - z}{\sqrt[3]{a - z} \cdot \sqrt[3]{a - z}} \cdot \frac{t - x}{\sqrt[3]{a - z}}\\
\mathbf{elif}\;a \leq 1.2161147335711477 \cdot 10^{-113}:\\
\;\;\;\;t + y \cdot \left(\frac{x}{z} - \frac{t}{z}\right)\\
\mathbf{else}:\\
\;\;\;\;x + \left(\frac{y - z}{\sqrt[3]{a - z} \cdot \sqrt[3]{a - z}} \cdot \left(\sqrt[3]{t - x} \cdot \sqrt[3]{t - x}\right)\right) \cdot \frac{\sqrt[3]{t - x}}{\sqrt[3]{a - z}}\\
\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 (<= a -4.807158068872457e-172)
(+
x
(*
(/ (- y z) (* (cbrt (- a z)) (cbrt (- a z))))
(/ (- t x) (cbrt (- a z)))))
(if (<= a 1.2161147335711477e-113)
(+ t (* y (- (/ x z) (/ t z))))
(+
x
(*
(*
(/ (- y z) (* (cbrt (- a z)) (cbrt (- a z))))
(* (cbrt (- t x)) (cbrt (- t x))))
(/ (cbrt (- t x)) (cbrt (- a 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)) {
tmp = ((double) (x + ((double) ((((double) (y - z)) / ((double) (((double) cbrt(((double) (a - z)))) * ((double) cbrt(((double) (a - z))))))) * (((double) (t - x)) / ((double) cbrt(((double) (a - z)))))))));
} else {
double tmp_1;
if ((a <= 1.2161147335711477e-113)) {
tmp_1 = ((double) (t + ((double) (y * ((double) ((x / z) - (t / z)))))));
} else {
tmp_1 = ((double) (x + ((double) (((double) ((((double) (y - z)) / ((double) (((double) cbrt(((double) (a - z)))) * ((double) cbrt(((double) (a - z))))))) * ((double) (((double) cbrt(((double) (t - x)))) * ((double) cbrt(((double) (t - x)))))))) * (((double) cbrt(((double) (t - x)))) / ((double) cbrt(((double) (a - z)))))))));
}
tmp = tmp_1;
}
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-172Initial program Error: 12.7 bits
rmApplied add-cube-cbrtError: 13.2 bits
Applied *-un-lft-identityError: 13.2 bits
Applied times-fracError: 13.2 bits
Applied associate-*r*Error: 10.8 bits
SimplifiedError: 10.8 bits
if -4.80715806887245703e-172 < a < 1.2161147335711477e-113Initial program Error: 24.8 bits
Taylor expanded around inf Error: 13.1 bits
SimplifiedError: 11.1 bits
if 1.2161147335711477e-113 < a Initial program Error: 11.0 bits
rmApplied add-cube-cbrtError: 11.5 bits
Applied *-un-lft-identityError: 11.5 bits
Applied times-fracError: 11.6 bits
Applied associate-*r*Error: 9.3 bits
SimplifiedError: 9.3 bits
rmApplied *-un-lft-identityError: 9.3 bits
Applied add-cube-cbrtError: 9.5 bits
Applied times-fracError: 9.5 bits
Applied associate-*r*Error: 9.1 bits
SimplifiedError: 9.1 bits
Final simplificationError: 10.3 bits
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)))))