Octave 3.8, jcobi/1

Percentage Accurate: 74.4% → 99.8%
Time: 7.5s
Alternatives: 12
Speedup: 0.7×

Specification

?
\[\alpha > -1 \land \beta > -1\]
\[\begin{array}{l} \\ \frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2} \end{array} \]
(FPCore (alpha beta)
 :precision binary64
 (/ (+ (/ (- beta alpha) (+ (+ alpha beta) 2.0)) 1.0) 2.0))
double code(double alpha, double beta) {
	return (((beta - alpha) / ((alpha + beta) + 2.0)) + 1.0) / 2.0;
}
real(8) function code(alpha, beta)
    real(8), intent (in) :: alpha
    real(8), intent (in) :: beta
    code = (((beta - alpha) / ((alpha + beta) + 2.0d0)) + 1.0d0) / 2.0d0
end function
public static double code(double alpha, double beta) {
	return (((beta - alpha) / ((alpha + beta) + 2.0)) + 1.0) / 2.0;
}
def code(alpha, beta):
	return (((beta - alpha) / ((alpha + beta) + 2.0)) + 1.0) / 2.0
function code(alpha, beta)
	return Float64(Float64(Float64(Float64(beta - alpha) / Float64(Float64(alpha + beta) + 2.0)) + 1.0) / 2.0)
end
function tmp = code(alpha, beta)
	tmp = (((beta - alpha) / ((alpha + beta) + 2.0)) + 1.0) / 2.0;
end
code[alpha_, beta_] := N[(N[(N[(N[(beta - alpha), $MachinePrecision] / N[(N[(alpha + beta), $MachinePrecision] + 2.0), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision] / 2.0), $MachinePrecision]
\begin{array}{l}

\\
\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2}
\end{array}

Sampling outcomes in binary64 precision:

Local Percentage Accuracy vs ?

The average percentage accuracy by input value. Horizontal axis shows value of an input variable; the variable is choosen in the title. Vertical axis is accuracy; higher is better. Red represent the original program, while blue represents Herbie's suggestion. These can be toggled with buttons below the plot. The line is an average while dots represent individual samples.

Accuracy vs Speed?

Herbie found 12 alternatives:

AlternativeAccuracySpeedup
The accuracy (vertical axis) and speed (horizontal axis) of each alternatives. Up and to the right is better. The red square shows the initial program, and each blue circle shows an alternative.The line shows the best available speed-accuracy tradeoffs.

Initial Program: 74.4% accurate, 1.0× speedup?

\[\begin{array}{l} \\ \frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2} \end{array} \]
(FPCore (alpha beta)
 :precision binary64
 (/ (+ (/ (- beta alpha) (+ (+ alpha beta) 2.0)) 1.0) 2.0))
double code(double alpha, double beta) {
	return (((beta - alpha) / ((alpha + beta) + 2.0)) + 1.0) / 2.0;
}
real(8) function code(alpha, beta)
    real(8), intent (in) :: alpha
    real(8), intent (in) :: beta
    code = (((beta - alpha) / ((alpha + beta) + 2.0d0)) + 1.0d0) / 2.0d0
end function
public static double code(double alpha, double beta) {
	return (((beta - alpha) / ((alpha + beta) + 2.0)) + 1.0) / 2.0;
}
def code(alpha, beta):
	return (((beta - alpha) / ((alpha + beta) + 2.0)) + 1.0) / 2.0
function code(alpha, beta)
	return Float64(Float64(Float64(Float64(beta - alpha) / Float64(Float64(alpha + beta) + 2.0)) + 1.0) / 2.0)
end
function tmp = code(alpha, beta)
	tmp = (((beta - alpha) / ((alpha + beta) + 2.0)) + 1.0) / 2.0;
end
code[alpha_, beta_] := N[(N[(N[(N[(beta - alpha), $MachinePrecision] / N[(N[(alpha + beta), $MachinePrecision] + 2.0), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision] / 2.0), $MachinePrecision]
\begin{array}{l}

\\
\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2}
\end{array}

Alternative 1: 99.8% accurate, 0.1× speedup?

\[\begin{array}{l} \\ \begin{array}{l} t_0 := 2 + \left(\alpha + \beta\right)\\ t_1 := \frac{\beta}{t\_0} + 1\\ t_2 := \frac{\alpha}{t\_0}\\ \mathbf{if}\;\frac{\beta - \alpha}{t\_0} \leq -0.998:\\ \;\;\;\;\frac{\mathsf{fma}\left(\left(\beta - -2\right) \cdot \frac{\mathsf{fma}\left(-2, \beta, -2\right)}{\alpha}, 0.5, 1 + \beta\right)}{\alpha}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{t\_1 \cdot t\_1 - {t\_2}^{2}}{t\_2 + t\_1}}{2}\\ \end{array} \end{array} \]
(FPCore (alpha beta)
 :precision binary64
 (let* ((t_0 (+ 2.0 (+ alpha beta)))
        (t_1 (+ (/ beta t_0) 1.0))
        (t_2 (/ alpha t_0)))
   (if (<= (/ (- beta alpha) t_0) -0.998)
     (/
      (fma (* (- beta -2.0) (/ (fma -2.0 beta -2.0) alpha)) 0.5 (+ 1.0 beta))
      alpha)
     (/ (/ (- (* t_1 t_1) (pow t_2 2.0)) (+ t_2 t_1)) 2.0))))
double code(double alpha, double beta) {
	double t_0 = 2.0 + (alpha + beta);
	double t_1 = (beta / t_0) + 1.0;
	double t_2 = alpha / t_0;
	double tmp;
	if (((beta - alpha) / t_0) <= -0.998) {
		tmp = fma(((beta - -2.0) * (fma(-2.0, beta, -2.0) / alpha)), 0.5, (1.0 + beta)) / alpha;
	} else {
		tmp = (((t_1 * t_1) - pow(t_2, 2.0)) / (t_2 + t_1)) / 2.0;
	}
	return tmp;
}
function code(alpha, beta)
	t_0 = Float64(2.0 + Float64(alpha + beta))
	t_1 = Float64(Float64(beta / t_0) + 1.0)
	t_2 = Float64(alpha / t_0)
	tmp = 0.0
	if (Float64(Float64(beta - alpha) / t_0) <= -0.998)
		tmp = Float64(fma(Float64(Float64(beta - -2.0) * Float64(fma(-2.0, beta, -2.0) / alpha)), 0.5, Float64(1.0 + beta)) / alpha);
	else
		tmp = Float64(Float64(Float64(Float64(t_1 * t_1) - (t_2 ^ 2.0)) / Float64(t_2 + t_1)) / 2.0);
	end
	return tmp
end
code[alpha_, beta_] := Block[{t$95$0 = N[(2.0 + N[(alpha + beta), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[(beta / t$95$0), $MachinePrecision] + 1.0), $MachinePrecision]}, Block[{t$95$2 = N[(alpha / t$95$0), $MachinePrecision]}, If[LessEqual[N[(N[(beta - alpha), $MachinePrecision] / t$95$0), $MachinePrecision], -0.998], N[(N[(N[(N[(beta - -2.0), $MachinePrecision] * N[(N[(-2.0 * beta + -2.0), $MachinePrecision] / alpha), $MachinePrecision]), $MachinePrecision] * 0.5 + N[(1.0 + beta), $MachinePrecision]), $MachinePrecision] / alpha), $MachinePrecision], N[(N[(N[(N[(t$95$1 * t$95$1), $MachinePrecision] - N[Power[t$95$2, 2.0], $MachinePrecision]), $MachinePrecision] / N[(t$95$2 + t$95$1), $MachinePrecision]), $MachinePrecision] / 2.0), $MachinePrecision]]]]]
\begin{array}{l}

\\
\begin{array}{l}
t_0 := 2 + \left(\alpha + \beta\right)\\
t_1 := \frac{\beta}{t\_0} + 1\\
t_2 := \frac{\alpha}{t\_0}\\
\mathbf{if}\;\frac{\beta - \alpha}{t\_0} \leq -0.998:\\
\;\;\;\;\frac{\mathsf{fma}\left(\left(\beta - -2\right) \cdot \frac{\mathsf{fma}\left(-2, \beta, -2\right)}{\alpha}, 0.5, 1 + \beta\right)}{\alpha}\\

\mathbf{else}:\\
\;\;\;\;\frac{\frac{t\_1 \cdot t\_1 - {t\_2}^{2}}{t\_2 + t\_1}}{2}\\


\end{array}
\end{array}
Derivation
  1. Split input into 2 regimes
  2. if (/.f64 (-.f64 beta alpha) (+.f64 (+.f64 alpha beta) #s(literal 2 binary64))) < -0.998

    1. Initial program 7.2%

      \[\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2} \]
    2. Add Preprocessing
    3. Taylor expanded in alpha around inf

      \[\leadsto \color{blue}{\frac{\frac{1}{2} \cdot \left(2 + 2 \cdot \beta\right) + \frac{1}{2} \cdot \frac{-1 \cdot {\left(2 + \beta\right)}^{2} - \beta \cdot \left(2 + \beta\right)}{\alpha}}{\alpha}} \]
    4. Applied rewrites99.9%

      \[\leadsto \color{blue}{\frac{\mathsf{fma}\left(\frac{\mathsf{fma}\left(-2, \beta, -2\right)}{\alpha} \cdot \left(\beta - -2\right), 0.5, 1 + \beta\right)}{\alpha}} \]

    if -0.998 < (/.f64 (-.f64 beta alpha) (+.f64 (+.f64 alpha beta) #s(literal 2 binary64)))

    1. Initial program 99.9%

      \[\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2} \]
    2. Add Preprocessing
    3. Step-by-step derivation
      1. lift-+.f64N/A

        \[\leadsto \frac{\color{blue}{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}}{2} \]
      2. +-commutativeN/A

        \[\leadsto \frac{\color{blue}{1 + \frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2}}}{2} \]
      3. lift-/.f64N/A

        \[\leadsto \frac{1 + \color{blue}{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2}}}{2} \]
      4. lift--.f64N/A

        \[\leadsto \frac{1 + \frac{\color{blue}{\beta - \alpha}}{\left(\alpha + \beta\right) + 2}}{2} \]
      5. div-subN/A

        \[\leadsto \frac{1 + \color{blue}{\left(\frac{\beta}{\left(\alpha + \beta\right) + 2} - \frac{\alpha}{\left(\alpha + \beta\right) + 2}\right)}}{2} \]
      6. associate-+r-N/A

        \[\leadsto \frac{\color{blue}{\left(1 + \frac{\beta}{\left(\alpha + \beta\right) + 2}\right) - \frac{\alpha}{\left(\alpha + \beta\right) + 2}}}{2} \]
      7. flip--N/A

        \[\leadsto \frac{\color{blue}{\frac{\left(1 + \frac{\beta}{\left(\alpha + \beta\right) + 2}\right) \cdot \left(1 + \frac{\beta}{\left(\alpha + \beta\right) + 2}\right) - \frac{\alpha}{\left(\alpha + \beta\right) + 2} \cdot \frac{\alpha}{\left(\alpha + \beta\right) + 2}}{\left(1 + \frac{\beta}{\left(\alpha + \beta\right) + 2}\right) + \frac{\alpha}{\left(\alpha + \beta\right) + 2}}}}{2} \]
      8. lower-/.f64N/A

        \[\leadsto \frac{\color{blue}{\frac{\left(1 + \frac{\beta}{\left(\alpha + \beta\right) + 2}\right) \cdot \left(1 + \frac{\beta}{\left(\alpha + \beta\right) + 2}\right) - \frac{\alpha}{\left(\alpha + \beta\right) + 2} \cdot \frac{\alpha}{\left(\alpha + \beta\right) + 2}}{\left(1 + \frac{\beta}{\left(\alpha + \beta\right) + 2}\right) + \frac{\alpha}{\left(\alpha + \beta\right) + 2}}}}{2} \]
    4. Applied rewrites99.9%

      \[\leadsto \frac{\color{blue}{\frac{\left(1 + \frac{\beta}{2 + \left(\alpha + \beta\right)}\right) \cdot \left(1 + \frac{\beta}{2 + \left(\alpha + \beta\right)}\right) - {\left(\frac{\alpha}{2 + \left(\alpha + \beta\right)}\right)}^{2}}{\left(1 + \frac{\beta}{2 + \left(\alpha + \beta\right)}\right) + \frac{\alpha}{2 + \left(\alpha + \beta\right)}}}}{2} \]
  3. Recombined 2 regimes into one program.
  4. Final simplification99.9%

    \[\leadsto \begin{array}{l} \mathbf{if}\;\frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)} \leq -0.998:\\ \;\;\;\;\frac{\mathsf{fma}\left(\left(\beta - -2\right) \cdot \frac{\mathsf{fma}\left(-2, \beta, -2\right)}{\alpha}, 0.5, 1 + \beta\right)}{\alpha}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{\left(\frac{\beta}{2 + \left(\alpha + \beta\right)} + 1\right) \cdot \left(\frac{\beta}{2 + \left(\alpha + \beta\right)} + 1\right) - {\left(\frac{\alpha}{2 + \left(\alpha + \beta\right)}\right)}^{2}}{\frac{\alpha}{2 + \left(\alpha + \beta\right)} + \left(\frac{\beta}{2 + \left(\alpha + \beta\right)} + 1\right)}}{2}\\ \end{array} \]
  5. Add Preprocessing

Alternative 2: 99.8% accurate, 0.5× speedup?

\[\begin{array}{l} \\ \begin{array}{l} t_0 := \frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)}\\ \mathbf{if}\;t\_0 \leq -0.998:\\ \;\;\;\;\frac{\mathsf{fma}\left(\left(\beta - -2\right) \cdot \frac{\mathsf{fma}\left(-2, \beta, -2\right)}{\alpha}, 0.5, 1 + \beta\right)}{\alpha}\\ \mathbf{else}:\\ \;\;\;\;\frac{1 + t\_0}{2}\\ \end{array} \end{array} \]
(FPCore (alpha beta)
 :precision binary64
 (let* ((t_0 (/ (- beta alpha) (+ 2.0 (+ alpha beta)))))
   (if (<= t_0 -0.998)
     (/
      (fma (* (- beta -2.0) (/ (fma -2.0 beta -2.0) alpha)) 0.5 (+ 1.0 beta))
      alpha)
     (/ (+ 1.0 t_0) 2.0))))
