\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)\frac{\sqrt[3]{c0} \cdot \sqrt[3]{c0}}{2} \cdot 0double f(double c0, double w, double h, double D, double d, double M) {
double r102498 = c0;
double r102499 = 2.0;
double r102500 = w;
double r102501 = r102499 * r102500;
double r102502 = r102498 / r102501;
double r102503 = d;
double r102504 = r102503 * r102503;
double r102505 = r102498 * r102504;
double r102506 = h;
double r102507 = r102500 * r102506;
double r102508 = D;
double r102509 = r102508 * r102508;
double r102510 = r102507 * r102509;
double r102511 = r102505 / r102510;
double r102512 = r102511 * r102511;
double r102513 = M;
double r102514 = r102513 * r102513;
double r102515 = r102512 - r102514;
double r102516 = sqrt(r102515);
double r102517 = r102511 + r102516;
double r102518 = r102502 * r102517;
return r102518;
}
double f(double c0, double __attribute__((unused)) w, double __attribute__((unused)) h, double __attribute__((unused)) D, double __attribute__((unused)) d, double __attribute__((unused)) M) {
double r102519 = c0;
double r102520 = cbrt(r102519);
double r102521 = r102520 * r102520;
double r102522 = 2.0;
double r102523 = r102521 / r102522;
double r102524 = 0.0;
double r102525 = r102523 * r102524;
return r102525;
}



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.1
Taylor expanded around inf 35.1
rmApplied add-cube-cbrt35.1
Applied times-frac35.1
Applied associate-*l*33.6
Simplified33.2
Final simplification33.2
herbie shell --seed 2019347
(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))))))