double code(double c0, double w, double h, double D, double d, double M) {
return ((double) (((double) (c0 / ((double) (2.0 * w)))) * ((double) (((double) (((double) (c0 * ((double) (d * d)))) / ((double) (((double) (w * h)) * ((double) (D * D)))))) + ((double) sqrt(((double) (((double) (((double) (((double) (c0 * ((double) (d * d)))) / ((double) (((double) (w * h)) * ((double) (D * D)))))) * ((double) (((double) (c0 * ((double) (d * d)))) / ((double) (((double) (w * h)) * ((double) (D * D)))))))) - ((double) (M * M))))))))));
}
double code(double c0, double w, double h, double D, double d, double M) {
double VAR;
if ((((double) (((double) (c0 / ((double) (2.0 * w)))) * ((double) (((double) (((double) (c0 * ((double) (d * d)))) / ((double) (((double) (w * h)) * ((double) (D * D)))))) + ((double) sqrt(((double) (((double) (((double) (((double) (c0 * ((double) (d * d)))) / ((double) (((double) (w * h)) * ((double) (D * D)))))) * ((double) (((double) (c0 * ((double) (d * d)))) / ((double) (((double) (w * h)) * ((double) (D * D)))))))) - ((double) (M * M)))))))))) <= 1.864309660880015e+93)) {
VAR = ((double) (((double) (c0 / ((double) (2.0 * w)))) * ((double) (((double) (((double) (c0 / ((double) (w * h)))) * ((double) (((double) (d / D)) * ((double) (d / D)))))) * 2.0))));
} else {
VAR = 0.0;
}
return VAR;
}



Bits error versus c0



Bits error versus w



Bits error versus h



Bits error versus D



Bits error versus d



Bits error versus M
Results
if (* (/ c0 (* 2.0 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) < 1.86430966088001509e93Initial program 36.0
rmApplied flip-+52.6
Simplified45.5
Simplified51.5
Taylor expanded around 0 41.8
Simplified38.7
if 1.86430966088001509e93 < (* (/ c0 (* 2.0 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) Initial program 63.5
Taylor expanded around inf 33.2
rmApplied mul0-rgt30.9
Final simplification32.1
herbie shell --seed 2020192
(FPCore (c0 w h D d M)
:name "Henrywood and Agarwal, Equation (13)"
:precision binary64
(* (/ c0 (* 2.0 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))))