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 <= -1.639453879920885e+151)) {
VAR = ((double) (x * ((double) (y * ((double) (z / ((double) (((double) (0.5 * ((double) (t * ((double) (a / z)))))) - z))))))));
} else {
double VAR_1;
if ((z <= 4.277915885762825e+70)) {
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 | 7.4 |
| Herbie | 5.8 |
if z < -1.6394538799208849e151Initial program 53.8
Simplified53.2
Taylor expanded around -inf 5.6
Simplified0.9
if -1.6394538799208849e151 < z < 4.27791588576282506e70Initial program 10.8
Simplified8.7
rmApplied add-cube-cbrt9.5
Applied add-cube-cbrt9.1
Applied times-frac9.1
Applied associate-*r*8.4
Simplified8.5
if 4.27791588576282506e70 < z Initial program 40.3
Simplified37.5
Taylor expanded around inf 5.6
Simplified2.3
Final simplification5.8
herbie shell --seed 2020179
(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)))))