\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 -9.9298837257048532 \cdot 10^{104}:\\
\;\;\;\;\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 8.9581535539268842:\\
\;\;\;\;\frac{t \cdot \sqrt{2}}{\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 r34249 = 2.0;
double r34250 = sqrt(r34249);
double r34251 = t;
double r34252 = r34250 * r34251;
double r34253 = x;
double r34254 = 1.0;
double r34255 = r34253 + r34254;
double r34256 = r34253 - r34254;
double r34257 = r34255 / r34256;
double r34258 = l;
double r34259 = r34258 * r34258;
double r34260 = r34251 * r34251;
double r34261 = r34249 * r34260;
double r34262 = r34259 + r34261;
double r34263 = r34257 * r34262;
double r34264 = r34263 - r34259;
double r34265 = sqrt(r34264);
double r34266 = r34252 / r34265;
return r34266;
}
double f(double x, double l, double t) {
double r34267 = t;
double r34268 = -9.929883725704853e+104;
bool r34269 = r34267 <= r34268;
double r34270 = 2.0;
double r34271 = sqrt(r34270);
double r34272 = r34271 * r34267;
double r34273 = 3.0;
double r34274 = pow(r34271, r34273);
double r34275 = x;
double r34276 = 2.0;
double r34277 = pow(r34275, r34276);
double r34278 = r34274 * r34277;
double r34279 = r34267 / r34278;
double r34280 = r34271 * r34277;
double r34281 = r34267 / r34280;
double r34282 = r34279 - r34281;
double r34283 = r34270 * r34282;
double r34284 = r34283 - r34272;
double r34285 = r34271 * r34275;
double r34286 = r34267 / r34285;
double r34287 = r34270 * r34286;
double r34288 = r34284 - r34287;
double r34289 = r34272 / r34288;
double r34290 = 8.958153553926884;
bool r34291 = r34267 <= r34290;
double r34292 = r34267 * r34271;
double r34293 = 4.0;
double r34294 = pow(r34267, r34276);
double r34295 = r34294 / r34275;
double r34296 = r34293 * r34295;
double r34297 = l;
double r34298 = r34275 / r34297;
double r34299 = r34297 / r34298;
double r34300 = r34294 + r34299;
double r34301 = r34270 * r34300;
double r34302 = r34296 + r34301;
double r34303 = sqrt(r34302);
double r34304 = r34292 / r34303;
double r34305 = r34281 + r34286;
double r34306 = r34270 * r34305;
double r34307 = r34270 * r34279;
double r34308 = r34272 - r34307;
double r34309 = r34306 + r34308;
double r34310 = r34272 / r34309;
double r34311 = r34291 ? r34304 : r34310;
double r34312 = r34269 ? r34289 : r34311;
return r34312;
}



Bits error versus x



Bits error versus l



Bits error versus t
Results
if t < -9.929883725704853e+104Initial program 52.8
Taylor expanded around -inf 3.1
Simplified3.1
if -9.929883725704853e+104 < t < 8.958153553926884Initial program 39.7
Taylor expanded around inf 17.6
Simplified17.6
rmApplied unpow217.6
Applied associate-/l*13.7
rmApplied *-commutative13.7
if 8.958153553926884 < t Initial program 40.9
Taylor expanded around inf 5.6
Simplified5.6
Final simplification9.2
herbie shell --seed 2020081
(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)))))