\[\frac{\frac{\frac{\left(\alpha + \beta\right) \cdot \left(\beta - \alpha\right)}{\left(\alpha + \beta\right) + 2 \cdot i}}{\left(\left(\alpha + \beta\right) + 2 \cdot i\right) + 2} + 1}{2}
\]
↓
\[\begin{array}{l}
t_0 := \left(\beta + 2\right) + \left(\beta + \beta\right)\\
t_1 := \frac{\left(-2 - \beta\right) - \beta}{\alpha \cdot \alpha}\\
t_2 := \left(\alpha + \beta\right) + 2 \cdot i\\
t_3 := 2 + t_2\\
t_4 := \frac{\frac{\beta}{\alpha}}{\alpha}\\
\mathbf{if}\;\frac{\frac{\left(\alpha + \beta\right) \cdot \left(\beta - \alpha\right)}{t_2}}{t_3} \leq -0.5:\\
\;\;\;\;\frac{\frac{\left(\beta + \left(\left(\beta + 2 \cdot i\right) - \left(\left(-2 + i \cdot -2\right) - \beta\right)\right)\right) - \beta}{\alpha} + \left(\left(t_4 \cdot \left(\beta + 2\right) + \mathsf{fma}\left(i, \mathsf{fma}\left(2, \frac{\beta + 2}{\alpha \cdot \alpha}, \mathsf{fma}\left(4, t_1, \frac{-4}{\alpha} \cdot \frac{t_0}{\alpha}\right) + t_4 \cdot 6\right), t_1 \cdot t_0\right)\right) + \mathsf{fma}\left(-12, \frac{i}{\alpha} \cdot \frac{i}{\alpha}, t_4 \cdot t_0\right)\right)}{2}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{\left(\beta - \alpha\right) \cdot \frac{\alpha + \beta}{\mathsf{fma}\left(2, i, \alpha + \beta\right)}}{t_3} + 1}{2}\\
\end{array}
\]
double code(double alpha, double beta, double i) {
return (((((alpha + beta) * (beta - alpha)) / ((alpha + beta) + (2.0 * i))) / (((alpha + beta) + (2.0 * i)) + 2.0)) + 1.0) / 2.0;
}
↓
double code(double alpha, double beta, double i) {
double t_0 = (beta + 2.0) + (beta + beta);
double t_1 = ((-2.0 - beta) - beta) / (alpha * alpha);
double t_2 = (alpha + beta) + (2.0 * i);
double t_3 = 2.0 + t_2;
double t_4 = (beta / alpha) / alpha;
double tmp;
if (((((alpha + beta) * (beta - alpha)) / t_2) / t_3) <= -0.5) {
tmp = ((((beta + ((beta + (2.0 * i)) - ((-2.0 + (i * -2.0)) - beta))) - beta) / alpha) + (((t_4 * (beta + 2.0)) + fma(i, fma(2.0, ((beta + 2.0) / (alpha * alpha)), (fma(4.0, t_1, ((-4.0 / alpha) * (t_0 / alpha))) + (t_4 * 6.0))), (t_1 * t_0))) + fma(-12.0, ((i / alpha) * (i / alpha)), (t_4 * t_0)))) / 2.0;
} else {
tmp = ((((beta - alpha) * ((alpha + beta) / fma(2.0, i, (alpha + beta)))) / t_3) + 1.0) / 2.0;
}
return tmp;
}
function code(alpha, beta, i)
return Float64(Float64(Float64(Float64(Float64(Float64(alpha + beta) * Float64(beta - alpha)) / Float64(Float64(alpha + beta) + Float64(2.0 * i))) / Float64(Float64(Float64(alpha + beta) + Float64(2.0 * i)) + 2.0)) + 1.0) / 2.0)
end
↓
function code(alpha, beta, i)
t_0 = Float64(Float64(beta + 2.0) + Float64(beta + beta))
t_1 = Float64(Float64(Float64(-2.0 - beta) - beta) / Float64(alpha * alpha))
t_2 = Float64(Float64(alpha + beta) + Float64(2.0 * i))
t_3 = Float64(2.0 + t_2)
t_4 = Float64(Float64(beta / alpha) / alpha)
tmp = 0.0
if (Float64(Float64(Float64(Float64(alpha + beta) * Float64(beta - alpha)) / t_2) / t_3) <= -0.5)
tmp = Float64(Float64(Float64(Float64(Float64(beta + Float64(Float64(beta + Float64(2.0 * i)) - Float64(Float64(-2.0 + Float64(i * -2.0)) - beta))) - beta) / alpha) + Float64(Float64(Float64(t_4 * Float64(beta + 2.0)) + fma(i, fma(2.0, Float64(Float64(beta + 2.0) / Float64(alpha * alpha)), Float64(fma(4.0, t_1, Float64(Float64(-4.0 / alpha) * Float64(t_0 / alpha))) + Float64(t_4 * 6.0))), Float64(t_1 * t_0))) + fma(-12.0, Float64(Float64(i / alpha) * Float64(i / alpha)), Float64(t_4 * t_0)))) / 2.0);
else
tmp = Float64(Float64(Float64(Float64(Float64(beta - alpha) * Float64(Float64(alpha + beta) / fma(2.0, i, Float64(alpha + beta)))) / t_3) + 1.0) / 2.0);
end
return tmp
end
code[alpha_, beta_, i_] := N[(N[(N[(N[(N[(N[(alpha + beta), $MachinePrecision] * N[(beta - alpha), $MachinePrecision]), $MachinePrecision] / N[(N[(alpha + beta), $MachinePrecision] + N[(2.0 * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(N[(N[(alpha + beta), $MachinePrecision] + N[(2.0 * i), $MachinePrecision]), $MachinePrecision] + 2.0), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision] / 2.0), $MachinePrecision]
↓
code[alpha_, beta_, i_] := Block[{t$95$0 = N[(N[(beta + 2.0), $MachinePrecision] + N[(beta + beta), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[(N[(-2.0 - beta), $MachinePrecision] - beta), $MachinePrecision] / N[(alpha * alpha), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(alpha + beta), $MachinePrecision] + N[(2.0 * i), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(2.0 + t$95$2), $MachinePrecision]}, Block[{t$95$4 = N[(N[(beta / alpha), $MachinePrecision] / alpha), $MachinePrecision]}, If[LessEqual[N[(N[(N[(N[(alpha + beta), $MachinePrecision] * N[(beta - alpha), $MachinePrecision]), $MachinePrecision] / t$95$2), $MachinePrecision] / t$95$3), $MachinePrecision], -0.5], N[(N[(N[(N[(N[(beta + N[(N[(beta + N[(2.0 * i), $MachinePrecision]), $MachinePrecision] - N[(N[(-2.0 + N[(i * -2.0), $MachinePrecision]), $MachinePrecision] - beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - beta), $MachinePrecision] / alpha), $MachinePrecision] + N[(N[(N[(t$95$4 * N[(beta + 2.0), $MachinePrecision]), $MachinePrecision] + N[(i * N[(2.0 * N[(N[(beta + 2.0), $MachinePrecision] / N[(alpha * alpha), $MachinePrecision]), $MachinePrecision] + N[(N[(4.0 * t$95$1 + N[(N[(-4.0 / alpha), $MachinePrecision] * N[(t$95$0 / alpha), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t$95$4 * 6.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t$95$1 * t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(-12.0 * N[(N[(i / alpha), $MachinePrecision] * N[(i / alpha), $MachinePrecision]), $MachinePrecision] + N[(t$95$4 * t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / 2.0), $MachinePrecision], N[(N[(N[(N[(N[(beta - alpha), $MachinePrecision] * N[(N[(alpha + beta), $MachinePrecision] / N[(2.0 * i + N[(alpha + beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / t$95$3), $MachinePrecision] + 1.0), $MachinePrecision] / 2.0), $MachinePrecision]]]]]]]
\frac{\frac{\frac{\left(\alpha + \beta\right) \cdot \left(\beta - \alpha\right)}{\left(\alpha + \beta\right) + 2 \cdot i}}{\left(\left(\alpha + \beta\right) + 2 \cdot i\right) + 2} + 1}{2}
↓
\begin{array}{l}
t_0 := \left(\beta + 2\right) + \left(\beta + \beta\right)\\
t_1 := \frac{\left(-2 - \beta\right) - \beta}{\alpha \cdot \alpha}\\
t_2 := \left(\alpha + \beta\right) + 2 \cdot i\\
t_3 := 2 + t_2\\
t_4 := \frac{\frac{\beta}{\alpha}}{\alpha}\\
\mathbf{if}\;\frac{\frac{\left(\alpha + \beta\right) \cdot \left(\beta - \alpha\right)}{t_2}}{t_3} \leq -0.5:\\
\;\;\;\;\frac{\frac{\left(\beta + \left(\left(\beta + 2 \cdot i\right) - \left(\left(-2 + i \cdot -2\right) - \beta\right)\right)\right) - \beta}{\alpha} + \left(\left(t_4 \cdot \left(\beta + 2\right) + \mathsf{fma}\left(i, \mathsf{fma}\left(2, \frac{\beta + 2}{\alpha \cdot \alpha}, \mathsf{fma}\left(4, t_1, \frac{-4}{\alpha} \cdot \frac{t_0}{\alpha}\right) + t_4 \cdot 6\right), t_1 \cdot t_0\right)\right) + \mathsf{fma}\left(-12, \frac{i}{\alpha} \cdot \frac{i}{\alpha}, t_4 \cdot t_0\right)\right)}{2}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{\left(\beta - \alpha\right) \cdot \frac{\alpha + \beta}{\mathsf{fma}\left(2, i, \alpha + \beta\right)}}{t_3} + 1}{2}\\
\end{array}