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 12.7
rmApplied add-cube-cbrt_binary6413.2
Applied *-un-lft-identity_binary6413.2
Applied times-frac_binary6413.2
Applied associate-*r*_binary6410.8
Simplified10.8
if -4.80715806887245703e-172 < a < 1.2161147335711477e-113Initial program 24.8
Taylor expanded around inf 13.1
Simplified11.1
if 1.2161147335711477e-113 < a Initial program 11.0
rmApplied add-cube-cbrt_binary6411.5
Applied *-un-lft-identity_binary6411.5
Applied times-frac_binary6411.6
Applied associate-*r*_binary649.3
Simplified9.3
rmApplied *-un-lft-identity_binary649.3
Applied add-cube-cbrt_binary649.5
Applied times-frac_binary649.5
Applied associate-*r*_binary649.1
Simplified9.1
Final simplification10.3
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)))))