\frac{x \cdot e^{\left(y \cdot \log z + \left(t - 1\right) \cdot \log a\right) - b}}{y}
\begin{array}{l}
t_1 := y \cdot \log z\\
t_2 := \frac{x \cdot e^{\left(t_1 + \left(t - 1\right) \cdot \log a\right) - b}}{y}\\
\mathbf{if}\;y \leq -9.962165043974629 \cdot 10^{-213}:\\
\;\;\;\;t_2\\
\mathbf{elif}\;y \leq 0.02142220437323121:\\
\;\;\;\;\frac{x \cdot e^{t_1}}{a \cdot \left(y \cdot e^{b + t \cdot \log \left(\frac{1}{a}\right)}\right)}\\
\mathbf{else}:\\
\;\;\;\;t_2\\
\end{array}
(FPCore (x y z t a b) :precision binary64 (/ (* x (exp (- (+ (* y (log z)) (* (- t 1.0) (log a))) b))) y))
(FPCore (x y z t a b)
:precision binary64
(let* ((t_1 (* y (log z)))
(t_2 (/ (* x (exp (- (+ t_1 (* (- t 1.0) (log a))) b))) y)))
(if (<= y -9.962165043974629e-213)
t_2
(if (<= y 0.02142220437323121)
(/ (* x (exp t_1)) (* a (* y (exp (+ b (* t (log (/ 1.0 a))))))))
t_2))))double code(double x, double y, double z, double t, double a, double b) {
return (x * exp((((y * log(z)) + ((t - 1.0) * log(a))) - b))) / y;
}
double code(double x, double y, double z, double t, double a, double b) {
double t_1 = y * log(z);
double t_2 = (x * exp(((t_1 + ((t - 1.0) * log(a))) - b))) / y;
double tmp;
if (y <= -9.962165043974629e-213) {
tmp = t_2;
} else if (y <= 0.02142220437323121) {
tmp = (x * exp(t_1)) / (a * (y * exp((b + (t * log((1.0 / a)))))));
} else {
tmp = t_2;
}
return tmp;
}




Bits error versus x




Bits error versus y




Bits error versus z




Bits error versus t




Bits error versus a




Bits error versus b
Results
| Original | 2.1 |
|---|---|
| Target | 10.9 |
| Herbie | 1.7 |
if y < -9.9621650439746286e-213 or 0.02142220437323121 < y Initial program 1.1
if -9.9621650439746286e-213 < y < 0.02142220437323121Initial program 4.1
Applied *-un-lft-identity_binary644.1
Applied times-frac_binary644.7
Simplified4.7
Simplified10.7
Applied unpow-prod-up_binary6410.6
Applied associate-/r*_binary6410.6
Applied pow-to-exp_binary6410.6
Applied div-exp_binary643.3
Taylor expanded in a around inf 3.0
Final simplification1.7
herbie shell --seed 2022125
(FPCore (x y z t a b)
:name "Numeric.SpecFunctions:incompleteBetaWorker from math-functions-0.1.5.2, A"
:precision binary64
:herbie-target
(if (< t -0.8845848504127471) (/ (* x (/ (pow a (- t 1.0)) y)) (- (+ b 1.0) (* y (log z)))) (if (< t 852031.2288374073) (/ (* (/ x y) (pow a (- t 1.0))) (exp (- b (* (log z) y)))) (/ (* x (/ (pow a (- t 1.0)) y)) (- (+ b 1.0) (* y (log z))))))
(/ (* x (exp (- (+ (* y (log z)) (* (- t 1.0) (log a))) b))) y))