Octave 3.8, jcobi/3

Percentage Accurate: 94.7% → 99.6%
Time: 6.3s
Alternatives: 17
Speedup: 2.2×

Specification

?
\[\alpha > -1 \land \beta > -1\]
\[\begin{array}{l} \\ \begin{array}{l} t_0 := \left(\alpha + \beta\right) + 2 \cdot 1\\ \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{t\_0}}{t\_0}}{t\_0 + 1} \end{array} \end{array} \]
(FPCore (alpha beta)
 :precision binary64
 (let* ((t_0 (+ (+ alpha beta) (* 2.0 1.0))))
   (/ (/ (/ (+ (+ (+ alpha beta) (* beta alpha)) 1.0) t_0) t_0) (+ t_0 1.0))))
double code(double alpha, double beta) {
	double t_0 = (alpha + beta) + (2.0 * 1.0);
	return (((((alpha + beta) + (beta * alpha)) + 1.0) / t_0) / t_0) / (t_0 + 1.0);
}
module fmin_fmax_functions
    implicit none
    private
    public fmax
    public fmin

    interface fmax
        module procedure fmax88
        module procedure fmax44
        module procedure fmax84
        module procedure fmax48
    end interface
    interface fmin
        module procedure fmin88
        module procedure fmin44
        module procedure fmin84
        module procedure fmin48
    end interface
contains
    real(8) function fmax88(x, y) result (res)
        real(8), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(x, max(x, y), y /= y), x /= x)
    end function
    real(4) function fmax44(x, y) result (res)
        real(4), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(y, merge(x, max(x, y), y /= y), x /= x)
    end function
    real(8) function fmax84(x, y) result(res)
        real(8), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
    end function
    real(8) function fmax48(x, y) result(res)
        real(4), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
    end function
    real(8) function fmin88(x, y) result (res)
        real(8), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(x, min(x, y), y /= y), x /= x)
    end function
    real(4) function fmin44(x, y) result (res)
        real(4), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(y, merge(x, min(x, y), y /= y), x /= x)
    end function
    real(8) function fmin84(x, y) result(res)
        real(8), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
    end function
    real(8) function fmin48(x, y) result(res)
        real(4), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
    end function
end module

real(8) function code(alpha, beta)
use fmin_fmax_functions
    real(8), intent (in) :: alpha
    real(8), intent (in) :: beta
    real(8) :: t_0
    t_0 = (alpha + beta) + (2.0d0 * 1.0d0)
    code = (((((alpha + beta) + (beta * alpha)) + 1.0d0) / t_0) / t_0) / (t_0 + 1.0d0)
end function
public static double code(double alpha, double beta) {
	double t_0 = (alpha + beta) + (2.0 * 1.0);
	return (((((alpha + beta) + (beta * alpha)) + 1.0) / t_0) / t_0) / (t_0 + 1.0);
}
def code(alpha, beta):
	t_0 = (alpha + beta) + (2.0 * 1.0)
	return (((((alpha + beta) + (beta * alpha)) + 1.0) / t_0) / t_0) / (t_0 + 1.0)
function code(alpha, beta)
	t_0 = Float64(Float64(alpha + beta) + Float64(2.0 * 1.0))
	return Float64(Float64(Float64(Float64(Float64(Float64(alpha + beta) + Float64(beta * alpha)) + 1.0) / t_0) / t_0) / Float64(t_0 + 1.0))
end
function tmp = code(alpha, beta)
	t_0 = (alpha + beta) + (2.0 * 1.0);
	tmp = (((((alpha + beta) + (beta * alpha)) + 1.0) / t_0) / t_0) / (t_0 + 1.0);
