\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)e^{\log 0}double f(double c0, double w, double h, double D, double d, double M) {
double r78674 = c0;
double r78675 = 2.0;
double r78676 = w;
double r78677 = r78675 * r78676;
double r78678 = r78674 / r78677;
double r78679 = d;
double r78680 = r78679 * r78679;
double r78681 = r78674 * r78680;
double r78682 = h;
double r78683 = r78676 * r78682;
double r78684 = D;
double r78685 = r78684 * r78684;
double r78686 = r78683 * r78685;
double r78687 = r78681 / r78686;
double r78688 = r78687 * r78687;
double r78689 = M;
double r78690 = r78689 * r78689;
double r78691 = r78688 - r78690;
double r78692 = sqrt(r78691);
double r78693 = r78687 + r78692;
double r78694 = r78678 * r78693;
return r78694;
}
double f(double __attribute__((unused)) c0, double __attribute__((unused)) w, double __attribute__((unused)) h, double __attribute__((unused)) D, double __attribute__((unused)) d, double __attribute__((unused)) M) {
double r78695 = 0.0;
double r78696 = log(r78695);
double r78697 = exp(r78696);
return r78697;
}



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
Initial program 59.8
Taylor expanded around inf 35.2
rmApplied add-exp-log35.2
Applied add-exp-log49.7
Applied add-exp-log49.7
Applied prod-exp49.7
Applied add-exp-log57.1
Applied div-exp57.1
Applied prod-exp56.7
Simplified33.3
Final simplification33.3
herbie shell --seed 2020045 +o rules:numerics
(FPCore (c0 w h D d M)
:name "Henrywood and Agarwal, Equation (13)"
:precision binary64
(* (/ c0 (* 2 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))))))