c0 \cdot \sqrt{\frac{A}{V \cdot \ell}}\begin{array}{l}
\mathbf{if}\;V \le -7.24944730302796452 \cdot 10^{-9}:\\
\;\;\;\;\left(\sqrt[3]{c0 \cdot \left(\left|\sqrt[3]{A}\right| \cdot \sqrt{\frac{\sqrt[3]{A}}{V \cdot \ell}}\right)} \cdot \sqrt[3]{c0 \cdot \left(\left|\sqrt[3]{A}\right| \cdot \sqrt{\frac{\sqrt[3]{A}}{V \cdot \ell}}\right)}\right) \cdot \sqrt[3]{c0 \cdot \left(\left|\sqrt[3]{A}\right| \cdot \sqrt{\frac{\sqrt[3]{A}}{V \cdot \ell}}\right)}\\
\mathbf{elif}\;V \le -3.2698369089058447 \cdot 10^{-220}:\\
\;\;\;\;c0 \cdot \sqrt{\frac{\frac{A}{V}}{\ell}}\\
\mathbf{elif}\;V \le 8.37998221063094693 \cdot 10^{-237}:\\
\;\;\;\;c0 \cdot \left(\left|\sqrt[3]{A}\right| \cdot \sqrt{\frac{\sqrt[3]{1}}{\frac{V \cdot \ell}{\sqrt[3]{A}}}}\right)\\
\mathbf{else}:\\
\;\;\;\;c0 \cdot \left(\left|\sqrt[3]{A}\right| \cdot \left(\sqrt{\frac{\sqrt[3]{\sqrt[3]{A} \cdot \sqrt[3]{A}}}{V}} \cdot \sqrt{\frac{\sqrt[3]{\sqrt[3]{A}}}{\ell}}\right)\right)\\
\end{array}double f(double c0, double A, double V, double l) {
double r181716 = c0;
double r181717 = A;
double r181718 = V;
double r181719 = l;
double r181720 = r181718 * r181719;
double r181721 = r181717 / r181720;
double r181722 = sqrt(r181721);
double r181723 = r181716 * r181722;
return r181723;
}
double f(double c0, double A, double V, double l) {
double r181724 = V;
double r181725 = -7.2494473030279645e-09;
bool r181726 = r181724 <= r181725;
double r181727 = c0;
double r181728 = A;
double r181729 = cbrt(r181728);
double r181730 = fabs(r181729);
double r181731 = l;
double r181732 = r181724 * r181731;
double r181733 = r181729 / r181732;
double r181734 = sqrt(r181733);
double r181735 = r181730 * r181734;
double r181736 = r181727 * r181735;
double r181737 = cbrt(r181736);
double r181738 = r181737 * r181737;
double r181739 = r181738 * r181737;
double r181740 = -3.2698369089058447e-220;
bool r181741 = r181724 <= r181740;
double r181742 = r181728 / r181724;
double r181743 = r181742 / r181731;
double r181744 = sqrt(r181743);
double r181745 = r181727 * r181744;
double r181746 = 8.379982210630947e-237;
bool r181747 = r181724 <= r181746;
double r181748 = 1.0;
double r181749 = cbrt(r181748);
double r181750 = r181732 / r181729;
double r181751 = r181749 / r181750;
double r181752 = sqrt(r181751);
double r181753 = r181730 * r181752;
double r181754 = r181727 * r181753;
double r181755 = r181729 * r181729;
double r181756 = cbrt(r181755);
double r181757 = r181756 / r181724;
double r181758 = sqrt(r181757);
double r181759 = cbrt(r181729);
double r181760 = r181759 / r181731;
double r181761 = sqrt(r181760);
double r181762 = r181758 * r181761;
double r181763 = r181730 * r181762;
double r181764 = r181727 * r181763;
double r181765 = r181747 ? r181754 : r181764;
double r181766 = r181741 ? r181745 : r181765;
double r181767 = r181726 ? r181739 : r181766;
return r181767;
}



Bits error versus c0



Bits error versus A



Bits error versus V



Bits error versus l
Results
if V < -7.2494473030279645e-09Initial program 18.1
rmApplied add-cube-cbrt18.4
Applied associate-/l*18.4
rmApplied div-inv18.4
Applied sqrt-prod13.4
Simplified13.4
Simplified13.1
rmApplied add-cube-cbrt13.5
if -7.2494473030279645e-09 < V < -3.2698369089058447e-220Initial program 17.5
rmApplied associate-/r*18.1
if -3.2698369089058447e-220 < V < 8.379982210630947e-237Initial program 30.0
rmApplied add-cube-cbrt30.3
Applied associate-/l*30.3
rmApplied div-inv30.4
Applied sqrt-prod25.8
Simplified25.8
Simplified25.8
rmApplied *-un-lft-identity25.8
Applied cbrt-prod25.8
Applied associate-/l*25.8
if 8.379982210630947e-237 < V Initial program 16.9
rmApplied add-cube-cbrt17.3
Applied associate-/l*17.3
rmApplied div-inv17.3
Applied sqrt-prod11.9
Simplified11.9
Simplified11.6
rmApplied add-cube-cbrt11.7
Applied cbrt-prod11.7
Applied times-frac10.3
Applied sqrt-prod3.0
Final simplification11.0
herbie shell --seed 2020060
(FPCore (c0 A V l)
:name "Henrywood and Agarwal, Equation (3)"
:precision binary64
(* c0 (sqrt (/ A (* V l)))))