\frac{x \cdot e^{\left(y \cdot \log z + \left(t - 1\right) \cdot \log a\right) - b}}{y}
\begin{array}{l}
t_1 := \left(t - 1\right) \cdot \log a\\
\mathbf{if}\;t_1 \leq -1453183373067794000 \lor \neg \left(t_1 \leq -293.00410533057493\right):\\
\;\;\;\;\frac{x \cdot e^{\left(t_1 + y \cdot \log z\right) - b}}{y}\\
\mathbf{else}:\\
\;\;\;\;x \cdot \frac{\frac{{a}^{\left(t - 1\right)}}{e^{b}}}{y}\\
\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 (* (- t 1.0) (log a))))
(if (or (<= t_1 -1453183373067794000.0) (not (<= t_1 -293.00410533057493)))
(/ (* x (exp (- (+ t_1 (* y (log z))) b))) y)
(* x (/ (/ (pow a (- t 1.0)) (exp b)) y)))))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 = (t - 1.0) * log(a);
double tmp;
if ((t_1 <= -1453183373067794000.0) || !(t_1 <= -293.00410533057493)) {
tmp = (x * exp((t_1 + (y * log(z))) - b)) / y;
} else {
tmp = x * ((pow(a, (t - 1.0)) / exp(b)) / y);
}
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.2 |
|---|---|
| Target | 10.9 |
| Herbie | 2.0 |
if (*.f64 (-.f64 t 1) (log.f64 a)) < -1453183373067793900 or -293.00410533057493 < (*.f64 (-.f64 t 1) (log.f64 a)) Initial program 1.0
if -1453183373067793900 < (*.f64 (-.f64 t 1) (log.f64 a)) < -293.00410533057493Initial program 7.4
Applied *-un-lft-identity_binary647.4
Applied times-frac_binary642.3
Simplified2.3
Simplified5.6
Taylor expanded in y around 0 6.4
Final simplification2.0
herbie shell --seed 2022081
(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))