c0 \cdot \sqrt{\frac{A}{V \cdot \ell}}\begin{array}{l}
\mathbf{if}\;V \cdot \ell \leq -9.8813129168249 \cdot 10^{-324} \lor \neg \left(V \cdot \ell \leq 0\right) \land V \cdot \ell \leq 2.4879261280073773 \cdot 10^{+223}:\\
\;\;\;\;\left(\left|\frac{\sqrt[3]{A}}{\sqrt[3]{V \cdot \ell}}\right| \cdot c0\right) \cdot \sqrt{\frac{\sqrt[3]{A}}{\sqrt[3]{V \cdot \ell}}}\\
\mathbf{else}:\\
\;\;\;\;c0 \cdot \sqrt{\frac{1}{\frac{V}{\frac{A}{\ell}}}}\\
\end{array}(FPCore (c0 A V l) :precision binary64 (* c0 (sqrt (/ A (* V l)))))
(FPCore (c0 A V l)
:precision binary64
(if (or (<= (* V l) -9.8813129168249e-324)
(and (not (<= (* V l) 0.0)) (<= (* V l) 2.4879261280073773e+223)))
(*
(* (fabs (/ (cbrt A) (cbrt (* V l)))) c0)
(sqrt (/ (cbrt A) (cbrt (* V l)))))
(* c0 (sqrt (/ 1.0 (/ V (/ A l)))))))double code(double c0, double A, double V, double l) {
return ((double) (c0 * ((double) sqrt((A / ((double) (V * l)))))));
}
double code(double c0, double A, double V, double l) {
double tmp;
if (((((double) (V * l)) <= -9.8813129168249e-324) || (!(((double) (V * l)) <= 0.0) && (((double) (V * l)) <= 2.4879261280073773e+223)))) {
tmp = ((double) (((double) (((double) fabs((((double) cbrt(A)) / ((double) cbrt(((double) (V * l))))))) * c0)) * ((double) sqrt((((double) cbrt(A)) / ((double) cbrt(((double) (V * l)))))))));
} else {
tmp = ((double) (c0 * ((double) sqrt((1.0 / (V / (A / l)))))));
}
return tmp;
}



Bits error versus c0



Bits error versus A



Bits error versus V



Bits error versus l
Results
if (*.f64 V l) < -9.88131e-324 or 0.0 < (*.f64 V l) < 2.4879261280073773e223Initial program 12.6
rmApplied add-cube-cbrt_binary6413.0
Applied sqrt-prod_binary6413.0
Applied associate-*r*_binary6413.0
Simplified13.0
rmApplied cbrt-div_binary6413.0
rmApplied cbrt-div_binary645.1
if -9.88131e-324 < (*.f64 V l) < 0.0 or 2.4879261280073773e223 < (*.f64 V l) Initial program 44.5
rmApplied clear-num_binary6444.7
Simplified27.3
Final simplification9.6
herbie shell --seed 2020205
(FPCore (c0 A V l)
:name "Henrywood and Agarwal, Equation (3)"
:precision binary64
(* c0 (sqrt (/ A (* V l)))))