c0 \cdot \sqrt{\frac{A}{V \cdot \ell}}\begin{array}{l}
\mathbf{if}\;\ell \leq 5.601672525454924 \cdot 10^{-309}:\\
\;\;\;\;c0 \cdot \left(\sqrt{\frac{\sqrt[3]{A}}{\frac{\sqrt[3]{V} \cdot \sqrt[3]{V}}{\frac{1}{\sqrt[3]{\ell} \cdot \sqrt[3]{\ell}}}}} \cdot \sqrt{\frac{\sqrt[3]{A}}{\frac{\sqrt[3]{V}}{\frac{\sqrt[3]{A}}{\sqrt[3]{\ell}}}}}\right)\\
\mathbf{else}:\\
\;\;\;\;c0 \cdot \left(\left|\frac{\sqrt[3]{A}}{\sqrt[3]{V}}\right| \cdot \left(\sqrt{\frac{1}{\ell}} \cdot \sqrt{\frac{\sqrt[3]{A}}{\sqrt[3]{V}}}\right)\right)\\
\end{array}(FPCore (c0 A V l) :precision binary64 (* c0 (sqrt (/ A (* V l)))))
(FPCore (c0 A V l)
:precision binary64
(if (<= l 5.601672525454924e-309)
(*
c0
(*
(sqrt
(/ (cbrt A) (/ (* (cbrt V) (cbrt V)) (/ 1.0 (* (cbrt l) (cbrt l))))))
(sqrt (/ (cbrt A) (/ (cbrt V) (/ (cbrt A) (cbrt l)))))))
(*
c0
(*
(fabs (/ (cbrt A) (cbrt V)))
(* (sqrt (/ 1.0 l)) (sqrt (/ (cbrt A) (cbrt V))))))))double code(double c0, double A, double V, double l) {
return c0 * sqrt(A / (V * l));
}
double code(double c0, double A, double V, double l) {
double tmp;
if (l <= 5.601672525454924e-309) {
tmp = c0 * (sqrt(cbrt(A) / ((cbrt(V) * cbrt(V)) / (1.0 / (cbrt(l) * cbrt(l))))) * sqrt(cbrt(A) / (cbrt(V) / (cbrt(A) / cbrt(l)))));
} else {
tmp = c0 * (fabs(cbrt(A) / cbrt(V)) * (sqrt(1.0 / l) * sqrt(cbrt(A) / cbrt(V))));
}
return tmp;
}



Bits error versus c0



Bits error versus A



Bits error versus V



Bits error versus l
Results
if l < 5.6016725254549244e-309Initial program 19.2
rmApplied add-cube-cbrt_binary6419.6
Applied associate-/l*_binary6419.6
Simplified18.3
rmApplied add-cube-cbrt_binary6418.4
Applied *-un-lft-identity_binary6418.4
Applied times-frac_binary6418.4
Applied add-cube-cbrt_binary6418.5
Applied times-frac_binary6417.6
Applied times-frac_binary6415.7
Applied sqrt-prod_binary644.7
if 5.6016725254549244e-309 < l Initial program 18.9
rmApplied add-cube-cbrt_binary6419.2
Applied associate-/l*_binary6419.2
Simplified18.0
rmApplied div-inv_binary6418.0
Applied add-cube-cbrt_binary6418.1
Applied times-frac_binary6417.3
Applied times-frac_binary6416.1
Applied sqrt-prod_binary647.7
Simplified6.1
Simplified6.1
rmApplied *-un-lft-identity_binary646.1
Applied times-frac_binary644.6
Applied sqrt-prod_binary642.1
Final simplification2.7
herbie shell --seed 2021174
(FPCore (c0 A V l)
:name "Henrywood and Agarwal, Equation (3)"
:precision binary64
(* c0 (sqrt (/ A (* V l)))))