c0 \cdot \sqrt{\frac{A}{V \cdot \ell}}\begin{array}{l}
\mathbf{if}\;V \cdot \ell \le -1.3027803198688765 \cdot 10^{132}:\\
\;\;\;\;\left(\left|\frac{\sqrt[3]{A}}{\sqrt[3]{V \cdot \ell}}\right| \cdot c0\right) \cdot \sqrt{\sqrt[3]{\frac{\sqrt[3]{A} \cdot \sqrt[3]{A}}{V}} \cdot \sqrt[3]{\frac{\sqrt[3]{A}}{\ell}}}\\
\mathbf{elif}\;V \cdot \ell \le -2.76350186409490512 \cdot 10^{-133}:\\
\;\;\;\;\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 -9.2539290659964874 \cdot 10^{-275}:\\
\;\;\;\;\left(\left|\frac{\sqrt[3]{A}}{\sqrt[3]{V \cdot \ell}}\right| \cdot c0\right) \cdot \sqrt{\sqrt[3]{\frac{1}{V}} \cdot \sqrt[3]{\frac{A}{\ell}}}\\
\mathbf{elif}\;V \cdot \ell \le -0.0:\\
\;\;\;\;c0 \cdot \sqrt{\frac{\frac{A}{V}}{\ell}}\\
\mathbf{elif}\;V \cdot \ell \le 5.28837167649122347 \cdot 10^{273}:\\
\;\;\;\;c0 \cdot \frac{\sqrt{A}}{\sqrt{V \cdot \ell}}\\
\mathbf{else}:\\
\;\;\;\;c0 \cdot \sqrt{\frac{\sqrt{A}}{V} \cdot \frac{\sqrt{A}}{\ell}}\\
\end{array}double code(double c0, double A, double V, double l) {
return ((double) (c0 * ((double) sqrt(((double) (A / ((double) (V * l))))))));
}
double code(double c0, double A, double V, double l) {
double VAR;
if ((((double) (V * l)) <= -1.3027803198688765e+132)) {
VAR = ((double) (((double) (((double) fabs(((double) (((double) cbrt(A)) / ((double) cbrt(((double) (V * l)))))))) * c0)) * ((double) sqrt(((double) (((double) cbrt(((double) (((double) (((double) cbrt(A)) * ((double) cbrt(A)))) / V)))) * ((double) cbrt(((double) (((double) cbrt(A)) / l))))))))));
} else {
double VAR_1;
if ((((double) (V * l)) <= -2.763501864094905e-133)) {
VAR_1 = ((double) (((double) (c0 * ((double) sqrt(((double) sqrt(((double) (A / ((double) (V * l)))))))))) * ((double) sqrt(((double) sqrt(((double) (A / ((double) (V * l))))))))));
} else {
double VAR_2;
if ((((double) (V * l)) <= -9.253929065996487e-275)) {
VAR_2 = ((double) (((double) (((double) fabs(((double) (((double) cbrt(A)) / ((double) cbrt(((double) (V * l)))))))) * c0)) * ((double) sqrt(((double) (((double) cbrt(((double) (1.0 / V)))) * ((double) cbrt(((double) (A / l))))))))));
} else {
double VAR_3;
if ((((double) (V * l)) <= -0.0)) {
VAR_3 = ((double) (c0 * ((double) sqrt(((double) (((double) (A / V)) / l))))));
} else {
double VAR_4;
if ((((double) (V * l)) <= 5.288371676491223e+273)) {
VAR_4 = ((double) (c0 * ((double) (((double) sqrt(A)) / ((double) sqrt(((double) (V * l))))))));
} else {
VAR_4 = ((double) (c0 * ((double) sqrt(((double) (((double) (((double) sqrt(A)) / V)) * ((double) (((double) sqrt(A)) / l))))))));
}
VAR_3 = VAR_4;
}
VAR_2 = VAR_3;
}
VAR_1 = VAR_2;
}
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) < -1.3027803198688765e132Initial program 25.1
rmApplied add-cube-cbrt25.4
Applied sqrt-prod25.3
Applied associate-*r*25.3
Simplified25.3
rmApplied cbrt-div25.3
rmApplied add-cube-cbrt25.4
Applied times-frac25.9
Applied cbrt-prod21.1
if -1.3027803198688765e132 < (* V l) < -2.76350186409490512e-133Initial program 5.0
rmApplied add-sqr-sqrt5.0
Applied sqrt-prod5.3
Applied associate-*r*5.3
if -2.76350186409490512e-133 < (* V l) < -9.2539290659964874e-275Initial program 16.5
rmApplied add-cube-cbrt16.8
Applied sqrt-prod16.8
Applied associate-*r*16.9
Simplified16.9
rmApplied cbrt-div16.9
rmApplied *-un-lft-identity16.9
Applied times-frac19.1
Applied cbrt-prod10.8
if -9.2539290659964874e-275 < (* V l) < -0.0Initial program 58.7
rmApplied associate-/r*33.9
if -0.0 < (* V l) < 5.28837167649122347e273Initial program 10.9
rmApplied sqrt-div0.7
if 5.28837167649122347e273 < (* V l) Initial program 36.9
rmApplied add-sqr-sqrt36.9
Applied times-frac23.5
Final simplification11.1
herbie shell --seed 2020174
(FPCore (c0 A V l)
:name "Henrywood and Agarwal, Equation (3)"
:precision binary64
(* c0 (sqrt (/ A (* V l)))))