double code(double alpha, double beta) {
	double t_0 = (beta - alpha) / (2.0 + (alpha + beta));
	double tmp;
	if (t_0 <= -0.998) {
		tmp = fma(((beta - -2.0) * (fma(-2.0, beta, -2.0) / alpha)), 0.5, (1.0 + beta)) / alpha;
	} else {
		tmp = (1.0 + t_0) / 2.0;
	}
	return tmp;
}
function code(alpha, beta)
	t_0 = Float64(Float64(beta - alpha) / Float64(2.0 + Float64(alpha + beta)))
	tmp = 0.0
	if (t_0 <= -0.998)
		tmp = Float64(fma(Float64(Float64(beta - -2.0) * Float64(fma(-2.0, beta, -2.0) / alpha)), 0.5, Float64(1.0 + beta)) / alpha);
	else
		tmp = Float64(Float64(1.0 + t_0) / 2.0);
	end
	return tmp
end
code[alpha_, beta_] := Block[{t$95$0 = N[(N[(beta - alpha), $MachinePrecision] / N[(2.0 + N[(alpha + beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, -0.998], N[(N[(N[(N[(beta - -2.0), $MachinePrecision] * N[(N[(-2.0 * beta + -2.0), $MachinePrecision] / alpha), $MachinePrecision]), $MachinePrecision] * 0.5 + N[(1.0 + beta), $MachinePrecision]), $MachinePrecision] / alpha), $MachinePrecision], N[(N[(1.0 + t$95$0), $MachinePrecision] / 2.0), $MachinePrecision]]]
\begin{array}{l}

\\
\begin{array}{l}
t_0 := \frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)}\\
\mathbf{if}\;t\_0 \leq -0.998:\\
\;\;\;\;\frac{\mathsf{fma}\left(\left(\beta - -2\right) \cdot \frac{\mathsf{fma}\left(-2, \beta, -2\right)}{\alpha}, 0.5, 1 + \beta\right)}{\alpha}\\

\mathbf{else}:\\
\;\;\;\;\frac{1 + t\_0}{2}\\


\end{array}
\end{array}
Derivation
  1. Split input into 2 regimes
  2. if (/.f64 (-.f64 beta alpha) (+.f64 (+.f64 alpha beta) #s(literal 2 binary64))) < -0.998

    1. Initial program 7.2%

      \[\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2} \]
    2. Add Preprocessing
    3. Taylor expanded in alpha around inf

      \[\leadsto \color{blue}{\frac{\frac{1}{2} \cdot \left(2 + 2 \cdot \beta\right) + \frac{1}{2} \cdot \frac{-1 \cdot {\left(2 + \beta\right)}^{2} - \beta \cdot \left(2 + \beta\right)}{\alpha}}{\alpha}} \]
    4. Applied rewrites99.9%

      \[\leadsto \color{blue}{\frac{\mathsf{fma}\left(\frac{\mathsf{fma}\left(-2, \beta, -2\right)}{\alpha} \cdot \left(\beta - -2\right), 0.5, 1 + \beta\right)}{\alpha}} \]

    if -0.998 < (/.f64 (-.f64 beta alpha) (+.f64 (+.f64 alpha beta) #s(literal 2 binary64)))

    1. Initial program 99.9%

      \[\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2} \]
    2. Add Preprocessing
  3. Recombined 2 regimes into one program.
  4. Final simplification99.9%

    \[\leadsto \begin{array}{l} \mathbf{if}\;\frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)} \leq -0.998:\\ \;\;\;\;\frac{\mathsf{fma}\left(\left(\beta - -2\right) \cdot \frac{\mathsf{fma}\left(-2, \beta, -2\right)}{\alpha}, 0.5, 1 + \beta\right)}{\alpha}\\ \mathbf{else}:\\ \;\;\;\;\frac{1 + \frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)}}{2}\\ \end{array} \]
  5. Add Preprocessing

Alternative 3: 97.6% accurate, 0.5× speedup?

\[\begin{array}{l} \\ \begin{array}{l} t_0 := \frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)}\\ \mathbf{if}\;t\_0 \leq -0.5:\\ \;\;\;\;\frac{1 + \beta}{\alpha}\\ \mathbf{elif}\;t\_0 \leq 0.001:\\ \;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.0625, \beta, -0.125\right), \beta, 0.25\right), \beta, 0.5\right)\\ \mathbf{else}:\\ \;\;\;\;1 - \frac{1}{\beta}\\ \end{array} \end{array} \]
(FPCore (alpha beta)
 :precision binary64
 (let* ((t_0 (/ (- beta alpha) (+ 2.0 (+ alpha beta)))))
   (if (<= t_0 -0.5)
     (/ (+ 1.0 beta) alpha)
     (if (<= t_0 0.001)
       (fma (fma (fma 0.0625 beta -0.125) beta 0.25) beta 0.5)
       (- 1.0 (/ 1.0 beta))))))
double code(double alpha, double beta) {
	double t_0 = (beta - alpha) / (2.0 + (alpha + beta));
	double tmp;
	if (t_0 <= -0.5) {
		tmp = (1.0 + beta) / alpha;
	} else if (t_0 <= 0.001) {
		tmp = fma(fma(fma(0.0625, beta, -0.125), beta, 0.25), beta, 0.5);
	} else {
		tmp = 1.0 - (1.0 / beta);
	}
	return tmp;
}
function code(alpha, beta)
	t_0 = Float64(Float64(beta - alpha) / Float64(2.0 + Float64(alpha + beta)))
	tmp = 0.0
	if (t_0 <= -0.5)
		tmp = Float64(Float64(1.0 + beta) / alpha);
	elseif (t_0 <= 0.001)
		tmp = fma(fma(fma(0.0625, beta, -0.125), beta, 0.25), beta, 0.5);
	else
		tmp = Float64(1.0 - Float64(1.0 / beta));
	end
	return tmp
