\left(\left(\left(x - 0.5\right) \cdot \log x - x\right) + 0.9189385332046700050057097541866824030876\right) + \frac{\left(\left(y + 7.936500793651000149400709382518925849581 \cdot 10^{-4}\right) \cdot z - 0.002777777777777800001512975569539776188321\right) \cdot z + 0.08333333333333299564049667651488562114537}{x}\begin{array}{l}
\mathbf{if}\;x \le 29348759.7692681215703487396240234375:\\
\;\;\;\;\left(\left(x - 0.5\right) \cdot \log x - x\right) + \left(\frac{0.08333333333333299564049667651488562114537 + \left(\left(7.936500793651000149400709382518925849581 \cdot 10^{-4} + y\right) \cdot \left(z \cdot z\right) - 0.002777777777777800001512975569539776188321 \cdot z\right)}{x} + 0.9189385332046700050057097541866824030876\right)\\
\mathbf{else}:\\
\;\;\;\;\left(0.9189385332046700050057097541866824030876 + \left(\left(7.936500793651000149400709382518925849581 \cdot 10^{-4} + y\right) \cdot \frac{z}{\frac{x}{z}} - \frac{0.002777777777777800001512975569539776188321 \cdot z}{x}\right)\right) + \left(\left(\log \left(\sqrt[3]{x}\right) \cdot \left(x - 0.5\right) - x\right) + \left(x - 0.5\right) \cdot \log \left(\sqrt[3]{x} \cdot \sqrt[3]{x}\right)\right)\\
\end{array}double f(double x, double y, double z) {
double r429843 = x;
double r429844 = 0.5;
double r429845 = r429843 - r429844;
double r429846 = log(r429843);
double r429847 = r429845 * r429846;
double r429848 = r429847 - r429843;
double r429849 = 0.91893853320467;
double r429850 = r429848 + r429849;
double r429851 = y;
double r429852 = 0.0007936500793651;
double r429853 = r429851 + r429852;
double r429854 = z;
double r429855 = r429853 * r429854;
double r429856 = 0.0027777777777778;
double r429857 = r429855 - r429856;
double r429858 = r429857 * r429854;
double r429859 = 0.083333333333333;
double r429860 = r429858 + r429859;
double r429861 = r429860 / r429843;
double r429862 = r429850 + r429861;
return r429862;
}
double f(double x, double y, double z) {
double r429863 = x;
double r429864 = 29348759.76926812;
bool r429865 = r429863 <= r429864;
double r429866 = 0.5;
double r429867 = r429863 - r429866;
double r429868 = log(r429863);
double r429869 = r429867 * r429868;
double r429870 = r429869 - r429863;
double r429871 = 0.083333333333333;
double r429872 = 0.0007936500793651;
double r429873 = y;
double r429874 = r429872 + r429873;
double r429875 = z;
double r429876 = r429875 * r429875;
double r429877 = r429874 * r429876;
double r429878 = 0.0027777777777778;
double r429879 = r429878 * r429875;
double r429880 = r429877 - r429879;
double r429881 = r429871 + r429880;
double r429882 = r429881 / r429863;
double r429883 = 0.91893853320467;
double r429884 = r429882 + r429883;
double r429885 = r429870 + r429884;
double r429886 = r429863 / r429875;
double r429887 = r429875 / r429886;
double r429888 = r429874 * r429887;
double r429889 = r429879 / r429863;
double r429890 = r429888 - r429889;
double r429891 = r429883 + r429890;
double r429892 = cbrt(r429863);
double r429893 = log(r429892);
double r429894 = r429893 * r429867;
double r429895 = r429894 - r429863;
double r429896 = r429892 * r429892;
double r429897 = log(r429896);
double r429898 = r429867 * r429897;
double r429899 = r429895 + r429898;
double r429900 = r429891 + r429899;
double r429901 = r429865 ? r429885 : r429900;
return r429901;
}




Bits error versus x




Bits error versus y




Bits error versus z
Results
| Original | 5.9 |
|---|---|
| Target | 1.2 |
| Herbie | 0.3 |
if x < 29348759.76926812Initial program 0.1
Simplified0.1
Taylor expanded around 0 0.1
Simplified0.1
if 29348759.76926812 < x Initial program 10.0
Simplified10.0
rmApplied add-cube-cbrt10.0
Applied log-prod10.1
Applied distribute-rgt-in10.1
Applied associate--l+10.0
Taylor expanded around inf 10.2
Simplified0.5
Final simplification0.3
herbie shell --seed 2019194
(FPCore (x y z)
:name "Numeric.SpecFunctions:$slogFactorial from math-functions-0.1.5.2, B"
:herbie-target
(+ (+ (+ (* (- x 0.5) (log x)) (- 0.91893853320467 x)) (/ 0.083333333333333 x)) (* (/ z x) (- (* z (+ y 0.0007936500793651)) 0.0027777777777778)))
(+ (+ (- (* (- x 0.5) (log x)) x) 0.91893853320467) (/ (+ (* (- (* (+ y 0.0007936500793651) z) 0.0027777777777778) z) 0.083333333333333) x)))