Numeric.SpecFunctions:logGamma from math-functions-0.1.5.2, D

Average Error: 29.0 → 2.5

Time: 21.5s

Precision: binary64

Cost: 2760

Math

\[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 := x + y \cdot 3.13060547623\\ \mathbf{if}\;z \leq -1.22 \cdot 10^{+39}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;z \leq 1.7 \cdot 10^{+46}:\\ \;\;\;\;x + \frac{y \cdot \left(\left(\left(\left(z \cdot \left(z \cdot 3.13060547623\right) + z \cdot 11.1667541262\right) + 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}\\ \mathbf{else}:\\ \;\;\;\;t_1\\ \end{array} \]

FPCore

(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 (+ x (* y 3.13060547623))))
   (if (<= z -1.22e+39)
     t_1
     (if (<= z 1.7e+46)
       (+
        x
        (/
         (*
          y
          (+
           (*
            (+ (* (+ (+ (* z (* z 3.13060547623)) (* z 11.1667541262)) t) z) a)
            z)
           b))
         (+
          (*
           (+ (* (+ (* (+ z 15.234687407) z) 31.4690115749) z) 11.9400905721)
           z)
          0.607771387771)))
       t_1))))

C

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 = x + (y * 3.13060547623);
	double tmp;
	if (z <= -1.22e+39) {
		tmp = t_1;
	} else if (z <= 1.7e+46) {
		tmp = x + ((y * (((((((z * (z * 3.13060547623)) + (z * 11.1667541262)) + t) * z) + a) * z) + b)) / (((((((z + 15.234687407) * z) + 31.4690115749) * z) + 11.9400905721) * z) + 0.607771387771));
	} else {
		tmp = t_1;
	}
	return tmp;
}

Fortran

real(8) function code(x, y, z, t, a, b)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    real(8), intent (in) :: t
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    code = x + ((y * ((((((((z * 3.13060547623d0) + 11.1667541262d0) * z) + t) * z) + a) * z) + b)) / (((((((z + 15.234687407d0) * z) + 31.4690115749d0) * z) + 11.9400905721d0) * z) + 0.607771387771d0))
end function

↓

real(8) function code(x, y, z, t, a, b)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    real(8), intent (in) :: t
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    real(8) :: t_1
    real(8) :: tmp
    t_1 = x + (y * 3.13060547623d0)
    if (z <= (-1.22d+39)) then
        tmp = t_1
    else if (z <= 1.7d+46) then
        tmp = x + ((y * (((((((z * (z * 3.13060547623d0)) + (z * 11.1667541262d0)) + t) * z) + a) * z) + b)) / (((((((z + 15.234687407d0) * z) + 31.4690115749d0) * z) + 11.9400905721d0) * z) + 0.607771387771d0))
    else
        tmp = t_1
    end if
    code = tmp
end function

Java

public static 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));
}

↓

public static double code(double x, double y, double z, double t, double a, double b) {
	double t_1 = x + (y * 3.13060547623);
	double tmp;
	if (z <= -1.22e+39) {
		tmp = t_1;
	} else if (z <= 1.7e+46) {
		tmp = x + ((y * (((((((z * (z * 3.13060547623)) + (z * 11.1667541262)) + t) * z) + a) * z) + b)) / (((((((z + 15.234687407) * z) + 31.4690115749) * z) + 11.9400905721) * z) + 0.607771387771));
	} else {
		tmp = t_1;
	}
	return tmp;
}

Python

def code(x, y, z, t, a, 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))

↓

def code(x, y, z, t, a, b):
	t_1 = x + (y * 3.13060547623)
	tmp = 0
	if z <= -1.22e+39:
		tmp = t_1
	elif z <= 1.7e+46:
		tmp = x + ((y * (((((((z * (z * 3.13060547623)) + (z * 11.1667541262)) + t) * z) + a) * z) + b)) / (((((((z + 15.234687407) * z) + 31.4690115749) * z) + 11.9400905721) * z) + 0.607771387771))
	else:
		tmp = t_1
	return tmp

Julia

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(x + Float64(y * 3.13060547623))
	tmp = 0.0
	if (z <= -1.22e+39)
		tmp = t_1;
	elseif (z <= 1.7e+46)
		tmp = Float64(x + Float64(Float64(y * Float64(Float64(Float64(Float64(Float64(Float64(Float64(z * Float64(z * 3.13060547623)) + Float64(z * 11.1667541262)) + t) * z) + a) * z) + b)) / Float64(Float64(Float64(Float64(Float64(Float64(Float64(z + 15.234687407) * z) + 31.4690115749) * z) + 11.9400905721) * z) + 0.607771387771)));
	else
		tmp = t_1;
	end
	return tmp
end

MATLAB

function tmp = code(x, y, z, t, a, b)
	tmp = 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));
end

↓

function tmp_2 = code(x, y, z, t, a, b)
	t_1 = x + (y * 3.13060547623);
	tmp = 0.0;
	if (z <= -1.22e+39)
		tmp = t_1;
	elseif (z <= 1.7e+46)
		tmp = x + ((y * (((((((z * (z * 3.13060547623)) + (z * 11.1667541262)) + t) * z) + a) * z) + b)) / (((((((z + 15.234687407) * z) + 31.4690115749) * z) + 11.9400905721) * z) + 0.607771387771));
	else
		tmp = t_1;
	end
	tmp_2 = tmp;
