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



Bits error versus c0



Bits error versus A



Bits error versus V



Bits error versus l
Results
if (*.f64 V l) < -2.84388217667289267e-298Initial program 15.1
rmApplied add-cube-cbrt_binary64_113615.5
Applied sqrt-prod_binary64_111715.5
Applied associate-*r*_binary64_104115.5
Simplified15.5
rmApplied cbrt-div_binary64_113315.5
rmApplied div-inv_binary64_109815.5
Applied cbrt-prod_binary64_11327.0
if -2.84388217667289267e-298 < (*.f64 V l) < -0.0 or 3.2371530520786429e258 < (*.f64 V l) Initial program 48.1
rmApplied associate-/r*_binary64_104529.2
if -0.0 < (*.f64 V l) < 3.2371530520786429e258Initial program 10.0
rmApplied sqrt-div_binary64_11180.7
Final simplification8.8
herbie shell --seed 2021050
(FPCore (c0 A V l)
:name "Henrywood and Agarwal, Equation (3)"
:precision binary64
(* c0 (sqrt (/ A (* V l)))))