| Alternative 1 | |
|---|---|
| Error | 9.7 |
| Cost | 34132 |
(FPCore (x l t) :precision binary64 (/ (* (sqrt 2.0) t) (sqrt (- (* (/ (+ x 1.0) (- x 1.0)) (+ (* l l) (* 2.0 (* t t)))) (* l l)))))
(FPCore (x l t)
:precision binary64
(let* ((t_1 (fma 2.0 (* t t) (* l l)))
(t_2 (* 2.0 t_1))
(t_3 (* t (sqrt 2.0)))
(t_4 (+ 1.0 (/ 2.0 x)))
(t_5 (+ (/ t (/ x t)) (* t t)))
(t_6 (sqrt (/ (+ -1.0 x) (+ x 1.0))))
(t_7 (/ l (/ x l))))
(if (<= t -1.5e+39)
(- t_6)
(if (<= t -9e-253)
(/ t_3 (sqrt (+ t_7 (fma 2.0 t_5 (* l (/ l x))))))
(if (<= t -4e-280)
(/
t_3
(-
(fma
t
(sqrt (* 2.0 t_4))
(* (sqrt (/ 0.5 t_4)) (/ (* l (/ l t)) x)))))
(if (<= t 7.6e-306)
(/ t_3 (* l (sqrt (/ 2.0 x))))
(if (<= t 2.4e-155)
(/ t_3 (fma t (sqrt 2.0) (* (/ 0.5 (sqrt 2.0)) (/ t_2 (* t x)))))
(if (<= t 9e+34)
(/
t_3
(sqrt (+ t_7 (+ (fma 2.0 t_5 (/ t_2 (* x x))) (/ t_1 x)))))
t_6))))))))double code(double x, double l, double t) {
return (sqrt(2.0) * t) / sqrt(((((x + 1.0) / (x - 1.0)) * ((l * l) + (2.0 * (t * t)))) - (l * l)));
}
double code(double x, double l, double t) {
double t_1 = fma(2.0, (t * t), (l * l));
double t_2 = 2.0 * t_1;
double t_3 = t * sqrt(2.0);
double t_4 = 1.0 + (2.0 / x);
double t_5 = (t / (x / t)) + (t * t);
double t_6 = sqrt(((-1.0 + x) / (x + 1.0)));
double t_7 = l / (x / l);
double tmp;
if (t <= -1.5e+39) {
tmp = -t_6;
} else if (t <= -9e-253) {
tmp = t_3 / sqrt((t_7 + fma(2.0, t_5, (l * (l / x)))));
} else if (t <= -4e-280) {
tmp = t_3 / -fma(t, sqrt((2.0 * t_4)), (sqrt((0.5 / t_4)) * ((l * (l / t)) / x)));
} else if (t <= 7.6e-306) {
tmp = t_3 / (l * sqrt((2.0 / x)));
} else if (t <= 2.4e-155) {
tmp = t_3 / fma(t, sqrt(2.0), ((0.5 / sqrt(2.0)) * (t_2 / (t * x))));
} else if (t <= 9e+34) {
tmp = t_3 / sqrt((t_7 + (fma(2.0, t_5, (t_2 / (x * x))) + (t_1 / x))));
} else {
tmp = t_6;
}
return tmp;
}
function code(x, l, t) return Float64(Float64(sqrt(2.0) * t) / sqrt(Float64(Float64(Float64(Float64(x + 1.0) / Float64(x - 1.0)) * Float64(Float64(l * l) + Float64(2.0 * Float64(t * t)))) - Float64(l * l)))) end
function code(x, l, t) t_1 = fma(2.0, Float64(t * t), Float64(l * l)) t_2 = Float64(2.0 * t_1) t_3 = Float64(t * sqrt(2.0)) t_4 = Float64(1.0 + Float64(2.0 / x)) t_5 = Float64(Float64(t / Float64(x / t)) + Float64(t * t)) t_6 = sqrt(Float64(Float64(-1.0 + x) / Float64(x + 1.0))) t_7 = Float64(l / Float64(x / l)) tmp = 0.0 if (t <= -1.5e+39) tmp = Float64(-t_6); elseif (t <= -9e-253) tmp = Float64(t_3 / sqrt(Float64(t_7 + fma(2.0, t_5, Float64(l * Float64(l / x)))))); elseif (t <= -4e-280) tmp = Float64(t_3 / Float64(-fma(t, sqrt(Float64(2.0 * t_4)), Float64(sqrt(Float64(0.5 / t_4)) * Float64(Float64(l * Float64(l / t)) / x))))); elseif (t <= 7.6e-306) tmp = Float64(t_3 / Float64(l * sqrt(Float64(2.0 / x)))); elseif (t <= 2.4e-155) tmp = Float64(t_3 / fma(t, sqrt(2.0), Float64(Float64(0.5 / sqrt(2.0)) * Float64(t_2 / Float64(t * x))))); elseif (t <= 9e+34) tmp = Float64(t_3 / sqrt(Float64(t_7 + Float64(fma(2.0, t_5, Float64(t_2 / Float64(x * x))) + Float64(t_1 / x))))); else tmp = t_6; end return tmp end
code[x_, l_, t_] := N[(N[(N[Sqrt[2.0], $MachinePrecision] * t), $MachinePrecision] / N[Sqrt[N[(N[(N[(N[(x + 1.0), $MachinePrecision] / N[(x - 1.0), $MachinePrecision]), $MachinePrecision] * N[(N[(l * l), $MachinePrecision] + N[(2.0 * N[(t * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(l * l), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
code[x_, l_, t_] := Block[{t$95$1 = N[(2.0 * N[(t * t), $MachinePrecision] + N[(l * l), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(2.0 * t$95$1), $MachinePrecision]}, Block[{t$95$3 = N[(t * N[Sqrt[2.0], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(1.0 + N[(2.0 / x), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(N[(t / N[(x / t), $MachinePrecision]), $MachinePrecision] + N[(t * t), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[Sqrt[N[(N[(-1.0 + x), $MachinePrecision] / N[(x + 1.0), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$7 = N[(l / N[(x / l), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t, -1.5e+39], (-t$95$6), If[LessEqual[t, -9e-253], N[(t$95$3 / N[Sqrt[N[(t$95$7 + N[(2.0 * t$95$5 + N[(l * N[(l / x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision], If[LessEqual[t, -4e-280], N[(t$95$3 / (-N[(t * N[Sqrt[N[(2.0 * t$95$4), $MachinePrecision]], $MachinePrecision] + N[(N[Sqrt[N[(0.5 / t$95$4), $MachinePrecision]], $MachinePrecision] * N[(N[(l * N[(l / t), $MachinePrecision]), $MachinePrecision] / x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision])), $MachinePrecision], If[LessEqual[t, 7.6e-306], N[(t$95$3 / N[(l * N[Sqrt[N[(2.0 / x), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 2.4e-155], N[(t$95$3 / N[(t * N[Sqrt[2.0], $MachinePrecision] + N[(N[(0.5 / N[Sqrt[2.0], $MachinePrecision]), $MachinePrecision] * N[(t$95$2 / N[(t * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 9e+34], N[(t$95$3 / N[Sqrt[N[(t$95$7 + N[(N[(2.0 * t$95$5 + N[(t$95$2 / N[(x * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t$95$1 / x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision], t$95$6]]]]]]]]]]]]]
\frac{\sqrt{2} \cdot t}{\sqrt{\frac{x + 1}{x - 1} \cdot \left(\ell \cdot \ell + 2 \cdot \left(t \cdot t\right)\right) - \ell \cdot \ell}}
\begin{array}{l}
t_1 := \mathsf{fma}\left(2, t \cdot t, \ell \cdot \ell\right)\\
t_2 := 2 \cdot t_1\\
t_3 := t \cdot \sqrt{2}\\
t_4 := 1 + \frac{2}{x}\\
t_5 := \frac{t}{\frac{x}{t}} + t \cdot t\\
t_6 := \sqrt{\frac{-1 + x}{x + 1}}\\
t_7 := \frac{\ell}{\frac{x}{\ell}}\\
\mathbf{if}\;t \leq -1.5 \cdot 10^{+39}:\\
\;\;\;\;-t_6\\
\mathbf{elif}\;t \leq -9 \cdot 10^{-253}:\\
\;\;\;\;\frac{t_3}{\sqrt{t_7 + \mathsf{fma}\left(2, t_5, \ell \cdot \frac{\ell}{x}\right)}}\\
\mathbf{elif}\;t \leq -4 \cdot 10^{-280}:\\
\;\;\;\;\frac{t_3}{-\mathsf{fma}\left(t, \sqrt{2 \cdot t_4}, \sqrt{\frac{0.5}{t_4}} \cdot \frac{\ell \cdot \frac{\ell}{t}}{x}\right)}\\
\mathbf{elif}\;t \leq 7.6 \cdot 10^{-306}:\\
\;\;\;\;\frac{t_3}{\ell \cdot \sqrt{\frac{2}{x}}}\\
\mathbf{elif}\;t \leq 2.4 \cdot 10^{-155}:\\
\;\;\;\;\frac{t_3}{\mathsf{fma}\left(t, \sqrt{2}, \frac{0.5}{\sqrt{2}} \cdot \frac{t_2}{t \cdot x}\right)}\\
\mathbf{elif}\;t \leq 9 \cdot 10^{+34}:\\
\;\;\;\;\frac{t_3}{\sqrt{t_7 + \left(\mathsf{fma}\left(2, t_5, \frac{t_2}{x \cdot x}\right) + \frac{t_1}{x}\right)}}\\
\mathbf{else}:\\
\;\;\;\;t_6\\
\end{array}
if t < -1.5e39Initial program 43.1
Simplified43.2
Applied egg-rr43.1
Taylor expanded in t around inf 54.5
Simplified39.6
Taylor expanded in t around -inf 4.2
Simplified4.2
if -1.5e39 < t < -9.00000000000000057e-253Initial program 40.0
Taylor expanded in x around inf 17.2
Simplified17.2
Taylor expanded in t around 0 17.5
Simplified13.6
if -9.00000000000000057e-253 < t < -3.9999999999999998e-280Initial program 61.5
Taylor expanded in x around inf 35.6
Simplified35.5
Taylor expanded in t around -inf 22.1
Simplified22.0
if -3.9999999999999998e-280 < t < 7.6e-306Initial program 63.3
Taylor expanded in x around inf 29.1
Simplified29.2
Taylor expanded in t around 0 29.2
Simplified28.8
Taylor expanded in l around inf 29.1
Simplified29.1
Applied egg-rr29.8
if 7.6e-306 < t < 2.4e-155Initial program 61.5
Taylor expanded in x around inf 25.9
Simplified25.9
if 2.4e-155 < t < 9.0000000000000001e34Initial program 30.3
Taylor expanded in x around -inf 10.5
Simplified10.5
if 9.0000000000000001e34 < t Initial program 42.5
Simplified42.5
Applied egg-rr42.4
Taylor expanded in t around inf 53.6
Simplified38.4
Taylor expanded in t around 0 4.1
Final simplification9.7
| Alternative 1 | |
|---|---|
| Error | 9.7 |
| Cost | 34132 |
| Alternative 2 | |
|---|---|
| Error | 9.1 |
| Cost | 27788 |
| Alternative 3 | |
|---|---|
| Error | 9.4 |
| Cost | 21064 |
| Alternative 4 | |
|---|---|
| Error | 9.4 |
| Cost | 14544 |
| Alternative 5 | |
|---|---|
| Error | 14.5 |
| Cost | 13904 |
| Alternative 6 | |
|---|---|
| Error | 14.2 |
| Cost | 13904 |
| Alternative 7 | |
|---|---|
| Error | 14.6 |
| Cost | 13640 |
| Alternative 8 | |
|---|---|
| Error | 14.8 |
| Cost | 7308 |
| Alternative 9 | |
|---|---|
| Error | 34.9 |
| Cost | 6980 |
| Alternative 10 | |
|---|---|
| Error | 35.1 |
| Cost | 6852 |
| Alternative 11 | |
|---|---|
| Error | 38.8 |
| Cost | 704 |
| Alternative 12 | |
|---|---|
| Error | 38.9 |
| Cost | 320 |
| Alternative 13 | |
|---|---|
| Error | 39.1 |
| Cost | 64 |

herbie shell --seed 2022295
(FPCore (x l t)
:name "Toniolo and Linder, Equation (7)"
:precision binary64
(/ (* (sqrt 2.0) t) (sqrt (- (* (/ (+ x 1.0) (- x 1.0)) (+ (* l l) (* 2.0 (* t t)))) (* l l)))))