end
code[alpha_, beta_] := Block[{t$95$0 = N[(N[(beta - alpha), $MachinePrecision] / N[(2.0 + N[(alpha + beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, -0.5], N[(N[(1.0 + beta), $MachinePrecision] / alpha), $MachinePrecision], If[LessEqual[t$95$0, 0.001], N[(N[(N[(0.0625 * beta + -0.125), $MachinePrecision] * beta + 0.25), $MachinePrecision] * beta + 0.5), $MachinePrecision], N[(1.0 - N[(1.0 / beta), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}

\\
\begin{array}{l}
t_0 := \frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)}\\
\mathbf{if}\;t\_0 \leq -0.5:\\
\;\;\;\;\frac{1 + \beta}{\alpha}\\

\mathbf{elif}\;t\_0 \leq 0.001:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.0625, \beta, -0.125\right), \beta, 0.25\right), \beta, 0.5\right)\\

\mathbf{else}:\\
\;\;\;\;1 - \frac{1}{\beta}\\


\end{array}
\end{array}
Derivation
  1. Split input into 3 regimes
  2. if (/.f64 (-.f64 beta alpha) (+.f64 (+.f64 alpha beta) #s(literal 2 binary64))) < -0.5

    1. Initial program 8.5%

      \[\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2} \]
    2. Add Preprocessing
    3. Taylor expanded in alpha around inf

      \[\leadsto \color{blue}{\frac{1}{2} \cdot \frac{2 + 2 \cdot \beta}{\alpha}} \]
    4. Step-by-step derivation
      1. associate-*r/N/A

        \[\leadsto \color{blue}{\frac{\frac{1}{2} \cdot \left(2 + 2 \cdot \beta\right)}{\alpha}} \]
      2. lower-/.f64N/A

        \[\leadsto \color{blue}{\frac{\frac{1}{2} \cdot \left(2 + 2 \cdot \beta\right)}{\alpha}} \]
      3. distribute-lft-inN/A

        \[\leadsto \frac{\color{blue}{\frac{1}{2} \cdot 2 + \frac{1}{2} \cdot \left(2 \cdot \beta\right)}}{\alpha} \]
      4. metadata-evalN/A

        \[\leadsto \frac{\color{blue}{1} + \frac{1}{2} \cdot \left(2 \cdot \beta\right)}{\alpha} \]
      5. associate-*r*N/A

        \[\leadsto \frac{1 + \color{blue}{\left(\frac{1}{2} \cdot 2\right) \cdot \beta}}{\alpha} \]
      6. metadata-evalN/A

        \[\leadsto \frac{1 + \color{blue}{1} \cdot \beta}{\alpha} \]
      7. *-lft-identityN/A

        \[\leadsto \frac{1 + \color{blue}{\beta}}{\alpha} \]
      8. lower-+.f6497.5

        \[\leadsto \frac{\color{blue}{1 + \beta}}{\alpha} \]
    5. Applied rewrites97.5%

      \[\leadsto \color{blue}{\frac{1 + \beta}{\alpha}} \]

    if -0.5 < (/.f64 (-.f64 beta alpha) (+.f64 (+.f64 alpha beta) #s(literal 2 binary64))) < 1e-3

    1. Initial program 100.0%

      \[\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2} \]
    2. Add Preprocessing
    3. Taylor expanded in alpha around 0

      \[\leadsto \color{blue}{\frac{1}{2} \cdot \left(1 + \frac{\beta}{2 + \beta}\right)} \]
    4. Step-by-step derivation
      1. +-commutativeN/A

        \[\leadsto \frac{1}{2} \cdot \color{blue}{\left(\frac{\beta}{2 + \beta} + 1\right)} \]
      2. distribute-rgt-inN/A

        \[\leadsto \color{blue}{\frac{\beta}{2 + \beta} \cdot \frac{1}{2} + 1 \cdot \frac{1}{2}} \]
      3. metadata-evalN/A

        \[\leadsto \frac{\beta}{2 + \beta} \cdot \frac{1}{2} + \color{blue}{\frac{1}{2}} \]
      4. lower-fma.f64N/A

        \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{\beta}{2 + \beta}, \frac{1}{2}, \frac{1}{2}\right)} \]
      5. lower-/.f64N/A

        \[\leadsto \mathsf{fma}\left(\color{blue}{\frac{\beta}{2 + \beta}}, \frac{1}{2}, \frac{1}{2}\right) \]
      6. +-commutativeN/A

        \[\leadsto \mathsf{fma}\left(\frac{\beta}{\color{blue}{\beta + 2}}, \frac{1}{2}, \frac{1}{2}\right) \]
      7. metadata-evalN/A

        \[\leadsto \mathsf{fma}\left(\frac{\beta}{\beta + \color{blue}{\left(\mathsf{neg}\left(-2\right)\right)}}, \frac{1}{2}, \frac{1}{2}\right) \]
      8. metadata-evalN/A

        \[\leadsto \mathsf{fma}\left(\frac{\beta}{\beta + \left(\mathsf{neg}\left(\color{blue}{-1 \cdot 2}\right)\right)}, \frac{1}{2}, \frac{1}{2}\right) \]
      9. sub-negN/A

        \[\leadsto \mathsf{fma}\left(\frac{\beta}{\color{blue}{\beta - -1 \cdot 2}}, \frac{1}{2}, \frac{1}{2}\right) \]
      10. lower--.f64N/A

        \[\leadsto \mathsf{fma}\left(\frac{\beta}{\color{blue}{\beta - -1 \cdot 2}}, \frac{1}{2}, \frac{1}{2}\right) \]
      11. metadata-eval98.4

        \[\leadsto \mathsf{fma}\left(\frac{\beta}{\beta - \color{blue}{-2}}, 0.5, 0.5\right) \]
    5. Applied rewrites98.4%

      \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{\beta}{\beta - -2}, 0.5, 0.5\right)} \]
    6. Taylor expanded in beta around 0

      \[\leadsto \frac{1}{2} + \color{blue}{\beta \cdot \left(\frac{1}{4} + \beta \cdot \left(\frac{1}{16} \cdot \beta - \frac{1}{8}\right)\right)} \]
    7. Step-by-step derivation
      1. Applied rewrites98.2%

        \[\leadsto \mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.0625, \beta, -0.125\right), \beta, 0.25\right), \color{blue}{\beta}, 0.5\right) \]

      if 1e-3 < (/.f64 (-.f64 beta alpha) (+.f64 (+.f64 alpha beta) #s(literal 2 binary64)))

      1. Initial program 99.9%

        \[\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2} \]
      2. Add Preprocessing
      3. Taylor expanded in beta around -inf

        \[\leadsto \color{blue}{1 + \frac{1}{2} \cdot \frac{-1 \cdot \alpha - \left(2 + \alpha\right)}{\beta}} \]
      4. Step-by-step derivation
        1. +-commutativeN/A

          \[\leadsto \color{blue}{\frac{1}{2} \cdot \frac{-1 \cdot \alpha - \left(2 + \alpha\right)}{\beta} + 1} \]
        2. *-commutativeN/A

          \[\leadsto \color{blue}{\frac{-1 \cdot \alpha - \left(2 + \alpha\right)}{\beta} \cdot \frac{1}{2}} + 1 \]
        3. lower-fma.f64N/A

          \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{-1 \cdot \alpha - \left(2 + \alpha\right)}{\beta}, \frac{1}{2}, 1\right)} \]
        4. lower-/.f64N/A

          \[\leadsto \mathsf{fma}\left(\color{blue}{\frac{-1 \cdot \alpha - \left(2 + \alpha\right)}{\beta}}, \frac{1}{2}, 1\right) \]
        5. +-commutativeN/A

          \[\leadsto \mathsf{fma}\left(\frac{-1 \cdot \alpha - \color{blue}{\left(\alpha + 2\right)}}{\beta}, \frac{1}{2}, 1\right) \]
        6. associate--r+N/A

          \[\leadsto \mathsf{fma}\left(\frac{\color{blue}{\left(-1 \cdot \alpha - \alpha\right) - 2}}{\beta}, \frac{1}{2}, 1\right) \]
        7. sub-negN/A

          \[\leadsto \mathsf{fma}\left(\frac{\color{blue}{\left(-1 \cdot \alpha - \alpha\right) + \left(\mathsf{neg}\left(2\right)\right)}}{\beta}, \frac{1}{2}, 1\right) \]
        8. *-lft-identityN/A

          \[\leadsto \mathsf{fma}\left(\frac{\left(-1 \cdot \alpha - \color{blue}{1 \cdot \alpha}\right) + \left(\mathsf{neg}\left(2\right)\right)}{\beta}, \frac{1}{2}, 1\right) \]
        9. distribute-rgt-out--N/A

          \[\leadsto \mathsf{fma}\left(\frac{\color{blue}{\alpha \cdot \left(-1 - 1\right)} + \left(\mathsf{neg}\left(2\right)\right)}{\beta}, \frac{1}{2}, 1\right) \]
        10. metadata-evalN/A

          \[\leadsto \mathsf{fma}\left(\frac{\alpha \cdot \color{blue}{-2} + \left(\mathsf{neg}\left(2\right)\right)}{\beta}, \frac{1}{2}, 1\right) \]
        11. metadata-evalN/A

          \[\leadsto \mathsf{fma}\left(\frac{\alpha \cdot \color{blue}{\left(-1 \cdot 2\right)} + \left(\mathsf{neg}\left(2\right)\right)}{\beta}, \frac{1}{2}, 1\right) \]
        12. metadata-evalN/A

          \[\leadsto \mathsf{fma}\left(\frac{\alpha \cdot \left(-1 \cdot 2\right) + \color{blue}{-2}}{\beta}, \frac{1}{2}, 1\right) \]
        13. metadata-evalN/A

          \[\leadsto \mathsf{fma}\left(\frac{\alpha \cdot \left(-1 \cdot 2\right) + \color{blue}{-1 \cdot 2}}{\beta}, \frac{1}{2}, 1\right) \]
        14. lower-fma.f64N/A

          \[\leadsto \mathsf{fma}\left(\frac{\color{blue}{\mathsf{fma}\left(\alpha, -1 \cdot 2, -1 \cdot 2\right)}}{\beta}, \frac{1}{2}, 1\right) \]
        15. metadata-evalN/A

          \[\leadsto \mathsf{fma}\left(\frac{\mathsf{fma}\left(\alpha, \color{blue}{-2}, -1 \cdot 2\right)}{\beta}, \frac{1}{2}, 1\right) \]
        16. metadata-eval98.4

          \[\leadsto \mathsf{fma}\left(\frac{\mathsf{fma}\left(\alpha, -2, \color{blue}{-2}\right)}{\beta}, 0.5, 1\right) \]
      5. Applied rewrites98.4%

        \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{\mathsf{fma}\left(\alpha, -2, -2\right)}{\beta}, 0.5, 1\right)} \]
      6. Taylor expanded in alpha around 0

        \[\leadsto 1 - \color{blue}{\frac{1}{\beta}} \]
      7. Step-by-step derivation
        1. Applied rewrites98.0%

          \[\leadsto 1 - \color{blue}{\frac{1}{\beta}} \]
      8. Recombined 3 regimes into one program.
      9. Final simplification98.0%

        \[\leadsto \begin{array}{l} \mathbf{if}\;\frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)} \leq -0.5:\\ \;\;\;\;\frac{1 + \beta}{\alpha}\\ \mathbf{elif}\;\frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)} \leq 0.001:\\ \;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.0625, \beta, -0.125\right), \beta, 0.25\right), \beta, 0.5\right)\\ \mathbf{else}:\\ \;\;\;\;1 - \frac{1}{\beta}\\ \end{array} \]
      10. Add Preprocessing

      Alternative 4: 97.5% accurate, 0.5× speedup?

      \[\begin{array}{l} \\ \begin{array}{l} t_0 := \frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)}\\ \mathbf{if}\;t\_0 \leq -0.5:\\ \;\;\;\;\frac{1 + \beta}{\alpha}\\ \mathbf{elif}\;t\_0 \leq 0.001:\\ \;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(-0.125, \beta, 0.25\right), \beta, 0.5\right)\\ \mathbf{else}:\\ \;\;\;\;1 - \frac{1}{\beta}\\ \end{array} \end{array} \]
      (FPCore (alpha beta)
       :precision binary64
       (let* ((t_0 (/ (- beta alpha) (+ 2.0 (+ alpha beta)))))
         (if (<= t_0 -0.5)
           (/ (+ 1.0 beta) alpha)
           (if (<= t_0 0.001)
             (fma (fma -0.125 beta 0.25) beta 0.5)
             (- 1.0 (/ 1.0 beta))))))
      double code(double alpha, double beta) {
      	double t_0 = (beta - alpha) / (2.0 + (alpha + beta));
      	double tmp;
      	if (t_0 <= -0.5) {
      		tmp = (1.0 + beta) / alpha;
      	} else if (t_0 <= 0.001) {
      		tmp = fma(fma(-0.125, beta, 0.25), beta, 0.5);
      	} else {
      		tmp = 1.0 - (1.0 / beta);
      	}
      	return tmp;
      }
      
      function code(alpha, beta)
      	t_0 = Float64(Float64(beta - alpha) / Float64(2.0 + Float64(alpha + beta)))
      	tmp = 0.0
      	if (t_0 <= -0.5)
      		tmp = Float64(Float64(1.0 + beta) / alpha);
      	elseif (t_0 <= 0.001)
      		tmp = fma(fma(-0.125, beta, 0.25), beta, 0.5);
      	else
      		tmp = Float64(1.0 - Float64(1.0 / beta));
      	end
      	return tmp
      end
      
      code[alpha_, beta_] := Block[{t$95$0 = N[(N[(beta - alpha), $MachinePrecision] / N[(2.0 + N[(alpha + beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, -0.5], N[(N[(1.0 + beta), $MachinePrecision] / alpha), $MachinePrecision], If[LessEqual[t$95$0, 0.001], N[(N[(-0.125 * beta + 0.25), $MachinePrecision] * beta + 0.5), $MachinePrecision], N[(1.0 - N[(1.0 / beta), $MachinePrecision]), $MachinePrecision]]]]
      
      \begin{array}{l}
      
      \\
      \begin{array}{l}
      t_0 := \frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)}\\
      \mathbf{if}\;t\_0 \leq -0.5:\\
      \;\;\;\;\frac{1 + \beta}{\alpha}\\
      
      \mathbf{elif}\;t\_0 \leq 0.001:\\
      \;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(-0.125, \beta, 0.25\right), \beta, 0.5\right)\\
      
      \mathbf{else}:\\
      \;\;\;\;1 - \frac{1}{\beta}\\
      
      
      \end{array}
      \end{array}
      
      Derivation
      1. Split input into 3 regimes
      2. if (/.f64 (-.f64 beta alpha) (+.f64 (+.f64 alpha beta) #s(literal 2 binary64))) < -0.5

        1. Initial program 8.5%

          \[\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2} \]
        2. Add Preprocessing
        3. Taylor expanded in alpha around inf

          \[\leadsto \color{blue}{\frac{1}{2} \cdot \frac{2 + 2 \cdot \beta}{\alpha}} \]
        4. Step-by-step derivation
          1. associate-*r/N/A

            \[\leadsto \color{blue}{\frac{\frac{1}{2} \cdot \left(2 + 2 \cdot \beta\right)}{\alpha}} \]
          2. lower-/.f64N/A

            \[\leadsto \color{blue}{\frac{\frac{1}{2} \cdot \left(2 + 2 \cdot \beta\right)}{\alpha}} \]
          3. distribute-lft-inN/A

            \[\leadsto \frac{\color{blue}{\frac{1}{2} \cdot 2 + \frac{1}{2} \cdot \left(2 \cdot \beta\right)}}{\alpha} \]
          4. metadata-evalN/A

            \[\leadsto \frac{\color{blue}{1} + \frac{1}{2} \cdot \left(2 \cdot \beta\right)}{\alpha} \]
          5. associate-*r*N/A

            \[\leadsto \frac{1 + \color{blue}{\left(\frac{1}{2} \cdot 2\right) \cdot \beta}}{\alpha} \]
          6. metadata-evalN/A

            \[\leadsto \frac{1 + \color{blue}{1} \cdot \beta}{\alpha} \]
          7. *-lft-identityN/A

            \[\leadsto \frac{1 + \color{blue}{\beta}}{\alpha} \]
          8. lower-+.f6497.5

            \[\leadsto \frac{\color{blue}{1 + \beta}}{\alpha} \]
        5. Applied rewrites97.5%

          \[\leadsto \color{blue}{\frac{1 + \beta}{\alpha}} \]

        if -0.5 < (/.f64 (-.f64 beta alpha) (+.f64 (+.f64 alpha beta) #s(literal 2 binary64))) < 1e-3

        1. Initial program 100.0%

          \[\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2} \]
        2. Add Preprocessing
        3. Taylor expanded in alpha around 0

          \[\leadsto \color{blue}{\frac{1}{2} \cdot \left(1 + \frac{\beta}{2 + \beta}\right)} \]
        4. Step-by-step derivation
          1. +-commutativeN/A

            \[\leadsto \frac{1}{2} \cdot \color{blue}{\left(\frac{\beta}{2 + \beta} + 1\right)} \]
          2. distribute-rgt-inN/A

            \[\leadsto \color{blue}{\frac{\beta}{2 + \beta} \cdot \frac{1}{2} + 1 \cdot \frac{1}{2}} \]
          3. metadata-evalN/A

            \[\leadsto \frac{\beta}{2 + \beta} \cdot \frac{1}{2} + \color{blue}{\frac{1}{2}} \]
          4. lower-fma.f64N/A

            \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{\beta}{2 + \beta}, \frac{1}{2}, \frac{1}{2}\right)} \]
          5. lower-/.f64N/A

            \[\leadsto \mathsf{fma}\left(\color{blue}{\frac{\beta}{2 + \beta}}, \frac{1}{2}, \frac{1}{2}\right) \]
          6. +-commutativeN/A

            \[\leadsto \mathsf{fma}\left(\frac{\beta}{\color{blue}{\beta + 2}}, \frac{1}{2}, \frac{1}{2}\right) \]
          7. metadata-evalN/A

            \[\leadsto \mathsf{fma}\left(\frac{\beta}{\beta + \color{blue}{\left(\mathsf{neg}\left(-2\right)\right)}}, \frac{1}{2}, \frac{1}{2}\right) \]
          8. metadata-evalN/A

            \[\leadsto \mathsf{fma}\left(\frac{\beta}{\beta + \left(\mathsf{neg}\left(\color{blue}{-1 \cdot 2}\right)\right)}, \frac{1}{2}, \frac{1}{2}\right) \]
          9. sub-negN/A

            \[\leadsto \mathsf{fma}\left(\frac{\beta}{\color{blue}{\beta - -1 \cdot 2}}, \frac{1}{2}, \frac{1}{2}\right) \]
          10. lower--.f64N/A

            \[\leadsto \mathsf{fma}\left(\frac{\beta}{\color{blue}{\beta - -1 \cdot 2}}, \frac{1}{2}, \frac{1}{2}\right) \]
          11. metadata-eval98.4

            \[\leadsto \mathsf{fma}\left(\frac{\beta}{\beta - \color{blue}{-2}}, 0.5, 0.5\right) \]
        5. Applied rewrites98.4%

          \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{\beta}{\beta - -2}, 0.5, 0.5\right)} \]
        6. Taylor expanded in beta around 0

          \[\leadsto \frac{1}{2} + \color{blue}{\beta \cdot \left(\frac{1}{4} + \frac{-1}{8} \cdot \beta\right)} \]
        7. Step-by-step derivation
          1. Applied rewrites98.1%

            \[\leadsto \mathsf{fma}\left(\mathsf{fma}\left(-0.125, \beta, 0.25\right), \color{blue}{\beta}, 0.5\right) \]

          if 1e-3 < (/.f64 (-.f64 beta alpha) (+.f64 (+.f64 alpha beta) #s(literal 2 binary64)))

          1. Initial program 99.9%

            \[\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2} \]
          2. Add Preprocessing
          3. Taylor expanded in beta around -inf

            \[\leadsto \color{blue}{1 + \frac{1}{2} \cdot \frac{-1 \cdot \alpha - \left(2 + \alpha\right)}{\beta}} \]
          4. Step-by-step derivation
            1. +-commutativeN/A

              \[\leadsto \color{blue}{\frac{1}{2} \cdot \frac{-1 \cdot \alpha - \left(2 + \alpha\right)}{\beta} + 1} \]
            2. *-commutativeN/A

              \[\leadsto \color{blue}{\frac{-1 \cdot \alpha - \left(2 + \alpha\right)}{\beta} \cdot \frac{1}{2}} + 1 \]
            3. lower-fma.f64N/A

              \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{-1 \cdot \alpha - \left(2 + \alpha\right)}{\beta}, \frac{1}{2}, 1\right)} \]
            4. lower-/.f64N/A

              \[\leadsto \mathsf{fma}\left(\color{blue}{\frac{-1 \cdot \alpha - \left(2 + \alpha\right)}{\beta}}, \frac{1}{2}, 1\right) \]
            5. +-commutativeN/A

              \[\leadsto \mathsf{fma}\left(\frac{-1 \cdot \alpha - \color{blue}{\left(\alpha + 2\right)}}{\beta}, \frac{1}{2}, 1\right) \]
            6. associate--r+N/A

              \[\leadsto \mathsf{fma}\left(\frac{\color{blue}{\left(-1 \cdot \alpha - \alpha\right) - 2}}{\beta}, \frac{1}{2}, 1\right) \]
            7. sub-negN/A

              \[\leadsto \mathsf{fma}\left(\frac{\color{blue}{\left(-1 \cdot \alpha - \alpha\right) + \left(\mathsf{neg}\left(2\right)\right)}}{\beta}, \frac{1}{2}, 1\right) \]
            8. *-lft-identityN/A

              \[\leadsto \mathsf{fma}\left(\frac{\left(-1 \cdot \alpha - \color{blue}{1 \cdot \alpha}\right) + \left(\mathsf{neg}\left(2\right)\right)}{\beta}, \frac{1}{2}, 1\right) \]
            9. distribute-rgt-out--N/A

              \[\leadsto \mathsf{fma}\left(\frac{\color{blue}{\alpha \cdot \left(-1 - 1\right)} + \left(\mathsf{neg}\left(2\right)\right)}{\beta}, \frac{1}{2}, 1\right) \]
            10. metadata-evalN/A

              \[\leadsto \mathsf{fma}\left(\frac{\alpha \cdot \color{blue}{-2} + \left(\mathsf{neg}\left(2\right)\right)}{\beta}, \frac{1}{2}, 1\right) \]
            11. metadata-evalN/A

              \[\leadsto \mathsf{fma}\left(\frac{\alpha \cdot \color{blue}{\left(-1 \cdot 2\right)} + \left(\mathsf{neg}\left(2\right)\right)}{\beta}, \frac{1}{2}, 1\right) \]
            12. metadata-evalN/A

              \[\leadsto \mathsf{fma}\left(\frac{\alpha \cdot \left(-1 \cdot 2\right) + \color{blue}{-2}}{\beta}, \frac{1}{2}, 1\right) \]
            13. metadata-evalN/A

              \[\leadsto \mathsf{fma}\left(\frac{\alpha \cdot \left(-1 \cdot 2\right) + \color{blue}{-1 \cdot 2}}{\beta}, \frac{1}{2}, 1\right) \]
            14. lower-fma.f64N/A

              \[\leadsto \mathsf{fma}\left(\frac{\color{blue}{\mathsf{fma}\left(\alpha, -1 \cdot 2, -1 \cdot 2\right)}}{\beta}, \frac{1}{2}, 1\right) \]
            15. metadata-evalN/A

              \[\leadsto \mathsf{fma}\left(\frac{\mathsf{fma}\left(\alpha, \color{blue}{-2}, -1 \cdot 2\right)}{\beta}, \frac{1}{2}, 1\right) \]
            16. metadata-eval98.4

              \[\leadsto \mathsf{fma}\left(\frac{\mathsf{fma}\left(\alpha, -2, \color{blue}{-2}\right)}{\beta}, 0.5, 1\right) \]
          5. Applied rewrites98.4%

            \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{\mathsf{fma}\left(\alpha, -2, -2\right)}{\beta}, 0.5, 1\right)} \]
          6. Taylor expanded in alpha around 0

            \[\leadsto 1 - \color{blue}{\frac{1}{\beta}} \]
          7. Step-by-step derivation
            1. Applied rewrites98.0%

              \[\leadsto 1 - \color{blue}{\frac{1}{\beta}} \]
          8. Recombined 3 regimes into one program.
          9. Final simplification97.9%

            \[\leadsto \begin{array}{l} \mathbf{if}\;\frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)} \leq -0.5:\\ \;\;\;\;\frac{1 + \beta}{\alpha}\\ \mathbf{elif}\;\frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)} \leq 0.001:\\ \;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(-0.125, \beta, 0.25\right), \beta, 0.5\right)\\ \mathbf{else}:\\ \;\;\;\;1 - \frac{1}{\beta}\\ \end{array} \]
          10. Add Preprocessing

          Alternative 5: 92.0% accurate, 0.5× speedup?

          \[\begin{array}{l} \\ \begin{array}{l} t_0 := \frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)}\\ \mathbf{if}\;t\_0 \leq -0.5:\\ \;\;\;\;\frac{1}{\alpha}\\ \mathbf{elif}\;t\_0 \leq 0.001:\\ \;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(-0.125, \beta, 0.25\right), \beta, 0.5\right)\\ \mathbf{else}:\\ \;\;\;\;1 - \frac{1}{\beta}\\ \end{array} \end{array} \]
          (FPCore (alpha beta)
           :precision binary64
           (let* ((t_0 (/ (- beta alpha) (+ 2.0 (+ alpha beta)))))
             (if (<= t_0 -0.5)
               (/ 1.0 alpha)
               (if (<= t_0 0.001)
                 (fma (fma -0.125 beta 0.25) beta 0.5)
                 (- 1.0 (/ 1.0 beta))))))
          double code(double alpha, double beta) {
          	double t_0 = (beta - alpha) / (2.0 + (alpha + beta));
          	double tmp;
          	if (t_0 <= -0.5) {
          		tmp = 1.0 / alpha;
          	} else if (t_0 <= 0.001) {
          		tmp = fma(fma(-0.125, beta, 0.25), beta, 0.5);
          	} else {
          		tmp = 1.0 - (1.0 / beta);
          	}
          	return tmp;
          }
          
          function code(alpha, beta)
          	t_0 = Float64(Float64(beta - alpha) / Float64(2.0 + Float64(alpha + beta)))
          	tmp = 0.0
          	if (t_0 <= -0.5)
          		tmp = Float64(1.0 / alpha);
          	elseif (t_0 <= 0.001)
          		tmp = fma(fma(-0.125, beta, 0.25), beta, 0.5);
          	else
          		tmp = Float64(1.0 - Float64(1.0 / beta));
          	end
          	return tmp
          end
          
          code[alpha_, beta_] := Block[{t$95$0 = N[(N[(beta - alpha), $MachinePrecision] / N[(2.0 + N[(alpha + beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, -0.5], N[(1.0 / alpha), $MachinePrecision], If[LessEqual[t$95$0, 0.001], N[(N[(-0.125 * beta + 0.25), $MachinePrecision] * beta + 0.5), $MachinePrecision], N[(1.0 - N[(1.0 / beta), $MachinePrecision]), $MachinePrecision]]]]
          
          \begin{array}{l}
          
          \\
          \begin{array}{l}
          t_0 := \frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)}\\
          \mathbf{if}\;t\_0 \leq -0.5:\\
          \;\;\;\;\frac{1}{\alpha}\\
          
          \mathbf{elif}\;t\_0 \leq 0.001:\\
          \;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(-0.125, \beta, 0.25\right), \beta, 0.5\right)\\
          
          \mathbf{else}:\\
          \;\;\;\;1 - \frac{1}{\beta}\\
          
          
          \end{array}
          \end{array}
          
          Derivation
          1. Split input into 3 regimes
          2. if (/.f64 (-.f64 beta alpha) (+.f64 (+.f64 alpha beta) #s(literal 2 binary64))) < -0.5

            1. Initial program 8.5%

              \[\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2} \]
            2. Add Preprocessing
            3. Taylor expanded in beta around 0

              \[\leadsto \color{blue}{\frac{1}{2} \cdot \left(1 - \frac{\alpha}{2 + \alpha}\right)} \]
            4. Step-by-step derivation
              1. *-commutativeN/A

                \[\leadsto \color{blue}{\left(1 - \frac{\alpha}{2 + \alpha}\right) \cdot \frac{1}{2}} \]
              2. lower-*.f64N/A

                \[\leadsto \color{blue}{\left(1 - \frac{\alpha}{2 + \alpha}\right) \cdot \frac{1}{2}} \]
              3. lower--.f64N/A

                \[\leadsto \color{blue}{\left(1 - \frac{\alpha}{2 + \alpha}\right)} \cdot \frac{1}{2} \]
              4. lower-/.f64N/A

                \[\leadsto \left(1 - \color{blue}{\frac{\alpha}{2 + \alpha}}\right) \cdot \frac{1}{2} \]
              5. lower-+.f648.5

                \[\leadsto \left(1 - \frac{\alpha}{\color{blue}{2 + \alpha}}\right) \cdot 0.5 \]
            5. Applied rewrites8.5%

              \[\leadsto \color{blue}{\left(1 - \frac{\alpha}{2 + \alpha}\right) \cdot 0.5} \]
            6. Taylor expanded in alpha around inf

              \[\leadsto \frac{1}{\color{blue}{\alpha}} \]
            7. Step-by-step derivation
              1. Applied rewrites75.8%

                \[\leadsto \frac{1}{\color{blue}{\alpha}} \]

              if -0.5 < (/.f64 (-.f64 beta alpha) (+.f64 (+.f64 alpha beta) #s(literal 2 binary64))) < 1e-3

              1. Initial program 100.0%

                \[\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2} \]
              2. Add Preprocessing
              3. Taylor expanded in alpha around 0

                \[\leadsto \color{blue}{\frac{1}{2} \cdot \left(1 + \frac{\beta}{2 + \beta}\right)} \]
              4. Step-by-step derivation
                1. +-commutativeN/A

                  \[\leadsto \frac{1}{2} \cdot \color{blue}{\left(\frac{\beta}{2 + \beta} + 1\right)} \]
                2. distribute-rgt-inN/A

                  \[\leadsto \color{blue}{\frac{\beta}{2 + \beta} \cdot \frac{1}{2} + 1 \cdot \frac{1}{2}} \]
                3. metadata-evalN/A

                  \[\leadsto \frac{\beta}{2 + \beta} \cdot \frac{1}{2} + \color{blue}{\frac{1}{2}} \]
                4. lower-fma.f64N/A

                  \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{\beta}{2 + \beta}, \frac{1}{2}, \frac{1}{2}\right)} \]
                5. lower-/.f64N/A

                  \[\leadsto \mathsf{fma}\left(\color{blue}{\frac{\beta}{2 + \beta}}, \frac{1}{2}, \frac{1}{2}\right) \]
                6. +-commutativeN/A

                  \[\leadsto \mathsf{fma}\left(\frac{\beta}{\color{blue}{\beta + 2}}, \frac{1}{2}, \frac{1}{2}\right) \]
                7. metadata-evalN/A

                  \[\leadsto \mathsf{fma}\left(\frac{\beta}{\beta + \color{blue}{\left(\mathsf{neg}\left(-2\right)\right)}}, \frac{1}{2}, \frac{1}{2}\right) \]
                8. metadata-evalN/A

                  \[\leadsto \mathsf{fma}\left(\frac{\beta}{\beta + \left(\mathsf{neg}\left(\color{blue}{-1 \cdot 2}\right)\right)}, \frac{1}{2}, \frac{1}{2}\right) \]
                9. sub-negN/A

                  \[\leadsto \mathsf{fma}\left(\frac{\beta}{\color{blue}{\beta - -1 \cdot 2}}, \frac{1}{2}, \frac{1}{2}\right) \]
                10. lower--.f64N/A

                  \[\leadsto \mathsf{fma}\left(\frac{\beta}{\color{blue}{\beta - -1 \cdot 2}}, \frac{1}{2}, \frac{1}{2}\right) \]
                11. metadata-eval98.4

                  \[\leadsto \mathsf{fma}\left(\frac{\beta}{\beta - \color{blue}{-2}}, 0.5, 0.5\right) \]
              5. Applied rewrites98.4%

                \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{\beta}{\beta - -2}, 0.5, 0.5\right)} \]
              6. Taylor expanded in beta around 0

                \[\leadsto \frac{1}{2} + \color{blue}{\beta \cdot \left(\frac{1}{4} + \frac{-1}{8} \cdot \beta\right)} \]
              7. Step-by-step derivation
                1. Applied rewrites98.1%

                  \[\leadsto \mathsf{fma}\left(\mathsf{fma}\left(-0.125, \beta, 0.25\right), \color{blue}{\beta}, 0.5\right) \]

                if 1e-3 < (/.f64 (-.f64 beta alpha) (+.f64 (+.f64 alpha beta) #s(literal 2 binary64)))

                1. Initial program 99.9%

                  \[\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2} \]
                2. Add Preprocessing
                3. Taylor expanded in beta around -inf

                  \[\leadsto \color{blue}{1 + \frac{1}{2} \cdot \frac{-1 \cdot \alpha - \left(2 + \alpha\right)}{\beta}} \]
                4. Step-by-step derivation
                  1. +-commutativeN/A

                    \[\leadsto \color{blue}{\frac{1}{2} \cdot \frac{-1 \cdot \alpha - \left(2 + \alpha\right)}{\beta} + 1} \]
                  2. *-commutativeN/A

                    \[\leadsto \color{blue}{\frac{-1 \cdot \alpha - \left(2 + \alpha\right)}{\beta} \cdot \frac{1}{2}} + 1 \]
                  3. lower-fma.f64N/A

                    \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{-1 \cdot \alpha - \left(2 + \alpha\right)}{\beta}, \frac{1}{2}, 1\right)} \]
                  4. lower-/.f64N/A

                    \[\leadsto \mathsf{fma}\left(\color{blue}{\frac{-1 \cdot \alpha - \left(2 + \alpha\right)}{\beta}}, \frac{1}{2}, 1\right) \]
                  5. +-commutativeN/A

                    \[\leadsto \mathsf{fma}\left(\frac{-1 \cdot \alpha - \color{blue}{\left(\alpha + 2\right)}}{\beta}, \frac{1}{2}, 1\right) \]
                  6. associate--r+N/A

                    \[\leadsto \mathsf{fma}\left(\frac{\color{blue}{\left(-1 \cdot \alpha - \alpha\right) - 2}}{\beta}, \frac{1}{2}, 1\right) \]
                  7. sub-negN/A

                    \[\leadsto \mathsf{fma}\left(\frac{\color{blue}{\left(-1 \cdot \alpha - \alpha\right) + \left(\mathsf{neg}\left(2\right)\right)}}{\beta}, \frac{1}{2}, 1\right) \]
                  8. *-lft-identityN/A

                    \[\leadsto \mathsf{fma}\left(\frac{\left(-1 \cdot \alpha - \color{blue}{1 \cdot \alpha}\right) + \left(\mathsf{neg}\left(2\right)\right)}{\beta}, \frac{1}{2}, 1\right) \]
                  9. distribute-rgt-out--N/A

                    \[\leadsto \mathsf{fma}\left(\frac{\color{blue}{\alpha \cdot \left(-1 - 1\right)} + \left(\mathsf{neg}\left(2\right)\right)}{\beta}, \frac{1}{2}, 1\right) \]
                  10. metadata-evalN/A

                    \[\leadsto \mathsf{fma}\left(\frac{\alpha \cdot \color{blue}{-2} + \left(\mathsf{neg}\left(2\right)\right)}{\beta}, \frac{1}{2}, 1\right) \]
                  11. metadata-evalN/A

                    \[\leadsto \mathsf{fma}\left(\frac{\alpha \cdot \color{blue}{\left(-1 \cdot 2\right)} + \left(\mathsf{neg}\left(2\right)\right)}{\beta}, \frac{1}{2}, 1\right) \]
                  12. metadata-evalN/A

                    \[\leadsto \mathsf{fma}\left(\frac{\alpha \cdot \left(-1 \cdot 2\right) + \color{blue}{-2}}{\beta}, \frac{1}{2}, 1\right) \]
                  13. metadata-evalN/A

                    \[\leadsto \mathsf{fma}\left(\frac{\alpha \cdot \left(-1 \cdot 2\right) + \color{blue}{-1 \cdot 2}}{\beta}, \frac{1}{2}, 1\right) \]
                  14. lower-fma.f64N/A

                    \[\leadsto \mathsf{fma}\left(\frac{\color{blue}{\mathsf{fma}\left(\alpha, -1 \cdot 2, -1 \cdot 2\right)}}{\beta}, \frac{1}{2}, 1\right) \]
                  15. metadata-evalN/A

                    \[\leadsto \mathsf{fma}\left(\frac{\mathsf{fma}\left(\alpha, \color{blue}{-2}, -1 \cdot 2\right)}{\beta}, \frac{1}{2}, 1\right) \]
                  16. metadata-eval98.4

                    \[\leadsto \mathsf{fma}\left(\frac{\mathsf{fma}\left(\alpha, -2, \color{blue}{-2}\right)}{\beta}, 0.5, 1\right) \]
                5. Applied rewrites98.4%

                  \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{\mathsf{fma}\left(\alpha, -2, -2\right)}{\beta}, 0.5, 1\right)} \]
                6. Taylor expanded in alpha around 0

                  \[\leadsto 1 - \color{blue}{\frac{1}{\beta}} \]
                7. Step-by-step derivation
                  1. Applied rewrites98.0%

                    \[\leadsto 1 - \color{blue}{\frac{1}{\beta}} \]
                8. Recombined 3 regimes into one program.
                9. Final simplification92.6%

                  \[\leadsto \begin{array}{l} \mathbf{if}\;\frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)} \leq -0.5:\\ \;\;\;\;\frac{1}{\alpha}\\ \mathbf{elif}\;\frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)} \leq 0.001:\\ \;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(-0.125, \beta, 0.25\right), \beta, 0.5\right)\\ \mathbf{else}:\\ \;\;\;\;1 - \frac{1}{\beta}\\ \end{array} \]
                10. Add Preprocessing

                Alternative 6: 91.9% accurate, 0.5× speedup?

                \[\begin{array}{l} \\ \begin{array}{l} t_0 := \frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)}\\ \mathbf{if}\;t\_0 \leq -0.5:\\ \;\;\;\;\frac{1}{\alpha}\\ \mathbf{elif}\;t\_0 \leq 0.001:\\ \;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(-0.125, \beta, 0.25\right), \beta, 0.5\right)\\ \mathbf{else}:\\ \;\;\;\;1\\ \end{array} \end{array} \]
                (FPCore (alpha beta)
                 :precision binary64
                 (let* ((t_0 (/ (- beta alpha) (+ 2.0 (+ alpha beta)))))
                   (if (<= t_0 -0.5)
                     (/ 1.0 alpha)
                     (if (<= t_0 0.001) (fma (fma -0.125 beta 0.25) beta 0.5) 1.0))))
                double code(double alpha, double beta) {
                	double t_0 = (beta - alpha) / (2.0 + (alpha + beta));
                	double tmp;
                	if (t_0 <= -0.5) {
                		tmp = 1.0 / alpha;
                	} else if (t_0 <= 0.001) {
                		tmp = fma(fma(-0.125, beta, 0.25), beta, 0.5);
                	} else {
                		tmp = 1.0;
                	}
                	return tmp;
                }
                
                function code(alpha, beta)
                	t_0 = Float64(Float64(beta - alpha) / Float64(2.0 + Float64(alpha + beta)))
                	tmp = 0.0
                	if (t_0 <= -0.5)
                		tmp = Float64(1.0 / alpha);
                	elseif (t_0 <= 0.001)
                		tmp = fma(fma(-0.125, beta, 0.25), beta, 0.5);
                	else
                		tmp = 1.0;
                	end
                	return tmp
                end
                
                code[alpha_, beta_] := Block[{t$95$0 = N[(N[(beta - alpha), $MachinePrecision] / N[(2.0 + N[(alpha + beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, -0.5], N[(1.0 / alpha), $MachinePrecision], If[LessEqual[t$95$0, 0.001], N[(N[(-0.125 * beta + 0.25), $MachinePrecision] * beta + 0.5), $MachinePrecision], 1.0]]]
                
                \begin{array}{l}
                
                \\
                \begin{array}{l}
                t_0 := \frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)}\\
                \mathbf{if}\;t\_0 \leq -0.5:\\
                \;\;\;\;\frac{1}{\alpha}\\
                
                \mathbf{elif}\;t\_0 \leq 0.001:\\
                \;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(-0.125, \beta, 0.25\right), \beta, 0.5\right)\\
                
                \mathbf{else}:\\
                \;\;\;\;1\\
                
                
                \end{array}
                \end{array}
                
                Derivation
                1. Split input into 3 regimes
                2. if (/.f64 (-.f64 beta alpha) (+.f64 (+.f64 alpha beta) #s(literal 2 binary64))) < -0.5

                  1. Initial program 8.5%

                    \[\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2} \]
                  2. Add Preprocessing
                  3. Taylor expanded in beta around 0

                    \[\leadsto \color{blue}{\frac{1}{2} \cdot \left(1 - \frac{\alpha}{2 + \alpha}\right)} \]
                  4. Step-by-step derivation
                    1. *-commutativeN/A

                      \[\leadsto \color{blue}{\left(1 - \frac{\alpha}{2 + \alpha}\right) \cdot \frac{1}{2}} \]
                    2. lower-*.f64N/A

                      \[\leadsto \color{blue}{\left(1 - \frac{\alpha}{2 + \alpha}\right) \cdot \frac{1}{2}} \]
                    3. lower--.f64N/A

                      \[\leadsto \color{blue}{\left(1 - \frac{\alpha}{2 + \alpha}\right)} \cdot \frac{1}{2} \]
                    4. lower-/.f64N/A

                      \[\leadsto \left(1 - \color{blue}{\frac{\alpha}{2 + \alpha}}\right) \cdot \frac{1}{2} \]
                    5. lower-+.f648.5

                      \[\leadsto \left(1 - \frac{\alpha}{\color{blue}{2 + \alpha}}\right) \cdot 0.5 \]
                  5. Applied rewrites8.5%

                    \[\leadsto \color{blue}{\left(1 - \frac{\alpha}{2 + \alpha}\right) \cdot 0.5} \]
                  6. Taylor expanded in alpha around inf

                    \[\leadsto \frac{1}{\color{blue}{\alpha}} \]
                  7. Step-by-step derivation
                    1. Applied rewrites75.8%

                      \[\leadsto \frac{1}{\color{blue}{\alpha}} \]

                    if -0.5 < (/.f64 (-.f64 beta alpha) (+.f64 (+.f64 alpha beta) #s(literal 2 binary64))) < 1e-3

                    1. Initial program 100.0%

                      \[\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2} \]
                    2. Add Preprocessing
                    3. Taylor expanded in alpha around 0

                      \[\leadsto \color{blue}{\frac{1}{2} \cdot \left(1 + \frac{\beta}{2 + \beta}\right)} \]
                    4. Step-by-step derivation
                      1. +-commutativeN/A

                        \[\leadsto \frac{1}{2} \cdot \color{blue}{\left(\frac{\beta}{2 + \beta} + 1\right)} \]
                      2. distribute-rgt-inN/A

                        \[\leadsto \color{blue}{\frac{\beta}{2 + \beta} \cdot \frac{1}{2} + 1 \cdot \frac{1}{2}} \]
                      3. metadata-evalN/A

                        \[\leadsto \frac{\beta}{2 + \beta} \cdot \frac{1}{2} + \color{blue}{\frac{1}{2}} \]
                      4. lower-fma.f64N/A

                        \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{\beta}{2 + \beta}, \frac{1}{2}, \frac{1}{2}\right)} \]
                      5. lower-/.f64N/A

                        \[\leadsto \mathsf{fma}\left(\color{blue}{\frac{\beta}{2 + \beta}}, \frac{1}{2}, \frac{1}{2}\right) \]
                      6. +-commutativeN/A

                        \[\leadsto \mathsf{fma}\left(\frac{\beta}{\color{blue}{\beta + 2}}, \frac{1}{2}, \frac{1}{2}\right) \]
                      7. metadata-evalN/A

                        \[\leadsto \mathsf{fma}\left(\frac{\beta}{\beta + \color{blue}{\left(\mathsf{neg}\left(-2\right)\right)}}, \frac{1}{2}, \frac{1}{2}\right) \]
                      8. metadata-evalN/A

                        \[\leadsto \mathsf{fma}\left(\frac{\beta}{\beta + \left(\mathsf{neg}\left(\color{blue}{-1 \cdot 2}\right)\right)}, \frac{1}{2}, \frac{1}{2}\right) \]
                      9. sub-negN/A

                        \[\leadsto \mathsf{fma}\left(\frac{\beta}{\color{blue}{\beta - -1 \cdot 2}}, \frac{1}{2}, \frac{1}{2}\right) \]
                      10. lower--.f64N/A

                        \[\leadsto \mathsf{fma}\left(\frac{\beta}{\color{blue}{\beta - -1 \cdot 2}}, \frac{1}{2}, \frac{1}{2}\right) \]
                      11. metadata-eval98.4

                        \[\leadsto \mathsf{fma}\left(\frac{\beta}{\beta - \color{blue}{-2}}, 0.5, 0.5\right) \]
                    5. Applied rewrites98.4%

                      \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{\beta}{\beta - -2}, 0.5, 0.5\right)} \]
                    6. Taylor expanded in beta around 0

                      \[\leadsto \frac{1}{2} + \color{blue}{\beta \cdot \left(\frac{1}{4} + \frac{-1}{8} \cdot \beta\right)} \]
                    7. Step-by-step derivation
                      1. Applied rewrites98.1%

                        \[\leadsto \mathsf{fma}\left(\mathsf{fma}\left(-0.125, \beta, 0.25\right), \color{blue}{\beta}, 0.5\right) \]

                      if 1e-3 < (/.f64 (-.f64 beta alpha) (+.f64 (+.f64 alpha beta) #s(literal 2 binary64)))

                      1. Initial program 99.9%

                        \[\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2} \]
                      2. Add Preprocessing
                      3. Taylor expanded in beta around inf

                        \[\leadsto \color{blue}{1} \]
                      4. Step-by-step derivation
                        1. Applied rewrites96.3%

                          \[\leadsto \color{blue}{1} \]
                      5. Recombined 3 regimes into one program.
                      6. Final simplification92.1%

                        \[\leadsto \begin{array}{l} \mathbf{if}\;\frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)} \leq -0.5:\\ \;\;\;\;\frac{1}{\alpha}\\ \mathbf{elif}\;\frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)} \leq 0.001:\\ \;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(-0.125, \beta, 0.25\right), \beta, 0.5\right)\\ \mathbf{else}:\\ \;\;\;\;1\\ \end{array} \]
                      7. Add Preprocessing

                      Alternative 7: 99.6% accurate, 0.6× speedup?

                      \[\begin{array}{l} \\ \begin{array}{l} t_0 := \frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)}\\ \mathbf{if}\;t\_0 \leq -0.99999998:\\ \;\;\;\;\frac{1 + \beta}{\alpha}\\ \mathbf{else}:\\ \;\;\;\;\frac{1 + t\_0}{2}\\ \end{array} \end{array} \]
                      (FPCore (alpha beta)
                       :precision binary64
                       (let* ((t_0 (/ (- beta alpha) (+ 2.0 (+ alpha beta)))))
                         (if (<= t_0 -0.99999998) (/ (+ 1.0 beta) alpha) (/ (+ 1.0 t_0) 2.0))))
                      double code(double alpha, double beta) {
                      	double t_0 = (beta - alpha) / (2.0 + (alpha + beta));
                      	double tmp;
                      	if (t_0 <= -0.99999998) {
                      		tmp = (1.0 + beta) / alpha;
                      	} else {
                      		tmp = (1.0 + t_0) / 2.0;
                      	}
                      	return tmp;
                      }
                      
                      real(8) function code(alpha, beta)
                          real(8), intent (in) :: alpha
                          real(8), intent (in) :: beta
                          real(8) :: t_0
                          real(8) :: tmp
                          t_0 = (beta - alpha) / (2.0d0 + (alpha + beta))
                          if (t_0 <= (-0.99999998d0)) then
                              tmp = (1.0d0 + beta) / alpha
                          else
                              tmp = (1.0d0 + t_0) / 2.0d0
                          end if
                          code = tmp
                      end function
                      
                      public static double code(double alpha, double beta) {
                      	double t_0 = (beta - alpha) / (2.0 + (alpha + beta));
                      	double tmp;
                      	if (t_0 <= -0.99999998) {
                      		tmp = (1.0 + beta) / alpha;
                      	} else {
                      		tmp = (1.0 + t_0) / 2.0;
                      	}
                      	return tmp;
                      }
                      
                      def code(alpha, beta):
                      	t_0 = (beta - alpha) / (2.0 + (alpha + beta))
                      	tmp = 0
                      	if t_0 <= -0.99999998:
                      		tmp = (1.0 + beta) / alpha
                      	else:
                      		tmp = (1.0 + t_0) / 2.0
                      	return tmp
                      
                      function code(alpha, beta)
                      	t_0 = Float64(Float64(beta - alpha) / Float64(2.0 + Float64(alpha + beta)))
                      	tmp = 0.0
                      	if (t_0 <= -0.99999998)
                      		tmp = Float64(Float64(1.0 + beta) / alpha);
                      	else
                      		tmp = Float64(Float64(1.0 + t_0) / 2.0);
                      	end
                      	return tmp
                      end
                      
                      function tmp_2 = code(alpha, beta)
                      	t_0 = (beta - alpha) / (2.0 + (alpha + beta));
                      	tmp = 0.0;
                      	if (t_0 <= -0.99999998)
                      		tmp = (1.0 + beta) / alpha;
                      	else
                      		tmp = (1.0 + t_0) / 2.0;
                      	end
                      	tmp_2 = tmp;
                      end
                      
                      code[alpha_, beta_] := Block[{t$95$0 = N[(N[(beta - alpha), $MachinePrecision] / N[(2.0 + N[(alpha + beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, -0.99999998], N[(N[(1.0 + beta), $MachinePrecision] / alpha), $MachinePrecision], N[(N[(1.0 + t$95$0), $MachinePrecision] / 2.0), $MachinePrecision]]]
                      
                      \begin{array}{l}
                      
                      \\
                      \begin{array}{l}
                      t_0 := \frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)}\\
                      \mathbf{if}\;t\_0 \leq -0.99999998:\\
                      \;\;\;\;\frac{1 + \beta}{\alpha}\\
                      
                      \mathbf{else}:\\
                      \;\;\;\;\frac{1 + t\_0}{2}\\
                      
                      
                      \end{array}
                      \end{array}
                      
                      Derivation
                      1. Split input into 2 regimes
                      2. if (/.f64 (-.f64 beta alpha) (+.f64 (+.f64 alpha beta) #s(literal 2 binary64))) < -0.999999980000000011

                        1. Initial program 6.3%

                          \[\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2} \]
                        2. Add Preprocessing
                        3. Taylor expanded in alpha around inf

                          \[\leadsto \color{blue}{\frac{1}{2} \cdot \frac{2 + 2 \cdot \beta}{\alpha}} \]
                        4. Step-by-step derivation
                          1. associate-*r/N/A

                            \[\leadsto \color{blue}{\frac{\frac{1}{2} \cdot \left(2 + 2 \cdot \beta\right)}{\alpha}} \]
                          2. lower-/.f64N/A

                            \[\leadsto \color{blue}{\frac{\frac{1}{2} \cdot \left(2 + 2 \cdot \beta\right)}{\alpha}} \]
                          3. distribute-lft-inN/A

                            \[\leadsto \frac{\color{blue}{\frac{1}{2} \cdot 2 + \frac{1}{2} \cdot \left(2 \cdot \beta\right)}}{\alpha} \]
                          4. metadata-evalN/A

                            \[\leadsto \frac{\color{blue}{1} + \frac{1}{2} \cdot \left(2 \cdot \beta\right)}{\alpha} \]
                          5. associate-*r*N/A

                            \[\leadsto \frac{1 + \color{blue}{\left(\frac{1}{2} \cdot 2\right) \cdot \beta}}{\alpha} \]
                          6. metadata-evalN/A

                            \[\leadsto \frac{1 + \color{blue}{1} \cdot \beta}{\alpha} \]
                          7. *-lft-identityN/A

                            \[\leadsto \frac{1 + \color{blue}{\beta}}{\alpha} \]
                          8. lower-+.f6499.2

                            \[\leadsto \frac{\color{blue}{1 + \beta}}{\alpha} \]
                        5. Applied rewrites99.2%

                          \[\leadsto \color{blue}{\frac{1 + \beta}{\alpha}} \]

                        if -0.999999980000000011 < (/.f64 (-.f64 beta alpha) (+.f64 (+.f64 alpha beta) #s(literal 2 binary64)))

                        1. Initial program 99.7%

                          \[\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2} \]
                        2. Add Preprocessing
                      3. Recombined 2 regimes into one program.
                      4. Final simplification99.6%

                        \[\leadsto \begin{array}{l} \mathbf{if}\;\frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)} \leq -0.99999998:\\ \;\;\;\;\frac{1 + \beta}{\alpha}\\ \mathbf{else}:\\ \;\;\;\;\frac{1 + \frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)}}{2}\\ \end{array} \]
                      5. Add Preprocessing

                      Alternative 8: 91.7% accurate, 0.6× speedup?

                      \[\begin{array}{l} \\ \begin{array}{l} t_0 := \frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)}\\ \mathbf{if}\;t\_0 \leq -0.5:\\ \;\;\;\;\frac{1}{\alpha}\\ \mathbf{elif}\;t\_0 \leq 0.001:\\ \;\;\;\;\mathsf{fma}\left(0.25, \beta, 0.5\right)\\ \mathbf{else}:\\ \;\;\;\;1\\ \end{array} \end{array} \]
                      (FPCore (alpha beta)
                       :precision binary64
                       (let* ((t_0 (/ (- beta alpha) (+ 2.0 (+ alpha beta)))))
                         (if (<= t_0 -0.5)
                           (/ 1.0 alpha)
                           (if (<= t_0 0.001) (fma 0.25 beta 0.5) 1.0))))
                      double code(double alpha, double beta) {
                      	double t_0 = (beta - alpha) / (2.0 + (alpha + beta));
                      	double tmp;
                      	if (t_0 <= -0.5) {
                      		tmp = 1.0 / alpha;
                      	} else if (t_0 <= 0.001) {
                      		tmp = fma(0.25, beta, 0.5);
                      	} else {
                      		tmp = 1.0;
                      	}
                      	return tmp;
                      }
                      
                      function code(alpha, beta)
                      	t_0 = Float64(Float64(beta - alpha) / Float64(2.0 + Float64(alpha + beta)))
                      	tmp = 0.0
                      	if (t_0 <= -0.5)
                      		tmp = Float64(1.0 / alpha);
                      	elseif (t_0 <= 0.001)
                      		tmp = fma(0.25, beta, 0.5);
                      	else
                      		tmp = 1.0;
                      	end
                      	return tmp
                      end
                      
                      code[alpha_, beta_] := Block[{t$95$0 = N[(N[(beta - alpha), $MachinePrecision] / N[(2.0 + N[(alpha + beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, -0.5], N[(1.0 / alpha), $MachinePrecision], If[LessEqual[t$95$0, 0.001], N[(0.25 * beta + 0.5), $MachinePrecision], 1.0]]]
                      
                      \begin{array}{l}
                      
                      \\
                      \begin{array}{l}
                      t_0 := \frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)}\\
                      \mathbf{if}\;t\_0 \leq -0.5:\\
                      \;\;\;\;\frac{1}{\alpha}\\
                      
                      \mathbf{elif}\;t\_0 \leq 0.001:\\
                      \;\;\;\;\mathsf{fma}\left(0.25, \beta, 0.5\right)\\
                      
                      \mathbf{else}:\\
                      \;\;\;\;1\\
                      
                      
                      \end{array}
                      \end{array}
                      
                      Derivation
                      1. Split input into 3 regimes
                      2. if (/.f64 (-.f64 beta alpha) (+.f64 (+.f64 alpha beta) #s(literal 2 binary64))) < -0.5

                        1. Initial program 8.5%

                          \[\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2} \]
                        2. Add Preprocessing
                        3. Taylor expanded in beta around 0

                          \[\leadsto \color{blue}{\frac{1}{2} \cdot \left(1 - \frac{\alpha}{2 + \alpha}\right)} \]
                        4. Step-by-step derivation
                          1. *-commutativeN/A

                            \[\leadsto \color{blue}{\left(1 - \frac{\alpha}{2 + \alpha}\right) \cdot \frac{1}{2}} \]
                          2. lower-*.f64N/A

                            \[\leadsto \color{blue}{\left(1 - \frac{\alpha}{2 + \alpha}\right) \cdot \frac{1}{2}} \]
                          3. lower--.f64N/A

                            \[\leadsto \color{blue}{\left(1 - \frac{\alpha}{2 + \alpha}\right)} \cdot \frac{1}{2} \]
                          4. lower-/.f64N/A

                            \[\leadsto \left(1 - \color{blue}{\frac{\alpha}{2 + \alpha}}\right) \cdot \frac{1}{2} \]
                          5. lower-+.f648.5

                            \[\leadsto \left(1 - \frac{\alpha}{\color{blue}{2 + \alpha}}\right) \cdot 0.5 \]
                        5. Applied rewrites8.5%

                          \[\leadsto \color{blue}{\left(1 - \frac{\alpha}{2 + \alpha}\right) \cdot 0.5} \]
                        6. Taylor expanded in alpha around inf

                          \[\leadsto \frac{1}{\color{blue}{\alpha}} \]
                        7. Step-by-step derivation
                          1. Applied rewrites75.8%

                            \[\leadsto \frac{1}{\color{blue}{\alpha}} \]

                          if -0.5 < (/.f64 (-.f64 beta alpha) (+.f64 (+.f64 alpha beta) #s(literal 2 binary64))) < 1e-3

                          1. Initial program 100.0%

                            \[\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2} \]
                          2. Add Preprocessing
                          3. Taylor expanded in alpha around 0

                            \[\leadsto \color{blue}{\frac{1}{2} \cdot \left(1 + \frac{\beta}{2 + \beta}\right)} \]
                          4. Step-by-step derivation
                            1. +-commutativeN/A

                              \[\leadsto \frac{1}{2} \cdot \color{blue}{\left(\frac{\beta}{2 + \beta} + 1\right)} \]
                            2. distribute-rgt-inN/A

                              \[\leadsto \color{blue}{\frac{\beta}{2 + \beta} \cdot \frac{1}{2} + 1 \cdot \frac{1}{2}} \]
                            3. metadata-evalN/A

                              \[\leadsto \frac{\beta}{2 + \beta} \cdot \frac{1}{2} + \color{blue}{\frac{1}{2}} \]
                            4. lower-fma.f64N/A

                              \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{\beta}{2 + \beta}, \frac{1}{2}, \frac{1}{2}\right)} \]
                            5. lower-/.f64N/A

                              \[\leadsto \mathsf{fma}\left(\color{blue}{\frac{\beta}{2 + \beta}}, \frac{1}{2}, \frac{1}{2}\right) \]
                            6. +-commutativeN/A

                              \[\leadsto \mathsf{fma}\left(\frac{\beta}{\color{blue}{\beta + 2}}, \frac{1}{2}, \frac{1}{2}\right) \]
                            7. metadata-evalN/A

                              \[\leadsto \mathsf{fma}\left(\frac{\beta}{\beta + \color{blue}{\left(\mathsf{neg}\left(-2\right)\right)}}, \frac{1}{2}, \frac{1}{2}\right) \]
                            8. metadata-evalN/A

                              \[\leadsto \mathsf{fma}\left(\frac{\beta}{\beta + \left(\mathsf{neg}\left(\color{blue}{-1 \cdot 2}\right)\right)}, \frac{1}{2}, \frac{1}{2}\right) \]
                            9. sub-negN/A

                              \[\leadsto \mathsf{fma}\left(\frac{\beta}{\color{blue}{\beta - -1 \cdot 2}}, \frac{1}{2}, \frac{1}{2}\right) \]
                            10. lower--.f64N/A

                              \[\leadsto \mathsf{fma}\left(\frac{\beta}{\color{blue}{\beta - -1 \cdot 2}}, \frac{1}{2}, \frac{1}{2}\right) \]
                            11. metadata-eval98.4

                              \[\leadsto \mathsf{fma}\left(\frac{\beta}{\beta - \color{blue}{-2}}, 0.5, 0.5\right) \]
                          5. Applied rewrites98.4%

                            \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{\beta}{\beta - -2}, 0.5, 0.5\right)} \]
                          6. Taylor expanded in beta around 0

                            \[\leadsto \frac{1}{2} + \color{blue}{\frac{1}{4} \cdot \beta} \]
                          7. Step-by-step derivation
                            1. Applied rewrites97.7%

                              \[\leadsto \mathsf{fma}\left(0.25, \color{blue}{\beta}, 0.5\right) \]

                            if 1e-3 < (/.f64 (-.f64 beta alpha) (+.f64 (+.f64 alpha beta) #s(literal 2 binary64)))

                            1. Initial program 99.9%

                              \[\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2} \]
                            2. Add Preprocessing
                            3. Taylor expanded in beta around inf

                              \[\leadsto \color{blue}{1} \]
                            4. Step-by-step derivation
                              1. Applied rewrites96.3%

                                \[\leadsto \color{blue}{1} \]
                            5. Recombined 3 regimes into one program.
                            6. Final simplification91.9%

                              \[\leadsto \begin{array}{l} \mathbf{if}\;\frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)} \leq -0.5:\\ \;\;\;\;\frac{1}{\alpha}\\ \mathbf{elif}\;\frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)} \leq 0.001:\\ \;\;\;\;\mathsf{fma}\left(0.25, \beta, 0.5\right)\\ \mathbf{else}:\\ \;\;\;\;1\\ \end{array} \]
                            7. Add Preprocessing

                            Alternative 9: 98.1% accurate, 0.7× speedup?

                            \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;\frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)} \leq -0.5:\\ \;\;\;\;\frac{1 + \beta}{\alpha}\\ \mathbf{else}:\\ \;\;\;\;\mathsf{fma}\left(\beta, \frac{0.5}{\beta - -2}, 0.5\right)\\ \end{array} \end{array} \]
                            (FPCore (alpha beta)
                             :precision binary64
                             (if (<= (/ (- beta alpha) (+ 2.0 (+ alpha beta))) -0.5)
                               (/ (+ 1.0 beta) alpha)
                               (fma beta (/ 0.5 (- beta -2.0)) 0.5)))
                            double code(double alpha, double beta) {
                            	double tmp;
                            	if (((beta - alpha) / (2.0 + (alpha + beta))) <= -0.5) {
                            		tmp = (1.0 + beta) / alpha;
                            	} else {
                            		tmp = fma(beta, (0.5 / (beta - -2.0)), 0.5);
                            	}
                            	return tmp;
                            }
                            
                            function code(alpha, beta)
                            	tmp = 0.0
                            	if (Float64(Float64(beta - alpha) / Float64(2.0 + Float64(alpha + beta))) <= -0.5)
                            		tmp = Float64(Float64(1.0 + beta) / alpha);
                            	else
                            		tmp = fma(beta, Float64(0.5 / Float64(beta - -2.0)), 0.5);
                            	end
                            	return tmp
                            end
                            
                            code[alpha_, beta_] := If[LessEqual[N[(N[(beta - alpha), $MachinePrecision] / N[(2.0 + N[(alpha + beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], -0.5], N[(N[(1.0 + beta), $MachinePrecision] / alpha), $MachinePrecision], N[(beta * N[(0.5 / N[(beta - -2.0), $MachinePrecision]), $MachinePrecision] + 0.5), $MachinePrecision]]
                            
                            \begin{array}{l}
                            
                            \\
                            \begin{array}{l}
                            \mathbf{if}\;\frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)} \leq -0.5:\\
                            \;\;\;\;\frac{1 + \beta}{\alpha}\\
                            
                            \mathbf{else}:\\
                            \;\;\;\;\mathsf{fma}\left(\beta, \frac{0.5}{\beta - -2}, 0.5\right)\\
                            
                            
                            \end{array}
                            \end{array}
                            
                            Derivation
                            1. Split input into 2 regimes
                            2. if (/.f64 (-.f64 beta alpha) (+.f64 (+.f64 alpha beta) #s(literal 2 binary64))) < -0.5

                              1. Initial program 8.5%

                                \[\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2} \]
                              2. Add Preprocessing
                              3. Taylor expanded in alpha around inf

                                \[\leadsto \color{blue}{\frac{1}{2} \cdot \frac{2 + 2 \cdot \beta}{\alpha}} \]
                              4. Step-by-step derivation
                                1. associate-*r/N/A

                                  \[\leadsto \color{blue}{\frac{\frac{1}{2} \cdot \left(2 + 2 \cdot \beta\right)}{\alpha}} \]
                                2. lower-/.f64N/A

                                  \[\leadsto \color{blue}{\frac{\frac{1}{2} \cdot \left(2 + 2 \cdot \beta\right)}{\alpha}} \]
                                3. distribute-lft-inN/A

                                  \[\leadsto \frac{\color{blue}{\frac{1}{2} \cdot 2 + \frac{1}{2} \cdot \left(2 \cdot \beta\right)}}{\alpha} \]
                                4. metadata-evalN/A

                                  \[\leadsto \frac{\color{blue}{1} + \frac{1}{2} \cdot \left(2 \cdot \beta\right)}{\alpha} \]
                                5. associate-*r*N/A

                                  \[\leadsto \frac{1 + \color{blue}{\left(\frac{1}{2} \cdot 2\right) \cdot \beta}}{\alpha} \]
                                6. metadata-evalN/A

                                  \[\leadsto \frac{1 + \color{blue}{1} \cdot \beta}{\alpha} \]
                                7. *-lft-identityN/A

                                  \[\leadsto \frac{1 + \color{blue}{\beta}}{\alpha} \]
                                8. lower-+.f6497.5

                                  \[\leadsto \frac{\color{blue}{1 + \beta}}{\alpha} \]
                              5. Applied rewrites97.5%

                                \[\leadsto \color{blue}{\frac{1 + \beta}{\alpha}} \]

                              if -0.5 < (/.f64 (-.f64 beta alpha) (+.f64 (+.f64 alpha beta) #s(literal 2 binary64)))

                              1. Initial program 100.0%

                                \[\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2} \]
                              2. Add Preprocessing
                              3. Taylor expanded in alpha around 0

                                \[\leadsto \color{blue}{\frac{1}{2} \cdot \left(1 + \frac{\beta}{2 + \beta}\right)} \]
                              4. Step-by-step derivation
                                1. +-commutativeN/A

                                  \[\leadsto \frac{1}{2} \cdot \color{blue}{\left(\frac{\beta}{2 + \beta} + 1\right)} \]
                                2. distribute-rgt-inN/A

                                  \[\leadsto \color{blue}{\frac{\beta}{2 + \beta} \cdot \frac{1}{2} + 1 \cdot \frac{1}{2}} \]
                                3. metadata-evalN/A

                                  \[\leadsto \frac{\beta}{2 + \beta} \cdot \frac{1}{2} + \color{blue}{\frac{1}{2}} \]
                                4. lower-fma.f64N/A

                                  \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{\beta}{2 + \beta}, \frac{1}{2}, \frac{1}{2}\right)} \]
                                5. lower-/.f64N/A

                                  \[\leadsto \mathsf{fma}\left(\color{blue}{\frac{\beta}{2 + \beta}}, \frac{1}{2}, \frac{1}{2}\right) \]
                                6. +-commutativeN/A

                                  \[\leadsto \mathsf{fma}\left(\frac{\beta}{\color{blue}{\beta + 2}}, \frac{1}{2}, \frac{1}{2}\right) \]
                                7. metadata-evalN/A

                                  \[\leadsto \mathsf{fma}\left(\frac{\beta}{\beta + \color{blue}{\left(\mathsf{neg}\left(-2\right)\right)}}, \frac{1}{2}, \frac{1}{2}\right) \]
                                8. metadata-evalN/A

                                  \[\leadsto \mathsf{fma}\left(\frac{\beta}{\beta + \left(\mathsf{neg}\left(\color{blue}{-1 \cdot 2}\right)\right)}, \frac{1}{2}, \frac{1}{2}\right) \]
                                9. sub-negN/A

                                  \[\leadsto \mathsf{fma}\left(\frac{\beta}{\color{blue}{\beta - -1 \cdot 2}}, \frac{1}{2}, \frac{1}{2}\right) \]
                                10. lower--.f64N/A

                                  \[\leadsto \mathsf{fma}\left(\frac{\beta}{\color{blue}{\beta - -1 \cdot 2}}, \frac{1}{2}, \frac{1}{2}\right) \]
                                11. metadata-eval98.8

                                  \[\leadsto \mathsf{fma}\left(\frac{\beta}{\beta - \color{blue}{-2}}, 0.5, 0.5\right) \]
                              5. Applied rewrites98.8%

                                \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{\beta}{\beta - -2}, 0.5, 0.5\right)} \]
                              6. Step-by-step derivation
                                1. Applied rewrites98.8%

                                  \[\leadsto \mathsf{fma}\left(\beta, \color{blue}{\frac{0.5}{\beta - -2}}, 0.5\right) \]
                              7. Recombined 2 regimes into one program.
                              8. Final simplification98.5%

                                \[\leadsto \begin{array}{l} \mathbf{if}\;\frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)} \leq -0.5:\\ \;\;\;\;\frac{1 + \beta}{\alpha}\\ \mathbf{else}:\\ \;\;\;\;\mathsf{fma}\left(\beta, \frac{0.5}{\beta - -2}, 0.5\right)\\ \end{array} \]
                              9. Add Preprocessing

                              Alternative 10: 71.0% accurate, 1.3× speedup?

                              \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;\frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)} \leq 0.001:\\ \;\;\;\;0.5\\ \mathbf{else}:\\ \;\;\;\;1\\ \end{array} \end{array} \]
                              (FPCore (alpha beta)
                               :precision binary64
                               (if (<= (/ (- beta alpha) (+ 2.0 (+ alpha beta))) 0.001) 0.5 1.0))
                              double code(double alpha, double beta) {
                              	double tmp;
                              	if (((beta - alpha) / (2.0 + (alpha + beta))) <= 0.001) {
                              		tmp = 0.5;
                              	} else {
                              		tmp = 1.0;
                              	}
                              	return tmp;
                              }
                              
                              real(8) function code(alpha, beta)
                                  real(8), intent (in) :: alpha
                                  real(8), intent (in) :: beta
                                  real(8) :: tmp
                                  if (((beta - alpha) / (2.0d0 + (alpha + beta))) <= 0.001d0) then
                                      tmp = 0.5d0
                                  else
                                      tmp = 1.0d0
                                  end if
                                  code = tmp
                              end function
                              
                              public static double code(double alpha, double beta) {
                              	double tmp;
                              	if (((beta - alpha) / (2.0 + (alpha + beta))) <= 0.001) {
                              		tmp = 0.5;
                              	} else {
                              		tmp = 1.0;
                              	}
                              	return tmp;
                              }
                              
                              def code(alpha, beta):
                              	tmp = 0
                              	if ((beta - alpha) / (2.0 + (alpha + beta))) <= 0.001:
                              		tmp = 0.5
                              	else:
                              		tmp = 1.0
                              	return tmp
                              
                              function code(alpha, beta)
                              	tmp = 0.0
                              	if (Float64(Float64(beta - alpha) / Float64(2.0 + Float64(alpha + beta))) <= 0.001)
                              		tmp = 0.5;
                              	else
                              		tmp = 1.0;
                              	end
                              	return tmp
                              end
                              
                              function tmp_2 = code(alpha, beta)
                              	tmp = 0.0;
                              	if (((beta - alpha) / (2.0 + (alpha + beta))) <= 0.001)
                              		tmp = 0.5;
                              	else
                              		tmp = 1.0;
                              	end
                              	tmp_2 = tmp;
                              end
                              
                              code[alpha_, beta_] := If[LessEqual[N[(N[(beta - alpha), $MachinePrecision] / N[(2.0 + N[(alpha + beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 0.001], 0.5, 1.0]
                              
                              \begin{array}{l}
                              
                              \\
                              \begin{array}{l}
                              \mathbf{if}\;\frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)} \leq 0.001:\\
                              \;\;\;\;0.5\\
                              
                              \mathbf{else}:\\
                              \;\;\;\;1\\
                              
                              
                              \end{array}
                              \end{array}
                              
                              Derivation
                              1. Split input into 2 regimes
                              2. if (/.f64 (-.f64 beta alpha) (+.f64 (+.f64 alpha beta) #s(literal 2 binary64))) < 1e-3

                                1. Initial program 69.0%

                                  \[\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2} \]
                                2. Add Preprocessing
                                3. Taylor expanded in alpha around 0

                                  \[\leadsto \color{blue}{\frac{1}{2} \cdot \left(1 + \frac{\beta}{2 + \beta}\right)} \]
                                4. Step-by-step derivation
                                  1. +-commutativeN/A

                                    \[\leadsto \frac{1}{2} \cdot \color{blue}{\left(\frac{\beta}{2 + \beta} + 1\right)} \]
                                  2. distribute-rgt-inN/A

                                    \[\leadsto \color{blue}{\frac{\beta}{2 + \beta} \cdot \frac{1}{2} + 1 \cdot \frac{1}{2}} \]
                                  3. metadata-evalN/A

                                    \[\leadsto \frac{\beta}{2 + \beta} \cdot \frac{1}{2} + \color{blue}{\frac{1}{2}} \]
                                  4. lower-fma.f64N/A

                                    \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{\beta}{2 + \beta}, \frac{1}{2}, \frac{1}{2}\right)} \]
                                  5. lower-/.f64N/A

                                    \[\leadsto \mathsf{fma}\left(\color{blue}{\frac{\beta}{2 + \beta}}, \frac{1}{2}, \frac{1}{2}\right) \]
                                  6. +-commutativeN/A

                                    \[\leadsto \mathsf{fma}\left(\frac{\beta}{\color{blue}{\beta + 2}}, \frac{1}{2}, \frac{1}{2}\right) \]
                                  7. metadata-evalN/A

                                    \[\leadsto \mathsf{fma}\left(\frac{\beta}{\beta + \color{blue}{\left(\mathsf{neg}\left(-2\right)\right)}}, \frac{1}{2}, \frac{1}{2}\right) \]
                                  8. metadata-evalN/A

                                    \[\leadsto \mathsf{fma}\left(\frac{\beta}{\beta + \left(\mathsf{neg}\left(\color{blue}{-1 \cdot 2}\right)\right)}, \frac{1}{2}, \frac{1}{2}\right) \]
                                  9. sub-negN/A

                                    \[\leadsto \mathsf{fma}\left(\frac{\beta}{\color{blue}{\beta - -1 \cdot 2}}, \frac{1}{2}, \frac{1}{2}\right) \]
                                  10. lower--.f64N/A

                                    \[\leadsto \mathsf{fma}\left(\frac{\beta}{\color{blue}{\beta - -1 \cdot 2}}, \frac{1}{2}, \frac{1}{2}\right) \]
                                  11. metadata-eval67.0

                                    \[\leadsto \mathsf{fma}\left(\frac{\beta}{\beta - \color{blue}{-2}}, 0.5, 0.5\right) \]
                                5. Applied rewrites67.0%

                                  \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{\beta}{\beta - -2}, 0.5, 0.5\right)} \]
                                6. Taylor expanded in beta around 0

                                  \[\leadsto \frac{1}{2} \]
                                7. Step-by-step derivation
                                  1. Applied rewrites65.5%

                                    \[\leadsto 0.5 \]

                                  if 1e-3 < (/.f64 (-.f64 beta alpha) (+.f64 (+.f64 alpha beta) #s(literal 2 binary64)))

                                  1. Initial program 99.9%

                                    \[\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2} \]
                                  2. Add Preprocessing
                                  3. Taylor expanded in beta around inf

                                    \[\leadsto \color{blue}{1} \]
                                  4. Step-by-step derivation
                                    1. Applied rewrites96.3%

                                      \[\leadsto \color{blue}{1} \]
                                  5. Recombined 2 regimes into one program.
                                  6. Final simplification73.9%

                                    \[\leadsto \begin{array}{l} \mathbf{if}\;\frac{\beta - \alpha}{2 + \left(\alpha + \beta\right)} \leq 0.001:\\ \;\;\;\;0.5\\ \mathbf{else}:\\ \;\;\;\;1\\ \end{array} \]
                                  7. Add Preprocessing

                                  Alternative 11: 71.5% accurate, 2.7× speedup?

                                  \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;\beta \leq 2:\\ \;\;\;\;\mathsf{fma}\left(0.25, \beta, 0.5\right)\\ \mathbf{else}:\\ \;\;\;\;1\\ \end{array} \end{array} \]
                                  (FPCore (alpha beta)
                                   :precision binary64
                                   (if (<= beta 2.0) (fma 0.25 beta 0.5) 1.0))
                                  double code(double alpha, double beta) {
                                  	double tmp;
                                  	if (beta <= 2.0) {
                                  		tmp = fma(0.25, beta, 0.5);
                                  	} else {
                                  		tmp = 1.0;
                                  	}
                                  	return tmp;
                                  }
                                  
                                  function code(alpha, beta)
                                  	tmp = 0.0
                                  	if (beta <= 2.0)
                                  		tmp = fma(0.25, beta, 0.5);
                                  	else
                                  		tmp = 1.0;
                                  	end
                                  	return tmp
                                  end
                                  
                                  code[alpha_, beta_] := If[LessEqual[beta, 2.0], N[(0.25 * beta + 0.5), $MachinePrecision], 1.0]
                                  
                                  \begin{array}{l}
                                  
                                  \\
                                  \begin{array}{l}
                                  \mathbf{if}\;\beta \leq 2:\\
                                  \;\;\;\;\mathsf{fma}\left(0.25, \beta, 0.5\right)\\
                                  
                                  \mathbf{else}:\\
                                  \;\;\;\;1\\
                                  
                                  
                                  \end{array}
                                  \end{array}
                                  
                                  Derivation
                                  1. Split input into 2 regimes
                                  2. if beta < 2

                                    1. Initial program 73.9%

                                      \[\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2} \]
                                    2. Add Preprocessing
                                    3. Taylor expanded in alpha around 0

                                      \[\leadsto \color{blue}{\frac{1}{2} \cdot \left(1 + \frac{\beta}{2 + \beta}\right)} \]
                                    4. Step-by-step derivation
                                      1. +-commutativeN/A

                                        \[\leadsto \frac{1}{2} \cdot \color{blue}{\left(\frac{\beta}{2 + \beta} + 1\right)} \]
                                      2. distribute-rgt-inN/A

                                        \[\leadsto \color{blue}{\frac{\beta}{2 + \beta} \cdot \frac{1}{2} + 1 \cdot \frac{1}{2}} \]
                                      3. metadata-evalN/A

                                        \[\leadsto \frac{\beta}{2 + \beta} \cdot \frac{1}{2} + \color{blue}{\frac{1}{2}} \]
                                      4. lower-fma.f64N/A

                                        \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{\beta}{2 + \beta}, \frac{1}{2}, \frac{1}{2}\right)} \]
                                      5. lower-/.f64N/A

                                        \[\leadsto \mathsf{fma}\left(\color{blue}{\frac{\beta}{2 + \beta}}, \frac{1}{2}, \frac{1}{2}\right) \]
                                      6. +-commutativeN/A

                                        \[\leadsto \mathsf{fma}\left(\frac{\beta}{\color{blue}{\beta + 2}}, \frac{1}{2}, \frac{1}{2}\right) \]
                                      7. metadata-evalN/A

                                        \[\leadsto \mathsf{fma}\left(\frac{\beta}{\beta + \color{blue}{\left(\mathsf{neg}\left(-2\right)\right)}}, \frac{1}{2}, \frac{1}{2}\right) \]
                                      8. metadata-evalN/A

                                        \[\leadsto \mathsf{fma}\left(\frac{\beta}{\beta + \left(\mathsf{neg}\left(\color{blue}{-1 \cdot 2}\right)\right)}, \frac{1}{2}, \frac{1}{2}\right) \]
                                      9. sub-negN/A

                                        \[\leadsto \mathsf{fma}\left(\frac{\beta}{\color{blue}{\beta - -1 \cdot 2}}, \frac{1}{2}, \frac{1}{2}\right) \]
                                      10. lower--.f64N/A

                                        \[\leadsto \mathsf{fma}\left(\frac{\beta}{\color{blue}{\beta - -1 \cdot 2}}, \frac{1}{2}, \frac{1}{2}\right) \]
                                      11. metadata-eval71.6

                                        \[\leadsto \mathsf{fma}\left(\frac{\beta}{\beta - \color{blue}{-2}}, 0.5, 0.5\right) \]
                                    5. Applied rewrites71.6%

                                      \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{\beta}{\beta - -2}, 0.5, 0.5\right)} \]
                                    6. Taylor expanded in beta around 0

                                      \[\leadsto \frac{1}{2} + \color{blue}{\frac{1}{4} \cdot \beta} \]
                                    7. Step-by-step derivation
                                      1. Applied rewrites71.1%

                                        \[\leadsto \mathsf{fma}\left(0.25, \color{blue}{\beta}, 0.5\right) \]

                                      if 2 < beta

                                      1. Initial program 84.9%

                                        \[\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2} \]
                                      2. Add Preprocessing
                                      3. Taylor expanded in beta around inf

                                        \[\leadsto \color{blue}{1} \]
                                      4. Step-by-step derivation
                                        1. Applied rewrites82.1%

                                          \[\leadsto \color{blue}{1} \]
                                      5. Recombined 2 regimes into one program.
                                      6. Add Preprocessing

                                      Alternative 12: 37.1% accurate, 35.0× speedup?

                                      \[\begin{array}{l} \\ 1 \end{array} \]
                                      (FPCore (alpha beta) :precision binary64 1.0)
                                      double code(double alpha, double beta) {
                                      	return 1.0;
                                      }
                                      
                                      real(8) function code(alpha, beta)
                                          real(8), intent (in) :: alpha
                                          real(8), intent (in) :: beta
                                          code = 1.0d0
                                      end function
                                      
                                      public static double code(double alpha, double beta) {
                                      	return 1.0;
                                      }
                                      
                                      def code(alpha, beta):
                                      	return 1.0
                                      
                                      function code(alpha, beta)
                                      	return 1.0
                                      end
                                      
                                      function tmp = code(alpha, beta)
                                      	tmp = 1.0;
                                      end
                                      
                                      code[alpha_, beta_] := 1.0
                                      
                                      \begin{array}{l}
                                      
                                      \\
                                      1
                                      \end{array}
                                      
                                      Derivation
                                      1. Initial program 77.5%

                                        \[\frac{\frac{\beta - \alpha}{\left(\alpha + \beta\right) + 2} + 1}{2} \]
                                      2. Add Preprocessing
                                      3. Taylor expanded in beta around inf

                                        \[\leadsto \color{blue}{1} \]
                                      4. Step-by-step derivation
                                        1. Applied rewrites36.7%

                                          \[\leadsto \color{blue}{1} \]
                                        2. Add Preprocessing

                                        Reproduce

                                        ?
                                        herbie shell --seed 2024285 
                                        (FPCore (alpha beta)
                                          :name "Octave 3.8, jcobi/1"
                                          :precision binary64
                                          :pre (and (> alpha -1.0) (> beta -1.0))
                                          (/ (+ (/ (- beta alpha) (+ (+ alpha beta) 2.0)) 1.0) 2.0))