\[\frac{2}{1 + e^{-2 \cdot x}} - 1
\]
↓
\[\begin{array}{l}
t_0 := \frac{2}{1 + e^{-2 \cdot x}}\\
\mathbf{if}\;-2 \cdot x \leq -200:\\
\;\;\;\;t_0 + -1\\
\mathbf{elif}\;-2 \cdot x \leq 0.0002:\\
\;\;\;\;x + -0.3333333333333333 \cdot {x}^{3}\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\sqrt[3]{\frac{2}{1 + {\left(e^{x}\right)}^{-2}}}, {t_0}^{0.6666666666666666}, -1\right)\\
\end{array}
\]
(FPCore (x y) :precision binary64 (- (/ 2.0 (+ 1.0 (exp (* -2.0 x)))) 1.0))
↓
(FPCore (x y)
:precision binary64
(let* ((t_0 (/ 2.0 (+ 1.0 (exp (* -2.0 x))))))
(if (<= (* -2.0 x) -200.0)
(+ t_0 -1.0)
(if (<= (* -2.0 x) 0.0002)
(+ x (* -0.3333333333333333 (pow x 3.0)))
(fma
(cbrt (/ 2.0 (+ 1.0 (pow (exp x) -2.0))))
(pow t_0 0.6666666666666666)
-1.0)))))double code(double x, double y) {
return (2.0 / (1.0 + exp((-2.0 * x)))) - 1.0;
}
↓
double code(double x, double y) {
double t_0 = 2.0 / (1.0 + exp((-2.0 * x)));
double tmp;
if ((-2.0 * x) <= -200.0) {
tmp = t_0 + -1.0;
} else if ((-2.0 * x) <= 0.0002) {
tmp = x + (-0.3333333333333333 * pow(x, 3.0));
} else {
tmp = fma(cbrt((2.0 / (1.0 + pow(exp(x), -2.0)))), pow(t_0, 0.6666666666666666), -1.0);
}
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)
t_0 = Float64(2.0 / Float64(1.0 + exp(Float64(-2.0 * x))))
tmp = 0.0
if (Float64(-2.0 * x) <= -200.0)
tmp = Float64(t_0 + -1.0);
elseif (Float64(-2.0 * x) <= 0.0002)
tmp = Float64(x + Float64(-0.3333333333333333 * (x ^ 3.0)));
else
tmp = fma(cbrt(Float64(2.0 / Float64(1.0 + (exp(x) ^ -2.0)))), (t_0 ^ 0.6666666666666666), -1.0);
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_] := Block[{t$95$0 = N[(2.0 / N[(1.0 + N[Exp[N[(-2.0 * x), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[N[(-2.0 * x), $MachinePrecision], -200.0], N[(t$95$0 + -1.0), $MachinePrecision], If[LessEqual[N[(-2.0 * x), $MachinePrecision], 0.0002], N[(x + N[(-0.3333333333333333 * N[Power[x, 3.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[Power[N[(2.0 / N[(1.0 + N[Power[N[Exp[x], $MachinePrecision], -2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision] * N[Power[t$95$0, 0.6666666666666666], $MachinePrecision] + -1.0), $MachinePrecision]]]]
\frac{2}{1 + e^{-2 \cdot x}} - 1
↓
\begin{array}{l}
t_0 := \frac{2}{1 + e^{-2 \cdot x}}\\
\mathbf{if}\;-2 \cdot x \leq -200:\\
\;\;\;\;t_0 + -1\\
\mathbf{elif}\;-2 \cdot x \leq 0.0002:\\
\;\;\;\;x + -0.3333333333333333 \cdot {x}^{3}\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\sqrt[3]{\frac{2}{1 + {\left(e^{x}\right)}^{-2}}}, {t_0}^{0.6666666666666666}, -1\right)\\
\end{array}