x - \frac{\log \left(\left(1 - y\right) + y \cdot e^{z}\right)}{t}\begin{array}{l}
\mathbf{if}\;z \le -0.0015621185568995256:\\
\;\;\;\;x - \sqrt{\log \left(\left(1 - y\right) + y \cdot e^{z}\right)} \cdot \frac{\sqrt{\log \left(\left(1 - y\right) + y \cdot e^{z}\right)}}{t}\\
\mathbf{elif}\;z \le 5.03284933011189963 \cdot 10^{-80}:\\
\;\;\;\;x - \left(1 \cdot \left(\frac{z}{\sqrt[3]{t} \cdot \sqrt[3]{t}} \cdot \frac{y}{\sqrt[3]{t}}\right) + \frac{\log 1}{t}\right)\\
\mathbf{else}:\\
\;\;\;\;x - \frac{\log \left(1 + y \cdot \left(\frac{1}{2} \cdot {z}^{2} + z\right)\right)}{t}\\
\end{array}double code(double x, double y, double z, double t) {
return (x - (log(((1.0 - y) + (y * exp(z)))) / t));
}
double code(double x, double y, double z, double t) {
double temp;
if ((z <= -0.0015621185568995256)) {
temp = (x - (sqrt(log(((1.0 - y) + (y * exp(z))))) * (sqrt(log(((1.0 - y) + (y * exp(z))))) / t)));
} else {
double temp_1;
if ((z <= 5.0328493301119e-80)) {
temp_1 = (x - ((1.0 * ((z / (cbrt(t) * cbrt(t))) * (y / cbrt(t)))) + (log(1.0) / t)));
} else {
temp_1 = (x - (log((1.0 + (y * ((0.5 * pow(z, 2.0)) + z)))) / t));
}
temp = temp_1;
}
return temp;
}




Bits error versus x




Bits error versus y




Bits error versus z




Bits error versus t
Results
| Original | 24.4 |
|---|---|
| Target | 16.3 |
| Herbie | 8.3 |
if z < -0.0015621185568995256Initial program 11.4
rmApplied *-un-lft-identity11.4
Applied add-sqr-sqrt12.4
Applied times-frac12.4
Simplified12.4
if -0.0015621185568995256 < z < 5.0328493301119e-80Initial program 30.0
Taylor expanded around 0 5.8
Simplified5.8
Taylor expanded around 0 5.8
rmApplied add-cube-cbrt6.0
Applied times-frac5.6
if 5.0328493301119e-80 < z Initial program 29.2
Taylor expanded around 0 13.5
Simplified13.5
Final simplification8.3
herbie shell --seed 2020057
(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 z) (* z z)))) (- x (/ (log (+ 1 (* z y))) t)))
(- x (/ (log (+ (- 1 y) (* y (exp z)))) t)))