w0 \cdot \sqrt{1 - {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2} \cdot \frac{h}{\ell}}w0 \cdot \sqrt{1 - \frac{h \cdot {\left(M \cdot \frac{D}{2 \cdot d}\right)}^{\left(\frac{2}{2}\right)}}{\frac{\ell}{{\left(M \cdot \frac{D}{2 \cdot d}\right)}^{\left(\frac{2}{2}\right)}}}}double code(double w0, double M, double D, double h, double l, double d) {
return ((double) (w0 * ((double) sqrt(((double) (1.0 - ((double) (((double) pow((((double) (M * D)) / ((double) (2.0 * d))), 2.0)) * (h / l)))))))));
}
double code(double w0, double M, double D, double h, double l, double d) {
return ((double) (w0 * ((double) sqrt(((double) (1.0 - (((double) (h * ((double) pow(((double) (M * (D / ((double) (2.0 * d))))), (2.0 / 2.0))))) / (l / ((double) pow(((double) (M * (D / ((double) (2.0 * d))))), (2.0 / 2.0)))))))))));
}



Bits error versus w0



Bits error versus M



Bits error versus D



Bits error versus h



Bits error versus l



Bits error versus d
Results
Initial program Error: 14.2 bits
SimplifiedError: 14.3 bits
rmApplied associate-*r/Error: 10.9 bits
SimplifiedError: 10.9 bits
rmApplied sqr-powError: 10.9 bits
Applied associate-*r*Error: 9.2 bits
rmApplied associate-/l*Error: 8.4 bits
Final simplificationError: 8.4 bits
herbie shell --seed 2020200
(FPCore (w0 M D h l d)
:name "Henrywood and Agarwal, Equation (9a)"
:precision binary64
(* w0 (sqrt (- 1.0 (* (pow (/ (* M D) (* 2.0 d)) 2.0) (/ h l))))))