w0 \cdot \sqrt{1 - {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2} \cdot \frac{h}{\ell}}w0 \cdot \sqrt{1 - \frac{{\left(\frac{M \cdot D}{2 \cdot d}\right)}^{\left(\frac{2}{2}\right)}}{\frac{\ell}{{\left(\frac{M \cdot D}{2 \cdot d}\right)}^{\left(\frac{2}{2}\right)} \cdot h}}}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) / (2.0 * d)), (2.0 / 2.0)) / (l / (pow(((M * D) / (2.0 * d)), (2.0 / 2.0)) * h))))));
}



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.7
rmApplied associate-*r/10.5
rmApplied sqr-pow10.5
Applied associate-*l*9.0
rmApplied associate-/l*8.2
Final simplification8.2
herbie shell --seed 2020102 +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))))))