\[\mathsf{copysign}\left(\log \left(\left|x\right| + \sqrt{x \cdot x + 1}\right), x\right)
\]
↓
\[\begin{array}{l}
t_0 := \mathsf{copysign}\left(\log \left(\left|x\right| + \sqrt{x \cdot x + 1}\right), x\right)\\
\mathbf{if}\;t_0 \leq -\infty:\\
\;\;\;\;\mathsf{copysign}\left(\log \left(\left(-x\right) + \left|x\right|\right), x\right)\\
\mathbf{elif}\;t_0 \leq 10:\\
\;\;\;\;t_0\\
\mathbf{else}:\\
\;\;\;\;\mathsf{copysign}\left(\log \left(\frac{0.5}{x}\right), x\right)\\
\end{array}
\]
(FPCore (x)
:precision binary64
(copysign (log (+ (fabs x) (sqrt (+ (* x x) 1.0)))) x))
↓
(FPCore (x)
:precision binary64
(let* ((t_0 (copysign (log (+ (fabs x) (sqrt (+ (* x x) 1.0)))) x)))
(if (<= t_0 (- INFINITY))
(copysign (log (+ (- x) (fabs x))) x)
(if (<= t_0 10.0) t_0 (copysign (log (/ 0.5 x)) x)))))double code(double x) {
return copysign(log((fabs(x) + sqrt(((x * x) + 1.0)))), x);
}
↓
double code(double x) {
double t_0 = copysign(log((fabs(x) + sqrt(((x * x) + 1.0)))), x);
double tmp;
if (t_0 <= -((double) INFINITY)) {
tmp = copysign(log((-x + fabs(x))), x);
} else if (t_0 <= 10.0) {
tmp = t_0;
} else {
tmp = copysign(log((0.5 / x)), x);
}
return tmp;
}
public static double code(double x) {
return Math.copySign(Math.log((Math.abs(x) + Math.sqrt(((x * x) + 1.0)))), x);
}
↓
public static double code(double x) {
double t_0 = Math.copySign(Math.log((Math.abs(x) + Math.sqrt(((x * x) + 1.0)))), x);
double tmp;
if (t_0 <= -Double.POSITIVE_INFINITY) {
tmp = Math.copySign(Math.log((-x + Math.abs(x))), x);
} else if (t_0 <= 10.0) {
tmp = t_0;
} else {
tmp = Math.copySign(Math.log((0.5 / x)), x);
}
return tmp;
}
def code(x):
return math.copysign(math.log((math.fabs(x) + math.sqrt(((x * x) + 1.0)))), x)
↓
def code(x):
t_0 = math.copysign(math.log((math.fabs(x) + math.sqrt(((x * x) + 1.0)))), x)
tmp = 0
if t_0 <= -math.inf:
tmp = math.copysign(math.log((-x + math.fabs(x))), x)
elif t_0 <= 10.0:
tmp = t_0
else:
tmp = math.copysign(math.log((0.5 / x)), x)
return tmp
function code(x)
return copysign(log(Float64(abs(x) + sqrt(Float64(Float64(x * x) + 1.0)))), x)
end
↓
function code(x)
t_0 = copysign(log(Float64(abs(x) + sqrt(Float64(Float64(x * x) + 1.0)))), x)
tmp = 0.0
if (t_0 <= Float64(-Inf))
tmp = copysign(log(Float64(Float64(-x) + abs(x))), x);
elseif (t_0 <= 10.0)
tmp = t_0;
else
tmp = copysign(log(Float64(0.5 / x)), x);
end
return tmp
end
function tmp = code(x)
tmp = sign(x) * abs(log((abs(x) + sqrt(((x * x) + 1.0)))));
end
↓
function tmp_2 = code(x)
t_0 = sign(x) * abs(log((abs(x) + sqrt(((x * x) + 1.0)))));
tmp = 0.0;
if (t_0 <= -Inf)
tmp = sign(x) * abs(log((-x + abs(x))));
elseif (t_0 <= 10.0)
tmp = t_0;
else
tmp = sign(x) * abs(log((0.5 / x)));
end
tmp_2 = tmp;
end
code[x_] := N[With[{TMP1 = Abs[N[Log[N[(N[Abs[x], $MachinePrecision] + N[Sqrt[N[(N[(x * x), $MachinePrecision] + 1.0), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
↓
code[x_] := Block[{t$95$0 = N[With[{TMP1 = Abs[N[Log[N[(N[Abs[x], $MachinePrecision] + N[Sqrt[N[(N[(x * x), $MachinePrecision] + 1.0), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]}, If[LessEqual[t$95$0, (-Infinity)], N[With[{TMP1 = Abs[N[Log[N[((-x) + N[Abs[x], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision], If[LessEqual[t$95$0, 10.0], t$95$0, N[With[{TMP1 = Abs[N[Log[N[(0.5 / x), $MachinePrecision]], $MachinePrecision]], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]]]]
\mathsf{copysign}\left(\log \left(\left|x\right| + \sqrt{x \cdot x + 1}\right), x\right)
↓
\begin{array}{l}
t_0 := \mathsf{copysign}\left(\log \left(\left|x\right| + \sqrt{x \cdot x + 1}\right), x\right)\\
\mathbf{if}\;t_0 \leq -\infty:\\
\;\;\;\;\mathsf{copysign}\left(\log \left(\left(-x\right) + \left|x\right|\right), x\right)\\
\mathbf{elif}\;t_0 \leq 10:\\
\;\;\;\;t_0\\
\mathbf{else}:\\
\;\;\;\;\mathsf{copysign}\left(\log \left(\frac{0.5}{x}\right), x\right)\\
\end{array}
Alternatives
| Alternative 1 |
|---|
| Error | 30.2 |
|---|
| Cost | 20036 |
|---|
\[\begin{array}{l}
\mathbf{if}\;x \leq -5 \cdot 10^{-309}:\\
\;\;\;\;\mathsf{copysign}\left(\log \left(\left(\left(-x\right) + \left|x\right|\right) - 0.5 \cdot \frac{1}{x}\right), x\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{copysign}\left(\log \left(x + \left(\frac{0.5}{x} + \left|x\right|\right)\right), x\right)\\
\end{array}
\]
| Alternative 2 |
|---|
| Error | 30.3 |
|---|
| Cost | 19844 |
|---|
\[\begin{array}{l}
\mathbf{if}\;x \leq -5 \cdot 10^{-309}:\\
\;\;\;\;\mathsf{copysign}\left(\log \left(\left(-x\right) + \left|x\right|\right), x\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{copysign}\left(\log \left(x + \left(\frac{0.5}{x} + \left|x\right|\right)\right), x\right)\\
\end{array}
\]
| Alternative 3 |
|---|
| Error | 30.4 |
|---|
| Cost | 19652 |
|---|
\[\begin{array}{l}
\mathbf{if}\;x \leq -5 \cdot 10^{-309}:\\
\;\;\;\;\mathsf{copysign}\left(\log \left(\left(-x\right) + \left|x\right|\right), x\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{copysign}\left(\log \left(\frac{0.5}{x}\right), x\right)\\
\end{array}
\]
| Alternative 4 |
|---|
| Error | 40.7 |
|---|
| Cost | 19588 |
|---|
\[\begin{array}{l}
\mathbf{if}\;x \leq 2 \cdot 10^{-153}:\\
\;\;\;\;\mathsf{copysign}\left(\log \left(\left|x\right| + 1\right), x\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{copysign}\left(\log \left(\frac{0.5}{x}\right), x\right)\\
\end{array}
\]
| Alternative 5 |
|---|
| Error | 41.3 |
|---|
| Cost | 13252 |
|---|
\[\begin{array}{l}
\mathbf{if}\;x \leq -5 \cdot 10^{-309}:\\
\;\;\;\;\mathsf{copysign}\left(-\log \left(\frac{-1}{x}\right), x\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{copysign}\left(\log \left(\frac{0.5}{x}\right), x\right)\\
\end{array}
\]
| Alternative 6 |
|---|
| Error | 47.3 |
|---|
| Cost | 13056 |
|---|
\[\mathsf{copysign}\left(\log \left(\frac{0.5}{x}\right), x\right)
\]
| Alternative 7 |
|---|
| Error | 58.1 |
|---|
| Cost | 12928 |
|---|
\[\mathsf{copysign}\left(\log x, x\right)
\]