x \cdot \left(\frac{y}{z} - \frac{t}{1 - z}\right)\begin{array}{l}
\mathbf{if}\;\frac{y}{z} - \frac{t}{1 - z} \le 5.623781674200427894596744847477299567005 \cdot 10^{272}:\\
\;\;\;\;\mathsf{fma}\left(\frac{x}{1}, \frac{y}{z}, x \cdot \left(-\frac{t}{1 - z}\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{\frac{z}{x \cdot y}} + x \cdot \left(-\frac{t}{1 - z}\right)\\
\end{array}double f(double x, double y, double z, double t) {
double r375060 = x;
double r375061 = y;
double r375062 = z;
double r375063 = r375061 / r375062;
double r375064 = t;
double r375065 = 1.0;
double r375066 = r375065 - r375062;
double r375067 = r375064 / r375066;
double r375068 = r375063 - r375067;
double r375069 = r375060 * r375068;
return r375069;
}
double f(double x, double y, double z, double t) {
double r375070 = y;
double r375071 = z;
double r375072 = r375070 / r375071;
double r375073 = t;
double r375074 = 1.0;
double r375075 = r375074 - r375071;
double r375076 = r375073 / r375075;
double r375077 = r375072 - r375076;
double r375078 = 5.623781674200428e+272;
bool r375079 = r375077 <= r375078;
double r375080 = x;
double r375081 = 1.0;
double r375082 = r375080 / r375081;
double r375083 = -r375076;
double r375084 = r375080 * r375083;
double r375085 = fma(r375082, r375072, r375084);
double r375086 = r375080 * r375070;
double r375087 = r375071 / r375086;
double r375088 = r375081 / r375087;
double r375089 = r375088 + r375084;
double r375090 = r375079 ? r375085 : r375089;
return r375090;
}




Bits error versus x




Bits error versus y




Bits error versus z




Bits error versus t
| Original | 4.8 |
|---|---|
| Target | 4.4 |
| Herbie | 3.1 |
if (- (/ y z) (/ t (- 1.0 z))) < 5.623781674200428e+272Initial program 3.2
rmApplied div-inv3.3
Applied fma-neg3.3
rmApplied fma-udef3.3
Applied distribute-lft-in3.3
Simplified5.9
rmApplied *-un-lft-identity5.9
Applied times-frac3.2
Applied fma-def3.2
if 5.623781674200428e+272 < (- (/ y z) (/ t (- 1.0 z))) Initial program 38.3
rmApplied div-inv38.4
Applied fma-neg38.4
rmApplied fma-udef38.4
Applied distribute-lft-in38.4
Simplified0.2
rmApplied clear-num0.3
Final simplification3.1
herbie shell --seed 2020001 +o rules:numerics
(FPCore (x y z t)
:name "Numeric.SpecFunctions:invIncompleteBetaWorker from math-functions-0.1.5.2, C"
:precision binary64
:herbie-target
(if (< (* x (- (/ y z) (/ t (- 1 z)))) -7.623226303312042e-196) (* x (- (/ y z) (* t (/ 1 (- 1 z))))) (if (< (* x (- (/ y z) (/ t (- 1 z)))) 1.4133944927702302e-211) (+ (/ (* y x) z) (- (/ (* t x) (- 1 z)))) (* x (- (/ y z) (* t (/ 1 (- 1 z)))))))
(* x (- (/ y z) (/ t (- 1 z)))))