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