\frac{x \cdot \left(\left(y - z\right) + 1\right)}{z}\begin{array}{l}
\mathbf{if}\;\frac{x \cdot \left(\left(y - z\right) + 1\right)}{z} \le -6.816496712142369533985882229910807371226 \cdot 10^{110} \lor \neg \left(\frac{x \cdot \left(\left(y - z\right) + 1\right)}{z} \le 4.167561421650247042871141348207441053161 \cdot 10^{-52}\right):\\
\;\;\;\;\mathsf{fma}\left(\frac{x}{z}, 1 + y, -x\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{x}{\mathsf{log1p}\left(\mathsf{expm1}\left(\frac{z}{\left(y - z\right) + 1}\right)\right)}\\
\end{array}double f(double x, double y, double z) {
double r694379 = x;
double r694380 = y;
double r694381 = z;
double r694382 = r694380 - r694381;
double r694383 = 1.0;
double r694384 = r694382 + r694383;
double r694385 = r694379 * r694384;
double r694386 = r694385 / r694381;
return r694386;
}
double f(double x, double y, double z) {
double r694387 = x;
double r694388 = y;
double r694389 = z;
double r694390 = r694388 - r694389;
double r694391 = 1.0;
double r694392 = r694390 + r694391;
double r694393 = r694387 * r694392;
double r694394 = r694393 / r694389;
double r694395 = -6.81649671214237e+110;
bool r694396 = r694394 <= r694395;
double r694397 = 4.167561421650247e-52;
bool r694398 = r694394 <= r694397;
double r694399 = !r694398;
bool r694400 = r694396 || r694399;
double r694401 = r694387 / r694389;
double r694402 = r694391 + r694388;
double r694403 = -r694387;
double r694404 = fma(r694401, r694402, r694403);
double r694405 = r694389 / r694392;
double r694406 = expm1(r694405);
double r694407 = log1p(r694406);
double r694408 = r694387 / r694407;
double r694409 = r694400 ? r694404 : r694408;
return r694409;
}




Bits error versus x




Bits error versus y




Bits error versus z
| Original | 10.9 |
|---|---|
| Target | 0.5 |
| Herbie | 0.4 |
if (/ (* x (+ (- y z) 1.0)) z) < -6.81649671214237e+110 or 4.167561421650247e-52 < (/ (* x (+ (- y z) 1.0)) z) Initial program 19.3
rmApplied associate-/l*4.9
rmApplied log1p-expm1-u4.9
rmApplied add-cube-cbrt5.6
Taylor expanded around 0 6.3
Simplified0.2
if -6.81649671214237e+110 < (/ (* x (+ (- y z) 1.0)) z) < 4.167561421650247e-52Initial program 0.2
rmApplied associate-/l*0.6
rmApplied log1p-expm1-u0.6
Final simplification0.4
herbie shell --seed 2020002 +o rules:numerics
(FPCore (x y z)
:name "Diagrams.TwoD.Segment.Bernstein:evaluateBernstein from diagrams-lib-1.3.0.3"
:precision binary64
:herbie-target
(if (< x -2.71483106713436e-162) (- (* (+ 1 y) (/ x z)) x) (if (< x 3.874108816439546e-197) (* (* x (+ (- y z) 1)) (/ 1 z)) (- (* (+ 1 y) (/ x z)) x)))
(/ (* x (+ (- y z) 1)) z))