c0 \cdot \sqrt{\frac{A}{V \cdot \ell}}\begin{array}{l}
\mathbf{if}\;V \cdot \ell \le -7.6330904635859911 \cdot 10^{-307}:\\
\;\;\;\;\left(c0 \cdot \sqrt{\sqrt{\frac{A}{V \cdot \ell}}}\right) \cdot \sqrt{\sqrt{\frac{A}{V \cdot \ell}}}\\
\mathbf{elif}\;V \cdot \ell \le -0.0:\\
\;\;\;\;\left(c0 \cdot \sqrt{\frac{1}{V}}\right) \cdot \sqrt{\frac{A}{\ell}}\\
\mathbf{else}:\\
\;\;\;\;c0 \cdot \frac{\sqrt{A}}{\sqrt{V \cdot \ell}}\\
\end{array}double f(double c0, double A, double V, double l) {
double r171785 = c0;
double r171786 = A;
double r171787 = V;
double r171788 = l;
double r171789 = r171787 * r171788;
double r171790 = r171786 / r171789;
double r171791 = sqrt(r171790);
double r171792 = r171785 * r171791;
return r171792;
}
double f(double c0, double A, double V, double l) {
double r171793 = V;
double r171794 = l;
double r171795 = r171793 * r171794;
double r171796 = -7.633090463585991e-307;
bool r171797 = r171795 <= r171796;
double r171798 = c0;
double r171799 = A;
double r171800 = r171799 / r171795;
double r171801 = sqrt(r171800);
double r171802 = sqrt(r171801);
double r171803 = r171798 * r171802;
double r171804 = r171803 * r171802;
double r171805 = -0.0;
bool r171806 = r171795 <= r171805;
double r171807 = 1.0;
double r171808 = r171807 / r171793;
double r171809 = sqrt(r171808);
double r171810 = r171798 * r171809;
double r171811 = r171799 / r171794;
double r171812 = sqrt(r171811);
double r171813 = r171810 * r171812;
double r171814 = sqrt(r171799);
double r171815 = sqrt(r171795);
double r171816 = r171814 / r171815;
double r171817 = r171798 * r171816;
double r171818 = r171806 ? r171813 : r171817;
double r171819 = r171797 ? r171804 : r171818;
return r171819;
}



Bits error versus c0



Bits error versus A



Bits error versus V



Bits error versus l
Results
if (* V l) < -7.633090463585991e-307Initial program 15.2
rmApplied add-sqr-sqrt15.2
Applied sqrt-prod15.4
Applied associate-*r*15.4
if -7.633090463585991e-307 < (* V l) < -0.0Initial program 62.5
rmApplied *-un-lft-identity62.5
Applied times-frac34.5
Applied sqrt-prod39.6
Applied associate-*r*40.2
if -0.0 < (* V l) Initial program 16.0
rmApplied sqrt-div7.0
Final simplification13.8
herbie shell --seed 2020035 +o rules:numerics
(FPCore (c0 A V l)
:name "Henrywood and Agarwal, Equation (3)"
:precision binary64
(* c0 (sqrt (/ A (* V l)))))