\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}
\mathbf{if}\;t \le -2.942253087011871 \cdot 10^{66}:\\
\;\;\;\;\frac{\sqrt{2} \cdot t}{\left(2 \cdot \left(\frac{t}{{\left(\sqrt{2}\right)}^{3} \cdot {x}^{2}} - \frac{t}{\sqrt{2} \cdot {x}^{2}}\right) - \sqrt{2} \cdot t\right) - 2 \cdot \frac{t}{\sqrt{2} \cdot x}}\\
\mathbf{elif}\;t \le 2.0467080239710555 \cdot 10^{93}:\\
\;\;\;\;\frac{\sqrt{2} \cdot t}{\sqrt{4 \cdot \frac{{t}^{2}}{x} + 2 \cdot \left({t}^{2} + \frac{\ell}{\frac{x}{\ell}}\right)}}\\
\mathbf{else}:\\
\;\;\;\;\frac{\sqrt{2} \cdot t}{2 \cdot \left(\frac{t}{\sqrt{2} \cdot {x}^{2}} + \frac{t}{\sqrt{2} \cdot x}\right) + \left(\sqrt{2} \cdot t - 2 \cdot \frac{t}{{\left(\sqrt{2}\right)}^{3} \cdot {x}^{2}}\right)}\\
\end{array}double f(double x, double l, double t) {
double r34203 = 2.0;
double r34204 = sqrt(r34203);
double r34205 = t;
double r34206 = r34204 * r34205;
double r34207 = x;
double r34208 = 1.0;
double r34209 = r34207 + r34208;
double r34210 = r34207 - r34208;
double r34211 = r34209 / r34210;
double r34212 = l;
double r34213 = r34212 * r34212;
double r34214 = r34205 * r34205;
double r34215 = r34203 * r34214;
double r34216 = r34213 + r34215;
double r34217 = r34211 * r34216;
double r34218 = r34217 - r34213;
double r34219 = sqrt(r34218);
double r34220 = r34206 / r34219;
return r34220;
}
double f(double x, double l, double t) {
double r34221 = t;
double r34222 = -2.9422530870118713e+66;
bool r34223 = r34221 <= r34222;
double r34224 = 2.0;
double r34225 = sqrt(r34224);
double r34226 = r34225 * r34221;
double r34227 = 3.0;
double r34228 = pow(r34225, r34227);
double r34229 = x;
double r34230 = 2.0;
double r34231 = pow(r34229, r34230);
double r34232 = r34228 * r34231;
double r34233 = r34221 / r34232;
double r34234 = r34225 * r34231;
double r34235 = r34221 / r34234;
double r34236 = r34233 - r34235;
double r34237 = r34224 * r34236;
double r34238 = r34237 - r34226;
double r34239 = r34225 * r34229;
double r34240 = r34221 / r34239;
double r34241 = r34224 * r34240;
double r34242 = r34238 - r34241;
double r34243 = r34226 / r34242;
double r34244 = 2.0467080239710555e+93;
bool r34245 = r34221 <= r34244;
double r34246 = 4.0;
double r34247 = pow(r34221, r34230);
double r34248 = r34247 / r34229;
double r34249 = r34246 * r34248;
double r34250 = l;
double r34251 = r34229 / r34250;
double r34252 = r34250 / r34251;
double r34253 = r34247 + r34252;
double r34254 = r34224 * r34253;
double r34255 = r34249 + r34254;
double r34256 = sqrt(r34255);
double r34257 = r34226 / r34256;
double r34258 = r34235 + r34240;
double r34259 = r34224 * r34258;
double r34260 = r34224 * r34233;
double r34261 = r34226 - r34260;
double r34262 = r34259 + r34261;
double r34263 = r34226 / r34262;
double r34264 = r34245 ? r34257 : r34263;
double r34265 = r34223 ? r34243 : r34264;
return r34265;
}



Bits error versus x



Bits error versus l



Bits error versus t
Results
if t < -2.9422530870118713e+66Initial program 46.2
Taylor expanded around -inf 3.5
Simplified3.4
if -2.9422530870118713e+66 < t < 2.0467080239710555e+93Initial program 38.7
Taylor expanded around inf 17.8
Simplified17.8
rmApplied unpow217.8
Applied associate-/l*14.1
if 2.0467080239710555e+93 < t Initial program 50.7
Taylor expanded around inf 2.8
Simplified2.8
Final simplification9.3
herbie shell --seed 2020089
(FPCore (x l t)
:name "Toniolo and Linder, Equation (7)"
:precision binary64
(/ (* (sqrt 2) t) (sqrt (- (* (/ (+ x 1) (- x 1)) (+ (* l l) (* 2 (* t t)))) (* l l)))))