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)) <= -3.114203553728891e+188)) {
VAR = ((double) (c0 / ((double) sqrt(((double) (V * ((double) (l / A))))))));
} else {
double VAR_1;
if ((((double) (V * l)) <= -1.0425553254868156e-257)) {
VAR_1 = ((double) (c0 * ((double) sqrt(((double) (A / ((double) (V * l))))))));
} else {
double VAR_2;
if ((((double) (V * l)) <= 3.8846277012846e-317)) {
VAR_2 = ((double) (((double) (c0 / ((double) sqrt(((double) sqrt(((double) (V * ((double) (l / A)))))))))) / ((double) sqrt(((double) sqrt(((double) (V * ((double) (l / A))))))))));
} else {
double VAR_3;
if ((((double) (V * l)) <= 1.6951396814626267e+296)) {
VAR_3 = ((double) (c0 / ((double) (((double) sqrt(((double) (V * l)))) / ((double) sqrt(A))))));
} else {
VAR_3 = ((double) (c0 * ((double) pow(((double) (V * ((double) (l / A)))), -0.5))));
}
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) < -3.1142035537288909e188Initial program 28.3
rmApplied clear-num28.6
Simplified19.8
rmApplied sqrt-div19.8
Applied associate-*r/19.8
Simplified19.8
if -3.1142035537288909e188 < (* V l) < -1.04255532548681565e-257Initial program 7.6
if -1.04255532548681565e-257 < (* V l) < 3.8846277e-317Initial program 55.5
rmApplied clear-num55.5
Simplified35.3
rmApplied sqrt-div34.3
Applied associate-*r/34.3
Simplified34.3
rmApplied add-sqr-sqrt34.4
Applied associate-/r*34.4
if 3.8846277e-317 < (* V l) < 1.6951396814626267e296Initial program 10.0
rmApplied clear-num10.4
Simplified16.7
rmApplied sqrt-div16.5
Applied associate-*r/16.4
Simplified16.4
rmApplied associate-*r/9.9
Applied sqrt-div0.5
if 1.6951396814626267e296 < (* V l) Initial program 40.4
rmApplied clear-num40.5
Simplified24.8
rmApplied inv-pow24.8
Applied sqrt-pow124.8
Simplified24.8
Final simplification10.8
herbie shell --seed 2020180
(FPCore (c0 A V l)
:name "Henrywood and Agarwal, Equation (3)"
:precision binary64
(* c0 (sqrt (/ A (* V l)))))