x - \frac{\log \left(\left(1 - y\right) + y \cdot e^{z}\right)}{t}\begin{array}{l}
\mathbf{if}\;e^{z} \leq 0:\\
\;\;\;\;x + \frac{-1}{\frac{t}{\log \left(e^{z} \cdot y + \left(1 - y\right)\right)}}\\
\mathbf{else}:\\
\;\;\;\;x - \left(1 \cdot \left(y \cdot \frac{z}{t}\right) + \left(\frac{\log 1}{t} + 0.5 \cdot \left(y \cdot \frac{z}{\frac{t}{z}}\right)\right)\right)\\
\end{array}(FPCore (x y z t) :precision binary64 (- x (/ (log (+ (- 1.0 y) (* y (exp z)))) t)))
(FPCore (x y z t)
:precision binary64
(if (<= (exp z) 0.0)
(+ x (/ -1.0 (/ t (log (+ (* (exp z) y) (- 1.0 y))))))
(-
x
(+
(* 1.0 (* y (/ z t)))
(+ (/ (log 1.0) t) (* 0.5 (* y (/ z (/ t z)))))))))double code(double x, double y, double z, double t) {
return ((double) (x - (((double) log(((double) (((double) (1.0 - y)) + ((double) (y * ((double) exp(z)))))))) / t)));
}
double code(double x, double y, double z, double t) {
double tmp;
if ((((double) exp(z)) <= 0.0)) {
tmp = ((double) (x + (-1.0 / (t / ((double) log(((double) (((double) (((double) exp(z)) * y)) + ((double) (1.0 - y))))))))));
} else {
tmp = ((double) (x - ((double) (((double) (1.0 * ((double) (y * (z / t))))) + ((double) ((((double) log(1.0)) / t) + ((double) (0.5 * ((double) (y * (z / (t / z))))))))))));
}
return tmp;
}




Bits error versus x




Bits error versus y




Bits error versus z




Bits error versus t
Results
| Original | 25.3 |
|---|---|
| Target | 16.4 |
| Herbie | 7.8 |
if (exp z) < 0.0Initial program Error: 11.5 bits
SimplifiedError: 11.5 bits
rmApplied clear-numError: 11.6 bits
SimplifiedError: 11.6 bits
if 0.0 < (exp z) Initial program Error: 30.8 bits
SimplifiedError: 16.1 bits
Taylor expanded around 0 Error: 7.2 bits
SimplifiedError: 6.3 bits
Final simplificationError: 7.8 bits
herbie shell --seed 2020204
(FPCore (x y z t)
:name "System.Random.MWC.Distributions:truncatedExp from mwc-random-0.13.3.2"
:precision binary64
:herbie-target
(if (< z -2.8874623088207947e+119) (- (- x (/ (/ (- 0.5) (* y t)) (* z z))) (* (/ (- 0.5) (* y t)) (/ (/ 2.0 z) (* z z)))) (- x (/ (log (+ 1.0 (* z y))) t)))
(- x (/ (log (+ (- 1.0 y) (* y (exp z)))) t)))