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



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 13.9
rmApplied associate-*r/10.7
rmApplied sqr-pow10.7
Applied associate-*l*9.3
rmApplied div-inv9.3
Final simplification9.3
herbie shell --seed 2020078 +o rules:numerics
(FPCore (w0 M D h l d)
:name "Henrywood and Agarwal, Equation (9a)"
:precision binary64
(* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))))