end
code[alpha_, beta_] := Block[{t$95$0 = N[(N[(alpha + beta), $MachinePrecision] + N[(2.0 * 1.0), $MachinePrecision]), $MachinePrecision]}, N[(N[(N[(N[(N[(N[(alpha + beta), $MachinePrecision] + N[(beta * alpha), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision] / t$95$0), $MachinePrecision] / t$95$0), $MachinePrecision] / N[(t$95$0 + 1.0), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}

\\
\begin{array}{l}
t_0 := \left(\alpha + \beta\right) + 2 \cdot 1\\
\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{t\_0}}{t\_0}}{t\_0 + 1}
\end{array}
\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 17 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: 94.7% accurate, 1.0× speedup?

\[\begin{array}{l} \\ \begin{array}{l} t_0 := \left(\alpha + \beta\right) + 2 \cdot 1\\ \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{t\_0}}{t\_0}}{t\_0 + 1} \end{array} \end{array} \]
(FPCore (alpha beta)
 :precision binary64
 (let* ((t_0 (+ (+ alpha beta) (* 2.0 1.0))))
   (/ (/ (/ (+ (+ (+ alpha beta) (* beta alpha)) 1.0) t_0) t_0) (+ t_0 1.0))))
double code(double alpha, double beta) {
	double t_0 = (alpha + beta) + (2.0 * 1.0);
	return (((((alpha + beta) + (beta * alpha)) + 1.0) / t_0) / t_0) / (t_0 + 1.0);
}
module fmin_fmax_functions
    implicit none
    private
    public fmax
    public fmin

    interface fmax
        module procedure fmax88
        module procedure fmax44
        module procedure fmax84
        module procedure fmax48
    end interface
    interface fmin
        module procedure fmin88
        module procedure fmin44
        module procedure fmin84
        module procedure fmin48
    end interface
contains
    real(8) function fmax88(x, y) result (res)
        real(8), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(x, max(x, y), y /= y), x /= x)
    end function
    real(4) function fmax44(x, y) result (res)
        real(4), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(y, merge(x, max(x, y), y /= y), x /= x)
    end function
    real(8) function fmax84(x, y) result(res)
        real(8), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
    end function
    real(8) function fmax48(x, y) result(res)
        real(4), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
    end function
    real(8) function fmin88(x, y) result (res)
        real(8), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(x, min(x, y), y /= y), x /= x)
    end function
    real(4) function fmin44(x, y) result (res)
        real(4), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(y, merge(x, min(x, y), y /= y), x /= x)
    end function
    real(8) function fmin84(x, y) result(res)
        real(8), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
    end function
    real(8) function fmin48(x, y) result(res)
        real(4), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
    end function
end module

real(8) function code(alpha, beta)
use fmin_fmax_functions
    real(8), intent (in) :: alpha
    real(8), intent (in) :: beta
    real(8) :: t_0
    t_0 = (alpha + beta) + (2.0d0 * 1.0d0)
    code = (((((alpha + beta) + (beta * alpha)) + 1.0d0) / t_0) / t_0) / (t_0 + 1.0d0)
end function
public static double code(double alpha, double beta) {
	double t_0 = (alpha + beta) + (2.0 * 1.0);
	return (((((alpha + beta) + (beta * alpha)) + 1.0) / t_0) / t_0) / (t_0 + 1.0);
}
def code(alpha, beta):
	t_0 = (alpha + beta) + (2.0 * 1.0)
	return (((((alpha + beta) + (beta * alpha)) + 1.0) / t_0) / t_0) / (t_0 + 1.0)
function code(alpha, beta)
	t_0 = Float64(Float64(alpha + beta) + Float64(2.0 * 1.0))
	return Float64(Float64(Float64(Float64(Float64(Float64(alpha + beta) + Float64(beta * alpha)) + 1.0) / t_0) / t_0) / Float64(t_0 + 1.0))
end
function tmp = code(alpha, beta)
	t_0 = (alpha + beta) + (2.0 * 1.0);
	tmp = (((((alpha + beta) + (beta * alpha)) + 1.0) / t_0) / t_0) / (t_0 + 1.0);
end
code[alpha_, beta_] := Block[{t$95$0 = N[(N[(alpha + beta), $MachinePrecision] + N[(2.0 * 1.0), $MachinePrecision]), $MachinePrecision]}, N[(N[(N[(N[(N[(N[(alpha + beta), $MachinePrecision] + N[(beta * alpha), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision] / t$95$0), $MachinePrecision] / t$95$0), $MachinePrecision] / N[(t$95$0 + 1.0), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}

\\
\begin{array}{l}
t_0 := \left(\alpha + \beta\right) + 2 \cdot 1\\
\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{t\_0}}{t\_0}}{t\_0 + 1}
\end{array}
\end{array}

Alternative 1: 99.6% accurate, 0.8× speedup?

\[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \begin{array}{l} t_0 := \left(\alpha + \beta\right) + 2\\ t_1 := t\_0 + 1\\ t_2 := \mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right)\\ \mathbf{if}\;\beta \leq 1.2 \cdot 10^{+15}:\\ \;\;\;\;\frac{\frac{\frac{\frac{t\_2 \cdot t\_2 - 1}{t\_2 - 1}}{t\_0}}{t\_0}}{t\_1}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{\left(\left(\frac{1 + \alpha}{\beta} + \alpha\right) + 1\right) - \left(1 + \alpha\right) \cdot \frac{2 + \alpha}{\beta}}{t\_0}}{t\_1}\\ \end{array} \end{array} \]
NOTE: alpha and beta should be sorted in increasing order before calling this function.
(FPCore (alpha beta)
 :precision binary64
 (let* ((t_0 (+ (+ alpha beta) 2.0))
        (t_1 (+ t_0 1.0))
        (t_2 (fma beta alpha (+ beta alpha))))
   (if (<= beta 1.2e+15)
     (/ (/ (/ (/ (- (* t_2 t_2) 1.0) (- t_2 1.0)) t_0) t_0) t_1)
     (/
      (/
       (-
        (+ (+ (/ (+ 1.0 alpha) beta) alpha) 1.0)
        (* (+ 1.0 alpha) (/ (+ 2.0 alpha) beta)))
       t_0)
      t_1))))
assert(alpha < beta);
double code(double alpha, double beta) {
	double t_0 = (alpha + beta) + 2.0;
	double t_1 = t_0 + 1.0;
	double t_2 = fma(beta, alpha, (beta + alpha));
	double tmp;
	if (beta <= 1.2e+15) {
		tmp = (((((t_2 * t_2) - 1.0) / (t_2 - 1.0)) / t_0) / t_0) / t_1;
	} else {
		tmp = ((((((1.0 + alpha) / beta) + alpha) + 1.0) - ((1.0 + alpha) * ((2.0 + alpha) / beta))) / t_0) / t_1;
	}
	return tmp;
}
alpha, beta = sort([alpha, beta])
function code(alpha, beta)
	t_0 = Float64(Float64(alpha + beta) + 2.0)
	t_1 = Float64(t_0 + 1.0)
	t_2 = fma(beta, alpha, Float64(beta + alpha))
	tmp = 0.0
	if (beta <= 1.2e+15)
		tmp = Float64(Float64(Float64(Float64(Float64(Float64(t_2 * t_2) - 1.0) / Float64(t_2 - 1.0)) / t_0) / t_0) / t_1);
	else
		tmp = Float64(Float64(Float64(Float64(Float64(Float64(Float64(1.0 + alpha) / beta) + alpha) + 1.0) - Float64(Float64(1.0 + alpha) * Float64(Float64(2.0 + alpha) / beta))) / t_0) / t_1);
	end
	return tmp
end
NOTE: alpha and beta should be sorted in increasing order before calling this function.
code[alpha_, beta_] := Block[{t$95$0 = N[(N[(alpha + beta), $MachinePrecision] + 2.0), $MachinePrecision]}, Block[{t$95$1 = N[(t$95$0 + 1.0), $MachinePrecision]}, Block[{t$95$2 = N[(beta * alpha + N[(beta + alpha), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[beta, 1.2e+15], N[(N[(N[(N[(N[(N[(t$95$2 * t$95$2), $MachinePrecision] - 1.0), $MachinePrecision] / N[(t$95$2 - 1.0), $MachinePrecision]), $MachinePrecision] / t$95$0), $MachinePrecision] / t$95$0), $MachinePrecision] / t$95$1), $MachinePrecision], N[(N[(N[(N[(N[(N[(N[(1.0 + alpha), $MachinePrecision] / beta), $MachinePrecision] + alpha), $MachinePrecision] + 1.0), $MachinePrecision] - N[(N[(1.0 + alpha), $MachinePrecision] * N[(N[(2.0 + alpha), $MachinePrecision] / beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / t$95$0), $MachinePrecision] / t$95$1), $MachinePrecision]]]]]
\begin{array}{l}
[alpha, beta] = \mathsf{sort}([alpha, beta])\\
\\
\begin{array}{l}
t_0 := \left(\alpha + \beta\right) + 2\\
t_1 := t\_0 + 1\\
t_2 := \mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right)\\
\mathbf{if}\;\beta \leq 1.2 \cdot 10^{+15}:\\
\;\;\;\;\frac{\frac{\frac{\frac{t\_2 \cdot t\_2 - 1}{t\_2 - 1}}{t\_0}}{t\_0}}{t\_1}\\

\mathbf{else}:\\
\;\;\;\;\frac{\frac{\left(\left(\frac{1 + \alpha}{\beta} + \alpha\right) + 1\right) - \left(1 + \alpha\right) \cdot \frac{2 + \alpha}{\beta}}{t\_0}}{t\_1}\\


\end{array}
\end{array}
Derivation
  1. Split input into 2 regimes
  2. if beta < 1.2e15

    1. Initial program 99.9%

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

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

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

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

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

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

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

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

    if 1.2e15 < beta

    1. Initial program 82.3%

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

        \[\leadsto \frac{\frac{\left(\left(\frac{1 + \alpha}{\beta} + \alpha\right) + 1\right) - \left(1 + \alpha\right) \cdot \left(\frac{2}{\beta} + \frac{\alpha}{\beta}\right)}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      17. div-addN/A

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

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

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

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

Alternative 2: 99.6% accurate, 0.9× speedup?

\[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \begin{array}{l} t_0 := \left(\alpha + \beta\right) + 2\\ t_1 := \left(\beta + \alpha\right) + 2\\ \mathbf{if}\;\beta \leq 1.35 \cdot 10^{+15}:\\ \;\;\;\;\frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{t\_1}}{t\_1}}{3 + \left(\beta + \alpha\right)}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{\left(\left(\frac{1 + \alpha}{\beta} + \alpha\right) + 1\right) - \left(1 + \alpha\right) \cdot \frac{2 + \alpha}{\beta}}{t\_0}}{t\_0 + 1}\\ \end{array} \end{array} \]
NOTE: alpha and beta should be sorted in increasing order before calling this function.
(FPCore (alpha beta)
 :precision binary64
 (let* ((t_0 (+ (+ alpha beta) 2.0)) (t_1 (+ (+ beta alpha) 2.0)))
   (if (<= beta 1.35e+15)
     (/
      (/ (/ (+ (fma beta alpha (+ beta alpha)) 1.0) t_1) t_1)
      (+ 3.0 (+ beta alpha)))
     (/
      (/
       (-
        (+ (+ (/ (+ 1.0 alpha) beta) alpha) 1.0)
        (* (+ 1.0 alpha) (/ (+ 2.0 alpha) beta)))
       t_0)
      (+ t_0 1.0)))))
assert(alpha < beta);
double code(double alpha, double beta) {
	double t_0 = (alpha + beta) + 2.0;
	double t_1 = (beta + alpha) + 2.0;
	double tmp;
	if (beta <= 1.35e+15) {
		tmp = (((fma(beta, alpha, (beta + alpha)) + 1.0) / t_1) / t_1) / (3.0 + (beta + alpha));
	} else {
		tmp = ((((((1.0 + alpha) / beta) + alpha) + 1.0) - ((1.0 + alpha) * ((2.0 + alpha) / beta))) / t_0) / (t_0 + 1.0);
	}
	return tmp;
}
alpha, beta = sort([alpha, beta])
function code(alpha, beta)
	t_0 = Float64(Float64(alpha + beta) + 2.0)
	t_1 = Float64(Float64(beta + alpha) + 2.0)
	tmp = 0.0
	if (beta <= 1.35e+15)
		tmp = Float64(Float64(Float64(Float64(fma(beta, alpha, Float64(beta + alpha)) + 1.0) / t_1) / t_1) / Float64(3.0 + Float64(beta + alpha)));
	else
		tmp = Float64(Float64(Float64(Float64(Float64(Float64(Float64(1.0 + alpha) / beta) + alpha) + 1.0) - Float64(Float64(1.0 + alpha) * Float64(Float64(2.0 + alpha) / beta))) / t_0) / Float64(t_0 + 1.0));
	end
	return tmp
end
NOTE: alpha and beta should be sorted in increasing order before calling this function.
code[alpha_, beta_] := Block[{t$95$0 = N[(N[(alpha + beta), $MachinePrecision] + 2.0), $MachinePrecision]}, Block[{t$95$1 = N[(N[(beta + alpha), $MachinePrecision] + 2.0), $MachinePrecision]}, If[LessEqual[beta, 1.35e+15], N[(N[(N[(N[(N[(beta * alpha + N[(beta + alpha), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision] / t$95$1), $MachinePrecision] / t$95$1), $MachinePrecision] / N[(3.0 + N[(beta + alpha), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(N[(N[(N[(1.0 + alpha), $MachinePrecision] / beta), $MachinePrecision] + alpha), $MachinePrecision] + 1.0), $MachinePrecision] - N[(N[(1.0 + alpha), $MachinePrecision] * N[(N[(2.0 + alpha), $MachinePrecision] / beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / t$95$0), $MachinePrecision] / N[(t$95$0 + 1.0), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
[alpha, beta] = \mathsf{sort}([alpha, beta])\\
\\
\begin{array}{l}
t_0 := \left(\alpha + \beta\right) + 2\\
t_1 := \left(\beta + \alpha\right) + 2\\
\mathbf{if}\;\beta \leq 1.35 \cdot 10^{+15}:\\
\;\;\;\;\frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{t\_1}}{t\_1}}{3 + \left(\beta + \alpha\right)}\\

\mathbf{else}:\\
\;\;\;\;\frac{\frac{\left(\left(\frac{1 + \alpha}{\beta} + \alpha\right) + 1\right) - \left(1 + \alpha\right) \cdot \frac{2 + \alpha}{\beta}}{t\_0}}{t\_0 + 1}\\


\end{array}
\end{array}
Derivation
  1. Split input into 2 regimes
  2. if beta < 1.35e15

    1. Initial program 99.9%

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

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

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

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

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

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

        \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \color{blue}{\beta + \alpha}\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      7. lower-+.f6499.9

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

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

        \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      10. lower-+.f6499.9

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

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

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

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

        \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      15. lower-+.f6499.9

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

        \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      17. metadata-eval99.9

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

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

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

    if 1.35e15 < beta

    1. Initial program 82.3%

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

        \[\leadsto \frac{\frac{\left(\left(\frac{1 + \alpha}{\beta} + \alpha\right) + 1\right) - \left(1 + \alpha\right) \cdot \left(\frac{2}{\beta} + \frac{\alpha}{\beta}\right)}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      17. div-addN/A

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

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

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

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

Alternative 3: 99.6% accurate, 1.0× speedup?

\[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \begin{array}{l} t_0 := \left(\beta + \alpha\right) + 2\\ \mathbf{if}\;\beta \leq 1.35 \cdot 10^{+15}:\\ \;\;\;\;\frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{t\_0}}{t\_0}}{3 + \left(\beta + \alpha\right)}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{\left(\left(\frac{1 + \alpha}{\beta} + \alpha\right) + 1\right) - \left(1 + \alpha\right) \cdot \frac{\mathsf{fma}\left(2, \alpha, 4\right)}{\beta}}{\beta}}{\left(\left(\alpha + \beta\right) + 2\right) + 1}\\ \end{array} \end{array} \]
NOTE: alpha and beta should be sorted in increasing order before calling this function.
(FPCore (alpha beta)
 :precision binary64
 (let* ((t_0 (+ (+ beta alpha) 2.0)))
   (if (<= beta 1.35e+15)
     (/
      (/ (/ (+ (fma beta alpha (+ beta alpha)) 1.0) t_0) t_0)
      (+ 3.0 (+ beta alpha)))
     (/
      (/
       (-
        (+ (+ (/ (+ 1.0 alpha) beta) alpha) 1.0)
        (* (+ 1.0 alpha) (/ (fma 2.0 alpha 4.0) beta)))
       beta)
      (+ (+ (+ alpha beta) 2.0) 1.0)))))
assert(alpha < beta);
double code(double alpha, double beta) {
	double t_0 = (beta + alpha) + 2.0;
	double tmp;
	if (beta <= 1.35e+15) {
		tmp = (((fma(beta, alpha, (beta + alpha)) + 1.0) / t_0) / t_0) / (3.0 + (beta + alpha));
	} else {
		tmp = ((((((1.0 + alpha) / beta) + alpha) + 1.0) - ((1.0 + alpha) * (fma(2.0, alpha, 4.0) / beta))) / beta) / (((alpha + beta) + 2.0) + 1.0);
	}
	return tmp;
}
alpha, beta = sort([alpha, beta])
function code(alpha, beta)
	t_0 = Float64(Float64(beta + alpha) + 2.0)
	tmp = 0.0
	if (beta <= 1.35e+15)
		tmp = Float64(Float64(Float64(Float64(fma(beta, alpha, Float64(beta + alpha)) + 1.0) / t_0) / t_0) / Float64(3.0 + Float64(beta + alpha)));
	else
		tmp = Float64(Float64(Float64(Float64(Float64(Float64(Float64(1.0 + alpha) / beta) + alpha) + 1.0) - Float64(Float64(1.0 + alpha) * Float64(fma(2.0, alpha, 4.0) / beta))) / beta) / Float64(Float64(Float64(alpha + beta) + 2.0) + 1.0));
	end
	return tmp
end
NOTE: alpha and beta should be sorted in increasing order before calling this function.
code[alpha_, beta_] := Block[{t$95$0 = N[(N[(beta + alpha), $MachinePrecision] + 2.0), $MachinePrecision]}, If[LessEqual[beta, 1.35e+15], N[(N[(N[(N[(N[(beta * alpha + N[(beta + alpha), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision] / t$95$0), $MachinePrecision] / t$95$0), $MachinePrecision] / N[(3.0 + N[(beta + alpha), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(N[(N[(N[(1.0 + alpha), $MachinePrecision] / beta), $MachinePrecision] + alpha), $MachinePrecision] + 1.0), $MachinePrecision] - N[(N[(1.0 + alpha), $MachinePrecision] * N[(N[(2.0 * alpha + 4.0), $MachinePrecision] / beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / beta), $MachinePrecision] / N[(N[(N[(alpha + beta), $MachinePrecision] + 2.0), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
[alpha, beta] = \mathsf{sort}([alpha, beta])\\
\\
\begin{array}{l}
t_0 := \left(\beta + \alpha\right) + 2\\
\mathbf{if}\;\beta \leq 1.35 \cdot 10^{+15}:\\
\;\;\;\;\frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{t\_0}}{t\_0}}{3 + \left(\beta + \alpha\right)}\\

\mathbf{else}:\\
\;\;\;\;\frac{\frac{\left(\left(\frac{1 + \alpha}{\beta} + \alpha\right) + 1\right) - \left(1 + \alpha\right) \cdot \frac{\mathsf{fma}\left(2, \alpha, 4\right)}{\beta}}{\beta}}{\left(\left(\alpha + \beta\right) + 2\right) + 1}\\


\end{array}
\end{array}
Derivation
  1. Split input into 2 regimes
  2. if beta < 1.35e15

    1. Initial program 99.9%

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

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

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

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

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

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

        \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \color{blue}{\beta + \alpha}\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      7. lower-+.f6499.9

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

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

        \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      10. lower-+.f6499.9

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

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

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

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

        \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      15. lower-+.f6499.9

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

        \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      17. metadata-eval99.9

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

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

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

    if 1.35e15 < beta

    1. Initial program 82.3%

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

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

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

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

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

Alternative 4: 99.4% accurate, 1.2× speedup?

\[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \begin{array}{l} t_0 := \left(\beta + \alpha\right) + 2\\ \mathbf{if}\;\beta \leq 5 \cdot 10^{+15}:\\ \;\;\;\;\frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{t\_0}}{t\_0}}{3 + \left(\beta + \alpha\right)}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{1 + \alpha}{t\_0}}{3 + \beta \cdot \left(1 + \frac{\alpha}{\beta}\right)}\\ \end{array} \end{array} \]
NOTE: alpha and beta should be sorted in increasing order before calling this function.
(FPCore (alpha beta)
 :precision binary64
 (let* ((t_0 (+ (+ beta alpha) 2.0)))
   (if (<= beta 5e+15)
     (/
      (/ (/ (+ (fma beta alpha (+ beta alpha)) 1.0) t_0) t_0)
      (+ 3.0 (+ beta alpha)))
     (/ (/ (+ 1.0 alpha) t_0) (+ 3.0 (* beta (+ 1.0 (/ alpha beta))))))))
assert(alpha < beta);
double code(double alpha, double beta) {
	double t_0 = (beta + alpha) + 2.0;
	double tmp;
	if (beta <= 5e+15) {
		tmp = (((fma(beta, alpha, (beta + alpha)) + 1.0) / t_0) / t_0) / (3.0 + (beta + alpha));
	} else {
		tmp = ((1.0 + alpha) / t_0) / (3.0 + (beta * (1.0 + (alpha / beta))));
	}
	return tmp;
}
alpha, beta = sort([alpha, beta])
function code(alpha, beta)
	t_0 = Float64(Float64(beta + alpha) + 2.0)
	tmp = 0.0
	if (beta <= 5e+15)
		tmp = Float64(Float64(Float64(Float64(fma(beta, alpha, Float64(beta + alpha)) + 1.0) / t_0) / t_0) / Float64(3.0 + Float64(beta + alpha)));
	else
		tmp = Float64(Float64(Float64(1.0 + alpha) / t_0) / Float64(3.0 + Float64(beta * Float64(1.0 + Float64(alpha / beta)))));
	end
	return tmp
end
NOTE: alpha and beta should be sorted in increasing order before calling this function.
code[alpha_, beta_] := Block[{t$95$0 = N[(N[(beta + alpha), $MachinePrecision] + 2.0), $MachinePrecision]}, If[LessEqual[beta, 5e+15], N[(N[(N[(N[(N[(beta * alpha + N[(beta + alpha), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision] / t$95$0), $MachinePrecision] / t$95$0), $MachinePrecision] / N[(3.0 + N[(beta + alpha), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(1.0 + alpha), $MachinePrecision] / t$95$0), $MachinePrecision] / N[(3.0 + N[(beta * N[(1.0 + N[(alpha / beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
[alpha, beta] = \mathsf{sort}([alpha, beta])\\
\\
\begin{array}{l}
t_0 := \left(\beta + \alpha\right) + 2\\
\mathbf{if}\;\beta \leq 5 \cdot 10^{+15}:\\
\;\;\;\;\frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{t\_0}}{t\_0}}{3 + \left(\beta + \alpha\right)}\\

\mathbf{else}:\\
\;\;\;\;\frac{\frac{1 + \alpha}{t\_0}}{3 + \beta \cdot \left(1 + \frac{\alpha}{\beta}\right)}\\


\end{array}
\end{array}
Derivation
  1. Split input into 2 regimes
  2. if beta < 5e15

    1. Initial program 99.9%

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

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

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

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

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

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

        \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \color{blue}{\beta + \alpha}\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      7. lower-+.f6499.9

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

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

        \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      10. lower-+.f6499.9

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

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

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

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

        \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      15. lower-+.f6499.9

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

        \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      17. metadata-eval99.9

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

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

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

    if 5e15 < beta

    1. Initial program 82.3%

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

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

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

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

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

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

        \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \color{blue}{\beta + \alpha}\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      7. lower-+.f6482.3

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

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

        \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      10. lower-+.f6482.3

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

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

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

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

        \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      15. lower-+.f6482.3

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

        \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      17. metadata-eval82.3

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

        \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1}} \]
    4. Applied rewrites82.3%

      \[\leadsto \color{blue}{\frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)}} \]
    5. Taylor expanded in beta around inf

      \[\leadsto \frac{\frac{\color{blue}{1 + \alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
    6. Step-by-step derivation
      1. lift-+.f6485.4

        \[\leadsto \frac{\frac{1 + \color{blue}{\alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
    7. Applied rewrites85.4%

      \[\leadsto \frac{\frac{\color{blue}{1 + \alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
    8. Taylor expanded in beta around inf

      \[\leadsto \frac{\frac{1 + \alpha}{\left(\beta + \alpha\right) + 2}}{3 + \color{blue}{\beta \cdot \left(1 + \frac{\alpha}{\beta}\right)}} \]
    9. Step-by-step derivation
      1. lower-*.f64N/A

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

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

        \[\leadsto \frac{\frac{1 + \alpha}{\left(\beta + \alpha\right) + 2}}{3 + \beta \cdot \left(1 + \frac{\alpha}{\color{blue}{\beta}}\right)} \]
    10. Applied rewrites85.4%

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

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

Alternative 5: 99.4% accurate, 1.3× speedup?

\[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \begin{array}{l} t_0 := \left(\beta + \alpha\right) + 2\\ \mathbf{if}\;\beta \leq 5 \cdot 10^{+15}:\\ \;\;\;\;\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{t\_0}}{t\_0 \cdot \left(3 + \left(\beta + \alpha\right)\right)}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{1 + \alpha}{t\_0}}{3 + \beta \cdot \left(1 + \frac{\alpha}{\beta}\right)}\\ \end{array} \end{array} \]
NOTE: alpha and beta should be sorted in increasing order before calling this function.
(FPCore (alpha beta)
 :precision binary64
 (let* ((t_0 (+ (+ beta alpha) 2.0)))
   (if (<= beta 5e+15)
     (/
      (/ (+ (fma beta alpha (+ beta alpha)) 1.0) t_0)
      (* t_0 (+ 3.0 (+ beta alpha))))
     (/ (/ (+ 1.0 alpha) t_0) (+ 3.0 (* beta (+ 1.0 (/ alpha beta))))))))
assert(alpha < beta);
double code(double alpha, double beta) {
	double t_0 = (beta + alpha) + 2.0;
	double tmp;
	if (beta <= 5e+15) {
		tmp = ((fma(beta, alpha, (beta + alpha)) + 1.0) / t_0) / (t_0 * (3.0 + (beta + alpha)));
	} else {
		tmp = ((1.0 + alpha) / t_0) / (3.0 + (beta * (1.0 + (alpha / beta))));
	}
	return tmp;
}
alpha, beta = sort([alpha, beta])
function code(alpha, beta)
	t_0 = Float64(Float64(beta + alpha) + 2.0)
	tmp = 0.0
	if (beta <= 5e+15)
		tmp = Float64(Float64(Float64(fma(beta, alpha, Float64(beta + alpha)) + 1.0) / t_0) / Float64(t_0 * Float64(3.0 + Float64(beta + alpha))));
	else
		tmp = Float64(Float64(Float64(1.0 + alpha) / t_0) / Float64(3.0 + Float64(beta * Float64(1.0 + Float64(alpha / beta)))));
	end
	return tmp
end
NOTE: alpha and beta should be sorted in increasing order before calling this function.
code[alpha_, beta_] := Block[{t$95$0 = N[(N[(beta + alpha), $MachinePrecision] + 2.0), $MachinePrecision]}, If[LessEqual[beta, 5e+15], N[(N[(N[(N[(beta * alpha + N[(beta + alpha), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision] / t$95$0), $MachinePrecision] / N[(t$95$0 * N[(3.0 + N[(beta + alpha), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(1.0 + alpha), $MachinePrecision] / t$95$0), $MachinePrecision] / N[(3.0 + N[(beta * N[(1.0 + N[(alpha / beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
[alpha, beta] = \mathsf{sort}([alpha, beta])\\
\\
\begin{array}{l}
t_0 := \left(\beta + \alpha\right) + 2\\
\mathbf{if}\;\beta \leq 5 \cdot 10^{+15}:\\
\;\;\;\;\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{t\_0}}{t\_0 \cdot \left(3 + \left(\beta + \alpha\right)\right)}\\

\mathbf{else}:\\
\;\;\;\;\frac{\frac{1 + \alpha}{t\_0}}{3 + \beta \cdot \left(1 + \frac{\alpha}{\beta}\right)}\\


\end{array}
\end{array}
Derivation
  1. Split input into 2 regimes
  2. if beta < 5e15

    1. Initial program 99.9%

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

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

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

    if 5e15 < beta

    1. Initial program 82.3%

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

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

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

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

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

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

        \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \color{blue}{\beta + \alpha}\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      7. lower-+.f6482.3

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

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

        \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      10. lower-+.f6482.3

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

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

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

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

        \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      15. lower-+.f6482.3

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

        \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      17. metadata-eval82.3

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

        \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1}} \]
    4. Applied rewrites82.3%

      \[\leadsto \color{blue}{\frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)}} \]
    5. Taylor expanded in beta around inf

      \[\leadsto \frac{\frac{\color{blue}{1 + \alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
    6. Step-by-step derivation
      1. lift-+.f6485.4

        \[\leadsto \frac{\frac{1 + \color{blue}{\alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
    7. Applied rewrites85.4%

      \[\leadsto \frac{\frac{\color{blue}{1 + \alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
    8. Taylor expanded in beta around inf

      \[\leadsto \frac{\frac{1 + \alpha}{\left(\beta + \alpha\right) + 2}}{3 + \color{blue}{\beta \cdot \left(1 + \frac{\alpha}{\beta}\right)}} \]
    9. Step-by-step derivation
      1. lower-*.f64N/A

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

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

        \[\leadsto \frac{\frac{1 + \alpha}{\left(\beta + \alpha\right) + 2}}{3 + \beta \cdot \left(1 + \frac{\alpha}{\color{blue}{\beta}}\right)} \]
    10. Applied rewrites85.4%

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

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

Alternative 6: 97.9% accurate, 1.4× speedup?

\[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \begin{array}{l} \mathbf{if}\;\beta \leq 8:\\ \;\;\;\;\frac{\frac{\frac{1 + \alpha}{2 + \alpha}}{\alpha + 2}}{3 + \left(\beta + \alpha\right)}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{1 + \alpha}{\left(\beta + \alpha\right) + 2}}{3 + \beta \cdot \left(1 + \frac{\alpha}{\beta}\right)}\\ \end{array} \end{array} \]
NOTE: alpha and beta should be sorted in increasing order before calling this function.
(FPCore (alpha beta)
 :precision binary64
 (if (<= beta 8.0)
   (/ (/ (/ (+ 1.0 alpha) (+ 2.0 alpha)) (+ alpha 2.0)) (+ 3.0 (+ beta alpha)))
   (/
    (/ (+ 1.0 alpha) (+ (+ beta alpha) 2.0))
    (+ 3.0 (* beta (+ 1.0 (/ alpha beta)))))))
assert(alpha < beta);
double code(double alpha, double beta) {
	double tmp;
	if (beta <= 8.0) {
		tmp = (((1.0 + alpha) / (2.0 + alpha)) / (alpha + 2.0)) / (3.0 + (beta + alpha));
	} else {
		tmp = ((1.0 + alpha) / ((beta + alpha) + 2.0)) / (3.0 + (beta * (1.0 + (alpha / beta))));
	}
	return tmp;
}
NOTE: alpha and beta should be sorted in increasing order before calling this function.
module fmin_fmax_functions
    implicit none
    private
    public fmax
    public fmin

    interface fmax
        module procedure fmax88
        module procedure fmax44
        module procedure fmax84
        module procedure fmax48
    end interface
    interface fmin
        module procedure fmin88
        module procedure fmin44
        module procedure fmin84
        module procedure fmin48
    end interface
contains
    real(8) function fmax88(x, y) result (res)
        real(8), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(x, max(x, y), y /= y), x /= x)
    end function
    real(4) function fmax44(x, y) result (res)
        real(4), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(y, merge(x, max(x, y), y /= y), x /= x)
    end function
    real(8) function fmax84(x, y) result(res)
        real(8), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
    end function
    real(8) function fmax48(x, y) result(res)
        real(4), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
    end function
    real(8) function fmin88(x, y) result (res)
        real(8), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(x, min(x, y), y /= y), x /= x)
    end function
    real(4) function fmin44(x, y) result (res)
        real(4), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(y, merge(x, min(x, y), y /= y), x /= x)
    end function
    real(8) function fmin84(x, y) result(res)
        real(8), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
    end function
    real(8) function fmin48(x, y) result(res)
        real(4), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
    end function
end module

real(8) function code(alpha, beta)
use fmin_fmax_functions
    real(8), intent (in) :: alpha
    real(8), intent (in) :: beta
    real(8) :: tmp
    if (beta <= 8.0d0) then
        tmp = (((1.0d0 + alpha) / (2.0d0 + alpha)) / (alpha + 2.0d0)) / (3.0d0 + (beta + alpha))
    else
        tmp = ((1.0d0 + alpha) / ((beta + alpha) + 2.0d0)) / (3.0d0 + (beta * (1.0d0 + (alpha / beta))))
    end if
    code = tmp
end function
assert alpha < beta;
public static double code(double alpha, double beta) {
	double tmp;
	if (beta <= 8.0) {
		tmp = (((1.0 + alpha) / (2.0 + alpha)) / (alpha + 2.0)) / (3.0 + (beta + alpha));
	} else {
		tmp = ((1.0 + alpha) / ((beta + alpha) + 2.0)) / (3.0 + (beta * (1.0 + (alpha / beta))));
	}
	return tmp;
}
[alpha, beta] = sort([alpha, beta])
def code(alpha, beta):
	tmp = 0
	if beta <= 8.0:
		tmp = (((1.0 + alpha) / (2.0 + alpha)) / (alpha + 2.0)) / (3.0 + (beta + alpha))
	else:
		tmp = ((1.0 + alpha) / ((beta + alpha) + 2.0)) / (3.0 + (beta * (1.0 + (alpha / beta))))
	return tmp
alpha, beta = sort([alpha, beta])
function code(alpha, beta)
	tmp = 0.0
	if (beta <= 8.0)
		tmp = Float64(Float64(Float64(Float64(1.0 + alpha) / Float64(2.0 + alpha)) / Float64(alpha + 2.0)) / Float64(3.0 + Float64(beta + alpha)));
	else
		tmp = Float64(Float64(Float64(1.0 + alpha) / Float64(Float64(beta + alpha) + 2.0)) / Float64(3.0 + Float64(beta * Float64(1.0 + Float64(alpha / beta)))));
	end
	return tmp
end
alpha, beta = num2cell(sort([alpha, beta])){:}
function tmp_2 = code(alpha, beta)
	tmp = 0.0;
	if (beta <= 8.0)
		tmp = (((1.0 + alpha) / (2.0 + alpha)) / (alpha + 2.0)) / (3.0 + (beta + alpha));
	else
		tmp = ((1.0 + alpha) / ((beta + alpha) + 2.0)) / (3.0 + (beta * (1.0 + (alpha / beta))));
	end
	tmp_2 = tmp;
end
NOTE: alpha and beta should be sorted in increasing order before calling this function.
code[alpha_, beta_] := If[LessEqual[beta, 8.0], N[(N[(N[(N[(1.0 + alpha), $MachinePrecision] / N[(2.0 + alpha), $MachinePrecision]), $MachinePrecision] / N[(alpha + 2.0), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(beta + alpha), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(1.0 + alpha), $MachinePrecision] / N[(N[(beta + alpha), $MachinePrecision] + 2.0), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(beta * N[(1.0 + N[(alpha / beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
[alpha, beta] = \mathsf{sort}([alpha, beta])\\
\\
\begin{array}{l}
\mathbf{if}\;\beta \leq 8:\\
\;\;\;\;\frac{\frac{\frac{1 + \alpha}{2 + \alpha}}{\alpha + 2}}{3 + \left(\beta + \alpha\right)}\\

\mathbf{else}:\\
\;\;\;\;\frac{\frac{1 + \alpha}{\left(\beta + \alpha\right) + 2}}{3 + \beta \cdot \left(1 + \frac{\alpha}{\beta}\right)}\\


\end{array}
\end{array}
Derivation
  1. Split input into 2 regimes
  2. if beta < 8

    1. Initial program 99.9%

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

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

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

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

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

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

        \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \color{blue}{\beta + \alpha}\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      7. lower-+.f6499.9

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

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

        \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      10. lower-+.f6499.9

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

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

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

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

        \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      15. lower-+.f6499.9

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

        \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      17. metadata-eval99.9

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

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

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

      \[\leadsto \frac{\frac{\color{blue}{\frac{1 + \alpha}{2 + \alpha}}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
    6. Step-by-step derivation
      1. lower-/.f64N/A

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

        \[\leadsto \frac{\frac{\frac{1 + \alpha}{\color{blue}{2} + \alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
      3. lower-+.f6498.0

        \[\leadsto \frac{\frac{\frac{1 + \alpha}{2 + \color{blue}{\alpha}}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
    7. Applied rewrites98.0%

      \[\leadsto \frac{\frac{\color{blue}{\frac{1 + \alpha}{2 + \alpha}}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
    8. Taylor expanded in alpha around inf

      \[\leadsto \frac{\frac{\frac{1 + \alpha}{2 + \alpha}}{\color{blue}{\alpha} + 2}}{3 + \left(\beta + \alpha\right)} \]
    9. Step-by-step derivation
      1. Applied rewrites98.9%

        \[\leadsto \frac{\frac{\frac{1 + \alpha}{2 + \alpha}}{\color{blue}{\alpha} + 2}}{3 + \left(\beta + \alpha\right)} \]

      if 8 < beta

      1. Initial program 82.4%

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

        \[\leadsto \color{blue}{\frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)}} \]
      5. Taylor expanded in beta around inf

        \[\leadsto \frac{\frac{\color{blue}{1 + \alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
      6. Step-by-step derivation
        1. lift-+.f6485.1

          \[\leadsto \frac{\frac{1 + \color{blue}{\alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
      7. Applied rewrites85.1%

        \[\leadsto \frac{\frac{\color{blue}{1 + \alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
      8. Taylor expanded in beta around inf

        \[\leadsto \frac{\frac{1 + \alpha}{\left(\beta + \alpha\right) + 2}}{3 + \color{blue}{\beta \cdot \left(1 + \frac{\alpha}{\beta}\right)}} \]
      9. Step-by-step derivation
        1. lower-*.f64N/A

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

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

          \[\leadsto \frac{\frac{1 + \alpha}{\left(\beta + \alpha\right) + 2}}{3 + \beta \cdot \left(1 + \frac{\alpha}{\color{blue}{\beta}}\right)} \]
      10. Applied rewrites85.1%

        \[\leadsto \frac{\frac{1 + \alpha}{\left(\beta + \alpha\right) + 2}}{3 + \color{blue}{\beta \cdot \left(1 + \frac{\alpha}{\beta}\right)}} \]
    10. Recombined 2 regimes into one program.
    11. Final simplification93.7%

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

    Alternative 7: 97.9% accurate, 1.5× speedup?

    \[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \begin{array}{l} t_0 := 3 + \left(\beta + \alpha\right)\\ \mathbf{if}\;\beta \leq 8:\\ \;\;\;\;\frac{\frac{\frac{1 + \alpha}{2 + \alpha}}{\alpha + 2}}{t\_0}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{1 + \alpha}{\left(\beta + \alpha\right) + 2}}{t\_0}\\ \end{array} \end{array} \]
    NOTE: alpha and beta should be sorted in increasing order before calling this function.
    (FPCore (alpha beta)
     :precision binary64
     (let* ((t_0 (+ 3.0 (+ beta alpha))))
       (if (<= beta 8.0)
         (/ (/ (/ (+ 1.0 alpha) (+ 2.0 alpha)) (+ alpha 2.0)) t_0)
         (/ (/ (+ 1.0 alpha) (+ (+ beta alpha) 2.0)) t_0))))
    assert(alpha < beta);
    double code(double alpha, double beta) {
    	double t_0 = 3.0 + (beta + alpha);
    	double tmp;
    	if (beta <= 8.0) {
    		tmp = (((1.0 + alpha) / (2.0 + alpha)) / (alpha + 2.0)) / t_0;
    	} else {
    		tmp = ((1.0 + alpha) / ((beta + alpha) + 2.0)) / t_0;
    	}
    	return tmp;
    }
    
    NOTE: alpha and beta should be sorted in increasing order before calling this function.
    module fmin_fmax_functions
        implicit none
        private
        public fmax
        public fmin
    
        interface fmax
            module procedure fmax88
            module procedure fmax44
            module procedure fmax84
            module procedure fmax48
        end interface
        interface fmin
            module procedure fmin88
            module procedure fmin44
            module procedure fmin84
            module procedure fmin48
        end interface
    contains
        real(8) function fmax88(x, y) result (res)
            real(8), intent (in) :: x
            real(8), intent (in) :: y
            res = merge(y, merge(x, max(x, y), y /= y), x /= x)
        end function
        real(4) function fmax44(x, y) result (res)
            real(4), intent (in) :: x
            real(4), intent (in) :: y
            res = merge(y, merge(x, max(x, y), y /= y), x /= x)
        end function
        real(8) function fmax84(x, y) result(res)
            real(8), intent (in) :: x
            real(4), intent (in) :: y
            res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
        end function
        real(8) function fmax48(x, y) result(res)
            real(4), intent (in) :: x
            real(8), intent (in) :: y
            res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
        end function
        real(8) function fmin88(x, y) result (res)
            real(8), intent (in) :: x
            real(8), intent (in) :: y
            res = merge(y, merge(x, min(x, y), y /= y), x /= x)
        end function
        real(4) function fmin44(x, y) result (res)
            real(4), intent (in) :: x
            real(4), intent (in) :: y
            res = merge(y, merge(x, min(x, y), y /= y), x /= x)
        end function
        real(8) function fmin84(x, y) result(res)
            real(8), intent (in) :: x
            real(4), intent (in) :: y
            res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
        end function
        real(8) function fmin48(x, y) result(res)
            real(4), intent (in) :: x
            real(8), intent (in) :: y
            res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
        end function
    end module
    
    real(8) function code(alpha, beta)
    use fmin_fmax_functions
        real(8), intent (in) :: alpha
        real(8), intent (in) :: beta
        real(8) :: t_0
        real(8) :: tmp
        t_0 = 3.0d0 + (beta + alpha)
        if (beta <= 8.0d0) then
            tmp = (((1.0d0 + alpha) / (2.0d0 + alpha)) / (alpha + 2.0d0)) / t_0
        else
            tmp = ((1.0d0 + alpha) / ((beta + alpha) + 2.0d0)) / t_0
        end if
        code = tmp
    end function
    
    assert alpha < beta;
    public static double code(double alpha, double beta) {
    	double t_0 = 3.0 + (beta + alpha);
    	double tmp;
    	if (beta <= 8.0) {
    		tmp = (((1.0 + alpha) / (2.0 + alpha)) / (alpha + 2.0)) / t_0;
    	} else {
    		tmp = ((1.0 + alpha) / ((beta + alpha) + 2.0)) / t_0;
    	}
    	return tmp;
    }
    
    [alpha, beta] = sort([alpha, beta])
    def code(alpha, beta):
    	t_0 = 3.0 + (beta + alpha)
    	tmp = 0
    	if beta <= 8.0:
    		tmp = (((1.0 + alpha) / (2.0 + alpha)) / (alpha + 2.0)) / t_0
    	else:
    		tmp = ((1.0 + alpha) / ((beta + alpha) + 2.0)) / t_0
    	return tmp
    
    alpha, beta = sort([alpha, beta])
    function code(alpha, beta)
    	t_0 = Float64(3.0 + Float64(beta + alpha))
    	tmp = 0.0
    	if (beta <= 8.0)
    		tmp = Float64(Float64(Float64(Float64(1.0 + alpha) / Float64(2.0 + alpha)) / Float64(alpha + 2.0)) / t_0);
    	else
    		tmp = Float64(Float64(Float64(1.0 + alpha) / Float64(Float64(beta + alpha) + 2.0)) / t_0);
    	end
    	return tmp
    end
    
    alpha, beta = num2cell(sort([alpha, beta])){:}
    function tmp_2 = code(alpha, beta)
    	t_0 = 3.0 + (beta + alpha);
    	tmp = 0.0;
    	if (beta <= 8.0)
    		tmp = (((1.0 + alpha) / (2.0 + alpha)) / (alpha + 2.0)) / t_0;
    	else
    		tmp = ((1.0 + alpha) / ((beta + alpha) + 2.0)) / t_0;
    	end
    	tmp_2 = tmp;
    end
    
    NOTE: alpha and beta should be sorted in increasing order before calling this function.
    code[alpha_, beta_] := Block[{t$95$0 = N[(3.0 + N[(beta + alpha), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[beta, 8.0], N[(N[(N[(N[(1.0 + alpha), $MachinePrecision] / N[(2.0 + alpha), $MachinePrecision]), $MachinePrecision] / N[(alpha + 2.0), $MachinePrecision]), $MachinePrecision] / t$95$0), $MachinePrecision], N[(N[(N[(1.0 + alpha), $MachinePrecision] / N[(N[(beta + alpha), $MachinePrecision] + 2.0), $MachinePrecision]), $MachinePrecision] / t$95$0), $MachinePrecision]]]
    
    \begin{array}{l}
    [alpha, beta] = \mathsf{sort}([alpha, beta])\\
    \\
    \begin{array}{l}
    t_0 := 3 + \left(\beta + \alpha\right)\\
    \mathbf{if}\;\beta \leq 8:\\
    \;\;\;\;\frac{\frac{\frac{1 + \alpha}{2 + \alpha}}{\alpha + 2}}{t\_0}\\
    
    \mathbf{else}:\\
    \;\;\;\;\frac{\frac{1 + \alpha}{\left(\beta + \alpha\right) + 2}}{t\_0}\\
    
    
    \end{array}
    \end{array}
    
    Derivation
    1. Split input into 2 regimes
    2. if beta < 8

      1. Initial program 99.9%

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

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

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

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

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

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

          \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \color{blue}{\beta + \alpha}\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        7. lower-+.f6499.9

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

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

          \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        10. lower-+.f6499.9

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

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

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

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

          \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        15. lower-+.f6499.9

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

          \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        17. metadata-eval99.9

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

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

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

        \[\leadsto \frac{\frac{\color{blue}{\frac{1 + \alpha}{2 + \alpha}}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
      6. Step-by-step derivation
        1. lower-/.f64N/A

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

          \[\leadsto \frac{\frac{\frac{1 + \alpha}{\color{blue}{2} + \alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
        3. lower-+.f6498.0

          \[\leadsto \frac{\frac{\frac{1 + \alpha}{2 + \color{blue}{\alpha}}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
      7. Applied rewrites98.0%

        \[\leadsto \frac{\frac{\color{blue}{\frac{1 + \alpha}{2 + \alpha}}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
      8. Taylor expanded in alpha around inf

        \[\leadsto \frac{\frac{\frac{1 + \alpha}{2 + \alpha}}{\color{blue}{\alpha} + 2}}{3 + \left(\beta + \alpha\right)} \]
      9. Step-by-step derivation
        1. Applied rewrites98.9%

          \[\leadsto \frac{\frac{\frac{1 + \alpha}{2 + \alpha}}{\color{blue}{\alpha} + 2}}{3 + \left(\beta + \alpha\right)} \]

        if 8 < beta

        1. Initial program 82.4%

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

          \[\leadsto \color{blue}{\frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)}} \]
        5. Taylor expanded in beta around inf

          \[\leadsto \frac{\frac{\color{blue}{1 + \alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
        6. Step-by-step derivation
          1. lift-+.f6485.1

            \[\leadsto \frac{\frac{1 + \color{blue}{\alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
        7. Applied rewrites85.1%

          \[\leadsto \frac{\frac{\color{blue}{1 + \alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
      10. Recombined 2 regimes into one program.
      11. Final simplification93.7%

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

      Alternative 8: 98.4% accurate, 1.8× speedup?

      \[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \begin{array}{l} \mathbf{if}\;\beta \leq 5 \cdot 10^{+15}:\\ \;\;\;\;\frac{\frac{1 + \beta}{2 + \beta}}{6 + \beta \cdot \left(5 + \beta\right)}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{1 + \alpha}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)}\\ \end{array} \end{array} \]
      NOTE: alpha and beta should be sorted in increasing order before calling this function.
      (FPCore (alpha beta)
       :precision binary64
       (if (<= beta 5e+15)
         (/ (/ (+ 1.0 beta) (+ 2.0 beta)) (+ 6.0 (* beta (+ 5.0 beta))))
         (/ (/ (+ 1.0 alpha) (+ (+ beta alpha) 2.0)) (+ 3.0 (+ beta alpha)))))
      assert(alpha < beta);
      double code(double alpha, double beta) {
      	double tmp;
      	if (beta <= 5e+15) {
      		tmp = ((1.0 + beta) / (2.0 + beta)) / (6.0 + (beta * (5.0 + beta)));
      	} else {
      		tmp = ((1.0 + alpha) / ((beta + alpha) + 2.0)) / (3.0 + (beta + alpha));
      	}
      	return tmp;
      }
      
      NOTE: alpha and beta should be sorted in increasing order before calling this function.
      module fmin_fmax_functions
          implicit none
          private
          public fmax
          public fmin
      
          interface fmax
              module procedure fmax88
              module procedure fmax44
              module procedure fmax84
              module procedure fmax48
          end interface
          interface fmin
              module procedure fmin88
              module procedure fmin44
              module procedure fmin84
              module procedure fmin48
          end interface
      contains
          real(8) function fmax88(x, y) result (res)
              real(8), intent (in) :: x
              real(8), intent (in) :: y
              res = merge(y, merge(x, max(x, y), y /= y), x /= x)
          end function
          real(4) function fmax44(x, y) result (res)
              real(4), intent (in) :: x
              real(4), intent (in) :: y
              res = merge(y, merge(x, max(x, y), y /= y), x /= x)
          end function
          real(8) function fmax84(x, y) result(res)
              real(8), intent (in) :: x
              real(4), intent (in) :: y
              res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
          end function
          real(8) function fmax48(x, y) result(res)
              real(4), intent (in) :: x
              real(8), intent (in) :: y
              res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
          end function
          real(8) function fmin88(x, y) result (res)
              real(8), intent (in) :: x
              real(8), intent (in) :: y
              res = merge(y, merge(x, min(x, y), y /= y), x /= x)
          end function
          real(4) function fmin44(x, y) result (res)
              real(4), intent (in) :: x
              real(4), intent (in) :: y
              res = merge(y, merge(x, min(x, y), y /= y), x /= x)
          end function
          real(8) function fmin84(x, y) result(res)
              real(8), intent (in) :: x
              real(4), intent (in) :: y
              res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
          end function
          real(8) function fmin48(x, y) result(res)
              real(4), intent (in) :: x
              real(8), intent (in) :: y
              res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
          end function
      end module
      
      real(8) function code(alpha, beta)
      use fmin_fmax_functions
          real(8), intent (in) :: alpha
          real(8), intent (in) :: beta
          real(8) :: tmp
          if (beta <= 5d+15) then
              tmp = ((1.0d0 + beta) / (2.0d0 + beta)) / (6.0d0 + (beta * (5.0d0 + beta)))
          else
              tmp = ((1.0d0 + alpha) / ((beta + alpha) + 2.0d0)) / (3.0d0 + (beta + alpha))
          end if
          code = tmp
      end function
      
      assert alpha < beta;
      public static double code(double alpha, double beta) {
      	double tmp;
      	if (beta <= 5e+15) {
      		tmp = ((1.0 + beta) / (2.0 + beta)) / (6.0 + (beta * (5.0 + beta)));
      	} else {
      		tmp = ((1.0 + alpha) / ((beta + alpha) + 2.0)) / (3.0 + (beta + alpha));
      	}
      	return tmp;
      }
      
      [alpha, beta] = sort([alpha, beta])
      def code(alpha, beta):
      	tmp = 0
      	if beta <= 5e+15:
      		tmp = ((1.0 + beta) / (2.0 + beta)) / (6.0 + (beta * (5.0 + beta)))
      	else:
      		tmp = ((1.0 + alpha) / ((beta + alpha) + 2.0)) / (3.0 + (beta + alpha))
      	return tmp
      
      alpha, beta = sort([alpha, beta])
      function code(alpha, beta)
      	tmp = 0.0
      	if (beta <= 5e+15)
      		tmp = Float64(Float64(Float64(1.0 + beta) / Float64(2.0 + beta)) / Float64(6.0 + Float64(beta * Float64(5.0 + beta))));
      	else
      		tmp = Float64(Float64(Float64(1.0 + alpha) / Float64(Float64(beta + alpha) + 2.0)) / Float64(3.0 + Float64(beta + alpha)));
      	end
      	return tmp
      end
      
      alpha, beta = num2cell(sort([alpha, beta])){:}
      function tmp_2 = code(alpha, beta)
      	tmp = 0.0;
      	if (beta <= 5e+15)
      		tmp = ((1.0 + beta) / (2.0 + beta)) / (6.0 + (beta * (5.0 + beta)));
      	else
      		tmp = ((1.0 + alpha) / ((beta + alpha) + 2.0)) / (3.0 + (beta + alpha));
      	end
      	tmp_2 = tmp;
      end
      
      NOTE: alpha and beta should be sorted in increasing order before calling this function.
      code[alpha_, beta_] := If[LessEqual[beta, 5e+15], N[(N[(N[(1.0 + beta), $MachinePrecision] / N[(2.0 + beta), $MachinePrecision]), $MachinePrecision] / N[(6.0 + N[(beta * N[(5.0 + beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(1.0 + alpha), $MachinePrecision] / N[(N[(beta + alpha), $MachinePrecision] + 2.0), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(beta + alpha), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
      
      \begin{array}{l}
      [alpha, beta] = \mathsf{sort}([alpha, beta])\\
      \\
      \begin{array}{l}
      \mathbf{if}\;\beta \leq 5 \cdot 10^{+15}:\\
      \;\;\;\;\frac{\frac{1 + \beta}{2 + \beta}}{6 + \beta \cdot \left(5 + \beta\right)}\\
      
      \mathbf{else}:\\
      \;\;\;\;\frac{\frac{1 + \alpha}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)}\\
      
      
      \end{array}
      \end{array}
      
      Derivation
      1. Split input into 2 regimes
      2. if beta < 5e15

        1. Initial program 99.9%

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

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

          \[\leadsto \color{blue}{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) \cdot \left(3 + \left(\beta + \alpha\right)\right)}} \]
        5. Taylor expanded in beta around 0

          \[\leadsto \frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\beta \cdot \left(5 + \left(\beta + 2 \cdot \alpha\right)\right) + \left(2 + \alpha\right) \cdot \left(3 + \alpha\right)}} \]
        6. Step-by-step derivation
          1. lower-fma.f64N/A

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

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

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

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

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

            \[\leadsto \frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\mathsf{fma}\left(\beta, 5 + \left(\beta + 2 \cdot \alpha\right), \left(2 + \alpha\right) \cdot \left(3 + \alpha\right)\right)} \]
          7. lower-+.f6499.6

            \[\leadsto \frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\mathsf{fma}\left(\beta, 5 + \left(\beta + 2 \cdot \alpha\right), \left(2 + \alpha\right) \cdot \left(3 + \alpha\right)\right)} \]
        7. Applied rewrites99.6%

          \[\leadsto \frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\mathsf{fma}\left(\beta, 5 + \left(\beta + 2 \cdot \alpha\right), \left(2 + \alpha\right) \cdot \left(3 + \alpha\right)\right)}} \]
        8. Taylor expanded in alpha around 0

          \[\leadsto \frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{6 + \color{blue}{\beta \cdot \left(5 + \beta\right)}} \]
        9. Step-by-step derivation
          1. lower-+.f64N/A

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

            \[\leadsto \frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{6 + \beta \cdot \left(5 + \color{blue}{\beta}\right)} \]
          3. lower-+.f6463.0

            \[\leadsto \frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{6 + \beta \cdot \left(5 + \beta\right)} \]
        10. Applied rewrites63.0%

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

          \[\leadsto \frac{\color{blue}{\frac{1 + \beta}{2 + \beta}}}{6 + \beta \cdot \left(5 + \beta\right)} \]
        12. Step-by-step derivation
          1. lift-/.f64N/A

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

            \[\leadsto \frac{\frac{1 + \beta}{\color{blue}{2} + \beta}}{6 + \beta \cdot \left(5 + \beta\right)} \]
          3. lift-+.f6463.1

            \[\leadsto \frac{\frac{1 + \beta}{2 + \color{blue}{\beta}}}{6 + \beta \cdot \left(5 + \beta\right)} \]
        13. Applied rewrites63.1%

          \[\leadsto \frac{\color{blue}{\frac{1 + \beta}{2 + \beta}}}{6 + \beta \cdot \left(5 + \beta\right)} \]

        if 5e15 < beta

        1. Initial program 82.3%

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

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

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

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

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

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

            \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \color{blue}{\beta + \alpha}\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          7. lower-+.f6482.3

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

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

            \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          10. lower-+.f6482.3

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

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

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

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

            \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          15. lower-+.f6482.3

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

            \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          17. metadata-eval82.3

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

            \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1}} \]
        4. Applied rewrites82.3%

          \[\leadsto \color{blue}{\frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)}} \]
        5. Taylor expanded in beta around inf

          \[\leadsto \frac{\frac{\color{blue}{1 + \alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
        6. Step-by-step derivation
          1. lift-+.f6485.4

            \[\leadsto \frac{\frac{1 + \color{blue}{\alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
        7. Applied rewrites85.4%

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

        \[\leadsto \begin{array}{l} \mathbf{if}\;\beta \leq 5 \cdot 10^{+15}:\\ \;\;\;\;\frac{\frac{1 + \beta}{2 + \beta}}{6 + \beta \cdot \left(5 + \beta\right)}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{1 + \alpha}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)}\\ \end{array} \]
      5. Add Preprocessing

      Alternative 9: 97.0% accurate, 1.9× speedup?

      \[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \begin{array}{l} t_0 := 3 + \left(\beta + \alpha\right)\\ \mathbf{if}\;\beta \leq 1.7:\\ \;\;\;\;\frac{\frac{0.5}{\beta + 2}}{t\_0}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{1 + \alpha}{\left(\beta + \alpha\right) + 2}}{t\_0}\\ \end{array} \end{array} \]
      NOTE: alpha and beta should be sorted in increasing order before calling this function.
      (FPCore (alpha beta)
       :precision binary64
       (let* ((t_0 (+ 3.0 (+ beta alpha))))
         (if (<= beta 1.7)
           (/ (/ 0.5 (+ beta 2.0)) t_0)
           (/ (/ (+ 1.0 alpha) (+ (+ beta alpha) 2.0)) t_0))))
      assert(alpha < beta);
      double code(double alpha, double beta) {
      	double t_0 = 3.0 + (beta + alpha);
      	double tmp;
      	if (beta <= 1.7) {
      		tmp = (0.5 / (beta + 2.0)) / t_0;
      	} else {
      		tmp = ((1.0 + alpha) / ((beta + alpha) + 2.0)) / t_0;
      	}
      	return tmp;
      }
      
      NOTE: alpha and beta should be sorted in increasing order before calling this function.
      module fmin_fmax_functions
          implicit none
          private
          public fmax
          public fmin
      
          interface fmax
              module procedure fmax88
              module procedure fmax44
              module procedure fmax84
              module procedure fmax48
          end interface
          interface fmin
              module procedure fmin88
              module procedure fmin44
              module procedure fmin84
              module procedure fmin48
          end interface
      contains
          real(8) function fmax88(x, y) result (res)
              real(8), intent (in) :: x
              real(8), intent (in) :: y
              res = merge(y, merge(x, max(x, y), y /= y), x /= x)
          end function
          real(4) function fmax44(x, y) result (res)
              real(4), intent (in) :: x
              real(4), intent (in) :: y
              res = merge(y, merge(x, max(x, y), y /= y), x /= x)
          end function
          real(8) function fmax84(x, y) result(res)
              real(8), intent (in) :: x
              real(4), intent (in) :: y
              res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
          end function
          real(8) function fmax48(x, y) result(res)
              real(4), intent (in) :: x
              real(8), intent (in) :: y
              res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
          end function
          real(8) function fmin88(x, y) result (res)
              real(8), intent (in) :: x
              real(8), intent (in) :: y
              res = merge(y, merge(x, min(x, y), y /= y), x /= x)
          end function
          real(4) function fmin44(x, y) result (res)
              real(4), intent (in) :: x
              real(4), intent (in) :: y
              res = merge(y, merge(x, min(x, y), y /= y), x /= x)
          end function
          real(8) function fmin84(x, y) result(res)
              real(8), intent (in) :: x
              real(4), intent (in) :: y
              res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
          end function
          real(8) function fmin48(x, y) result(res)
              real(4), intent (in) :: x
              real(8), intent (in) :: y
              res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
          end function
      end module
      
      real(8) function code(alpha, beta)
      use fmin_fmax_functions
          real(8), intent (in) :: alpha
          real(8), intent (in) :: beta
          real(8) :: t_0
          real(8) :: tmp
          t_0 = 3.0d0 + (beta + alpha)
          if (beta <= 1.7d0) then
              tmp = (0.5d0 / (beta + 2.0d0)) / t_0
          else
              tmp = ((1.0d0 + alpha) / ((beta + alpha) + 2.0d0)) / t_0
          end if
          code = tmp
      end function
      
      assert alpha < beta;
      public static double code(double alpha, double beta) {
      	double t_0 = 3.0 + (beta + alpha);
      	double tmp;
      	if (beta <= 1.7) {
      		tmp = (0.5 / (beta + 2.0)) / t_0;
      	} else {
      		tmp = ((1.0 + alpha) / ((beta + alpha) + 2.0)) / t_0;
      	}
      	return tmp;
      }
      
      [alpha, beta] = sort([alpha, beta])
      def code(alpha, beta):
      	t_0 = 3.0 + (beta + alpha)
      	tmp = 0
      	if beta <= 1.7:
      		tmp = (0.5 / (beta + 2.0)) / t_0
      	else:
      		tmp = ((1.0 + alpha) / ((beta + alpha) + 2.0)) / t_0
      	return tmp
      
      alpha, beta = sort([alpha, beta])
      function code(alpha, beta)
      	t_0 = Float64(3.0 + Float64(beta + alpha))
      	tmp = 0.0
      	if (beta <= 1.7)
      		tmp = Float64(Float64(0.5 / Float64(beta + 2.0)) / t_0);
      	else
      		tmp = Float64(Float64(Float64(1.0 + alpha) / Float64(Float64(beta + alpha) + 2.0)) / t_0);
      	end
      	return tmp
      end
      
      alpha, beta = num2cell(sort([alpha, beta])){:}
      function tmp_2 = code(alpha, beta)
      	t_0 = 3.0 + (beta + alpha);
      	tmp = 0.0;
      	if (beta <= 1.7)
      		tmp = (0.5 / (beta + 2.0)) / t_0;
      	else
      		tmp = ((1.0 + alpha) / ((beta + alpha) + 2.0)) / t_0;
      	end
      	tmp_2 = tmp;
      end
      
      NOTE: alpha and beta should be sorted in increasing order before calling this function.
      code[alpha_, beta_] := Block[{t$95$0 = N[(3.0 + N[(beta + alpha), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[beta, 1.7], N[(N[(0.5 / N[(beta + 2.0), $MachinePrecision]), $MachinePrecision] / t$95$0), $MachinePrecision], N[(N[(N[(1.0 + alpha), $MachinePrecision] / N[(N[(beta + alpha), $MachinePrecision] + 2.0), $MachinePrecision]), $MachinePrecision] / t$95$0), $MachinePrecision]]]
      
      \begin{array}{l}
      [alpha, beta] = \mathsf{sort}([alpha, beta])\\
      \\
      \begin{array}{l}
      t_0 := 3 + \left(\beta + \alpha\right)\\
      \mathbf{if}\;\beta \leq 1.7:\\
      \;\;\;\;\frac{\frac{0.5}{\beta + 2}}{t\_0}\\
      
      \mathbf{else}:\\
      \;\;\;\;\frac{\frac{1 + \alpha}{\left(\beta + \alpha\right) + 2}}{t\_0}\\
      
      
      \end{array}
      \end{array}
      
      Derivation
      1. Split input into 2 regimes
      2. if beta < 1.69999999999999996

        1. Initial program 99.9%

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

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

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

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

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

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

            \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \color{blue}{\beta + \alpha}\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          7. lower-+.f6499.9

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

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

            \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          10. lower-+.f6499.9

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

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

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

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

            \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          15. lower-+.f6499.9

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

            \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          17. metadata-eval99.9

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

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

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

          \[\leadsto \frac{\frac{\color{blue}{\frac{1 + \alpha}{2 + \alpha}}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
        6. Step-by-step derivation
          1. lower-/.f64N/A

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

            \[\leadsto \frac{\frac{\frac{1 + \alpha}{\color{blue}{2} + \alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
          3. lower-+.f6498.0

            \[\leadsto \frac{\frac{\frac{1 + \alpha}{2 + \color{blue}{\alpha}}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
        7. Applied rewrites98.0%

          \[\leadsto \frac{\frac{\color{blue}{\frac{1 + \alpha}{2 + \alpha}}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
        8. Taylor expanded in alpha around 0

          \[\leadsto \frac{\frac{\frac{1}{2}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
        9. Step-by-step derivation
          1. Applied rewrites78.8%

            \[\leadsto \frac{\frac{0.5}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
          2. Taylor expanded in alpha around 0

            \[\leadsto \frac{\frac{\frac{1}{2}}{\color{blue}{\beta} + 2}}{3 + \left(\beta + \alpha\right)} \]
          3. Step-by-step derivation
            1. Applied rewrites63.8%

              \[\leadsto \frac{\frac{0.5}{\color{blue}{\beta} + 2}}{3 + \left(\beta + \alpha\right)} \]

            if 1.69999999999999996 < beta

            1. Initial program 82.4%

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

              \[\leadsto \color{blue}{\frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)}} \]
            5. Taylor expanded in beta around inf

              \[\leadsto \frac{\frac{\color{blue}{1 + \alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
            6. Step-by-step derivation
              1. lift-+.f6485.1

                \[\leadsto \frac{\frac{1 + \color{blue}{\alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
            7. Applied rewrites85.1%

              \[\leadsto \frac{\frac{\color{blue}{1 + \alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
          4. Recombined 2 regimes into one program.
          5. Final simplification71.8%

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

          Alternative 10: 97.0% accurate, 2.0× speedup?

          \[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \begin{array}{l} \mathbf{if}\;\beta \leq 1.75:\\ \;\;\;\;\frac{\frac{0.5}{\beta + 2}}{3 + \left(\beta + \alpha\right)}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{1 + \alpha}{\left(\beta + \alpha\right) + 2}}{3 + \beta}\\ \end{array} \end{array} \]
          NOTE: alpha and beta should be sorted in increasing order before calling this function.
          (FPCore (alpha beta)
           :precision binary64
           (if (<= beta 1.75)
             (/ (/ 0.5 (+ beta 2.0)) (+ 3.0 (+ beta alpha)))
             (/ (/ (+ 1.0 alpha) (+ (+ beta alpha) 2.0)) (+ 3.0 beta))))
          assert(alpha < beta);
          double code(double alpha, double beta) {
          	double tmp;
          	if (beta <= 1.75) {
          		tmp = (0.5 / (beta + 2.0)) / (3.0 + (beta + alpha));
          	} else {
          		tmp = ((1.0 + alpha) / ((beta + alpha) + 2.0)) / (3.0 + beta);
          	}
          	return tmp;
          }
          
          NOTE: alpha and beta should be sorted in increasing order before calling this function.
          module fmin_fmax_functions
              implicit none
              private
              public fmax
              public fmin
          
              interface fmax
                  module procedure fmax88
                  module procedure fmax44
                  module procedure fmax84
                  module procedure fmax48
              end interface
              interface fmin
                  module procedure fmin88
                  module procedure fmin44
                  module procedure fmin84
                  module procedure fmin48
              end interface
          contains
              real(8) function fmax88(x, y) result (res)
                  real(8), intent (in) :: x
                  real(8), intent (in) :: y
                  res = merge(y, merge(x, max(x, y), y /= y), x /= x)
              end function
              real(4) function fmax44(x, y) result (res)
                  real(4), intent (in) :: x
                  real(4), intent (in) :: y
                  res = merge(y, merge(x, max(x, y), y /= y), x /= x)
              end function
              real(8) function fmax84(x, y) result(res)
                  real(8), intent (in) :: x
                  real(4), intent (in) :: y
                  res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
              end function
              real(8) function fmax48(x, y) result(res)
                  real(4), intent (in) :: x
                  real(8), intent (in) :: y
                  res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
              end function
              real(8) function fmin88(x, y) result (res)
                  real(8), intent (in) :: x
                  real(8), intent (in) :: y
                  res = merge(y, merge(x, min(x, y), y /= y), x /= x)
              end function
              real(4) function fmin44(x, y) result (res)
                  real(4), intent (in) :: x
                  real(4), intent (in) :: y
                  res = merge(y, merge(x, min(x, y), y /= y), x /= x)
              end function
              real(8) function fmin84(x, y) result(res)
                  real(8), intent (in) :: x
                  real(4), intent (in) :: y
                  res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
              end function
              real(8) function fmin48(x, y) result(res)
                  real(4), intent (in) :: x
                  real(8), intent (in) :: y
                  res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
              end function
          end module
          
          real(8) function code(alpha, beta)
          use fmin_fmax_functions
              real(8), intent (in) :: alpha
              real(8), intent (in) :: beta
              real(8) :: tmp
              if (beta <= 1.75d0) then
                  tmp = (0.5d0 / (beta + 2.0d0)) / (3.0d0 + (beta + alpha))
              else
                  tmp = ((1.0d0 + alpha) / ((beta + alpha) + 2.0d0)) / (3.0d0 + beta)
              end if
              code = tmp
          end function
          
          assert alpha < beta;
          public static double code(double alpha, double beta) {
          	double tmp;
          	if (beta <= 1.75) {
          		tmp = (0.5 / (beta + 2.0)) / (3.0 + (beta + alpha));
          	} else {
          		tmp = ((1.0 + alpha) / ((beta + alpha) + 2.0)) / (3.0 + beta);
          	}
          	return tmp;
          }
          
          [alpha, beta] = sort([alpha, beta])
          def code(alpha, beta):
          	tmp = 0
          	if beta <= 1.75:
          		tmp = (0.5 / (beta + 2.0)) / (3.0 + (beta + alpha))
          	else:
          		tmp = ((1.0 + alpha) / ((beta + alpha) + 2.0)) / (3.0 + beta)
          	return tmp
          
          alpha, beta = sort([alpha, beta])
          function code(alpha, beta)
          	tmp = 0.0
          	if (beta <= 1.75)
          		tmp = Float64(Float64(0.5 / Float64(beta + 2.0)) / Float64(3.0 + Float64(beta + alpha)));
          	else
          		tmp = Float64(Float64(Float64(1.0 + alpha) / Float64(Float64(beta + alpha) + 2.0)) / Float64(3.0 + beta));
          	end
          	return tmp
          end
          
          alpha, beta = num2cell(sort([alpha, beta])){:}
          function tmp_2 = code(alpha, beta)
          	tmp = 0.0;
          	if (beta <= 1.75)
          		tmp = (0.5 / (beta + 2.0)) / (3.0 + (beta + alpha));
          	else
          		tmp = ((1.0 + alpha) / ((beta + alpha) + 2.0)) / (3.0 + beta);
          	end
          	tmp_2 = tmp;
          end
          
          NOTE: alpha and beta should be sorted in increasing order before calling this function.
          code[alpha_, beta_] := If[LessEqual[beta, 1.75], N[(N[(0.5 / N[(beta + 2.0), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(beta + alpha), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(1.0 + alpha), $MachinePrecision] / N[(N[(beta + alpha), $MachinePrecision] + 2.0), $MachinePrecision]), $MachinePrecision] / N[(3.0 + beta), $MachinePrecision]), $MachinePrecision]]
          
          \begin{array}{l}
          [alpha, beta] = \mathsf{sort}([alpha, beta])\\
          \\
          \begin{array}{l}
          \mathbf{if}\;\beta \leq 1.75:\\
          \;\;\;\;\frac{\frac{0.5}{\beta + 2}}{3 + \left(\beta + \alpha\right)}\\
          
          \mathbf{else}:\\
          \;\;\;\;\frac{\frac{1 + \alpha}{\left(\beta + \alpha\right) + 2}}{3 + \beta}\\
          
          
          \end{array}
          \end{array}
          
          Derivation
          1. Split input into 2 regimes
          2. if beta < 1.75

            1. Initial program 99.9%

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

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

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

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

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

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

                \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \color{blue}{\beta + \alpha}\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
              7. lower-+.f6499.9

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

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

                \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
              10. lower-+.f6499.9

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

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

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

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

                \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
              15. lower-+.f6499.9

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

                \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
              17. metadata-eval99.9

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

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

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

              \[\leadsto \frac{\frac{\color{blue}{\frac{1 + \alpha}{2 + \alpha}}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
            6. Step-by-step derivation
              1. lower-/.f64N/A

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

                \[\leadsto \frac{\frac{\frac{1 + \alpha}{\color{blue}{2} + \alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
              3. lower-+.f6498.0

                \[\leadsto \frac{\frac{\frac{1 + \alpha}{2 + \color{blue}{\alpha}}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
            7. Applied rewrites98.0%

              \[\leadsto \frac{\frac{\color{blue}{\frac{1 + \alpha}{2 + \alpha}}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
            8. Taylor expanded in alpha around 0

              \[\leadsto \frac{\frac{\frac{1}{2}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
            9. Step-by-step derivation
              1. Applied rewrites78.8%

                \[\leadsto \frac{\frac{0.5}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
              2. Taylor expanded in alpha around 0

                \[\leadsto \frac{\frac{\frac{1}{2}}{\color{blue}{\beta} + 2}}{3 + \left(\beta + \alpha\right)} \]
              3. Step-by-step derivation
                1. Applied rewrites63.8%

                  \[\leadsto \frac{\frac{0.5}{\color{blue}{\beta} + 2}}{3 + \left(\beta + \alpha\right)} \]

                if 1.75 < beta

                1. Initial program 82.4%

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

                  \[\leadsto \color{blue}{\frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)}} \]
                5. Taylor expanded in beta around inf

                  \[\leadsto \frac{\frac{\color{blue}{1 + \alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
                6. Step-by-step derivation
                  1. lift-+.f6485.1

                    \[\leadsto \frac{\frac{1 + \color{blue}{\alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
                7. Applied rewrites85.1%

                  \[\leadsto \frac{\frac{\color{blue}{1 + \alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
                8. Taylor expanded in alpha around 0

                  \[\leadsto \frac{\frac{1 + \alpha}{\left(\beta + \alpha\right) + 2}}{3 + \color{blue}{\beta}} \]
                9. Step-by-step derivation
                  1. Applied rewrites84.7%

                    \[\leadsto \frac{\frac{1 + \alpha}{\left(\beta + \alpha\right) + 2}}{3 + \color{blue}{\beta}} \]
                10. Recombined 2 regimes into one program.
                11. Final simplification71.7%

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

                Alternative 11: 96.9% accurate, 2.2× speedup?

                \[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \begin{array}{l} t_0 := 3 + \left(\beta + \alpha\right)\\ \mathbf{if}\;\beta \leq 6.4:\\ \;\;\;\;\frac{\frac{0.5}{\beta + 2}}{t\_0}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{1 + \alpha}{\beta}}{t\_0}\\ \end{array} \end{array} \]
                NOTE: alpha and beta should be sorted in increasing order before calling this function.
                (FPCore (alpha beta)
                 :precision binary64
                 (let* ((t_0 (+ 3.0 (+ beta alpha))))
                   (if (<= beta 6.4)
                     (/ (/ 0.5 (+ beta 2.0)) t_0)
                     (/ (/ (+ 1.0 alpha) beta) t_0))))
                assert(alpha < beta);
                double code(double alpha, double beta) {
                	double t_0 = 3.0 + (beta + alpha);
                	double tmp;
                	if (beta <= 6.4) {
                		tmp = (0.5 / (beta + 2.0)) / t_0;
                	} else {
                		tmp = ((1.0 + alpha) / beta) / t_0;
                	}
                	return tmp;
                }
                
                NOTE: alpha and beta should be sorted in increasing order before calling this function.
                module fmin_fmax_functions
                    implicit none
                    private
                    public fmax
                    public fmin
                
                    interface fmax
                        module procedure fmax88
                        module procedure fmax44
                        module procedure fmax84
                        module procedure fmax48
                    end interface
                    interface fmin
                        module procedure fmin88
                        module procedure fmin44
                        module procedure fmin84
                        module procedure fmin48
                    end interface
                contains
                    real(8) function fmax88(x, y) result (res)
                        real(8), intent (in) :: x
                        real(8), intent (in) :: y
                        res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                    end function
                    real(4) function fmax44(x, y) result (res)
                        real(4), intent (in) :: x
                        real(4), intent (in) :: y
                        res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                    end function
                    real(8) function fmax84(x, y) result(res)
                        real(8), intent (in) :: x
                        real(4), intent (in) :: y
                        res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
                    end function
                    real(8) function fmax48(x, y) result(res)
                        real(4), intent (in) :: x
                        real(8), intent (in) :: y
                        res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
                    end function
                    real(8) function fmin88(x, y) result (res)
                        real(8), intent (in) :: x
                        real(8), intent (in) :: y
                        res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                    end function
                    real(4) function fmin44(x, y) result (res)
                        real(4), intent (in) :: x
                        real(4), intent (in) :: y
                        res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                    end function
                    real(8) function fmin84(x, y) result(res)
                        real(8), intent (in) :: x
                        real(4), intent (in) :: y
                        res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
                    end function
                    real(8) function fmin48(x, y) result(res)
                        real(4), intent (in) :: x
                        real(8), intent (in) :: y
                        res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
                    end function
                end module
                
                real(8) function code(alpha, beta)
                use fmin_fmax_functions
                    real(8), intent (in) :: alpha
                    real(8), intent (in) :: beta
                    real(8) :: t_0
                    real(8) :: tmp
                    t_0 = 3.0d0 + (beta + alpha)
                    if (beta <= 6.4d0) then
                        tmp = (0.5d0 / (beta + 2.0d0)) / t_0
                    else
                        tmp = ((1.0d0 + alpha) / beta) / t_0
                    end if
                    code = tmp
                end function
                
                assert alpha < beta;
                public static double code(double alpha, double beta) {
                	double t_0 = 3.0 + (beta + alpha);
                	double tmp;
                	if (beta <= 6.4) {
                		tmp = (0.5 / (beta + 2.0)) / t_0;
                	} else {
                		tmp = ((1.0 + alpha) / beta) / t_0;
                	}
                	return tmp;
                }
                
                [alpha, beta] = sort([alpha, beta])
                def code(alpha, beta):
                	t_0 = 3.0 + (beta + alpha)
                	tmp = 0
                	if beta <= 6.4:
                		tmp = (0.5 / (beta + 2.0)) / t_0
                	else:
                		tmp = ((1.0 + alpha) / beta) / t_0
                	return tmp
                
                alpha, beta = sort([alpha, beta])
                function code(alpha, beta)
                	t_0 = Float64(3.0 + Float64(beta + alpha))
                	tmp = 0.0
                	if (beta <= 6.4)
                		tmp = Float64(Float64(0.5 / Float64(beta + 2.0)) / t_0);
                	else
                		tmp = Float64(Float64(Float64(1.0 + alpha) / beta) / t_0);
                	end
                	return tmp
                end
                
                alpha, beta = num2cell(sort([alpha, beta])){:}
                function tmp_2 = code(alpha, beta)
                	t_0 = 3.0 + (beta + alpha);
                	tmp = 0.0;
                	if (beta <= 6.4)
                		tmp = (0.5 / (beta + 2.0)) / t_0;
                	else
                		tmp = ((1.0 + alpha) / beta) / t_0;
                	end
                	tmp_2 = tmp;
                end
                
                NOTE: alpha and beta should be sorted in increasing order before calling this function.
                code[alpha_, beta_] := Block[{t$95$0 = N[(3.0 + N[(beta + alpha), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[beta, 6.4], N[(N[(0.5 / N[(beta + 2.0), $MachinePrecision]), $MachinePrecision] / t$95$0), $MachinePrecision], N[(N[(N[(1.0 + alpha), $MachinePrecision] / beta), $MachinePrecision] / t$95$0), $MachinePrecision]]]
                
                \begin{array}{l}
                [alpha, beta] = \mathsf{sort}([alpha, beta])\\
                \\
                \begin{array}{l}
                t_0 := 3 + \left(\beta + \alpha\right)\\
                \mathbf{if}\;\beta \leq 6.4:\\
                \;\;\;\;\frac{\frac{0.5}{\beta + 2}}{t\_0}\\
                
                \mathbf{else}:\\
                \;\;\;\;\frac{\frac{1 + \alpha}{\beta}}{t\_0}\\
                
                
                \end{array}
                \end{array}
                
                Derivation
                1. Split input into 2 regimes
                2. if beta < 6.4000000000000004

                  1. Initial program 99.9%

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

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

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

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

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

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

                      \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \color{blue}{\beta + \alpha}\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                    7. lower-+.f6499.9

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

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

                      \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                    10. lower-+.f6499.9

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

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

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

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

                      \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                    15. lower-+.f6499.9

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

                      \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                    17. metadata-eval99.9

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

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

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

                    \[\leadsto \frac{\frac{\color{blue}{\frac{1 + \alpha}{2 + \alpha}}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
                  6. Step-by-step derivation
                    1. lower-/.f64N/A

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

                      \[\leadsto \frac{\frac{\frac{1 + \alpha}{\color{blue}{2} + \alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
                    3. lower-+.f6498.0

                      \[\leadsto \frac{\frac{\frac{1 + \alpha}{2 + \color{blue}{\alpha}}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
                  7. Applied rewrites98.0%

                    \[\leadsto \frac{\frac{\color{blue}{\frac{1 + \alpha}{2 + \alpha}}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
                  8. Taylor expanded in alpha around 0

                    \[\leadsto \frac{\frac{\frac{1}{2}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
                  9. Step-by-step derivation
                    1. Applied rewrites78.8%

                      \[\leadsto \frac{\frac{0.5}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
                    2. Taylor expanded in alpha around 0

                      \[\leadsto \frac{\frac{\frac{1}{2}}{\color{blue}{\beta} + 2}}{3 + \left(\beta + \alpha\right)} \]
                    3. Step-by-step derivation
                      1. Applied rewrites63.8%

                        \[\leadsto \frac{\frac{0.5}{\color{blue}{\beta} + 2}}{3 + \left(\beta + \alpha\right)} \]

                      if 6.4000000000000004 < beta

                      1. Initial program 82.4%

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

                        \[\leadsto \color{blue}{\frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)}} \]
                      5. Taylor expanded in beta around inf

                        \[\leadsto \frac{\color{blue}{\frac{1 + \alpha}{\beta}}}{3 + \left(\beta + \alpha\right)} \]
                      6. Step-by-step derivation
                        1. lower-/.f64N/A

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

                          \[\leadsto \frac{\frac{1 + \alpha}{\beta}}{3 + \left(\beta + \alpha\right)} \]
                      7. Applied rewrites84.7%

                        \[\leadsto \frac{\color{blue}{\frac{1 + \alpha}{\beta}}}{3 + \left(\beta + \alpha\right)} \]
                    4. Recombined 2 regimes into one program.
                    5. Final simplification71.7%

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

                    Alternative 12: 96.9% accurate, 2.2× speedup?

                    \[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \begin{array}{l} t_0 := 3 + \left(\beta + \alpha\right)\\ \mathbf{if}\;\beta \leq 8:\\ \;\;\;\;\frac{\frac{0.5}{\alpha + 2}}{t\_0}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{1 + \alpha}{\beta}}{t\_0}\\ \end{array} \end{array} \]
                    NOTE: alpha and beta should be sorted in increasing order before calling this function.
                    (FPCore (alpha beta)
                     :precision binary64
                     (let* ((t_0 (+ 3.0 (+ beta alpha))))
                       (if (<= beta 8.0)
                         (/ (/ 0.5 (+ alpha 2.0)) t_0)
                         (/ (/ (+ 1.0 alpha) beta) t_0))))
                    assert(alpha < beta);
                    double code(double alpha, double beta) {
                    	double t_0 = 3.0 + (beta + alpha);
                    	double tmp;
                    	if (beta <= 8.0) {
                    		tmp = (0.5 / (alpha + 2.0)) / t_0;
                    	} else {
                    		tmp = ((1.0 + alpha) / beta) / t_0;
                    	}
                    	return tmp;
                    }
                    
                    NOTE: alpha and beta should be sorted in increasing order before calling this function.
                    module fmin_fmax_functions
                        implicit none
                        private
                        public fmax
                        public fmin
                    
                        interface fmax
                            module procedure fmax88
                            module procedure fmax44
                            module procedure fmax84
                            module procedure fmax48
                        end interface
                        interface fmin
                            module procedure fmin88
                            module procedure fmin44
                            module procedure fmin84
                            module procedure fmin48
                        end interface
                    contains
                        real(8) function fmax88(x, y) result (res)
                            real(8), intent (in) :: x
                            real(8), intent (in) :: y
                            res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                        end function
                        real(4) function fmax44(x, y) result (res)
                            real(4), intent (in) :: x
                            real(4), intent (in) :: y
                            res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                        end function
                        real(8) function fmax84(x, y) result(res)
                            real(8), intent (in) :: x
                            real(4), intent (in) :: y
                            res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
                        end function
                        real(8) function fmax48(x, y) result(res)
                            real(4), intent (in) :: x
                            real(8), intent (in) :: y
                            res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
                        end function
                        real(8) function fmin88(x, y) result (res)
                            real(8), intent (in) :: x
                            real(8), intent (in) :: y
                            res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                        end function
                        real(4) function fmin44(x, y) result (res)
                            real(4), intent (in) :: x
                            real(4), intent (in) :: y
                            res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                        end function
                        real(8) function fmin84(x, y) result(res)
                            real(8), intent (in) :: x
                            real(4), intent (in) :: y
                            res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
                        end function
                        real(8) function fmin48(x, y) result(res)
                            real(4), intent (in) :: x
                            real(8), intent (in) :: y
                            res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
                        end function
                    end module
                    
                    real(8) function code(alpha, beta)
                    use fmin_fmax_functions
                        real(8), intent (in) :: alpha
                        real(8), intent (in) :: beta
                        real(8) :: t_0
                        real(8) :: tmp
                        t_0 = 3.0d0 + (beta + alpha)
                        if (beta <= 8.0d0) then
                            tmp = (0.5d0 / (alpha + 2.0d0)) / t_0
                        else
                            tmp = ((1.0d0 + alpha) / beta) / t_0
                        end if
                        code = tmp
                    end function
                    
                    assert alpha < beta;
                    public static double code(double alpha, double beta) {
                    	double t_0 = 3.0 + (beta + alpha);
                    	double tmp;
                    	if (beta <= 8.0) {
                    		tmp = (0.5 / (alpha + 2.0)) / t_0;
                    	} else {
                    		tmp = ((1.0 + alpha) / beta) / t_0;
                    	}
                    	return tmp;
                    }
                    
                    [alpha, beta] = sort([alpha, beta])
                    def code(alpha, beta):
                    	t_0 = 3.0 + (beta + alpha)
                    	tmp = 0
                    	if beta <= 8.0:
                    		tmp = (0.5 / (alpha + 2.0)) / t_0
                    	else:
                    		tmp = ((1.0 + alpha) / beta) / t_0
                    	return tmp
                    
                    alpha, beta = sort([alpha, beta])
                    function code(alpha, beta)
                    	t_0 = Float64(3.0 + Float64(beta + alpha))
                    	tmp = 0.0
                    	if (beta <= 8.0)
                    		tmp = Float64(Float64(0.5 / Float64(alpha + 2.0)) / t_0);
                    	else
                    		tmp = Float64(Float64(Float64(1.0 + alpha) / beta) / t_0);
                    	end
                    	return tmp
                    end
                    
                    alpha, beta = num2cell(sort([alpha, beta])){:}
                    function tmp_2 = code(alpha, beta)
                    	t_0 = 3.0 + (beta + alpha);
                    	tmp = 0.0;
                    	if (beta <= 8.0)
                    		tmp = (0.5 / (alpha + 2.0)) / t_0;
                    	else
                    		tmp = ((1.0 + alpha) / beta) / t_0;
                    	end
                    	tmp_2 = tmp;
                    end
                    
                    NOTE: alpha and beta should be sorted in increasing order before calling this function.
                    code[alpha_, beta_] := Block[{t$95$0 = N[(3.0 + N[(beta + alpha), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[beta, 8.0], N[(N[(0.5 / N[(alpha + 2.0), $MachinePrecision]), $MachinePrecision] / t$95$0), $MachinePrecision], N[(N[(N[(1.0 + alpha), $MachinePrecision] / beta), $MachinePrecision] / t$95$0), $MachinePrecision]]]
                    
                    \begin{array}{l}
                    [alpha, beta] = \mathsf{sort}([alpha, beta])\\
                    \\
                    \begin{array}{l}
                    t_0 := 3 + \left(\beta + \alpha\right)\\
                    \mathbf{if}\;\beta \leq 8:\\
                    \;\;\;\;\frac{\frac{0.5}{\alpha + 2}}{t\_0}\\
                    
                    \mathbf{else}:\\
                    \;\;\;\;\frac{\frac{1 + \alpha}{\beta}}{t\_0}\\
                    
                    
                    \end{array}
                    \end{array}
                    
                    Derivation
                    1. Split input into 2 regimes
                    2. if beta < 8

                      1. Initial program 99.9%

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

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

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

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

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

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

                          \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \color{blue}{\beta + \alpha}\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                        7. lower-+.f6499.9

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

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

                          \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                        10. lower-+.f6499.9

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

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

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

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

                          \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                        15. lower-+.f6499.9

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

                          \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                        17. metadata-eval99.9

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

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

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

                        \[\leadsto \frac{\frac{\color{blue}{\frac{1 + \alpha}{2 + \alpha}}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
                      6. Step-by-step derivation
                        1. lower-/.f64N/A

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

                          \[\leadsto \frac{\frac{\frac{1 + \alpha}{\color{blue}{2} + \alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
                        3. lower-+.f6498.0

                          \[\leadsto \frac{\frac{\frac{1 + \alpha}{2 + \color{blue}{\alpha}}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
                      7. Applied rewrites98.0%

                        \[\leadsto \frac{\frac{\color{blue}{\frac{1 + \alpha}{2 + \alpha}}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
                      8. Taylor expanded in alpha around 0

                        \[\leadsto \frac{\frac{\frac{1}{2}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
                      9. Step-by-step derivation
                        1. Applied rewrites78.8%

                          \[\leadsto \frac{\frac{0.5}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)} \]
                        2. Taylor expanded in alpha around inf

                          \[\leadsto \frac{\frac{\frac{1}{2}}{\color{blue}{\alpha} + 2}}{3 + \left(\beta + \alpha\right)} \]
                        3. Step-by-step derivation
                          1. Applied rewrites79.7%

                            \[\leadsto \frac{\frac{0.5}{\color{blue}{\alpha} + 2}}{3 + \left(\beta + \alpha\right)} \]

                          if 8 < beta

                          1. Initial program 82.4%

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

                            \[\leadsto \color{blue}{\frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)}} \]
                          5. Taylor expanded in beta around inf

                            \[\leadsto \frac{\color{blue}{\frac{1 + \alpha}{\beta}}}{3 + \left(\beta + \alpha\right)} \]
                          6. Step-by-step derivation
                            1. lower-/.f64N/A

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

                              \[\leadsto \frac{\frac{1 + \alpha}{\beta}}{3 + \left(\beta + \alpha\right)} \]
                          7. Applied rewrites84.7%

                            \[\leadsto \frac{\color{blue}{\frac{1 + \alpha}{\beta}}}{3 + \left(\beta + \alpha\right)} \]
                        4. Recombined 2 regimes into one program.
                        5. Final simplification81.6%

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

                        Alternative 13: 62.0% accurate, 2.2× speedup?

                        \[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \begin{array}{l} \mathbf{if}\;\beta \leq 5 \cdot 10^{+15}:\\ \;\;\;\;\frac{1 + \alpha}{6 + \beta \cdot \left(5 + \beta\right)}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{1 + \alpha}{\beta}}{3 + \left(\beta + \alpha\right)}\\ \end{array} \end{array} \]
                        NOTE: alpha and beta should be sorted in increasing order before calling this function.
                        (FPCore (alpha beta)
                         :precision binary64
                         (if (<= beta 5e+15)
                           (/ (+ 1.0 alpha) (+ 6.0 (* beta (+ 5.0 beta))))
                           (/ (/ (+ 1.0 alpha) beta) (+ 3.0 (+ beta alpha)))))
                        assert(alpha < beta);
                        double code(double alpha, double beta) {
                        	double tmp;
                        	if (beta <= 5e+15) {
                        		tmp = (1.0 + alpha) / (6.0 + (beta * (5.0 + beta)));
                        	} else {
                        		tmp = ((1.0 + alpha) / beta) / (3.0 + (beta + alpha));
                        	}
                        	return tmp;
                        }
                        
                        NOTE: alpha and beta should be sorted in increasing order before calling this function.
                        module fmin_fmax_functions
                            implicit none
                            private
                            public fmax
                            public fmin
                        
                            interface fmax
                                module procedure fmax88
                                module procedure fmax44
                                module procedure fmax84
                                module procedure fmax48
                            end interface
                            interface fmin
                                module procedure fmin88
                                module procedure fmin44
                                module procedure fmin84
                                module procedure fmin48
                            end interface
                        contains
                            real(8) function fmax88(x, y) result (res)
                                real(8), intent (in) :: x
                                real(8), intent (in) :: y
                                res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                            end function
                            real(4) function fmax44(x, y) result (res)
                                real(4), intent (in) :: x
                                real(4), intent (in) :: y
                                res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                            end function
                            real(8) function fmax84(x, y) result(res)
                                real(8), intent (in) :: x
                                real(4), intent (in) :: y
                                res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
                            end function
                            real(8) function fmax48(x, y) result(res)
                                real(4), intent (in) :: x
                                real(8), intent (in) :: y
                                res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
                            end function
                            real(8) function fmin88(x, y) result (res)
                                real(8), intent (in) :: x
                                real(8), intent (in) :: y
                                res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                            end function
                            real(4) function fmin44(x, y) result (res)
                                real(4), intent (in) :: x
                                real(4), intent (in) :: y
                                res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                            end function
                            real(8) function fmin84(x, y) result(res)
                                real(8), intent (in) :: x
                                real(4), intent (in) :: y
                                res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
                            end function
                            real(8) function fmin48(x, y) result(res)
                                real(4), intent (in) :: x
                                real(8), intent (in) :: y
                                res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
                            end function
                        end module
                        
                        real(8) function code(alpha, beta)
                        use fmin_fmax_functions
                            real(8), intent (in) :: alpha
                            real(8), intent (in) :: beta
                            real(8) :: tmp
                            if (beta <= 5d+15) then
                                tmp = (1.0d0 + alpha) / (6.0d0 + (beta * (5.0d0 + beta)))
                            else
                                tmp = ((1.0d0 + alpha) / beta) / (3.0d0 + (beta + alpha))
                            end if
                            code = tmp
                        end function
                        
                        assert alpha < beta;
                        public static double code(double alpha, double beta) {
                        	double tmp;
                        	if (beta <= 5e+15) {
                        		tmp = (1.0 + alpha) / (6.0 + (beta * (5.0 + beta)));
                        	} else {
                        		tmp = ((1.0 + alpha) / beta) / (3.0 + (beta + alpha));
                        	}
                        	return tmp;
                        }
                        
                        [alpha, beta] = sort([alpha, beta])
                        def code(alpha, beta):
                        	tmp = 0
                        	if beta <= 5e+15:
                        		tmp = (1.0 + alpha) / (6.0 + (beta * (5.0 + beta)))
                        	else:
                        		tmp = ((1.0 + alpha) / beta) / (3.0 + (beta + alpha))
                        	return tmp
                        
                        alpha, beta = sort([alpha, beta])
                        function code(alpha, beta)
                        	tmp = 0.0
                        	if (beta <= 5e+15)
                        		tmp = Float64(Float64(1.0 + alpha) / Float64(6.0 + Float64(beta * Float64(5.0 + beta))));
                        	else
                        		tmp = Float64(Float64(Float64(1.0 + alpha) / beta) / Float64(3.0 + Float64(beta + alpha)));
                        	end
                        	return tmp
                        end
                        
                        alpha, beta = num2cell(sort([alpha, beta])){:}
                        function tmp_2 = code(alpha, beta)
                        	tmp = 0.0;
                        	if (beta <= 5e+15)
                        		tmp = (1.0 + alpha) / (6.0 + (beta * (5.0 + beta)));
                        	else
                        		tmp = ((1.0 + alpha) / beta) / (3.0 + (beta + alpha));
                        	end
                        	tmp_2 = tmp;
                        end
                        
                        NOTE: alpha and beta should be sorted in increasing order before calling this function.
                        code[alpha_, beta_] := If[LessEqual[beta, 5e+15], N[(N[(1.0 + alpha), $MachinePrecision] / N[(6.0 + N[(beta * N[(5.0 + beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(1.0 + alpha), $MachinePrecision] / beta), $MachinePrecision] / N[(3.0 + N[(beta + alpha), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
                        
                        \begin{array}{l}
                        [alpha, beta] = \mathsf{sort}([alpha, beta])\\
                        \\
                        \begin{array}{l}
                        \mathbf{if}\;\beta \leq 5 \cdot 10^{+15}:\\
                        \;\;\;\;\frac{1 + \alpha}{6 + \beta \cdot \left(5 + \beta\right)}\\
                        
                        \mathbf{else}:\\
                        \;\;\;\;\frac{\frac{1 + \alpha}{\beta}}{3 + \left(\beta + \alpha\right)}\\
                        
                        
                        \end{array}
                        \end{array}
                        
                        Derivation
                        1. Split input into 2 regimes
                        2. if beta < 5e15

                          1. Initial program 99.9%

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

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

                            \[\leadsto \color{blue}{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) \cdot \left(3 + \left(\beta + \alpha\right)\right)}} \]
                          5. Taylor expanded in beta around 0

                            \[\leadsto \frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\beta \cdot \left(5 + \left(\beta + 2 \cdot \alpha\right)\right) + \left(2 + \alpha\right) \cdot \left(3 + \alpha\right)}} \]
                          6. Step-by-step derivation
                            1. lower-fma.f64N/A

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

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

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

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

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

                              \[\leadsto \frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\mathsf{fma}\left(\beta, 5 + \left(\beta + 2 \cdot \alpha\right), \left(2 + \alpha\right) \cdot \left(3 + \alpha\right)\right)} \]
                            7. lower-+.f6499.6

                              \[\leadsto \frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\mathsf{fma}\left(\beta, 5 + \left(\beta + 2 \cdot \alpha\right), \left(2 + \alpha\right) \cdot \left(3 + \alpha\right)\right)} \]
                          7. Applied rewrites99.6%

                            \[\leadsto \frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\mathsf{fma}\left(\beta, 5 + \left(\beta + 2 \cdot \alpha\right), \left(2 + \alpha\right) \cdot \left(3 + \alpha\right)\right)}} \]
                          8. Taylor expanded in alpha around 0

                            \[\leadsto \frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{6 + \color{blue}{\beta \cdot \left(5 + \beta\right)}} \]
                          9. Step-by-step derivation
                            1. lower-+.f64N/A

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

                              \[\leadsto \frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{6 + \beta \cdot \left(5 + \color{blue}{\beta}\right)} \]
                            3. lower-+.f6463.0

                              \[\leadsto \frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{6 + \beta \cdot \left(5 + \beta\right)} \]
                          10. Applied rewrites63.0%

                            \[\leadsto \frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{6 + \color{blue}{\beta \cdot \left(5 + \beta\right)}} \]
                          11. Taylor expanded in beta around inf

                            \[\leadsto \frac{\color{blue}{1 + \alpha}}{6 + \beta \cdot \left(5 + \beta\right)} \]
                          12. Step-by-step derivation
                            1. lower-+.f6413.4

                              \[\leadsto \frac{1 + \color{blue}{\alpha}}{6 + \beta \cdot \left(5 + \beta\right)} \]
                          13. Applied rewrites13.4%

                            \[\leadsto \frac{\color{blue}{1 + \alpha}}{6 + \beta \cdot \left(5 + \beta\right)} \]

                          if 5e15 < beta

                          1. Initial program 82.3%

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

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

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

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

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

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

                              \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \color{blue}{\beta + \alpha}\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                            7. lower-+.f6482.3

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

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

                              \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                            10. lower-+.f6482.3

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

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

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

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

                              \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                            15. lower-+.f6482.3

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

                              \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                            17. metadata-eval82.3

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

                              \[\leadsto \frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1}} \]
                          4. Applied rewrites82.3%

                            \[\leadsto \color{blue}{\frac{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{3 + \left(\beta + \alpha\right)}} \]
                          5. Taylor expanded in beta around inf

                            \[\leadsto \frac{\color{blue}{\frac{1 + \alpha}{\beta}}}{3 + \left(\beta + \alpha\right)} \]
                          6. Step-by-step derivation
                            1. lower-/.f64N/A

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

                              \[\leadsto \frac{\frac{1 + \alpha}{\beta}}{3 + \left(\beta + \alpha\right)} \]
                          7. Applied rewrites85.1%

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

                          \[\leadsto \begin{array}{l} \mathbf{if}\;\beta \leq 5 \cdot 10^{+15}:\\ \;\;\;\;\frac{1 + \alpha}{6 + \beta \cdot \left(5 + \beta\right)}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{1 + \alpha}{\beta}}{3 + \left(\beta + \alpha\right)}\\ \end{array} \]
                        5. Add Preprocessing

                        Alternative 14: 59.2% accurate, 3.2× speedup?

                        \[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \frac{1 + \alpha}{6 + \beta \cdot \left(5 + \beta\right)} \end{array} \]
                        NOTE: alpha and beta should be sorted in increasing order before calling this function.
                        (FPCore (alpha beta)
                         :precision binary64
                         (/ (+ 1.0 alpha) (+ 6.0 (* beta (+ 5.0 beta)))))
                        assert(alpha < beta);
                        double code(double alpha, double beta) {
                        	return (1.0 + alpha) / (6.0 + (beta * (5.0 + beta)));
                        }
                        
                        NOTE: alpha and beta should be sorted in increasing order before calling this function.
                        module fmin_fmax_functions
                            implicit none
                            private
                            public fmax
                            public fmin
                        
                            interface fmax
                                module procedure fmax88
                                module procedure fmax44
                                module procedure fmax84
                                module procedure fmax48
                            end interface
                            interface fmin
                                module procedure fmin88
                                module procedure fmin44
                                module procedure fmin84
                                module procedure fmin48
                            end interface
                        contains
                            real(8) function fmax88(x, y) result (res)
                                real(8), intent (in) :: x
                                real(8), intent (in) :: y
                                res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                            end function
                            real(4) function fmax44(x, y) result (res)
                                real(4), intent (in) :: x
                                real(4), intent (in) :: y
                                res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                            end function
                            real(8) function fmax84(x, y) result(res)
                                real(8), intent (in) :: x
                                real(4), intent (in) :: y
                                res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
                            end function
                            real(8) function fmax48(x, y) result(res)
                                real(4), intent (in) :: x
                                real(8), intent (in) :: y
                                res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
                            end function
                            real(8) function fmin88(x, y) result (res)
                                real(8), intent (in) :: x
                                real(8), intent (in) :: y
                                res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                            end function
                            real(4) function fmin44(x, y) result (res)
                                real(4), intent (in) :: x
                                real(4), intent (in) :: y
                                res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                            end function
                            real(8) function fmin84(x, y) result(res)
                                real(8), intent (in) :: x
                                real(4), intent (in) :: y
                                res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
                            end function
                            real(8) function fmin48(x, y) result(res)
                                real(4), intent (in) :: x
                                real(8), intent (in) :: y
                                res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
                            end function
                        end module
                        
                        real(8) function code(alpha, beta)
                        use fmin_fmax_functions
                            real(8), intent (in) :: alpha
                            real(8), intent (in) :: beta
                            code = (1.0d0 + alpha) / (6.0d0 + (beta * (5.0d0 + beta)))
                        end function
                        
                        assert alpha < beta;
                        public static double code(double alpha, double beta) {
                        	return (1.0 + alpha) / (6.0 + (beta * (5.0 + beta)));
                        }
                        
                        [alpha, beta] = sort([alpha, beta])
                        def code(alpha, beta):
                        	return (1.0 + alpha) / (6.0 + (beta * (5.0 + beta)))
                        
                        alpha, beta = sort([alpha, beta])
                        function code(alpha, beta)
                        	return Float64(Float64(1.0 + alpha) / Float64(6.0 + Float64(beta * Float64(5.0 + beta))))
                        end
                        
                        alpha, beta = num2cell(sort([alpha, beta])){:}
                        function tmp = code(alpha, beta)
                        	tmp = (1.0 + alpha) / (6.0 + (beta * (5.0 + beta)));
                        end
                        
                        NOTE: alpha and beta should be sorted in increasing order before calling this function.
                        code[alpha_, beta_] := N[(N[(1.0 + alpha), $MachinePrecision] / N[(6.0 + N[(beta * N[(5.0 + beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
                        
                        \begin{array}{l}
                        [alpha, beta] = \mathsf{sort}([alpha, beta])\\
                        \\
                        \frac{1 + \alpha}{6 + \beta \cdot \left(5 + \beta\right)}
                        \end{array}
                        
                        Derivation
                        1. Initial program 93.3%

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

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

                          \[\leadsto \color{blue}{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) \cdot \left(3 + \left(\beta + \alpha\right)\right)}} \]
                        5. Taylor expanded in beta around 0

                          \[\leadsto \frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\beta \cdot \left(5 + \left(\beta + 2 \cdot \alpha\right)\right) + \left(2 + \alpha\right) \cdot \left(3 + \alpha\right)}} \]
                        6. Step-by-step derivation
                          1. lower-fma.f64N/A

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

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

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

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

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

                            \[\leadsto \frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\mathsf{fma}\left(\beta, 5 + \left(\beta + 2 \cdot \alpha\right), \left(2 + \alpha\right) \cdot \left(3 + \alpha\right)\right)} \]
                          7. lower-+.f6492.0

                            \[\leadsto \frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\mathsf{fma}\left(\beta, 5 + \left(\beta + 2 \cdot \alpha\right), \left(2 + \alpha\right) \cdot \left(3 + \alpha\right)\right)} \]
                        7. Applied rewrites92.0%

                          \[\leadsto \frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\mathsf{fma}\left(\beta, 5 + \left(\beta + 2 \cdot \alpha\right), \left(2 + \alpha\right) \cdot \left(3 + \alpha\right)\right)}} \]
                        8. Taylor expanded in alpha around 0

                          \[\leadsto \frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{6 + \color{blue}{\beta \cdot \left(5 + \beta\right)}} \]
                        9. Step-by-step derivation
                          1. lower-+.f64N/A

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

                            \[\leadsto \frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{6 + \beta \cdot \left(5 + \color{blue}{\beta}\right)} \]
                          3. lower-+.f6467.5

                            \[\leadsto \frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{6 + \beta \cdot \left(5 + \beta\right)} \]
                        10. Applied rewrites67.5%

                          \[\leadsto \frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{6 + \color{blue}{\beta \cdot \left(5 + \beta\right)}} \]
                        11. Taylor expanded in beta around inf

                          \[\leadsto \frac{\color{blue}{1 + \alpha}}{6 + \beta \cdot \left(5 + \beta\right)} \]
                        12. Step-by-step derivation
                          1. lower-+.f6438.5

                            \[\leadsto \frac{1 + \color{blue}{\alpha}}{6 + \beta \cdot \left(5 + \beta\right)} \]
                        13. Applied rewrites38.5%

                          \[\leadsto \frac{\color{blue}{1 + \alpha}}{6 + \beta \cdot \left(5 + \beta\right)} \]
                        14. Final simplification38.5%

                          \[\leadsto \frac{1 + \alpha}{6 + \beta \cdot \left(5 + \beta\right)} \]
                        15. Add Preprocessing

                        Alternative 15: 52.0% accurate, 3.6× speedup?

                        \[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \begin{array}{l} \mathbf{if}\;\alpha \leq 1:\\ \;\;\;\;\frac{1}{\beta \cdot \beta}\\ \mathbf{else}:\\ \;\;\;\;\frac{\alpha}{\beta \cdot \beta}\\ \end{array} \end{array} \]
                        NOTE: alpha and beta should be sorted in increasing order before calling this function.
                        (FPCore (alpha beta)
                         :precision binary64
                         (if (<= alpha 1.0) (/ 1.0 (* beta beta)) (/ alpha (* beta beta))))
                        assert(alpha < beta);
                        double code(double alpha, double beta) {
                        	double tmp;
                        	if (alpha <= 1.0) {
                        		tmp = 1.0 / (beta * beta);
                        	} else {
                        		tmp = alpha / (beta * beta);
                        	}
                        	return tmp;
                        }
                        
                        NOTE: alpha and beta should be sorted in increasing order before calling this function.
                        module fmin_fmax_functions
                            implicit none
                            private
                            public fmax
                            public fmin
                        
                            interface fmax
                                module procedure fmax88
                                module procedure fmax44
                                module procedure fmax84
                                module procedure fmax48
                            end interface
                            interface fmin
                                module procedure fmin88
                                module procedure fmin44
                                module procedure fmin84
                                module procedure fmin48
                            end interface
                        contains
                            real(8) function fmax88(x, y) result (res)
                                real(8), intent (in) :: x
                                real(8), intent (in) :: y
                                res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                            end function
                            real(4) function fmax44(x, y) result (res)
                                real(4), intent (in) :: x
                                real(4), intent (in) :: y
                                res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                            end function
                            real(8) function fmax84(x, y) result(res)
                                real(8), intent (in) :: x
                                real(4), intent (in) :: y
                                res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
                            end function
                            real(8) function fmax48(x, y) result(res)
                                real(4), intent (in) :: x
                                real(8), intent (in) :: y
                                res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
                            end function
                            real(8) function fmin88(x, y) result (res)
                                real(8), intent (in) :: x
                                real(8), intent (in) :: y
                                res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                            end function
                            real(4) function fmin44(x, y) result (res)
                                real(4), intent (in) :: x
                                real(4), intent (in) :: y
                                res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                            end function
                            real(8) function fmin84(x, y) result(res)
                                real(8), intent (in) :: x
                                real(4), intent (in) :: y
                                res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
                            end function
                            real(8) function fmin48(x, y) result(res)
                                real(4), intent (in) :: x
                                real(8), intent (in) :: y
                                res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
                            end function
                        end module
                        
                        real(8) function code(alpha, beta)
                        use fmin_fmax_functions
                            real(8), intent (in) :: alpha
                            real(8), intent (in) :: beta
                            real(8) :: tmp
                            if (alpha <= 1.0d0) then
                                tmp = 1.0d0 / (beta * beta)
                            else
                                tmp = alpha / (beta * beta)
                            end if
                            code = tmp
                        end function
                        
                        assert alpha < beta;
                        public static double code(double alpha, double beta) {
                        	double tmp;
                        	if (alpha <= 1.0) {
                        		tmp = 1.0 / (beta * beta);
                        	} else {
                        		tmp = alpha / (beta * beta);
                        	}
                        	return tmp;
                        }
                        
                        [alpha, beta] = sort([alpha, beta])
                        def code(alpha, beta):
                        	tmp = 0
                        	if alpha <= 1.0:
                        		tmp = 1.0 / (beta * beta)
                        	else:
                        		tmp = alpha / (beta * beta)
                        	return tmp
                        
                        alpha, beta = sort([alpha, beta])
                        function code(alpha, beta)
                        	tmp = 0.0
                        	if (alpha <= 1.0)
                        		tmp = Float64(1.0 / Float64(beta * beta));
                        	else
                        		tmp = Float64(alpha / Float64(beta * beta));
                        	end
                        	return tmp
                        end
                        
                        alpha, beta = num2cell(sort([alpha, beta])){:}
                        function tmp_2 = code(alpha, beta)
                        	tmp = 0.0;
                        	if (alpha <= 1.0)
                        		tmp = 1.0 / (beta * beta);
                        	else
                        		tmp = alpha / (beta * beta);
                        	end
                        	tmp_2 = tmp;
                        end
                        
                        NOTE: alpha and beta should be sorted in increasing order before calling this function.
                        code[alpha_, beta_] := If[LessEqual[alpha, 1.0], N[(1.0 / N[(beta * beta), $MachinePrecision]), $MachinePrecision], N[(alpha / N[(beta * beta), $MachinePrecision]), $MachinePrecision]]
                        
                        \begin{array}{l}
                        [alpha, beta] = \mathsf{sort}([alpha, beta])\\
                        \\
                        \begin{array}{l}
                        \mathbf{if}\;\alpha \leq 1:\\
                        \;\;\;\;\frac{1}{\beta \cdot \beta}\\
                        
                        \mathbf{else}:\\
                        \;\;\;\;\frac{\alpha}{\beta \cdot \beta}\\
                        
                        
                        \end{array}
                        \end{array}
                        
                        Derivation
                        1. Split input into 2 regimes
                        2. if alpha < 1

                          1. Initial program 99.9%

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

                            \[\leadsto \color{blue}{\frac{1 + \alpha}{{\beta}^{2}}} \]
                          4. Step-by-step derivation
                            1. lower-/.f64N/A

                              \[\leadsto \frac{1 + \alpha}{\color{blue}{{\beta}^{2}}} \]
                            2. lower-+.f64N/A

                              \[\leadsto \frac{1 + \alpha}{{\color{blue}{\beta}}^{2}} \]
                            3. unpow2N/A

                              \[\leadsto \frac{1 + \alpha}{\beta \cdot \color{blue}{\beta}} \]
                            4. lower-*.f6441.8

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

                            \[\leadsto \color{blue}{\frac{1 + \alpha}{\beta \cdot \beta}} \]
                          6. Taylor expanded in alpha around 0

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

                              \[\leadsto \frac{1}{\color{blue}{\beta} \cdot \beta} \]

                            if 1 < alpha

                            1. Initial program 80.6%

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

                              \[\leadsto \color{blue}{\frac{1 + \alpha}{{\beta}^{2}}} \]
                            4. Step-by-step derivation
                              1. lower-/.f64N/A

                                \[\leadsto \frac{1 + \alpha}{\color{blue}{{\beta}^{2}}} \]
                              2. lower-+.f64N/A

                                \[\leadsto \frac{1 + \alpha}{{\color{blue}{\beta}}^{2}} \]
                              3. unpow2N/A

                                \[\leadsto \frac{1 + \alpha}{\beta \cdot \color{blue}{\beta}} \]
                              4. lower-*.f6414.1

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

                              \[\leadsto \color{blue}{\frac{1 + \alpha}{\beta \cdot \beta}} \]
                            6. Taylor expanded in alpha around inf

                              \[\leadsto \frac{\alpha}{\color{blue}{\beta} \cdot \beta} \]
                            7. Step-by-step derivation
                              1. Applied rewrites13.5%

                                \[\leadsto \frac{\alpha}{\color{blue}{\beta} \cdot \beta} \]
                            8. Recombined 2 regimes into one program.
                            9. Add Preprocessing

                            Alternative 16: 52.6% accurate, 4.2× speedup?

                            \[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \frac{1 + \alpha}{\beta \cdot \beta} \end{array} \]
                            NOTE: alpha and beta should be sorted in increasing order before calling this function.
                            (FPCore (alpha beta) :precision binary64 (/ (+ 1.0 alpha) (* beta beta)))
                            assert(alpha < beta);
                            double code(double alpha, double beta) {
                            	return (1.0 + alpha) / (beta * beta);
                            }
                            
                            NOTE: alpha and beta should be sorted in increasing order before calling this function.
                            module fmin_fmax_functions
                                implicit none
                                private
                                public fmax
                                public fmin
                            
                                interface fmax
                                    module procedure fmax88
                                    module procedure fmax44
                                    module procedure fmax84
                                    module procedure fmax48
                                end interface
                                interface fmin
                                    module procedure fmin88
                                    module procedure fmin44
                                    module procedure fmin84
                                    module procedure fmin48
                                end interface
                            contains
                                real(8) function fmax88(x, y) result (res)
                                    real(8), intent (in) :: x
                                    real(8), intent (in) :: y
                                    res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                                end function
                                real(4) function fmax44(x, y) result (res)
                                    real(4), intent (in) :: x
                                    real(4), intent (in) :: y
                                    res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                                end function
                                real(8) function fmax84(x, y) result(res)
                                    real(8), intent (in) :: x
                                    real(4), intent (in) :: y
                                    res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
                                end function
                                real(8) function fmax48(x, y) result(res)
                                    real(4), intent (in) :: x
                                    real(8), intent (in) :: y
                                    res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
                                end function
                                real(8) function fmin88(x, y) result (res)
                                    real(8), intent (in) :: x
                                    real(8), intent (in) :: y
                                    res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                                end function
                                real(4) function fmin44(x, y) result (res)
                                    real(4), intent (in) :: x
                                    real(4), intent (in) :: y
                                    res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                                end function
                                real(8) function fmin84(x, y) result(res)
                                    real(8), intent (in) :: x
                                    real(4), intent (in) :: y
                                    res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
                                end function
                                real(8) function fmin48(x, y) result(res)
                                    real(4), intent (in) :: x
                                    real(8), intent (in) :: y
                                    res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
                                end function
                            end module
                            
                            real(8) function code(alpha, beta)
                            use fmin_fmax_functions
                                real(8), intent (in) :: alpha
                                real(8), intent (in) :: beta
                                code = (1.0d0 + alpha) / (beta * beta)
                            end function
                            
                            assert alpha < beta;
                            public static double code(double alpha, double beta) {
                            	return (1.0 + alpha) / (beta * beta);
                            }
                            
                            [alpha, beta] = sort([alpha, beta])
                            def code(alpha, beta):
                            	return (1.0 + alpha) / (beta * beta)
                            
                            alpha, beta = sort([alpha, beta])
                            function code(alpha, beta)
                            	return Float64(Float64(1.0 + alpha) / Float64(beta * beta))
                            end
                            
                            alpha, beta = num2cell(sort([alpha, beta])){:}
                            function tmp = code(alpha, beta)
                            	tmp = (1.0 + alpha) / (beta * beta);
                            end
                            
                            NOTE: alpha and beta should be sorted in increasing order before calling this function.
                            code[alpha_, beta_] := N[(N[(1.0 + alpha), $MachinePrecision] / N[(beta * beta), $MachinePrecision]), $MachinePrecision]
                            
                            \begin{array}{l}
                            [alpha, beta] = \mathsf{sort}([alpha, beta])\\
                            \\
                            \frac{1 + \alpha}{\beta \cdot \beta}
                            \end{array}
                            
                            Derivation
                            1. Initial program 93.3%

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

                              \[\leadsto \color{blue}{\frac{1 + \alpha}{{\beta}^{2}}} \]
                            4. Step-by-step derivation
                              1. lower-/.f64N/A

                                \[\leadsto \frac{1 + \alpha}{\color{blue}{{\beta}^{2}}} \]
                              2. lower-+.f64N/A

                                \[\leadsto \frac{1 + \alpha}{{\color{blue}{\beta}}^{2}} \]
                              3. unpow2N/A

                                \[\leadsto \frac{1 + \alpha}{\beta \cdot \color{blue}{\beta}} \]
                              4. lower-*.f6432.4

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

                              \[\leadsto \color{blue}{\frac{1 + \alpha}{\beta \cdot \beta}} \]
                            6. Add Preprocessing

                            Alternative 17: 50.3% accurate, 4.9× speedup?

                            \[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \frac{1}{\beta \cdot \beta} \end{array} \]
                            NOTE: alpha and beta should be sorted in increasing order before calling this function.
                            (FPCore (alpha beta) :precision binary64 (/ 1.0 (* beta beta)))
                            assert(alpha < beta);
                            double code(double alpha, double beta) {
                            	return 1.0 / (beta * beta);
                            }
                            
                            NOTE: alpha and beta should be sorted in increasing order before calling this function.
                            module fmin_fmax_functions
                                implicit none
                                private
                                public fmax
                                public fmin
                            
                                interface fmax
                                    module procedure fmax88
                                    module procedure fmax44
                                    module procedure fmax84
                                    module procedure fmax48
                                end interface
                                interface fmin
                                    module procedure fmin88
                                    module procedure fmin44
                                    module procedure fmin84
                                    module procedure fmin48
                                end interface
                            contains
                                real(8) function fmax88(x, y) result (res)
                                    real(8), intent (in) :: x
                                    real(8), intent (in) :: y
                                    res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                                end function
                                real(4) function fmax44(x, y) result (res)
                                    real(4), intent (in) :: x
                                    real(4), intent (in) :: y
                                    res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                                end function
                                real(8) function fmax84(x, y) result(res)
                                    real(8), intent (in) :: x
                                    real(4), intent (in) :: y
                                    res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
                                end function
                                real(8) function fmax48(x, y) result(res)
                                    real(4), intent (in) :: x
                                    real(8), intent (in) :: y
                                    res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
                                end function
                                real(8) function fmin88(x, y) result (res)
                                    real(8), intent (in) :: x
                                    real(8), intent (in) :: y
                                    res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                                end function
                                real(4) function fmin44(x, y) result (res)
                                    real(4), intent (in) :: x
                                    real(4), intent (in) :: y
                                    res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                                end function
                                real(8) function fmin84(x, y) result(res)
                                    real(8), intent (in) :: x
                                    real(4), intent (in) :: y
                                    res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
                                end function
                                real(8) function fmin48(x, y) result(res)
                                    real(4), intent (in) :: x
                                    real(8), intent (in) :: y
                                    res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
                                end function
                            end module
                            
                            real(8) function code(alpha, beta)
                            use fmin_fmax_functions
                                real(8), intent (in) :: alpha
                                real(8), intent (in) :: beta
                                code = 1.0d0 / (beta * beta)
                            end function
                            
                            assert alpha < beta;
                            public static double code(double alpha, double beta) {
                            	return 1.0 / (beta * beta);
                            }
                            
                            [alpha, beta] = sort([alpha, beta])
                            def code(alpha, beta):
                            	return 1.0 / (beta * beta)
                            
                            alpha, beta = sort([alpha, beta])
                            function code(alpha, beta)
                            	return Float64(1.0 / Float64(beta * beta))
                            end
                            
                            alpha, beta = num2cell(sort([alpha, beta])){:}
                            function tmp = code(alpha, beta)
                            	tmp = 1.0 / (beta * beta);
                            end
                            
                            NOTE: alpha and beta should be sorted in increasing order before calling this function.
                            code[alpha_, beta_] := N[(1.0 / N[(beta * beta), $MachinePrecision]), $MachinePrecision]
                            
                            \begin{array}{l}
                            [alpha, beta] = \mathsf{sort}([alpha, beta])\\
                            \\
                            \frac{1}{\beta \cdot \beta}
                            \end{array}
                            
                            Derivation
                            1. Initial program 93.3%

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

                              \[\leadsto \color{blue}{\frac{1 + \alpha}{{\beta}^{2}}} \]
                            4. Step-by-step derivation
                              1. lower-/.f64N/A

                                \[\leadsto \frac{1 + \alpha}{\color{blue}{{\beta}^{2}}} \]
                              2. lower-+.f64N/A

                                \[\leadsto \frac{1 + \alpha}{{\color{blue}{\beta}}^{2}} \]
                              3. unpow2N/A

                                \[\leadsto \frac{1 + \alpha}{\beta \cdot \color{blue}{\beta}} \]
                              4. lower-*.f6432.4

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

                              \[\leadsto \color{blue}{\frac{1 + \alpha}{\beta \cdot \beta}} \]
                            6. Taylor expanded in alpha around 0

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

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

                              Reproduce

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