end

Wolfram

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[(x + N[(y * 3.13060547623), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[z, -1.22e+39], t$95$1, If[LessEqual[z, 1.7e+46], N[(x + N[(N[(y * N[(N[(N[(N[(N[(N[(N[(z * N[(z * 3.13060547623), $MachinePrecision]), $MachinePrecision] + N[(z * 11.1667541262), $MachinePrecision]), $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], t$95$1]]]

Target

Original	29.0
Target	1.2
Herbie	2.5

\[\begin{array}{l} \mathbf{if}\;z < -6.499344996252632 \cdot 10^{+53}:\\ \;\;\;\;x + \left(\left(3.13060547623 - \frac{36.527041698806414}{z}\right) + \frac{t}{z \cdot z}\right) \cdot \frac{y}{1}\\ \mathbf{elif}\;z < 7.066965436914287 \cdot 10^{+59}:\\ \;\;\;\;x + \frac{y}{\frac{\left(\left(\left(z + 15.234687407\right) \cdot z + 31.4690115749\right) \cdot z + 11.9400905721\right) \cdot z + 0.607771387771}{\left(\left(\left(z \cdot 3.13060547623 + 11.1667541262\right) \cdot z + t\right) \cdot z + a\right) \cdot z + b}}\\ \mathbf{else}:\\ \;\;\;\;x + \left(\left(3.13060547623 - \frac{36.527041698806414}{z}\right) + \frac{t}{z \cdot z}\right) \cdot \frac{y}{1}\\ \end{array} \]

Derivation

1. Split input into 2 regimes

2. if z < -1.22e39 or 1.6999999999999999e46 < z

   1. Initial program 60.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} \]

   2. Taylor expanded in z around inf 3.4

      \[\leadsto x + \color{blue}{3.13060547623 \cdot y} \]

   3. Simplified 3.4

      \[\leadsto x + \color{blue}{y \cdot 3.13060547623} \]
      Proof

      [Start] 3.4	\[ x + 3.13060547623 \cdot y \]
      rational_best_oopsla_all_46_json_45_simplify-74 [=>] 3.4	\[ x + \color{blue}{y \cdot 3.13060547623} \]

   if -1.22e39 < z < 1.6999999999999999e46

   1. Initial program 1.8

      \[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} \]

   2. Applied egg-rr 1.8

      \[\leadsto x + \frac{y \cdot \left(\left(\left(\color{blue}{\left(z \cdot \left(z \cdot 3.13060547623\right) + z \cdot 11.1667541262\right)} + 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} \]
3. Recombined 2 regimes into one program.

4. Final simplification 2.5

   \[\leadsto \begin{array}{l} \mathbf{if}\;z \leq -1.22 \cdot 10^{+39}:\\ \;\;\;\;x + y \cdot 3.13060547623\\ \mathbf{elif}\;z \leq 1.7 \cdot 10^{+46}:\\ \;\;\;\;x + \frac{y \cdot \left(\left(\left(\left(z \cdot \left(z \cdot 3.13060547623\right) + z \cdot 11.1667541262\right) + 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}\\ \mathbf{else}:\\ \;\;\;\;x + y \cdot 3.13060547623\\ \end{array} \]

Alternatives

Alternative 1
Error	2.6
Cost	2632

\[\begin{array}{l} t_1 := x + y \cdot 3.13060547623\\ \mathbf{if}\;z \leq -9.8 \cdot 10^{+38}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;z \leq 6.2 \cdot 10^{+46}:\\ \;\;\;\;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}\\ \mathbf{else}:\\ \;\;\;\;t_1\\ \end{array} \]

Alternative 2
Error	2.9
Cost	2376

\[\begin{array}{l} t_1 := x + y \cdot 3.13060547623\\ \mathbf{if}\;z \leq -5.7 \cdot 10^{+19}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;z \leq 3.7 \cdot 10^{+22}:\\ \;\;\;\;x + \frac{y \cdot \left(\left(\left(z \cdot 11.1667541262 + 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}\\ \mathbf{else}:\\ \;\;\;\;t_1\\ \end{array} \]

Alternative 3
Error	3.7
Cost	1992

\[\begin{array}{l} \mathbf{if}\;z \leq -122000000000:\\ \;\;\;\;x + y \cdot 3.13060547623\\ \mathbf{elif}\;z \leq 115:\\ \;\;\;\;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)}{z \cdot 11.9400905721 + 0.607771387771}\\ \mathbf{else}:\\ \;\;\;\;x + \left(y \cdot 3.13060547623 + \frac{y}{z} \cdot -36.52704169880642\right)\\ \end{array} \]

Alternative 4
Error	7.6
Cost	1608

\[\begin{array}{l} \mathbf{if}\;z \leq -60000000000000:\\ \;\;\;\;x + y \cdot 3.13060547623\\ \mathbf{elif}\;z \leq 12.5:\\ \;\;\;\;x + \left(y \cdot \left(b \cdot 1.6453555072203998\right) + z \cdot \left(y \cdot \left(1.6453555072203998 \cdot a\right) - y \cdot \left(b \cdot 32.324150453290734\right)\right)\right)\\ \mathbf{else}:\\ \;\;\;\;x + \left(y \cdot 3.13060547623 + \frac{y}{z} \cdot -36.52704169880642\right)\\ \end{array} \]

Alternative 5
Error	7.5
Cost	1224

\[\begin{array}{l} \mathbf{if}\;z \leq -60000000000000:\\ \;\;\;\;x + y \cdot 3.13060547623\\ \mathbf{elif}\;z \leq 185:\\ \;\;\;\;x + \left(\left(y \cdot \left(1.6453555072203998 \cdot a\right)\right) \cdot z + 1.6453555072203998 \cdot \left(y \cdot b\right)\right)\\ \mathbf{else}:\\ \;\;\;\;x + \left(y \cdot 3.13060547623 + \frac{y}{z} \cdot -36.52704169880642\right)\\ \end{array} \]

Alternative 6
Error	9.0
Cost	968

\[\begin{array}{l} t_1 := x + y \cdot 3.13060547623\\ \mathbf{if}\;z \leq -60000000000000:\\ \;\;\;\;t_1\\ \mathbf{elif}\;z \leq 0.046:\\ \;\;\;\;x + b \cdot \left(y \cdot \left(1.6453555072203998 + -32.324150453290734 \cdot z\right)\right)\\ \mathbf{else}:\\ \;\;\;\;t_1\\ \end{array} \]

Alternative 7
Error	9.0
Cost	968

\[\begin{array}{l} \mathbf{if}\;z \leq -60000000000000:\\ \;\;\;\;x + y \cdot 3.13060547623\\ \mathbf{elif}\;z \leq 0.36:\\ \;\;\;\;x + b \cdot \left(y \cdot \left(1.6453555072203998 + -32.324150453290734 \cdot z\right)\right)\\ \mathbf{else}:\\ \;\;\;\;x + \left(y \cdot 3.13060547623 + \frac{y}{z} \cdot -36.52704169880642\right)\\ \end{array} \]

Alternative 8
Error	20.0
Cost	912

\[\begin{array}{l} t_1 := -y \cdot \left(b \cdot -1.6453555072203998\right)\\ t_2 := x + y \cdot 3.13060547623\\ \mathbf{if}\;z \leq -5.2 \cdot 10^{-300}:\\ \;\;\;\;t_2\\ \mathbf{elif}\;z \leq 1.02 \cdot 10^{-211}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;z \leq 5.8 \cdot 10^{-47}:\\ \;\;\;\;x\\ \mathbf{elif}\;z \leq 1.16 \cdot 10^{-10}:\\ \;\;\;\;t_1\\ \mathbf{else}:\\ \;\;\;\;t_2\\ \end{array} \]

Alternative 9
Error	20.0
Cost	848

\[\begin{array}{l} t_1 := 1.6453555072203998 \cdot \left(y \cdot b\right)\\ t_2 := x + y \cdot 3.13060547623\\ \mathbf{if}\;z \leq -5 \cdot 10^{-300}:\\ \;\;\;\;t_2\\ \mathbf{elif}\;z \leq 1.7 \cdot 10^{-211}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;z \leq 1.3 \cdot 10^{-48}:\\ \;\;\;\;x\\ \mathbf{elif}\;z \leq 2.8 \cdot 10^{-11}:\\ \;\;\;\;t_1\\ \mathbf{else}:\\ \;\;\;\;t_2\\ \end{array} \]

Alternative 10
Error	9.0
Cost	712

\[\begin{array}{l} t_1 := x + y \cdot 3.13060547623\\ \mathbf{if}\;z \leq -60000000000000:\\ \;\;\;\;t_1\\ \mathbf{elif}\;z \leq 0.235:\\ \;\;\;\;x + 1.6453555072203998 \cdot \left(y \cdot b\right)\\ \mathbf{else}:\\ \;\;\;\;t_1\\ \end{array} \]

Alternative 11
Error	9.1
Cost	712

\[\begin{array}{l} t_1 := x + y \cdot 3.13060547623\\ \mathbf{if}\;z \leq -60000000000000:\\ \;\;\;\;t_1\\ \mathbf{elif}\;z \leq 0.27:\\ \;\;\;\;x + b \cdot \left(y \cdot 1.6453555072203998\right)\\ \mathbf{else}:\\ \;\;\;\;t_1\\ \end{array} \]

Alternative 12
Error	29.9
Cost	584

\[\begin{array}{l} \mathbf{if}\;x \leq -1.85 \cdot 10^{-85}:\\ \;\;\;\;x\\ \mathbf{elif}\;x \leq 5.8 \cdot 10^{-173}:\\ \;\;\;\;1.6453555072203998 \cdot \left(y \cdot b\right)\\ \mathbf{else}:\\ \;\;\;\;x\\ \end{array} \]

Alternative 13
Error	31.6
Cost	64

\[x \]

Reproduce

herbie shell --seed 2023090 
(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))))