\[\frac{2}{1 + e^{-2 \cdot x}} - 1
\]
↓
\[\begin{array}{l}
\mathbf{if}\;-2 \cdot x \leq -1 \cdot 10^{-6}:\\
\;\;\;\;\mathsf{expm1}\left(\log 2 - \mathsf{log1p}\left({\left(e^{-2}\right)}^{x}\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{expm1}\left(x\right)\\
\end{array}
\]
(FPCore (x y) :precision binary64 (- (/ 2.0 (+ 1.0 (exp (* -2.0 x)))) 1.0))
↓
(FPCore (x y)
:precision binary64
(if (<= (* -2.0 x) -1e-6)
(expm1 (- (log 2.0) (log1p (pow (exp -2.0) x))))
(expm1 x)))
double code(double x, double y) {
return (2.0 / (1.0 + exp((-2.0 * x)))) - 1.0;
}
↓
double code(double x, double y) {
double tmp;
if ((-2.0 * x) <= -1e-6) {
tmp = expm1((log(2.0) - log1p(pow(exp(-2.0), x))));
} else {
tmp = expm1(x);
}
return tmp;
}
public static double code(double x, double y) {
return (2.0 / (1.0 + Math.exp((-2.0 * x)))) - 1.0;
}
↓
public static double code(double x, double y) {
double tmp;
if ((-2.0 * x) <= -1e-6) {
tmp = Math.expm1((Math.log(2.0) - Math.log1p(Math.pow(Math.exp(-2.0), x))));
} else {
tmp = Math.expm1(x);
}
return tmp;
}
def code(x, y):
return (2.0 / (1.0 + math.exp((-2.0 * x)))) - 1.0
↓
def code(x, y):
tmp = 0
if (-2.0 * x) <= -1e-6:
tmp = math.expm1((math.log(2.0) - math.log1p(math.pow(math.exp(-2.0), x))))
else:
tmp = math.expm1(x)
return tmp
function code(x, y)
return Float64(Float64(2.0 / Float64(1.0 + exp(Float64(-2.0 * x)))) - 1.0)
end
↓
function code(x, y)
tmp = 0.0
if (Float64(-2.0 * x) <= -1e-6)
tmp = expm1(Float64(log(2.0) - log1p((exp(-2.0) ^ x))));
else
tmp = expm1(x);
end
return tmp
end
code[x_, y_] := N[(N[(2.0 / N[(1.0 + N[Exp[N[(-2.0 * x), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - 1.0), $MachinePrecision]
↓
code[x_, y_] := If[LessEqual[N[(-2.0 * x), $MachinePrecision], -1e-6], N[(Exp[N[(N[Log[2.0], $MachinePrecision] - N[Log[1 + N[Power[N[Exp[-2.0], $MachinePrecision], x], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]] - 1), $MachinePrecision], N[(Exp[x] - 1), $MachinePrecision]]
\frac{2}{1 + e^{-2 \cdot x}} - 1
↓
\begin{array}{l}
\mathbf{if}\;-2 \cdot x \leq -1 \cdot 10^{-6}:\\
\;\;\;\;\mathsf{expm1}\left(\log 2 - \mathsf{log1p}\left({\left(e^{-2}\right)}^{x}\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{expm1}\left(x\right)\\
\end{array}