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}{\frac{2 \cdot d}{D}}\right)}^{\left(\frac{2}{2}\right)} \cdot \left({\left(\frac{M}{\frac{2 \cdot d}{D}}\right)}^{\left(\frac{2}{2}\right)} \cdot \left(-h\right)\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 / ((2.0 * d) / D)), (2.0 / 2.0)) * (pow((M / ((2.0 * d) / 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 frac-2neg13.9
Applied associate-*r/10.7
rmApplied associate-/l*10.7
rmApplied sqr-pow10.7
Applied associate-*l*9.3
Final simplification9.3
herbie shell --seed 2020078
(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))))))