\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 := 2 \cdot \frac{x}{-1 + x}\\
t_2 := t \cdot \sqrt{2}\\
\mathbf{if}\;t \leq -1.6842396497167515 \cdot 10^{-204}:\\
\;\;\;\;\frac{t_2}{-t \cdot \sqrt{2 \cdot \frac{1}{-1 + x} + t_1}}\\
\mathbf{elif}\;t \leq 8.646985996095733 \cdot 10^{-303}:\\
\;\;\;\;\frac{t_2}{-\ell \cdot \sqrt{\frac{2}{x} + \frac{2}{x \cdot x}}}\\
\mathbf{elif}\;t \leq 1.3270670518579223 \cdot 10^{+22}:\\
\;\;\;\;\begin{array}{l}
t_3 := \sqrt{2} \cdot x\\
\frac{t_2}{\mathsf{fma}\left(t, \sqrt{2}, \mathsf{fma}\left(2, \frac{t}{t_3}, \frac{\ell \cdot \ell}{t \cdot t_3}\right)\right)}
\end{array}\\
\mathbf{else}:\\
\;\;\;\;\frac{t_2}{t \cdot \sqrt{t_1 + \frac{2}{-1 + x}}}\\
\end{array}
(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 (* 2.0 (/ x (+ -1.0 x)))) (t_2 (* t (sqrt 2.0))))
(if (<= t -1.6842396497167515e-204)
(/ t_2 (- (* t (sqrt (+ (* 2.0 (/ 1.0 (+ -1.0 x))) t_1)))))
(if (<= t 8.646985996095733e-303)
(/ t_2 (- (* l (sqrt (+ (/ 2.0 x) (/ 2.0 (* x x)))))))
(if (<= t 1.3270670518579223e+22)
(let* ((t_3 (* (sqrt 2.0) x)))
(/
t_2
(fma t (sqrt 2.0) (fma 2.0 (/ t t_3) (/ (* l l) (* t t_3))))))
(/ t_2 (* t (sqrt (+ t_1 (/ 2.0 (+ -1.0 x)))))))))))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 = 2.0 * (x / (-1.0 + x));
double t_2 = t * sqrt(2.0);
double tmp;
if (t <= -1.6842396497167515e-204) {
tmp = t_2 / -(t * sqrt((2.0 * (1.0 / (-1.0 + x))) + t_1));
} else if (t <= 8.646985996095733e-303) {
tmp = t_2 / -(l * sqrt((2.0 / x) + (2.0 / (x * x))));
} else if (t <= 1.3270670518579223e+22) {
double t_3 = sqrt(2.0) * x;
tmp = t_2 / fma(t, sqrt(2.0), fma(2.0, (t / t_3), ((l * l) / (t * t_3))));
} else {
tmp = t_2 / (t * sqrt(t_1 + (2.0 / (-1.0 + x))));
}
return tmp;
}



Bits error versus x



Bits error versus l



Bits error versus t
if t < -1.68423964971675151e-204Initial program 39.2
Simplified39.2
Taylor expanded in t around -inf 10.3
if -1.68423964971675151e-204 < t < 8.646985996095733e-303Initial program 63.0
Simplified63.0
Taylor expanded in x around inf 35.9
Simplified35.9
Taylor expanded in l around -inf 33.8
Simplified33.8
if 8.646985996095733e-303 < t < 1.3270670518579223e22Initial program 43.3
Simplified43.3
Taylor expanded in x around inf 20.7
Simplified20.7
if 1.3270670518579223e22 < t Initial program 42.5
Simplified42.5
Taylor expanded in t around inf 3.8
Simplified3.8
Final simplification12.3
herbie shell --seed 2022055
(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)))))