| Alternative 1 | |
|---|---|
| Accuracy | 88.0% |
| Cost | 14288 |
(FPCore (c0 A V l) :precision binary64 (* c0 (sqrt (/ A (* V l)))))
(FPCore (c0 A V l)
:precision binary64
(if (<= (* V l) -1e+245)
(* c0 (* (pow l -0.5) (sqrt (/ A V))))
(if (<= (* V l) -5e-261)
(* c0 (/ (sqrt (- A)) (sqrt (* V (- l)))))
(if (<= (* V l) 0.0)
(* c0 (/ (sqrt (/ (- A) l)) (sqrt (- V))))
(if (<= (* V l) 2e+294)
(* c0 (/ (sqrt A) (sqrt (* V l))))
(* c0 (sqrt (/ (/ A V) l))))))))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 ((V * l) <= -1e+245) {
tmp = c0 * (pow(l, -0.5) * sqrt((A / V)));
} else if ((V * l) <= -5e-261) {
tmp = c0 * (sqrt(-A) / sqrt((V * -l)));
} else if ((V * l) <= 0.0) {
tmp = c0 * (sqrt((-A / l)) / sqrt(-V));
} else if ((V * l) <= 2e+294) {
tmp = c0 * (sqrt(A) / sqrt((V * l)));
} else {
tmp = c0 * sqrt(((A / V) / l));
}
return tmp;
}
real(8) function code(c0, a, v, l)
real(8), intent (in) :: c0
real(8), intent (in) :: a
real(8), intent (in) :: v
real(8), intent (in) :: l
code = c0 * sqrt((a / (v * l)))
end function
real(8) function code(c0, a, v, l)
real(8), intent (in) :: c0
real(8), intent (in) :: a
real(8), intent (in) :: v
real(8), intent (in) :: l
real(8) :: tmp
if ((v * l) <= (-1d+245)) then
tmp = c0 * ((l ** (-0.5d0)) * sqrt((a / v)))
else if ((v * l) <= (-5d-261)) then
tmp = c0 * (sqrt(-a) / sqrt((v * -l)))
else if ((v * l) <= 0.0d0) then
tmp = c0 * (sqrt((-a / l)) / sqrt(-v))
else if ((v * l) <= 2d+294) then
tmp = c0 * (sqrt(a) / sqrt((v * l)))
else
tmp = c0 * sqrt(((a / v) / l))
end if
code = tmp
end function
public static double code(double c0, double A, double V, double l) {
return c0 * Math.sqrt((A / (V * l)));
}
public static double code(double c0, double A, double V, double l) {
double tmp;
if ((V * l) <= -1e+245) {
tmp = c0 * (Math.pow(l, -0.5) * Math.sqrt((A / V)));
} else if ((V * l) <= -5e-261) {
tmp = c0 * (Math.sqrt(-A) / Math.sqrt((V * -l)));
} else if ((V * l) <= 0.0) {
tmp = c0 * (Math.sqrt((-A / l)) / Math.sqrt(-V));
} else if ((V * l) <= 2e+294) {
tmp = c0 * (Math.sqrt(A) / Math.sqrt((V * l)));
} else {
tmp = c0 * Math.sqrt(((A / V) / l));
}
return tmp;
}
def code(c0, A, V, l): return c0 * math.sqrt((A / (V * l)))
def code(c0, A, V, l): tmp = 0 if (V * l) <= -1e+245: tmp = c0 * (math.pow(l, -0.5) * math.sqrt((A / V))) elif (V * l) <= -5e-261: tmp = c0 * (math.sqrt(-A) / math.sqrt((V * -l))) elif (V * l) <= 0.0: tmp = c0 * (math.sqrt((-A / l)) / math.sqrt(-V)) elif (V * l) <= 2e+294: tmp = c0 * (math.sqrt(A) / math.sqrt((V * l))) else: tmp = c0 * math.sqrt(((A / V) / l)) return tmp
function code(c0, A, V, l) return Float64(c0 * sqrt(Float64(A / Float64(V * l)))) end
function code(c0, A, V, l) tmp = 0.0 if (Float64(V * l) <= -1e+245) tmp = Float64(c0 * Float64((l ^ -0.5) * sqrt(Float64(A / V)))); elseif (Float64(V * l) <= -5e-261) tmp = Float64(c0 * Float64(sqrt(Float64(-A)) / sqrt(Float64(V * Float64(-l))))); elseif (Float64(V * l) <= 0.0) tmp = Float64(c0 * Float64(sqrt(Float64(Float64(-A) / l)) / sqrt(Float64(-V)))); elseif (Float64(V * l) <= 2e+294) tmp = Float64(c0 * Float64(sqrt(A) / sqrt(Float64(V * l)))); else tmp = Float64(c0 * sqrt(Float64(Float64(A / V) / l))); end return tmp end
function tmp = code(c0, A, V, l) tmp = c0 * sqrt((A / (V * l))); end
function tmp_2 = code(c0, A, V, l) tmp = 0.0; if ((V * l) <= -1e+245) tmp = c0 * ((l ^ -0.5) * sqrt((A / V))); elseif ((V * l) <= -5e-261) tmp = c0 * (sqrt(-A) / sqrt((V * -l))); elseif ((V * l) <= 0.0) tmp = c0 * (sqrt((-A / l)) / sqrt(-V)); elseif ((V * l) <= 2e+294) tmp = c0 * (sqrt(A) / sqrt((V * l))); else tmp = c0 * sqrt(((A / V) / l)); end tmp_2 = tmp; end
code[c0_, A_, V_, l_] := N[(c0 * N[Sqrt[N[(A / N[(V * l), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
code[c0_, A_, V_, l_] := If[LessEqual[N[(V * l), $MachinePrecision], -1e+245], N[(c0 * N[(N[Power[l, -0.5], $MachinePrecision] * N[Sqrt[N[(A / V), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[N[(V * l), $MachinePrecision], -5e-261], N[(c0 * N[(N[Sqrt[(-A)], $MachinePrecision] / N[Sqrt[N[(V * (-l)), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[N[(V * l), $MachinePrecision], 0.0], N[(c0 * N[(N[Sqrt[N[((-A) / l), $MachinePrecision]], $MachinePrecision] / N[Sqrt[(-V)], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[N[(V * l), $MachinePrecision], 2e+294], N[(c0 * N[(N[Sqrt[A], $MachinePrecision] / N[Sqrt[N[(V * l), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(c0 * N[Sqrt[N[(N[(A / V), $MachinePrecision] / l), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]]]]]
c0 \cdot \sqrt{\frac{A}{V \cdot \ell}}
\begin{array}{l}
\mathbf{if}\;V \cdot \ell \leq -1 \cdot 10^{+245}:\\
\;\;\;\;c0 \cdot \left({\ell}^{-0.5} \cdot \sqrt{\frac{A}{V}}\right)\\
\mathbf{elif}\;V \cdot \ell \leq -5 \cdot 10^{-261}:\\
\;\;\;\;c0 \cdot \frac{\sqrt{-A}}{\sqrt{V \cdot \left(-\ell\right)}}\\
\mathbf{elif}\;V \cdot \ell \leq 0:\\
\;\;\;\;c0 \cdot \frac{\sqrt{\frac{-A}{\ell}}}{\sqrt{-V}}\\
\mathbf{elif}\;V \cdot \ell \leq 2 \cdot 10^{+294}:\\
\;\;\;\;c0 \cdot \frac{\sqrt{A}}{\sqrt{V \cdot \ell}}\\
\mathbf{else}:\\
\;\;\;\;c0 \cdot \sqrt{\frac{\frac{A}{V}}{\ell}}\\
\end{array}
Results
if (*.f64 V l) < -1.00000000000000004e245Initial program 45.6%
Applied egg-rr85.5%
[Start]45.6 | \[ c0 \cdot \sqrt{\frac{A}{V \cdot \ell}}
\] |
|---|---|
associate-/r* [=>]65.9 | \[ c0 \cdot \sqrt{\color{blue}{\frac{\frac{A}{V}}{\ell}}}
\] |
sqrt-div [=>]85.5 | \[ c0 \cdot \color{blue}{\frac{\sqrt{\frac{A}{V}}}{\sqrt{\ell}}}
\] |
Applied egg-rr85.4%
[Start]85.5 | \[ c0 \cdot \frac{\sqrt{\frac{A}{V}}}{\sqrt{\ell}}
\] |
|---|---|
clear-num [=>]85.4 | \[ c0 \cdot \color{blue}{\frac{1}{\frac{\sqrt{\ell}}{\sqrt{\frac{A}{V}}}}}
\] |
associate-/r/ [=>]85.4 | \[ c0 \cdot \color{blue}{\left(\frac{1}{\sqrt{\ell}} \cdot \sqrt{\frac{A}{V}}\right)}
\] |
pow1/2 [=>]85.4 | \[ c0 \cdot \left(\frac{1}{\color{blue}{{\ell}^{0.5}}} \cdot \sqrt{\frac{A}{V}}\right)
\] |
pow-flip [=>]85.4 | \[ c0 \cdot \left(\color{blue}{{\ell}^{\left(-0.5\right)}} \cdot \sqrt{\frac{A}{V}}\right)
\] |
metadata-eval [=>]85.4 | \[ c0 \cdot \left({\ell}^{\color{blue}{-0.5}} \cdot \sqrt{\frac{A}{V}}\right)
\] |
if -1.00000000000000004e245 < (*.f64 V l) < -4.99999999999999981e-261Initial program 87.0%
Applied egg-rr99.4%
[Start]87.0 | \[ c0 \cdot \sqrt{\frac{A}{V \cdot \ell}}
\] |
|---|---|
frac-2neg [=>]87.0 | \[ c0 \cdot \sqrt{\color{blue}{\frac{-A}{-V \cdot \ell}}}
\] |
sqrt-div [=>]99.4 | \[ c0 \cdot \color{blue}{\frac{\sqrt{-A}}{\sqrt{-V \cdot \ell}}}
\] |
*-commutative [=>]99.4 | \[ c0 \cdot \frac{\sqrt{-A}}{\sqrt{-\color{blue}{\ell \cdot V}}}
\] |
distribute-rgt-neg-in [=>]99.4 | \[ c0 \cdot \frac{\sqrt{-A}}{\sqrt{\color{blue}{\ell \cdot \left(-V\right)}}}
\] |
if -4.99999999999999981e-261 < (*.f64 V l) < -0.0Initial program 12.5%
Applied egg-rr46.5%
[Start]12.5 | \[ c0 \cdot \sqrt{\frac{A}{V \cdot \ell}}
\] |
|---|---|
clear-num [=>]12.5 | \[ c0 \cdot \sqrt{\color{blue}{\frac{1}{\frac{V \cdot \ell}{A}}}}
\] |
sqrt-div [=>]12.8 | \[ c0 \cdot \color{blue}{\frac{\sqrt{1}}{\sqrt{\frac{V \cdot \ell}{A}}}}
\] |
metadata-eval [=>]12.8 | \[ c0 \cdot \frac{\color{blue}{1}}{\sqrt{\frac{V \cdot \ell}{A}}}
\] |
associate-/l* [=>]46.5 | \[ c0 \cdot \frac{1}{\sqrt{\color{blue}{\frac{V}{\frac{A}{\ell}}}}}
\] |
Applied egg-rr58.7%
[Start]46.5 | \[ c0 \cdot \frac{1}{\sqrt{\frac{V}{\frac{A}{\ell}}}}
\] |
|---|---|
frac-2neg [=>]46.5 | \[ c0 \cdot \frac{1}{\sqrt{\color{blue}{\frac{-V}{-\frac{A}{\ell}}}}}
\] |
sqrt-div [=>]58.7 | \[ c0 \cdot \frac{1}{\color{blue}{\frac{\sqrt{-V}}{\sqrt{-\frac{A}{\ell}}}}}
\] |
distribute-neg-frac [=>]58.7 | \[ c0 \cdot \frac{1}{\frac{\sqrt{-V}}{\sqrt{\color{blue}{\frac{-A}{\ell}}}}}
\] |
Applied egg-rr44.8%
[Start]58.7 | \[ c0 \cdot \frac{1}{\frac{\sqrt{-V}}{\sqrt{\frac{-A}{\ell}}}}
\] |
|---|---|
clear-num [<=]58.7 | \[ c0 \cdot \color{blue}{\frac{\sqrt{\frac{-A}{\ell}}}{\sqrt{-V}}}
\] |
sqrt-undiv [=>]44.8 | \[ c0 \cdot \color{blue}{\sqrt{\frac{\frac{-A}{\ell}}{-V}}}
\] |
add-sqr-sqrt [=>]29.4 | \[ c0 \cdot \sqrt{\frac{\frac{\color{blue}{\sqrt{-A} \cdot \sqrt{-A}}}{\ell}}{-V}}
\] |
sqrt-unprod [=>]13.2 | \[ c0 \cdot \sqrt{\frac{\frac{\color{blue}{\sqrt{\left(-A\right) \cdot \left(-A\right)}}}{\ell}}{-V}}
\] |
sqr-neg [=>]13.2 | \[ c0 \cdot \sqrt{\frac{\frac{\sqrt{\color{blue}{A \cdot A}}}{\ell}}{-V}}
\] |
sqrt-unprod [<=]0.0 | \[ c0 \cdot \sqrt{\frac{\frac{\color{blue}{\sqrt{A} \cdot \sqrt{A}}}{\ell}}{-V}}
\] |
add-sqr-sqrt [<=]0.0 | \[ c0 \cdot \sqrt{\frac{\frac{\color{blue}{A}}{\ell}}{-V}}
\] |
add-sqr-sqrt [=>]0.0 | \[ c0 \cdot \sqrt{\frac{\frac{A}{\ell}}{\color{blue}{\sqrt{-V} \cdot \sqrt{-V}}}}
\] |
sqrt-unprod [=>]0.0 | \[ c0 \cdot \sqrt{\frac{\frac{A}{\ell}}{\color{blue}{\sqrt{\left(-V\right) \cdot \left(-V\right)}}}}
\] |
sqr-neg [=>]0.0 | \[ c0 \cdot \sqrt{\frac{\frac{A}{\ell}}{\sqrt{\color{blue}{V \cdot V}}}}
\] |
sqrt-unprod [<=]8.8 | \[ c0 \cdot \sqrt{\frac{\frac{A}{\ell}}{\color{blue}{\sqrt{V} \cdot \sqrt{V}}}}
\] |
add-sqr-sqrt [<=]44.8 | \[ c0 \cdot \sqrt{\frac{\frac{A}{\ell}}{\color{blue}{V}}}
\] |
Applied egg-rr58.7%
[Start]44.8 | \[ c0 \cdot \sqrt{\frac{\frac{A}{\ell}}{V}}
\] |
|---|---|
frac-2neg [=>]44.8 | \[ c0 \cdot \sqrt{\color{blue}{\frac{-\frac{A}{\ell}}{-V}}}
\] |
sqrt-div [=>]58.7 | \[ c0 \cdot \color{blue}{\frac{\sqrt{-\frac{A}{\ell}}}{\sqrt{-V}}}
\] |
Simplified58.7%
[Start]58.7 | \[ c0 \cdot \frac{\sqrt{-\frac{A}{\ell}}}{\sqrt{-V}}
\] |
|---|---|
distribute-neg-frac [=>]58.7 | \[ c0 \cdot \frac{\sqrt{\color{blue}{\frac{-A}{\ell}}}}{\sqrt{-V}}
\] |
if -0.0 < (*.f64 V l) < 2.00000000000000013e294Initial program 84.8%
Applied egg-rr28.1%
[Start]84.8 | \[ c0 \cdot \sqrt{\frac{A}{V \cdot \ell}}
\] |
|---|---|
add-sqr-sqrt [=>]46.9 | \[ \color{blue}{\sqrt{c0 \cdot \sqrt{\frac{A}{V \cdot \ell}}} \cdot \sqrt{c0 \cdot \sqrt{\frac{A}{V \cdot \ell}}}}
\] |
sqrt-unprod [=>]33.0 | \[ \color{blue}{\sqrt{\left(c0 \cdot \sqrt{\frac{A}{V \cdot \ell}}\right) \cdot \left(c0 \cdot \sqrt{\frac{A}{V \cdot \ell}}\right)}}
\] |
pow1/2 [=>]33.0 | \[ \color{blue}{{\left(\left(c0 \cdot \sqrt{\frac{A}{V \cdot \ell}}\right) \cdot \left(c0 \cdot \sqrt{\frac{A}{V \cdot \ell}}\right)\right)}^{0.5}}
\] |
*-commutative [=>]33.0 | \[ {\left(\color{blue}{\left(\sqrt{\frac{A}{V \cdot \ell}} \cdot c0\right)} \cdot \left(c0 \cdot \sqrt{\frac{A}{V \cdot \ell}}\right)\right)}^{0.5}
\] |
*-commutative [=>]33.0 | \[ {\left(\left(\sqrt{\frac{A}{V \cdot \ell}} \cdot c0\right) \cdot \color{blue}{\left(\sqrt{\frac{A}{V \cdot \ell}} \cdot c0\right)}\right)}^{0.5}
\] |
swap-sqr [=>]28.1 | \[ {\color{blue}{\left(\left(\sqrt{\frac{A}{V \cdot \ell}} \cdot \sqrt{\frac{A}{V \cdot \ell}}\right) \cdot \left(c0 \cdot c0\right)\right)}}^{0.5}
\] |
add-sqr-sqrt [<=]28.1 | \[ {\left(\color{blue}{\frac{A}{V \cdot \ell}} \cdot \left(c0 \cdot c0\right)\right)}^{0.5}
\] |
Simplified28.1%
[Start]28.1 | \[ {\left(\frac{A}{V \cdot \ell} \cdot \left(c0 \cdot c0\right)\right)}^{0.5}
\] |
|---|---|
unpow1/2 [=>]28.1 | \[ \color{blue}{\sqrt{\frac{A}{V \cdot \ell} \cdot \left(c0 \cdot c0\right)}}
\] |
Applied egg-rr95.8%
[Start]28.1 | \[ \sqrt{\frac{A}{V \cdot \ell} \cdot \left(c0 \cdot c0\right)}
\] |
|---|---|
associate-*l/ [=>]27.7 | \[ \sqrt{\color{blue}{\frac{A \cdot \left(c0 \cdot c0\right)}{V \cdot \ell}}}
\] |
sqrt-div [=>]31.1 | \[ \color{blue}{\frac{\sqrt{A \cdot \left(c0 \cdot c0\right)}}{\sqrt{V \cdot \ell}}}
\] |
pow1/2 [=>]31.1 | \[ \frac{\color{blue}{{\left(A \cdot \left(c0 \cdot c0\right)\right)}^{0.5}}}{\sqrt{V \cdot \ell}}
\] |
pow-prod-down [<=]37.5 | \[ \frac{\color{blue}{{A}^{0.5} \cdot {\left(c0 \cdot c0\right)}^{0.5}}}{\sqrt{V \cdot \ell}}
\] |
pow1/2 [<=]37.5 | \[ \frac{\color{blue}{\sqrt{A}} \cdot {\left(c0 \cdot c0\right)}^{0.5}}{\sqrt{V \cdot \ell}}
\] |
pow1/2 [<=]37.5 | \[ \frac{\sqrt{A} \cdot \color{blue}{\sqrt{c0 \cdot c0}}}{\sqrt{V \cdot \ell}}
\] |
sqrt-prod [=>]48.6 | \[ \frac{\sqrt{A} \cdot \color{blue}{\left(\sqrt{c0} \cdot \sqrt{c0}\right)}}{\sqrt{V \cdot \ell}}
\] |
add-sqr-sqrt [<=]95.8 | \[ \frac{\sqrt{A} \cdot \color{blue}{c0}}{\sqrt{V \cdot \ell}}
\] |
Simplified99.0%
[Start]95.8 | \[ \frac{\sqrt{A} \cdot c0}{\sqrt{V \cdot \ell}}
\] |
|---|---|
associate-*l/ [<=]99.0 | \[ \color{blue}{\frac{\sqrt{A}}{\sqrt{V \cdot \ell}} \cdot c0}
\] |
if 2.00000000000000013e294 < (*.f64 V l) Initial program 39.7%
Applied egg-rr65.0%
[Start]39.7 | \[ c0 \cdot \sqrt{\frac{A}{V \cdot \ell}}
\] |
|---|---|
pow1/2 [=>]39.7 | \[ c0 \cdot \color{blue}{{\left(\frac{A}{V \cdot \ell}\right)}^{0.5}}
\] |
clear-num [=>]39.6 | \[ c0 \cdot {\color{blue}{\left(\frac{1}{\frac{V \cdot \ell}{A}}\right)}}^{0.5}
\] |
inv-pow [=>]39.6 | \[ c0 \cdot {\color{blue}{\left({\left(\frac{V \cdot \ell}{A}\right)}^{-1}\right)}}^{0.5}
\] |
pow-pow [=>]39.6 | \[ c0 \cdot \color{blue}{{\left(\frac{V \cdot \ell}{A}\right)}^{\left(-1 \cdot 0.5\right)}}
\] |
associate-/l* [=>]65.0 | \[ c0 \cdot {\color{blue}{\left(\frac{V}{\frac{A}{\ell}}\right)}}^{\left(-1 \cdot 0.5\right)}
\] |
metadata-eval [=>]65.0 | \[ c0 \cdot {\left(\frac{V}{\frac{A}{\ell}}\right)}^{\color{blue}{-0.5}}
\] |
Simplified65.0%
[Start]65.0 | \[ c0 \cdot {\left(\frac{V}{\frac{A}{\ell}}\right)}^{-0.5}
\] |
|---|---|
associate-/l* [<=]39.6 | \[ c0 \cdot {\color{blue}{\left(\frac{V \cdot \ell}{A}\right)}}^{-0.5}
\] |
*-lft-identity [<=]39.6 | \[ c0 \cdot {\left(\frac{V \cdot \ell}{\color{blue}{1 \cdot A}}\right)}^{-0.5}
\] |
times-frac [=>]65.0 | \[ c0 \cdot {\color{blue}{\left(\frac{V}{1} \cdot \frac{\ell}{A}\right)}}^{-0.5}
\] |
/-rgt-identity [=>]65.0 | \[ c0 \cdot {\left(\color{blue}{V} \cdot \frac{\ell}{A}\right)}^{-0.5}
\] |
Taylor expanded in c0 around 0 39.7%
Simplified66.1%
[Start]39.7 | \[ \sqrt{\frac{A}{V \cdot \ell}} \cdot c0
\] |
|---|---|
associate-/r* [=>]66.1 | \[ \sqrt{\color{blue}{\frac{\frac{A}{V}}{\ell}}} \cdot c0
\] |
Final simplification91.1%
| Alternative 1 | |
|---|---|
| Accuracy | 88.0% |
| Cost | 14288 |
| Alternative 2 | |
|---|---|
| Accuracy | 88.1% |
| Cost | 14288 |
| Alternative 3 | |
|---|---|
| Accuracy | 88.1% |
| Cost | 14288 |
| Alternative 4 | |
|---|---|
| Accuracy | 88.4% |
| Cost | 14288 |
| Alternative 5 | |
|---|---|
| Accuracy | 82.8% |
| Cost | 14028 |
| Alternative 6 | |
|---|---|
| Accuracy | 82.6% |
| Cost | 14028 |
| Alternative 7 | |
|---|---|
| Accuracy | 78.1% |
| Cost | 7688 |
| Alternative 8 | |
|---|---|
| Accuracy | 77.8% |
| Cost | 7688 |
| Alternative 9 | |
|---|---|
| Accuracy | 77.8% |
| Cost | 7688 |
| Alternative 10 | |
|---|---|
| Accuracy | 77.7% |
| Cost | 7625 |
| Alternative 11 | |
|---|---|
| Accuracy | 77.5% |
| Cost | 7624 |
| Alternative 12 | |
|---|---|
| Accuracy | 77.9% |
| Cost | 7624 |
| Alternative 13 | |
|---|---|
| Accuracy | 78.2% |
| Cost | 7624 |
| Alternative 14 | |
|---|---|
| Accuracy | 78.0% |
| Cost | 7624 |
| Alternative 15 | |
|---|---|
| Accuracy | 70.7% |
| Cost | 6848 |
herbie shell --seed 2023152
(FPCore (c0 A V l)
:name "Henrywood and Agarwal, Equation (3)"
:precision binary64
(* c0 (sqrt (/ A (* V l)))))