c0 \cdot \sqrt{\frac{A}{V \cdot \ell}}\begin{array}{l}
\mathbf{if}\;V \cdot \ell \leq -2.959728388715725 \cdot 10^{-276}:\\
\;\;\;\;\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{elif}\;V \cdot \ell \leq 3.4628263053763 \cdot 10^{-313}:\\
\;\;\;\;c0 \cdot \sqrt{\frac{\frac{A}{V}}{\ell}}\\
\mathbf{else}:\\
\;\;\;\;c0 \cdot \left(\sqrt{A} \cdot \sqrt{\frac{1}{V \cdot \ell}}\right)\\
\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.959728388715725e-276)
(*
(* (fabs (/ (cbrt A) (cbrt (* V l)))) c0)
(sqrt (/ (cbrt A) (cbrt (* V l)))))
(if (<= (* V l) 3.4628263053763e-313)
(* c0 (sqrt (/ (/ A V) l)))
(* c0 (* (sqrt A) (sqrt (/ 1.0 (* V 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 VAR;
if ((((double) (V * l)) <= -2.959728388715725e-276)) {
VAR = ((double) (((double) (((double) fabs((((double) cbrt(A)) / ((double) cbrt(((double) (V * l))))))) * c0)) * ((double) sqrt((((double) cbrt(A)) / ((double) cbrt(((double) (V * l)))))))));
} else {
double VAR_1;
if ((((double) (V * l)) <= 3.4628263053763e-313)) {
VAR_1 = ((double) (c0 * ((double) sqrt(((A / V) / l)))));
} else {
VAR_1 = ((double) (c0 * ((double) (((double) sqrt(A)) * ((double) sqrt((1.0 / ((double) (V * l)))))))));
}
VAR = VAR_1;
}
return VAR;
}



Bits error versus c0



Bits error versus A



Bits error versus V



Bits error versus l
Results
if (* V l) < -2.95972838871572515e-276Initial program 14.1
rmApplied add-cube-cbrt14.5
Applied sqrt-prod14.5
Applied associate-*r*14.5
Simplified14.5
rmApplied cbrt-div14.5
rmApplied cbrt-div7.3
if -2.95972838871572515e-276 < (* V l) < 3.46282630538e-313Initial program 57.2
rmApplied associate-/r*37.1
if 3.46282630538e-313 < (* V l) Initial program 15.4
rmApplied div-inv15.6
Applied sqrt-prod6.8
Final simplification10.0
herbie shell --seed 2020198
(FPCore (c0 A V l)
:name "Henrywood and Agarwal, Equation (3)"
:precision binary64
(* c0 (sqrt (/ A (* V l)))))