| Alternative 1 | |
|---|---|
| Error | 17.2 |
| Cost | 27792 |
(FPCore (d h l M D) :precision binary64 (* (* (pow (/ d h) (/ 1.0 2.0)) (pow (/ d l) (/ 1.0 2.0))) (- 1.0 (* (* (/ 1.0 2.0) (pow (/ (* M D) (* 2.0 d)) 2.0)) (/ h l)))))
(FPCore (d h l M D)
:precision binary64
(let* ((t_0 (sqrt (/ d l))) (t_1 (sqrt (/ d h))) (t_2 (sqrt (- d))))
(if (<= l -4.5e+103)
(*
(/ t_2 (sqrt (- h)))
(* t_0 (fma -0.5 (* (pow (* D (/ (/ M d) 2.0)) 2.0) (/ h l)) 1.0)))
(if (<= l -2.7e-11)
(fma
(* (/ D (/ (/ d M) (* D M))) 0.125)
(sqrt (/ h (pow l 3.0)))
(* (- d) (sqrt (/ (/ 1.0 l) h))))
(if (<= l -5.5e-108)
(*
(* t_0 t_1)
(+ 1.0 (* -0.5 (pow (* (/ M (/ 2.0 (/ D d))) (sqrt (/ h l))) 2.0))))
(if (<= l -4e-310)
(*
(* t_1 (/ t_2 (sqrt (- l))))
(+ 1.0 (* -0.5 (/ (* h (pow (* (/ D d) (/ M 2.0)) 2.0)) l))))
(*
(fma -0.5 (* (/ h l) (pow (* D (/ M (* d 2.0))) 2.0)) 1.0)
(/ d (* (sqrt l) (sqrt h))))))))))double code(double d, double h, double l, double M, double D) {
return (pow((d / h), (1.0 / 2.0)) * pow((d / l), (1.0 / 2.0))) * (1.0 - (((1.0 / 2.0) * pow(((M * D) / (2.0 * d)), 2.0)) * (h / l)));
}
double code(double d, double h, double l, double M, double D) {
double t_0 = sqrt((d / l));
double t_1 = sqrt((d / h));
double t_2 = sqrt(-d);
double tmp;
if (l <= -4.5e+103) {
tmp = (t_2 / sqrt(-h)) * (t_0 * fma(-0.5, (pow((D * ((M / d) / 2.0)), 2.0) * (h / l)), 1.0));
} else if (l <= -2.7e-11) {
tmp = fma(((D / ((d / M) / (D * M))) * 0.125), sqrt((h / pow(l, 3.0))), (-d * sqrt(((1.0 / l) / h))));
} else if (l <= -5.5e-108) {
tmp = (t_0 * t_1) * (1.0 + (-0.5 * pow(((M / (2.0 / (D / d))) * sqrt((h / l))), 2.0)));
} else if (l <= -4e-310) {
tmp = (t_1 * (t_2 / sqrt(-l))) * (1.0 + (-0.5 * ((h * pow(((D / d) * (M / 2.0)), 2.0)) / l)));
} else {
tmp = fma(-0.5, ((h / l) * pow((D * (M / (d * 2.0))), 2.0)), 1.0) * (d / (sqrt(l) * sqrt(h)));
}
return tmp;
}
function code(d, h, l, M, D) return Float64(Float64((Float64(d / h) ^ Float64(1.0 / 2.0)) * (Float64(d / l) ^ Float64(1.0 / 2.0))) * Float64(1.0 - Float64(Float64(Float64(1.0 / 2.0) * (Float64(Float64(M * D) / Float64(2.0 * d)) ^ 2.0)) * Float64(h / l)))) end
function code(d, h, l, M, D) t_0 = sqrt(Float64(d / l)) t_1 = sqrt(Float64(d / h)) t_2 = sqrt(Float64(-d)) tmp = 0.0 if (l <= -4.5e+103) tmp = Float64(Float64(t_2 / sqrt(Float64(-h))) * Float64(t_0 * fma(-0.5, Float64((Float64(D * Float64(Float64(M / d) / 2.0)) ^ 2.0) * Float64(h / l)), 1.0))); elseif (l <= -2.7e-11) tmp = fma(Float64(Float64(D / Float64(Float64(d / M) / Float64(D * M))) * 0.125), sqrt(Float64(h / (l ^ 3.0))), Float64(Float64(-d) * sqrt(Float64(Float64(1.0 / l) / h)))); elseif (l <= -5.5e-108) tmp = Float64(Float64(t_0 * t_1) * Float64(1.0 + Float64(-0.5 * (Float64(Float64(M / Float64(2.0 / Float64(D / d))) * sqrt(Float64(h / l))) ^ 2.0)))); elseif (l <= -4e-310) tmp = Float64(Float64(t_1 * Float64(t_2 / sqrt(Float64(-l)))) * Float64(1.0 + Float64(-0.5 * Float64(Float64(h * (Float64(Float64(D / d) * Float64(M / 2.0)) ^ 2.0)) / l)))); else tmp = Float64(fma(-0.5, Float64(Float64(h / l) * (Float64(D * Float64(M / Float64(d * 2.0))) ^ 2.0)), 1.0) * Float64(d / Float64(sqrt(l) * sqrt(h)))); end return tmp end
code[d_, h_, l_, M_, D_] := N[(N[(N[Power[N[(d / h), $MachinePrecision], N[(1.0 / 2.0), $MachinePrecision]], $MachinePrecision] * N[Power[N[(d / l), $MachinePrecision], N[(1.0 / 2.0), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] * N[(1.0 - N[(N[(N[(1.0 / 2.0), $MachinePrecision] * N[Power[N[(N[(M * D), $MachinePrecision] / N[(2.0 * d), $MachinePrecision]), $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision] * N[(h / l), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
code[d_, h_, l_, M_, D_] := Block[{t$95$0 = N[Sqrt[N[(d / l), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$1 = N[Sqrt[N[(d / h), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$2 = N[Sqrt[(-d)], $MachinePrecision]}, If[LessEqual[l, -4.5e+103], N[(N[(t$95$2 / N[Sqrt[(-h)], $MachinePrecision]), $MachinePrecision] * N[(t$95$0 * N[(-0.5 * N[(N[Power[N[(D * N[(N[(M / d), $MachinePrecision] / 2.0), $MachinePrecision]), $MachinePrecision], 2.0], $MachinePrecision] * N[(h / l), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[l, -2.7e-11], N[(N[(N[(D / N[(N[(d / M), $MachinePrecision] / N[(D * M), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * 0.125), $MachinePrecision] * N[Sqrt[N[(h / N[Power[l, 3.0], $MachinePrecision]), $MachinePrecision]], $MachinePrecision] + N[((-d) * N[Sqrt[N[(N[(1.0 / l), $MachinePrecision] / h), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[l, -5.5e-108], N[(N[(t$95$0 * t$95$1), $MachinePrecision] * N[(1.0 + N[(-0.5 * N[Power[N[(N[(M / N[(2.0 / N[(D / d), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[Sqrt[N[(h / l), $MachinePrecision]], $MachinePrecision]), $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[l, -4e-310], N[(N[(t$95$1 * N[(t$95$2 / N[Sqrt[(-l)], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(1.0 + N[(-0.5 * N[(N[(h * N[Power[N[(N[(D / d), $MachinePrecision] * N[(M / 2.0), $MachinePrecision]), $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision] / l), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(-0.5 * N[(N[(h / l), $MachinePrecision] * N[Power[N[(D * N[(M / N[(d * 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision] * N[(d / N[(N[Sqrt[l], $MachinePrecision] * N[Sqrt[h], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]
\left({\left(\frac{d}{h}\right)}^{\left(\frac{1}{2}\right)} \cdot {\left(\frac{d}{\ell}\right)}^{\left(\frac{1}{2}\right)}\right) \cdot \left(1 - \left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right)
\begin{array}{l}
t_0 := \sqrt{\frac{d}{\ell}}\\
t_1 := \sqrt{\frac{d}{h}}\\
t_2 := \sqrt{-d}\\
\mathbf{if}\;\ell \leq -4.5 \cdot 10^{+103}:\\
\;\;\;\;\frac{t_2}{\sqrt{-h}} \cdot \left(t_0 \cdot \mathsf{fma}\left(-0.5, {\left(D \cdot \frac{\frac{M}{d}}{2}\right)}^{2} \cdot \frac{h}{\ell}, 1\right)\right)\\
\mathbf{elif}\;\ell \leq -2.7 \cdot 10^{-11}:\\
\;\;\;\;\mathsf{fma}\left(\frac{D}{\frac{\frac{d}{M}}{D \cdot M}} \cdot 0.125, \sqrt{\frac{h}{{\ell}^{3}}}, \left(-d\right) \cdot \sqrt{\frac{\frac{1}{\ell}}{h}}\right)\\
\mathbf{elif}\;\ell \leq -5.5 \cdot 10^{-108}:\\
\;\;\;\;\left(t_0 \cdot t_1\right) \cdot \left(1 + -0.5 \cdot {\left(\frac{M}{\frac{2}{\frac{D}{d}}} \cdot \sqrt{\frac{h}{\ell}}\right)}^{2}\right)\\
\mathbf{elif}\;\ell \leq -4 \cdot 10^{-310}:\\
\;\;\;\;\left(t_1 \cdot \frac{t_2}{\sqrt{-\ell}}\right) \cdot \left(1 + -0.5 \cdot \frac{h \cdot {\left(\frac{D}{d} \cdot \frac{M}{2}\right)}^{2}}{\ell}\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(-0.5, \frac{h}{\ell} \cdot {\left(D \cdot \frac{M}{d \cdot 2}\right)}^{2}, 1\right) \cdot \frac{d}{\sqrt{\ell} \cdot \sqrt{h}}\\
\end{array}
if l < -4.50000000000000001e103Initial program 28.8
Simplified29.1
[Start]28.8 | \[ \left({\left(\frac{d}{h}\right)}^{\left(\frac{1}{2}\right)} \cdot {\left(\frac{d}{\ell}\right)}^{\left(\frac{1}{2}\right)}\right) \cdot \left(1 - \left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right)
\] |
|---|---|
associate-*l* [=>]28.8 | \[ \color{blue}{{\left(\frac{d}{h}\right)}^{\left(\frac{1}{2}\right)} \cdot \left({\left(\frac{d}{\ell}\right)}^{\left(\frac{1}{2}\right)} \cdot \left(1 - \left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right)\right)}
\] |
metadata-eval [=>]28.8 | \[ {\left(\frac{d}{h}\right)}^{\color{blue}{0.5}} \cdot \left({\left(\frac{d}{\ell}\right)}^{\left(\frac{1}{2}\right)} \cdot \left(1 - \left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right)\right)
\] |
unpow1/2 [=>]28.8 | \[ \color{blue}{\sqrt{\frac{d}{h}}} \cdot \left({\left(\frac{d}{\ell}\right)}^{\left(\frac{1}{2}\right)} \cdot \left(1 - \left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right)\right)
\] |
metadata-eval [=>]28.8 | \[ \sqrt{\frac{d}{h}} \cdot \left({\left(\frac{d}{\ell}\right)}^{\color{blue}{0.5}} \cdot \left(1 - \left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right)\right)
\] |
unpow1/2 [=>]28.8 | \[ \sqrt{\frac{d}{h}} \cdot \left(\color{blue}{\sqrt{\frac{d}{\ell}}} \cdot \left(1 - \left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right)\right)
\] |
sub-neg [=>]28.8 | \[ \sqrt{\frac{d}{h}} \cdot \left(\sqrt{\frac{d}{\ell}} \cdot \color{blue}{\left(1 + \left(-\left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right)\right)}\right)
\] |
+-commutative [=>]28.8 | \[ \sqrt{\frac{d}{h}} \cdot \left(\sqrt{\frac{d}{\ell}} \cdot \color{blue}{\left(\left(-\left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right) + 1\right)}\right)
\] |
associate-*l* [=>]28.8 | \[ \sqrt{\frac{d}{h}} \cdot \left(\sqrt{\frac{d}{\ell}} \cdot \left(\left(-\color{blue}{\frac{1}{2} \cdot \left({\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2} \cdot \frac{h}{\ell}\right)}\right) + 1\right)\right)
\] |
distribute-lft-neg-in [=>]28.8 | \[ \sqrt{\frac{d}{h}} \cdot \left(\sqrt{\frac{d}{\ell}} \cdot \left(\color{blue}{\left(-\frac{1}{2}\right) \cdot \left({\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2} \cdot \frac{h}{\ell}\right)} + 1\right)\right)
\] |
fma-def [=>]28.8 | \[ \sqrt{\frac{d}{h}} \cdot \left(\sqrt{\frac{d}{\ell}} \cdot \color{blue}{\mathsf{fma}\left(-\frac{1}{2}, {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2} \cdot \frac{h}{\ell}, 1\right)}\right)
\] |
Applied egg-rr20.7
if -4.50000000000000001e103 < l < -2.70000000000000005e-11Initial program 18.5
Simplified19.3
[Start]18.5 | \[ \left({\left(\frac{d}{h}\right)}^{\left(\frac{1}{2}\right)} \cdot {\left(\frac{d}{\ell}\right)}^{\left(\frac{1}{2}\right)}\right) \cdot \left(1 - \left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right)
\] |
|---|---|
metadata-eval [=>]18.5 | \[ \left({\left(\frac{d}{h}\right)}^{\color{blue}{0.5}} \cdot {\left(\frac{d}{\ell}\right)}^{\left(\frac{1}{2}\right)}\right) \cdot \left(1 - \left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right)
\] |
unpow1/2 [=>]18.5 | \[ \left(\color{blue}{\sqrt{\frac{d}{h}}} \cdot {\left(\frac{d}{\ell}\right)}^{\left(\frac{1}{2}\right)}\right) \cdot \left(1 - \left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right)
\] |
metadata-eval [=>]18.5 | \[ \left(\sqrt{\frac{d}{h}} \cdot {\left(\frac{d}{\ell}\right)}^{\color{blue}{0.5}}\right) \cdot \left(1 - \left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right)
\] |
unpow1/2 [=>]18.5 | \[ \left(\sqrt{\frac{d}{h}} \cdot \color{blue}{\sqrt{\frac{d}{\ell}}}\right) \cdot \left(1 - \left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right)
\] |
associate-*l* [=>]18.5 | \[ \left(\sqrt{\frac{d}{h}} \cdot \sqrt{\frac{d}{\ell}}\right) \cdot \left(1 - \color{blue}{\frac{1}{2} \cdot \left({\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2} \cdot \frac{h}{\ell}\right)}\right)
\] |
metadata-eval [=>]18.5 | \[ \left(\sqrt{\frac{d}{h}} \cdot \sqrt{\frac{d}{\ell}}\right) \cdot \left(1 - \color{blue}{0.5} \cdot \left({\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2} \cdot \frac{h}{\ell}\right)\right)
\] |
times-frac [=>]19.3 | \[ \left(\sqrt{\frac{d}{h}} \cdot \sqrt{\frac{d}{\ell}}\right) \cdot \left(1 - 0.5 \cdot \left({\color{blue}{\left(\frac{M}{2} \cdot \frac{D}{d}\right)}}^{2} \cdot \frac{h}{\ell}\right)\right)
\] |
Applied egg-rr18.4
Taylor expanded in d around -inf 25.7
Simplified10.3
[Start]25.7 | \[ 0.125 \cdot \left(\frac{{D}^{2} \cdot {M}^{2}}{d} \cdot \sqrt{\frac{h}{{\ell}^{3}}}\right) + -1 \cdot \left(d \cdot \sqrt{\frac{1}{\ell \cdot h}}\right)
\] |
|---|---|
associate-*r* [=>]25.7 | \[ \color{blue}{\left(0.125 \cdot \frac{{D}^{2} \cdot {M}^{2}}{d}\right) \cdot \sqrt{\frac{h}{{\ell}^{3}}}} + -1 \cdot \left(d \cdot \sqrt{\frac{1}{\ell \cdot h}}\right)
\] |
fma-def [=>]25.7 | \[ \color{blue}{\mathsf{fma}\left(0.125 \cdot \frac{{D}^{2} \cdot {M}^{2}}{d}, \sqrt{\frac{h}{{\ell}^{3}}}, -1 \cdot \left(d \cdot \sqrt{\frac{1}{\ell \cdot h}}\right)\right)}
\] |
*-commutative [=>]25.7 | \[ \mathsf{fma}\left(\color{blue}{\frac{{D}^{2} \cdot {M}^{2}}{d} \cdot 0.125}, \sqrt{\frac{h}{{\ell}^{3}}}, -1 \cdot \left(d \cdot \sqrt{\frac{1}{\ell \cdot h}}\right)\right)
\] |
associate-/l* [=>]25.5 | \[ \mathsf{fma}\left(\color{blue}{\frac{{D}^{2}}{\frac{d}{{M}^{2}}}} \cdot 0.125, \sqrt{\frac{h}{{\ell}^{3}}}, -1 \cdot \left(d \cdot \sqrt{\frac{1}{\ell \cdot h}}\right)\right)
\] |
unpow2 [=>]25.5 | \[ \mathsf{fma}\left(\frac{\color{blue}{D \cdot D}}{\frac{d}{{M}^{2}}} \cdot 0.125, \sqrt{\frac{h}{{\ell}^{3}}}, -1 \cdot \left(d \cdot \sqrt{\frac{1}{\ell \cdot h}}\right)\right)
\] |
associate-/l* [=>]19.9 | \[ \mathsf{fma}\left(\color{blue}{\frac{D}{\frac{\frac{d}{{M}^{2}}}{D}}} \cdot 0.125, \sqrt{\frac{h}{{\ell}^{3}}}, -1 \cdot \left(d \cdot \sqrt{\frac{1}{\ell \cdot h}}\right)\right)
\] |
unpow2 [=>]19.9 | \[ \mathsf{fma}\left(\frac{D}{\frac{\frac{d}{\color{blue}{M \cdot M}}}{D}} \cdot 0.125, \sqrt{\frac{h}{{\ell}^{3}}}, -1 \cdot \left(d \cdot \sqrt{\frac{1}{\ell \cdot h}}\right)\right)
\] |
associate-/r* [=>]15.4 | \[ \mathsf{fma}\left(\frac{D}{\frac{\color{blue}{\frac{\frac{d}{M}}{M}}}{D}} \cdot 0.125, \sqrt{\frac{h}{{\ell}^{3}}}, -1 \cdot \left(d \cdot \sqrt{\frac{1}{\ell \cdot h}}\right)\right)
\] |
associate-/l/ [=>]10.7 | \[ \mathsf{fma}\left(\frac{D}{\color{blue}{\frac{\frac{d}{M}}{D \cdot M}}} \cdot 0.125, \sqrt{\frac{h}{{\ell}^{3}}}, -1 \cdot \left(d \cdot \sqrt{\frac{1}{\ell \cdot h}}\right)\right)
\] |
*-commutative [=>]10.7 | \[ \mathsf{fma}\left(\frac{D}{\frac{\frac{d}{M}}{D \cdot M}} \cdot 0.125, \sqrt{\frac{h}{{\ell}^{3}}}, -1 \cdot \color{blue}{\left(\sqrt{\frac{1}{\ell \cdot h}} \cdot d\right)}\right)
\] |
mul-1-neg [=>]10.7 | \[ \mathsf{fma}\left(\frac{D}{\frac{\frac{d}{M}}{D \cdot M}} \cdot 0.125, \sqrt{\frac{h}{{\ell}^{3}}}, \color{blue}{-\sqrt{\frac{1}{\ell \cdot h}} \cdot d}\right)
\] |
*-commutative [<=]10.7 | \[ \mathsf{fma}\left(\frac{D}{\frac{\frac{d}{M}}{D \cdot M}} \cdot 0.125, \sqrt{\frac{h}{{\ell}^{3}}}, -\color{blue}{d \cdot \sqrt{\frac{1}{\ell \cdot h}}}\right)
\] |
distribute-rgt-neg-in [=>]10.7 | \[ \mathsf{fma}\left(\frac{D}{\frac{\frac{d}{M}}{D \cdot M}} \cdot 0.125, \sqrt{\frac{h}{{\ell}^{3}}}, \color{blue}{d \cdot \left(-\sqrt{\frac{1}{\ell \cdot h}}\right)}\right)
\] |
associate-/r* [=>]10.3 | \[ \mathsf{fma}\left(\frac{D}{\frac{\frac{d}{M}}{D \cdot M}} \cdot 0.125, \sqrt{\frac{h}{{\ell}^{3}}}, d \cdot \left(-\sqrt{\color{blue}{\frac{\frac{1}{\ell}}{h}}}\right)\right)
\] |
if -2.70000000000000005e-11 < l < -5.50000000000000031e-108Initial program 20.4
Simplified21.1
[Start]20.4 | \[ \left({\left(\frac{d}{h}\right)}^{\left(\frac{1}{2}\right)} \cdot {\left(\frac{d}{\ell}\right)}^{\left(\frac{1}{2}\right)}\right) \cdot \left(1 - \left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right)
\] |
|---|---|
metadata-eval [=>]20.4 | \[ \left({\left(\frac{d}{h}\right)}^{\color{blue}{0.5}} \cdot {\left(\frac{d}{\ell}\right)}^{\left(\frac{1}{2}\right)}\right) \cdot \left(1 - \left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right)
\] |
unpow1/2 [=>]20.4 | \[ \left(\color{blue}{\sqrt{\frac{d}{h}}} \cdot {\left(\frac{d}{\ell}\right)}^{\left(\frac{1}{2}\right)}\right) \cdot \left(1 - \left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right)
\] |
metadata-eval [=>]20.4 | \[ \left(\sqrt{\frac{d}{h}} \cdot {\left(\frac{d}{\ell}\right)}^{\color{blue}{0.5}}\right) \cdot \left(1 - \left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right)
\] |
unpow1/2 [=>]20.4 | \[ \left(\sqrt{\frac{d}{h}} \cdot \color{blue}{\sqrt{\frac{d}{\ell}}}\right) \cdot \left(1 - \left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right)
\] |
associate-*l* [=>]20.4 | \[ \left(\sqrt{\frac{d}{h}} \cdot \sqrt{\frac{d}{\ell}}\right) \cdot \left(1 - \color{blue}{\frac{1}{2} \cdot \left({\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2} \cdot \frac{h}{\ell}\right)}\right)
\] |
metadata-eval [=>]20.4 | \[ \left(\sqrt{\frac{d}{h}} \cdot \sqrt{\frac{d}{\ell}}\right) \cdot \left(1 - \color{blue}{0.5} \cdot \left({\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2} \cdot \frac{h}{\ell}\right)\right)
\] |
times-frac [=>]21.1 | \[ \left(\sqrt{\frac{d}{h}} \cdot \sqrt{\frac{d}{\ell}}\right) \cdot \left(1 - 0.5 \cdot \left({\color{blue}{\left(\frac{M}{2} \cdot \frac{D}{d}\right)}}^{2} \cdot \frac{h}{\ell}\right)\right)
\] |
Applied egg-rr20.4
Simplified20.5
[Start]20.4 | \[ \left(\sqrt{\frac{d}{h}} \cdot \sqrt{\frac{d}{\ell}}\right) \cdot \left(1 - 0.5 \cdot {\left(\left(\frac{M}{2} \cdot \frac{D}{d}\right) \cdot \sqrt{\frac{h}{\ell}}\right)}^{2}\right)
\] |
|---|---|
associate-/r/ [<=]20.5 | \[ \left(\sqrt{\frac{d}{h}} \cdot \sqrt{\frac{d}{\ell}}\right) \cdot \left(1 - 0.5 \cdot {\left(\color{blue}{\frac{M}{\frac{2}{\frac{D}{d}}}} \cdot \sqrt{\frac{h}{\ell}}\right)}^{2}\right)
\] |
if -5.50000000000000031e-108 < l < -3.999999999999988e-310Initial program 32.7
Simplified33.3
[Start]32.7 | \[ \left({\left(\frac{d}{h}\right)}^{\left(\frac{1}{2}\right)} \cdot {\left(\frac{d}{\ell}\right)}^{\left(\frac{1}{2}\right)}\right) \cdot \left(1 - \left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right)
\] |
|---|---|
metadata-eval [=>]32.7 | \[ \left({\left(\frac{d}{h}\right)}^{\color{blue}{0.5}} \cdot {\left(\frac{d}{\ell}\right)}^{\left(\frac{1}{2}\right)}\right) \cdot \left(1 - \left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right)
\] |
unpow1/2 [=>]32.7 | \[ \left(\color{blue}{\sqrt{\frac{d}{h}}} \cdot {\left(\frac{d}{\ell}\right)}^{\left(\frac{1}{2}\right)}\right) \cdot \left(1 - \left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right)
\] |
metadata-eval [=>]32.7 | \[ \left(\sqrt{\frac{d}{h}} \cdot {\left(\frac{d}{\ell}\right)}^{\color{blue}{0.5}}\right) \cdot \left(1 - \left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right)
\] |
unpow1/2 [=>]32.7 | \[ \left(\sqrt{\frac{d}{h}} \cdot \color{blue}{\sqrt{\frac{d}{\ell}}}\right) \cdot \left(1 - \left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right)
\] |
associate-*l* [=>]32.7 | \[ \left(\sqrt{\frac{d}{h}} \cdot \sqrt{\frac{d}{\ell}}\right) \cdot \left(1 - \color{blue}{\frac{1}{2} \cdot \left({\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2} \cdot \frac{h}{\ell}\right)}\right)
\] |
metadata-eval [=>]32.7 | \[ \left(\sqrt{\frac{d}{h}} \cdot \sqrt{\frac{d}{\ell}}\right) \cdot \left(1 - \color{blue}{0.5} \cdot \left({\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2} \cdot \frac{h}{\ell}\right)\right)
\] |
times-frac [=>]33.3 | \[ \left(\sqrt{\frac{d}{h}} \cdot \sqrt{\frac{d}{\ell}}\right) \cdot \left(1 - 0.5 \cdot \left({\color{blue}{\left(\frac{M}{2} \cdot \frac{D}{d}\right)}}^{2} \cdot \frac{h}{\ell}\right)\right)
\] |
Applied egg-rr26.7
Applied egg-rr13.1
if -3.999999999999988e-310 < l Initial program 27.0
Simplified27.3
[Start]27.0 | \[ \left({\left(\frac{d}{h}\right)}^{\left(\frac{1}{2}\right)} \cdot {\left(\frac{d}{\ell}\right)}^{\left(\frac{1}{2}\right)}\right) \cdot \left(1 - \left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right)
\] |
|---|---|
associate-*l* [=>]27.1 | \[ \color{blue}{{\left(\frac{d}{h}\right)}^{\left(\frac{1}{2}\right)} \cdot \left({\left(\frac{d}{\ell}\right)}^{\left(\frac{1}{2}\right)} \cdot \left(1 - \left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right)\right)}
\] |
metadata-eval [=>]27.1 | \[ {\left(\frac{d}{h}\right)}^{\color{blue}{0.5}} \cdot \left({\left(\frac{d}{\ell}\right)}^{\left(\frac{1}{2}\right)} \cdot \left(1 - \left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right)\right)
\] |
unpow1/2 [=>]27.1 | \[ \color{blue}{\sqrt{\frac{d}{h}}} \cdot \left({\left(\frac{d}{\ell}\right)}^{\left(\frac{1}{2}\right)} \cdot \left(1 - \left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right)\right)
\] |
metadata-eval [=>]27.1 | \[ \sqrt{\frac{d}{h}} \cdot \left({\left(\frac{d}{\ell}\right)}^{\color{blue}{0.5}} \cdot \left(1 - \left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right)\right)
\] |
unpow1/2 [=>]27.1 | \[ \sqrt{\frac{d}{h}} \cdot \left(\color{blue}{\sqrt{\frac{d}{\ell}}} \cdot \left(1 - \left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right)\right)
\] |
sub-neg [=>]27.1 | \[ \sqrt{\frac{d}{h}} \cdot \left(\sqrt{\frac{d}{\ell}} \cdot \color{blue}{\left(1 + \left(-\left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right)\right)}\right)
\] |
+-commutative [=>]27.1 | \[ \sqrt{\frac{d}{h}} \cdot \left(\sqrt{\frac{d}{\ell}} \cdot \color{blue}{\left(\left(-\left(\frac{1}{2} \cdot {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2}\right) \cdot \frac{h}{\ell}\right) + 1\right)}\right)
\] |
associate-*l* [=>]27.1 | \[ \sqrt{\frac{d}{h}} \cdot \left(\sqrt{\frac{d}{\ell}} \cdot \left(\left(-\color{blue}{\frac{1}{2} \cdot \left({\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2} \cdot \frac{h}{\ell}\right)}\right) + 1\right)\right)
\] |
distribute-lft-neg-in [=>]27.1 | \[ \sqrt{\frac{d}{h}} \cdot \left(\sqrt{\frac{d}{\ell}} \cdot \left(\color{blue}{\left(-\frac{1}{2}\right) \cdot \left({\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2} \cdot \frac{h}{\ell}\right)} + 1\right)\right)
\] |
fma-def [=>]27.1 | \[ \sqrt{\frac{d}{h}} \cdot \left(\sqrt{\frac{d}{\ell}} \cdot \color{blue}{\mathsf{fma}\left(-\frac{1}{2}, {\left(\frac{M \cdot D}{2 \cdot d}\right)}^{2} \cdot \frac{h}{\ell}, 1\right)}\right)
\] |
Applied egg-rr16.8
Simplified16.8
[Start]16.8 | \[ \frac{d}{\sqrt{h} \cdot \sqrt{\ell}} + \left(\left({\left(D \cdot \frac{\frac{M}{d}}{2}\right)}^{2} \cdot \frac{h}{\ell}\right) \cdot -0.5\right) \cdot \frac{d}{\sqrt{h} \cdot \sqrt{\ell}}
\] |
|---|---|
distribute-rgt1-in [=>]16.8 | \[ \color{blue}{\left(\left({\left(D \cdot \frac{\frac{M}{d}}{2}\right)}^{2} \cdot \frac{h}{\ell}\right) \cdot -0.5 + 1\right) \cdot \frac{d}{\sqrt{h} \cdot \sqrt{\ell}}}
\] |
*-commutative [=>]16.8 | \[ \left(\color{blue}{-0.5 \cdot \left({\left(D \cdot \frac{\frac{M}{d}}{2}\right)}^{2} \cdot \frac{h}{\ell}\right)} + 1\right) \cdot \frac{d}{\sqrt{h} \cdot \sqrt{\ell}}
\] |
fma-udef [<=]16.8 | \[ \color{blue}{\mathsf{fma}\left(-0.5, {\left(D \cdot \frac{\frac{M}{d}}{2}\right)}^{2} \cdot \frac{h}{\ell}, 1\right)} \cdot \frac{d}{\sqrt{h} \cdot \sqrt{\ell}}
\] |
*-commutative [<=]16.8 | \[ \color{blue}{\frac{d}{\sqrt{h} \cdot \sqrt{\ell}} \cdot \mathsf{fma}\left(-0.5, {\left(D \cdot \frac{\frac{M}{d}}{2}\right)}^{2} \cdot \frac{h}{\ell}, 1\right)}
\] |
*-commutative [=>]16.8 | \[ \frac{d}{\color{blue}{\sqrt{\ell} \cdot \sqrt{h}}} \cdot \mathsf{fma}\left(-0.5, {\left(D \cdot \frac{\frac{M}{d}}{2}\right)}^{2} \cdot \frac{h}{\ell}, 1\right)
\] |
associate-/l/ [=>]16.8 | \[ \frac{d}{\sqrt{\ell} \cdot \sqrt{h}} \cdot \mathsf{fma}\left(-0.5, {\left(D \cdot \color{blue}{\frac{M}{2 \cdot d}}\right)}^{2} \cdot \frac{h}{\ell}, 1\right)
\] |
Final simplification17.0
| Alternative 1 | |
|---|---|
| Error | 17.2 |
| Cost | 27792 |
| Alternative 2 | |
|---|---|
| Error | 17.3 |
| Cost | 27660 |
| Alternative 3 | |
|---|---|
| Error | 19.6 |
| Cost | 27532 |
| Alternative 4 | |
|---|---|
| Error | 20.0 |
| Cost | 27532 |
| Alternative 5 | |
|---|---|
| Error | 20.3 |
| Cost | 27408 |
| Alternative 6 | |
|---|---|
| Error | 19.2 |
| Cost | 27336 |
| Alternative 7 | |
|---|---|
| Error | 21.1 |
| Cost | 21516 |
| Alternative 8 | |
|---|---|
| Error | 22.0 |
| Cost | 20868 |
| Alternative 9 | |
|---|---|
| Error | 21.3 |
| Cost | 20868 |
| Alternative 10 | |
|---|---|
| Error | 21.9 |
| Cost | 20172 |
| Alternative 11 | |
|---|---|
| Error | 22.0 |
| Cost | 20040 |
| Alternative 12 | |
|---|---|
| Error | 22.0 |
| Cost | 20040 |
| Alternative 13 | |
|---|---|
| Error | 22.8 |
| Cost | 15316 |
| Alternative 14 | |
|---|---|
| Error | 23.0 |
| Cost | 15316 |
| Alternative 15 | |
|---|---|
| Error | 25.0 |
| Cost | 13648 |
| Alternative 16 | |
|---|---|
| Error | 23.1 |
| Cost | 13648 |
| Alternative 17 | |
|---|---|
| Error | 23.5 |
| Cost | 13512 |
| Alternative 18 | |
|---|---|
| Error | 23.7 |
| Cost | 13384 |
| Alternative 19 | |
|---|---|
| Error | 27.5 |
| Cost | 7244 |
| Alternative 20 | |
|---|---|
| Error | 27.6 |
| Cost | 7244 |
| Alternative 21 | |
|---|---|
| Error | 33.4 |
| Cost | 7113 |
| Alternative 22 | |
|---|---|
| Error | 44.1 |
| Cost | 6784 |
| Alternative 23 | |
|---|---|
| Error | 44.1 |
| Cost | 6720 |
herbie shell --seed 2023011
(FPCore (d h l M D)
:name "Henrywood and Agarwal, Equation (12)"
:precision binary64
(* (* (pow (/ d h) (/ 1.0 2.0)) (pow (/ d l) (/ 1.0 2.0))) (- 1.0 (* (* (/ 1.0 2.0) (pow (/ (* M D) (* 2.0 d)) 2.0)) (/ h l)))))