\frac{c0}{2 \cdot w} \cdot \left(\frac{c0 \cdot \left(d \cdot d\right)}{\left(w \cdot h\right) \cdot \left(D \cdot D\right)} + \sqrt{\frac{c0 \cdot \left(d \cdot d\right)}{\left(w \cdot h\right) \cdot \left(D \cdot D\right)} \cdot \frac{c0 \cdot \left(d \cdot d\right)}{\left(w \cdot h\right) \cdot \left(D \cdot D\right)} - M \cdot M}\right)\begin{array}{l}
\mathbf{if}\;d \leq -1.175953897003222 \cdot 10^{-95}:\\
\;\;\;\;0\\
\mathbf{elif}\;d \leq -4.0770522499926086 \cdot 10^{-200}:\\
\;\;\;\;\frac{c0}{2 \cdot w} \cdot \left(\sqrt{\frac{c0}{w \cdot h} \cdot \left(\frac{d}{D} \cdot \frac{d}{D}\right) + \sqrt{\left(\frac{c0}{w \cdot h} \cdot \left(\frac{d}{D} \cdot \frac{d}{D}\right)\right) \cdot \left(\frac{c0}{w \cdot h} \cdot \left(\frac{d}{D} \cdot \frac{d}{D}\right)\right) - M \cdot M}} \cdot \sqrt{\frac{c0}{w \cdot h} \cdot \left(\frac{d}{D} \cdot \frac{d}{D}\right) + \sqrt{\left(\frac{c0}{w \cdot h} \cdot \left(\frac{d}{D} \cdot \frac{d}{D}\right)\right) \cdot \left(\frac{c0}{w \cdot h} \cdot \left(\frac{d}{D} \cdot \frac{d}{D}\right)\right) - M \cdot M}}\right)\\
\mathbf{else}:\\
\;\;\;\;0\\
\end{array}double code(double c0, double w, double h, double D, double d, double M) {
return ((double) ((c0 / ((double) (2.0 * w))) * ((double) ((((double) (c0 * ((double) (d * d)))) / ((double) (((double) (w * h)) * ((double) (D * D))))) + ((double) sqrt(((double) (((double) ((((double) (c0 * ((double) (d * d)))) / ((double) (((double) (w * h)) * ((double) (D * D))))) * (((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 ((d <= -1.175953897003222e-95)) {
VAR = 0.0;
} else {
double VAR_1;
if ((d <= -4.0770522499926086e-200)) {
VAR_1 = ((double) ((c0 / ((double) (2.0 * w))) * ((double) (((double) sqrt(((double) (((double) ((c0 / ((double) (w * h))) * ((double) ((d / D) * (d / D))))) + ((double) sqrt(((double) (((double) (((double) ((c0 / ((double) (w * h))) * ((double) ((d / D) * (d / D))))) * ((double) ((c0 / ((double) (w * h))) * ((double) ((d / D) * (d / D))))))) - ((double) (M * M)))))))))) * ((double) sqrt(((double) (((double) ((c0 / ((double) (w * h))) * ((double) ((d / D) * (d / D))))) + ((double) sqrt(((double) (((double) (((double) ((c0 / ((double) (w * h))) * ((double) ((d / D) * (d / D))))) * ((double) ((c0 / ((double) (w * h))) * ((double) ((d / D) * (d / D))))))) - ((double) (M * M))))))))))))));
} else {
VAR_1 = 0.0;
}
VAR = VAR_1;
}
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 d < -1.17595389700322196e-95 or -4.0770522499926086e-200 < d Initial program 59.4
Taylor expanded around inf 35.2
rmApplied mul0-rgt33.4
if -1.17595389700322196e-95 < d < -4.0770522499926086e-200Initial program 59.7
rmApplied add-sqr-sqrt59.8
Simplified60.6
Simplified48.1
Final simplification34.1
herbie shell --seed 2020196
(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))))))