\[\left(\left(\left(x - 0.5\right) \cdot \log x - x\right) + 0.91893853320467\right) + \frac{\left(\left(y + 0.0007936500793651\right) \cdot z - 0.0027777777777778\right) \cdot z + 0.083333333333333}{x}
\]
↓
\[\begin{array}{l}
\mathbf{if}\;x \leq 2.1 \cdot 10^{+73}:\\
\;\;\;\;\left(\left(1 + \mathsf{fma}\left(x + -0.5, \log x, -e^{\mathsf{log1p}\left(x\right)}\right)\right) + 0.91893853320467\right) + \frac{z \cdot \left(z \cdot \left(y + 0.0007936500793651\right) + -0.0027777777777778\right) + 0.083333333333333}{x}\\
\mathbf{else}:\\
\;\;\;\;\left(0.91893853320467 + \left(\log x \cdot \left(x + -0.5\right) - x\right)\right) + \frac{z}{\frac{\frac{x}{y + 0.0007936500793651}}{z}}\\
\end{array}
\]
(FPCore (x y z)
:precision binary64
(+
(+ (- (* (- x 0.5) (log x)) x) 0.91893853320467)
(/
(+
(* (- (* (+ y 0.0007936500793651) z) 0.0027777777777778) z)
0.083333333333333)
x)))↓
(FPCore (x y z)
:precision binary64
(if (<= x 2.1e+73)
(+
(+ (+ 1.0 (fma (+ x -0.5) (log x) (- (exp (log1p x))))) 0.91893853320467)
(/
(+
(* z (+ (* z (+ y 0.0007936500793651)) -0.0027777777777778))
0.083333333333333)
x))
(+
(+ 0.91893853320467 (- (* (log x) (+ x -0.5)) x))
(/ z (/ (/ x (+ y 0.0007936500793651)) z)))))double code(double x, double y, double z) {
return ((((x - 0.5) * log(x)) - x) + 0.91893853320467) + ((((((y + 0.0007936500793651) * z) - 0.0027777777777778) * z) + 0.083333333333333) / x);
}
↓
double code(double x, double y, double z) {
double tmp;
if (x <= 2.1e+73) {
tmp = ((1.0 + fma((x + -0.5), log(x), -exp(log1p(x)))) + 0.91893853320467) + (((z * ((z * (y + 0.0007936500793651)) + -0.0027777777777778)) + 0.083333333333333) / x);
} else {
tmp = (0.91893853320467 + ((log(x) * (x + -0.5)) - x)) + (z / ((x / (y + 0.0007936500793651)) / z));
}
return tmp;
}
function code(x, y, z)
return Float64(Float64(Float64(Float64(Float64(x - 0.5) * log(x)) - x) + 0.91893853320467) + Float64(Float64(Float64(Float64(Float64(Float64(y + 0.0007936500793651) * z) - 0.0027777777777778) * z) + 0.083333333333333) / x))
end
↓
function code(x, y, z)
tmp = 0.0
if (x <= 2.1e+73)
tmp = Float64(Float64(Float64(1.0 + fma(Float64(x + -0.5), log(x), Float64(-exp(log1p(x))))) + 0.91893853320467) + Float64(Float64(Float64(z * Float64(Float64(z * Float64(y + 0.0007936500793651)) + -0.0027777777777778)) + 0.083333333333333) / x));
else
tmp = Float64(Float64(0.91893853320467 + Float64(Float64(log(x) * Float64(x + -0.5)) - x)) + Float64(z / Float64(Float64(x / Float64(y + 0.0007936500793651)) / z)));
end
return tmp
end
code[x_, y_, z_] := N[(N[(N[(N[(N[(x - 0.5), $MachinePrecision] * N[Log[x], $MachinePrecision]), $MachinePrecision] - x), $MachinePrecision] + 0.91893853320467), $MachinePrecision] + N[(N[(N[(N[(N[(N[(y + 0.0007936500793651), $MachinePrecision] * z), $MachinePrecision] - 0.0027777777777778), $MachinePrecision] * z), $MachinePrecision] + 0.083333333333333), $MachinePrecision] / x), $MachinePrecision]), $MachinePrecision]
↓
code[x_, y_, z_] := If[LessEqual[x, 2.1e+73], N[(N[(N[(1.0 + N[(N[(x + -0.5), $MachinePrecision] * N[Log[x], $MachinePrecision] + (-N[Exp[N[Log[1 + x], $MachinePrecision]], $MachinePrecision])), $MachinePrecision]), $MachinePrecision] + 0.91893853320467), $MachinePrecision] + N[(N[(N[(z * N[(N[(z * N[(y + 0.0007936500793651), $MachinePrecision]), $MachinePrecision] + -0.0027777777777778), $MachinePrecision]), $MachinePrecision] + 0.083333333333333), $MachinePrecision] / x), $MachinePrecision]), $MachinePrecision], N[(N[(0.91893853320467 + N[(N[(N[Log[x], $MachinePrecision] * N[(x + -0.5), $MachinePrecision]), $MachinePrecision] - x), $MachinePrecision]), $MachinePrecision] + N[(z / N[(N[(x / N[(y + 0.0007936500793651), $MachinePrecision]), $MachinePrecision] / z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\left(\left(\left(x - 0.5\right) \cdot \log x - x\right) + 0.91893853320467\right) + \frac{\left(\left(y + 0.0007936500793651\right) \cdot z - 0.0027777777777778\right) \cdot z + 0.083333333333333}{x}
↓
\begin{array}{l}
\mathbf{if}\;x \leq 2.1 \cdot 10^{+73}:\\
\;\;\;\;\left(\left(1 + \mathsf{fma}\left(x + -0.5, \log x, -e^{\mathsf{log1p}\left(x\right)}\right)\right) + 0.91893853320467\right) + \frac{z \cdot \left(z \cdot \left(y + 0.0007936500793651\right) + -0.0027777777777778\right) + 0.083333333333333}{x}\\
\mathbf{else}:\\
\;\;\;\;\left(0.91893853320467 + \left(\log x \cdot \left(x + -0.5\right) - x\right)\right) + \frac{z}{\frac{\frac{x}{y + 0.0007936500793651}}{z}}\\
\end{array}