double code(double x, double y, double z, double t, double a) {
return ((double) (((double) (((double) (x * y)) * z)) / ((double) sqrt(((double) (((double) (z * z)) - ((double) (t * a))))))));
}
double code(double x, double y, double z, double t, double a) {
double VAR;
if ((z <= -5.6870881823594304e+119)) {
VAR = ((double) (x * ((double) (y * ((double) (z / ((double) (((double) (0.5 * ((double) (t * ((double) (a / z)))))) - z))))))));
} else {
double VAR_1;
if ((z <= 7.70148341111315e+97)) {
VAR_1 = ((double) (x * ((double) (((double) (y * ((double) (((double) cbrt(z)) * ((double) (((double) cbrt(z)) / ((double) (((double) cbrt(((double) sqrt(((double) (((double) (z * z)) - ((double) (t * a)))))))) * ((double) cbrt(((double) sqrt(((double) (((double) (z * z)) - ((double) (t * a)))))))))))))))) * ((double) (((double) cbrt(z)) / ((double) cbrt(((double) sqrt(((double) (((double) (z * z)) - ((double) (t * a))))))))))))));
} else {
VAR_1 = ((double) (x * ((double) (y * ((double) (z / ((double) (z - ((double) (0.5 * ((double) (t * ((double) (a / z))))))))))))));
}
VAR = VAR_1;
}
return VAR;
}




Bits error versus x




Bits error versus y




Bits error versus z




Bits error versus t




Bits error versus a
Results
| Original | 24.8 |
|---|---|
| Target | 8.1 |
| Herbie | 5.9 |
if z < -5.6870881823594304e119Initial program 46.0
Simplified44.0
Taylor expanded around -inf 6.0
Simplified2.1
if -5.6870881823594304e119 < z < 7.70148341111314962e97Initial program 11.2
Simplified8.8
rmApplied add-cube-cbrt9.5
Applied add-cube-cbrt9.1
Applied times-frac9.1
Applied associate-*r*8.3
Simplified8.4
if 7.70148341111314962e97 < z Initial program 44.3
Simplified41.9
Taylor expanded around inf 5.6
Simplified2.2
Final simplification5.9
herbie shell --seed 2020180
(FPCore (x y z t a)
:name "Statistics.Math.RootFinding:ridders from math-functions-0.1.5.2"
:precision binary64
:herbie-target
(if (< z -3.1921305903852764e+46) (neg (* y x)) (if (< z 5.976268120920894e+90) (/ (* x z) (/ (sqrt (- (* z z) (* a t))) y)) (* y x)))
(/ (* (* x y) z) (sqrt (- (* z z) (* t a)))))