(FPCore (x y z t a b)
:precision binary64
(+
x
(/
(*
y
(+ (* (+ (* (+ (* (+ (* z 3.13060547623) 11.1667541262) z) t) z) a) z) b))
(+
(* (+ (* (+ (* (+ z 15.234687407) z) 31.4690115749) z) 11.9400905721) z)
0.607771387771))))(FPCore (x y z t a b)
:precision binary64
(let* ((t_1 (+ (* 3.13060547623 y) x)))
(if (<= z -4.6e+45)
t_1
(if (<= z 2.6e+18)
(+
(*
(fma z (fma z (fma z (fma z 3.13060547623 11.1667541262) t) a) b)
(*
y
(/
1.0
(fma
z
(fma z (fma (+ z 15.234687407) z 31.4690115749) 11.9400905721)
0.607771387771))))
x)
t_1))))double code(double x, double y, double z, double t, double a, double b) {
return x + ((y * ((((((((z * 3.13060547623) + 11.1667541262) * z) + t) * z) + a) * z) + b)) / (((((((z + 15.234687407) * z) + 31.4690115749) * z) + 11.9400905721) * z) + 0.607771387771));
}
double code(double x, double y, double z, double t, double a, double b) {
double t_1 = (3.13060547623 * y) + x;
double tmp;
if (z <= -4.6e+45) {
tmp = t_1;
} else if (z <= 2.6e+18) {
tmp = (fma(z, fma(z, fma(z, fma(z, 3.13060547623, 11.1667541262), t), a), b) * (y * (1.0 / fma(z, fma(z, fma((z + 15.234687407), z, 31.4690115749), 11.9400905721), 0.607771387771)))) + x;
} else {
tmp = t_1;
}
return tmp;
}
function code(x, y, z, t, a, b) return Float64(x + Float64(Float64(y * Float64(Float64(Float64(Float64(Float64(Float64(Float64(Float64(z * 3.13060547623) + 11.1667541262) * z) + t) * z) + a) * z) + b)) / Float64(Float64(Float64(Float64(Float64(Float64(Float64(z + 15.234687407) * z) + 31.4690115749) * z) + 11.9400905721) * z) + 0.607771387771))) end
function code(x, y, z, t, a, b) t_1 = Float64(Float64(3.13060547623 * y) + x) tmp = 0.0 if (z <= -4.6e+45) tmp = t_1; elseif (z <= 2.6e+18) tmp = Float64(Float64(fma(z, fma(z, fma(z, fma(z, 3.13060547623, 11.1667541262), t), a), b) * Float64(y * Float64(1.0 / fma(z, fma(z, fma(Float64(z + 15.234687407), z, 31.4690115749), 11.9400905721), 0.607771387771)))) + x); else tmp = t_1; end return tmp end
code[x_, y_, z_, t_, a_, b_] := N[(x + N[(N[(y * N[(N[(N[(N[(N[(N[(N[(N[(z * 3.13060547623), $MachinePrecision] + 11.1667541262), $MachinePrecision] * z), $MachinePrecision] + t), $MachinePrecision] * z), $MachinePrecision] + a), $MachinePrecision] * z), $MachinePrecision] + b), $MachinePrecision]), $MachinePrecision] / N[(N[(N[(N[(N[(N[(N[(z + 15.234687407), $MachinePrecision] * z), $MachinePrecision] + 31.4690115749), $MachinePrecision] * z), $MachinePrecision] + 11.9400905721), $MachinePrecision] * z), $MachinePrecision] + 0.607771387771), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
code[x_, y_, z_, t_, a_, b_] := Block[{t$95$1 = N[(N[(3.13060547623 * y), $MachinePrecision] + x), $MachinePrecision]}, If[LessEqual[z, -4.6e+45], t$95$1, If[LessEqual[z, 2.6e+18], N[(N[(N[(z * N[(z * N[(z * N[(z * 3.13060547623 + 11.1667541262), $MachinePrecision] + t), $MachinePrecision] + a), $MachinePrecision] + b), $MachinePrecision] * N[(y * N[(1.0 / N[(z * N[(z * N[(N[(z + 15.234687407), $MachinePrecision] * z + 31.4690115749), $MachinePrecision] + 11.9400905721), $MachinePrecision] + 0.607771387771), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + x), $MachinePrecision], t$95$1]]]
x + \frac{y \cdot \left(\left(\left(\left(z \cdot 3.13060547623 + 11.1667541262\right) \cdot z + t\right) \cdot z + a\right) \cdot z + b\right)}{\left(\left(\left(z + 15.234687407\right) \cdot z + 31.4690115749\right) \cdot z + 11.9400905721\right) \cdot z + 0.607771387771}
\begin{array}{l}
t_1 := 3.13060547623 \cdot y + x\\
\mathbf{if}\;z \leq -4.6 \cdot 10^{+45}:\\
\;\;\;\;t_1\\
\mathbf{elif}\;z \leq 2.6 \cdot 10^{+18}:\\
\;\;\;\;\mathsf{fma}\left(z, \mathsf{fma}\left(z, \mathsf{fma}\left(z, \mathsf{fma}\left(z, 3.13060547623, 11.1667541262\right), t\right), a\right), b\right) \cdot \left(y \cdot \frac{1}{\mathsf{fma}\left(z, \mathsf{fma}\left(z, \mathsf{fma}\left(z + 15.234687407, z, 31.4690115749\right), 11.9400905721\right), 0.607771387771\right)}\right) + x\\
\mathbf{else}:\\
\;\;\;\;t_1\\
\end{array}
| Original | 45.96% |
|---|---|
| Target | 1.49% |
| Herbie | 3.29% |
if z < -4.60000000000000025e45 or 2.6e18 < z Initial program 92.85
Simplified92.85
Taylor expanded in z around inf 5.94
if -4.60000000000000025e45 < z < 2.6e18Initial program 1.91
Simplified1.91
Applied egg-rr0.81
herbie shell --seed 2023136
(FPCore (x y z t a b)
:name "Numeric.SpecFunctions:logGamma from math-functions-0.1.5.2, D"
:precision binary64
:herbie-target
(if (< z -6.499344996252632e+53) (+ x (* (+ (- 3.13060547623 (/ 36.527041698806414 z)) (/ t (* z z))) (/ y 1.0))) (if (< z 7.066965436914287e+59) (+ x (/ y (/ (+ (* (+ (* (+ (* (+ z 15.234687407) z) 31.4690115749) z) 11.9400905721) z) 0.607771387771) (+ (* (+ (* (+ (* (+ (* z 3.13060547623) 11.1667541262) z) t) z) a) z) b)))) (+ x (* (+ (- 3.13060547623 (/ 36.527041698806414 z)) (/ t (* z z))) (/ y 1.0)))))
(+ x (/ (* y (+ (* (+ (* (+ (* (+ (* z 3.13060547623) 11.1667541262) z) t) z) a) z) b)) (+ (* (+ (* (+ (* (+ z 15.234687407) z) 31.4690115749) z) 11.9400905721) z) 0.607771387771))))