
(FPCore (x y z) :precision binary64 (/ (* x (+ y z)) z))
double code(double x, double y, double z) {
return (x * (y + z)) / z;
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = (x * (y + z)) / z
end function
public static double code(double x, double y, double z) {
return (x * (y + z)) / z;
}
def code(x, y, z): return (x * (y + z)) / z
function code(x, y, z) return Float64(Float64(x * Float64(y + z)) / z) end
function tmp = code(x, y, z) tmp = (x * (y + z)) / z; end
code[x_, y_, z_] := N[(N[(x * N[(y + z), $MachinePrecision]), $MachinePrecision] / z), $MachinePrecision]
\begin{array}{l}
\\
\frac{x \cdot \left(y + z\right)}{z}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 10 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y z) :precision binary64 (/ (* x (+ y z)) z))
double code(double x, double y, double z) {
return (x * (y + z)) / z;
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = (x * (y + z)) / z
end function
public static double code(double x, double y, double z) {
return (x * (y + z)) / z;
}
def code(x, y, z): return (x * (y + z)) / z
function code(x, y, z) return Float64(Float64(x * Float64(y + z)) / z) end
function tmp = code(x, y, z) tmp = (x * (y + z)) / z; end
code[x_, y_, z_] := N[(N[(x * N[(y + z), $MachinePrecision]), $MachinePrecision] / z), $MachinePrecision]
\begin{array}{l}
\\
\frac{x \cdot \left(y + z\right)}{z}
\end{array}
x\_m = (fabs.f64 x)
x\_s = (copysign.f64 #s(literal 1 binary64) x)
(FPCore (x_s x_m y z)
:precision binary64
(*
x_s
(if (<= (/ (* x_m (+ y z)) z) -5e+31)
(/ (+ y z) (/ z x_m))
(+ x_m (/ x_m (/ z y))))))x\_m = fabs(x);
x\_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z) {
double tmp;
if (((x_m * (y + z)) / z) <= -5e+31) {
tmp = (y + z) / (z / x_m);
} else {
tmp = x_m + (x_m / (z / y));
}
return x_s * tmp;
}
x\_m = abs(x)
x\_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8) :: tmp
if (((x_m * (y + z)) / z) <= (-5d+31)) then
tmp = (y + z) / (z / x_m)
else
tmp = x_m + (x_m / (z / y))
end if
code = x_s * tmp
end function
x\_m = Math.abs(x);
x\_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z) {
double tmp;
if (((x_m * (y + z)) / z) <= -5e+31) {
tmp = (y + z) / (z / x_m);
} else {
tmp = x_m + (x_m / (z / y));
}
return x_s * tmp;
}
x\_m = math.fabs(x) x\_s = math.copysign(1.0, x) def code(x_s, x_m, y, z): tmp = 0 if ((x_m * (y + z)) / z) <= -5e+31: tmp = (y + z) / (z / x_m) else: tmp = x_m + (x_m / (z / y)) return x_s * tmp
x\_m = abs(x) x\_s = copysign(1.0, x) function code(x_s, x_m, y, z) tmp = 0.0 if (Float64(Float64(x_m * Float64(y + z)) / z) <= -5e+31) tmp = Float64(Float64(y + z) / Float64(z / x_m)); else tmp = Float64(x_m + Float64(x_m / Float64(z / y))); end return Float64(x_s * tmp) end
x\_m = abs(x); x\_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m, y, z) tmp = 0.0; if (((x_m * (y + z)) / z) <= -5e+31) tmp = (y + z) / (z / x_m); else tmp = x_m + (x_m / (z / y)); end tmp_2 = x_s * tmp; end
x\_m = N[Abs[x], $MachinePrecision]
x\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_] := N[(x$95$s * If[LessEqual[N[(N[(x$95$m * N[(y + z), $MachinePrecision]), $MachinePrecision] / z), $MachinePrecision], -5e+31], N[(N[(y + z), $MachinePrecision] / N[(z / x$95$m), $MachinePrecision]), $MachinePrecision], N[(x$95$m + N[(x$95$m / N[(z / y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;\frac{x\_m \cdot \left(y + z\right)}{z} \leq -5 \cdot 10^{+31}:\\
\;\;\;\;\frac{y + z}{\frac{z}{x\_m}}\\
\mathbf{else}:\\
\;\;\;\;x\_m + \frac{x\_m}{\frac{z}{y}}\\
\end{array}
\end{array}
if (/.f64 (*.f64 x (+.f64 y z)) z) < -5.00000000000000027e31Initial program 79.3%
*-commutative79.3%
associate-/l*94.0%
Simplified94.0%
clear-num93.9%
un-div-inv94.0%
Applied egg-rr94.0%
if -5.00000000000000027e31 < (/.f64 (*.f64 x (+.f64 y z)) z) Initial program 87.5%
associate-/l*96.4%
remove-double-neg96.4%
distribute-frac-neg296.4%
neg-sub096.4%
remove-double-neg96.4%
unsub-neg96.4%
div-sub96.4%
*-inverses96.4%
metadata-eval96.4%
associate--r-96.4%
neg-sub096.4%
distribute-frac-neg296.4%
remove-double-neg96.4%
sub-neg96.4%
Simplified96.4%
sub-neg96.4%
metadata-eval96.4%
distribute-rgt-in96.4%
*-commutative96.4%
*-un-lft-identity96.4%
Applied egg-rr96.4%
clear-num96.4%
un-div-inv97.1%
Applied egg-rr97.1%
Final simplification96.3%
x\_m = (fabs.f64 x)
x\_s = (copysign.f64 #s(literal 1 binary64) x)
(FPCore (x_s x_m y z)
:precision binary64
(*
x_s
(if (or (<= y -7.4e+15)
(not (or (<= y 7e-32) (and (not (<= y 1.5e+69)) (<= y 2.8e+106)))))
(* y (/ x_m z))
x_m)))x\_m = fabs(x);
x\_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z) {
double tmp;
if ((y <= -7.4e+15) || !((y <= 7e-32) || (!(y <= 1.5e+69) && (y <= 2.8e+106)))) {
tmp = y * (x_m / z);
} else {
tmp = x_m;
}
return x_s * tmp;
}
x\_m = abs(x)
x\_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8) :: tmp
if ((y <= (-7.4d+15)) .or. (.not. (y <= 7d-32) .or. (.not. (y <= 1.5d+69)) .and. (y <= 2.8d+106))) then
tmp = y * (x_m / z)
else
tmp = x_m
end if
code = x_s * tmp
end function
x\_m = Math.abs(x);
x\_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z) {
double tmp;
if ((y <= -7.4e+15) || !((y <= 7e-32) || (!(y <= 1.5e+69) && (y <= 2.8e+106)))) {
tmp = y * (x_m / z);
} else {
tmp = x_m;
}
return x_s * tmp;
}
x\_m = math.fabs(x) x\_s = math.copysign(1.0, x) def code(x_s, x_m, y, z): tmp = 0 if (y <= -7.4e+15) or not ((y <= 7e-32) or (not (y <= 1.5e+69) and (y <= 2.8e+106))): tmp = y * (x_m / z) else: tmp = x_m return x_s * tmp
x\_m = abs(x) x\_s = copysign(1.0, x) function code(x_s, x_m, y, z) tmp = 0.0 if ((y <= -7.4e+15) || !((y <= 7e-32) || (!(y <= 1.5e+69) && (y <= 2.8e+106)))) tmp = Float64(y * Float64(x_m / z)); else tmp = x_m; end return Float64(x_s * tmp) end
x\_m = abs(x); x\_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m, y, z) tmp = 0.0; if ((y <= -7.4e+15) || ~(((y <= 7e-32) || (~((y <= 1.5e+69)) && (y <= 2.8e+106))))) tmp = y * (x_m / z); else tmp = x_m; end tmp_2 = x_s * tmp; end
x\_m = N[Abs[x], $MachinePrecision]
x\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_] := N[(x$95$s * If[Or[LessEqual[y, -7.4e+15], N[Not[Or[LessEqual[y, 7e-32], And[N[Not[LessEqual[y, 1.5e+69]], $MachinePrecision], LessEqual[y, 2.8e+106]]]], $MachinePrecision]], N[(y * N[(x$95$m / z), $MachinePrecision]), $MachinePrecision], x$95$m]), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;y \leq -7.4 \cdot 10^{+15} \lor \neg \left(y \leq 7 \cdot 10^{-32} \lor \neg \left(y \leq 1.5 \cdot 10^{+69}\right) \land y \leq 2.8 \cdot 10^{+106}\right):\\
\;\;\;\;y \cdot \frac{x\_m}{z}\\
\mathbf{else}:\\
\;\;\;\;x\_m\\
\end{array}
\end{array}
if y < -7.4e15 or 6.9999999999999997e-32 < y < 1.49999999999999992e69 or 2.79999999999999993e106 < y Initial program 92.2%
associate-/l*88.1%
remove-double-neg88.1%
distribute-frac-neg288.1%
neg-sub088.1%
remove-double-neg88.1%
unsub-neg88.1%
div-sub88.1%
*-inverses88.1%
metadata-eval88.1%
associate--r-88.1%
neg-sub088.1%
distribute-frac-neg288.1%
remove-double-neg88.1%
sub-neg88.1%
Simplified88.1%
Taylor expanded in y around inf 77.1%
associate-*l/73.1%
*-commutative73.1%
Simplified73.1%
if -7.4e15 < y < 6.9999999999999997e-32 or 1.49999999999999992e69 < y < 2.79999999999999993e106Initial program 80.2%
associate-/l*99.9%
remove-double-neg99.9%
distribute-frac-neg299.9%
neg-sub099.9%
remove-double-neg99.9%
unsub-neg99.9%
div-sub99.9%
*-inverses99.9%
metadata-eval99.9%
associate--r-99.9%
neg-sub099.9%
distribute-frac-neg299.9%
remove-double-neg99.9%
sub-neg99.9%
Simplified99.9%
Taylor expanded in y around 0 81.2%
Final simplification77.7%
x\_m = (fabs.f64 x)
x\_s = (copysign.f64 #s(literal 1 binary64) x)
(FPCore (x_s x_m y z)
:precision binary64
(*
x_s
(if (or (<= y -4.35e+15)
(not (or (<= y 6.4e-34) (and (not (<= y 1.5e+69)) (<= y 3.6e+167)))))
(* x_m (/ y z))
x_m)))x\_m = fabs(x);
x\_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z) {
double tmp;
if ((y <= -4.35e+15) || !((y <= 6.4e-34) || (!(y <= 1.5e+69) && (y <= 3.6e+167)))) {
tmp = x_m * (y / z);
} else {
tmp = x_m;
}
return x_s * tmp;
}
x\_m = abs(x)
x\_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8) :: tmp
if ((y <= (-4.35d+15)) .or. (.not. (y <= 6.4d-34) .or. (.not. (y <= 1.5d+69)) .and. (y <= 3.6d+167))) then
tmp = x_m * (y / z)
else
tmp = x_m
end if
code = x_s * tmp
end function
x\_m = Math.abs(x);
x\_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z) {
double tmp;
if ((y <= -4.35e+15) || !((y <= 6.4e-34) || (!(y <= 1.5e+69) && (y <= 3.6e+167)))) {
tmp = x_m * (y / z);
} else {
tmp = x_m;
}
return x_s * tmp;
}
x\_m = math.fabs(x) x\_s = math.copysign(1.0, x) def code(x_s, x_m, y, z): tmp = 0 if (y <= -4.35e+15) or not ((y <= 6.4e-34) or (not (y <= 1.5e+69) and (y <= 3.6e+167))): tmp = x_m * (y / z) else: tmp = x_m return x_s * tmp
x\_m = abs(x) x\_s = copysign(1.0, x) function code(x_s, x_m, y, z) tmp = 0.0 if ((y <= -4.35e+15) || !((y <= 6.4e-34) || (!(y <= 1.5e+69) && (y <= 3.6e+167)))) tmp = Float64(x_m * Float64(y / z)); else tmp = x_m; end return Float64(x_s * tmp) end
x\_m = abs(x); x\_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m, y, z) tmp = 0.0; if ((y <= -4.35e+15) || ~(((y <= 6.4e-34) || (~((y <= 1.5e+69)) && (y <= 3.6e+167))))) tmp = x_m * (y / z); else tmp = x_m; end tmp_2 = x_s * tmp; end
x\_m = N[Abs[x], $MachinePrecision]
x\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_] := N[(x$95$s * If[Or[LessEqual[y, -4.35e+15], N[Not[Or[LessEqual[y, 6.4e-34], And[N[Not[LessEqual[y, 1.5e+69]], $MachinePrecision], LessEqual[y, 3.6e+167]]]], $MachinePrecision]], N[(x$95$m * N[(y / z), $MachinePrecision]), $MachinePrecision], x$95$m]), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;y \leq -4.35 \cdot 10^{+15} \lor \neg \left(y \leq 6.4 \cdot 10^{-34} \lor \neg \left(y \leq 1.5 \cdot 10^{+69}\right) \land y \leq 3.6 \cdot 10^{+167}\right):\\
\;\;\;\;x\_m \cdot \frac{y}{z}\\
\mathbf{else}:\\
\;\;\;\;x\_m\\
\end{array}
\end{array}
if y < -4.35e15 or 6.40000000000000005e-34 < y < 1.49999999999999992e69 or 3.60000000000000024e167 < y Initial program 91.6%
associate-/l*88.1%
remove-double-neg88.1%
distribute-frac-neg288.1%
neg-sub088.1%
remove-double-neg88.1%
unsub-neg88.1%
div-sub88.2%
*-inverses88.2%
metadata-eval88.2%
associate--r-88.2%
neg-sub088.2%
distribute-frac-neg288.2%
remove-double-neg88.2%
sub-neg88.2%
Simplified88.2%
Taylor expanded in y around inf 78.9%
associate-*r/69.5%
Simplified69.5%
if -4.35e15 < y < 6.40000000000000005e-34 or 1.49999999999999992e69 < y < 3.60000000000000024e167Initial program 81.2%
associate-/l*99.3%
remove-double-neg99.3%
distribute-frac-neg299.3%
neg-sub099.3%
remove-double-neg99.3%
unsub-neg99.3%
div-sub99.3%
*-inverses99.3%
metadata-eval99.3%
associate--r-99.3%
neg-sub099.3%
distribute-frac-neg299.3%
remove-double-neg99.3%
sub-neg99.3%
Simplified99.3%
Taylor expanded in y around 0 79.6%
Final simplification75.5%
x\_m = (fabs.f64 x)
x\_s = (copysign.f64 #s(literal 1 binary64) x)
(FPCore (x_s x_m y z)
:precision binary64
(*
x_s
(if (<= y -2.8e+16)
(/ x_m (/ z y))
(if (or (<= y 1.02e-32) (and (not (<= y 2e+68)) (<= y 1.16e+106)))
x_m
(/ y (/ z x_m))))))x\_m = fabs(x);
x\_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z) {
double tmp;
if (y <= -2.8e+16) {
tmp = x_m / (z / y);
} else if ((y <= 1.02e-32) || (!(y <= 2e+68) && (y <= 1.16e+106))) {
tmp = x_m;
} else {
tmp = y / (z / x_m);
}
return x_s * tmp;
}
x\_m = abs(x)
x\_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8) :: tmp
if (y <= (-2.8d+16)) then
tmp = x_m / (z / y)
else if ((y <= 1.02d-32) .or. (.not. (y <= 2d+68)) .and. (y <= 1.16d+106)) then
tmp = x_m
else
tmp = y / (z / x_m)
end if
code = x_s * tmp
end function
x\_m = Math.abs(x);
x\_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z) {
double tmp;
if (y <= -2.8e+16) {
tmp = x_m / (z / y);
} else if ((y <= 1.02e-32) || (!(y <= 2e+68) && (y <= 1.16e+106))) {
tmp = x_m;
} else {
tmp = y / (z / x_m);
}
return x_s * tmp;
}
x\_m = math.fabs(x) x\_s = math.copysign(1.0, x) def code(x_s, x_m, y, z): tmp = 0 if y <= -2.8e+16: tmp = x_m / (z / y) elif (y <= 1.02e-32) or (not (y <= 2e+68) and (y <= 1.16e+106)): tmp = x_m else: tmp = y / (z / x_m) return x_s * tmp
x\_m = abs(x) x\_s = copysign(1.0, x) function code(x_s, x_m, y, z) tmp = 0.0 if (y <= -2.8e+16) tmp = Float64(x_m / Float64(z / y)); elseif ((y <= 1.02e-32) || (!(y <= 2e+68) && (y <= 1.16e+106))) tmp = x_m; else tmp = Float64(y / Float64(z / x_m)); end return Float64(x_s * tmp) end
x\_m = abs(x); x\_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m, y, z) tmp = 0.0; if (y <= -2.8e+16) tmp = x_m / (z / y); elseif ((y <= 1.02e-32) || (~((y <= 2e+68)) && (y <= 1.16e+106))) tmp = x_m; else tmp = y / (z / x_m); end tmp_2 = x_s * tmp; end
x\_m = N[Abs[x], $MachinePrecision]
x\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_] := N[(x$95$s * If[LessEqual[y, -2.8e+16], N[(x$95$m / N[(z / y), $MachinePrecision]), $MachinePrecision], If[Or[LessEqual[y, 1.02e-32], And[N[Not[LessEqual[y, 2e+68]], $MachinePrecision], LessEqual[y, 1.16e+106]]], x$95$m, N[(y / N[(z / x$95$m), $MachinePrecision]), $MachinePrecision]]]), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;y \leq -2.8 \cdot 10^{+16}:\\
\;\;\;\;\frac{x\_m}{\frac{z}{y}}\\
\mathbf{elif}\;y \leq 1.02 \cdot 10^{-32} \lor \neg \left(y \leq 2 \cdot 10^{+68}\right) \land y \leq 1.16 \cdot 10^{+106}:\\
\;\;\;\;x\_m\\
\mathbf{else}:\\
\;\;\;\;\frac{y}{\frac{z}{x\_m}}\\
\end{array}
\end{array}
if y < -2.8e16Initial program 87.9%
associate-/l*88.2%
remove-double-neg88.2%
distribute-frac-neg288.2%
neg-sub088.2%
remove-double-neg88.2%
unsub-neg88.2%
div-sub88.3%
*-inverses88.3%
metadata-eval88.3%
associate--r-88.3%
neg-sub088.3%
distribute-frac-neg288.3%
remove-double-neg88.3%
sub-neg88.3%
Simplified88.3%
Taylor expanded in y around inf 73.7%
associate-*r/64.8%
Simplified64.8%
clear-num88.2%
un-div-inv90.6%
Applied egg-rr67.1%
if -2.8e16 < y < 1.02000000000000002e-32 or 1.99999999999999991e68 < y < 1.16000000000000004e106Initial program 80.2%
associate-/l*99.9%
remove-double-neg99.9%
distribute-frac-neg299.9%
neg-sub099.9%
remove-double-neg99.9%
unsub-neg99.9%
div-sub99.9%
*-inverses99.9%
metadata-eval99.9%
associate--r-99.9%
neg-sub099.9%
distribute-frac-neg299.9%
remove-double-neg99.9%
sub-neg99.9%
Simplified99.9%
Taylor expanded in y around 0 81.2%
if 1.02000000000000002e-32 < y < 1.99999999999999991e68 or 1.16000000000000004e106 < y Initial program 95.4%
associate-/l*88.1%
remove-double-neg88.1%
distribute-frac-neg288.1%
neg-sub088.1%
remove-double-neg88.1%
unsub-neg88.1%
div-sub88.1%
*-inverses88.1%
metadata-eval88.1%
associate--r-88.1%
neg-sub088.1%
distribute-frac-neg288.1%
remove-double-neg88.1%
sub-neg88.1%
Simplified88.1%
Taylor expanded in y around inf 79.6%
associate-*r/69.4%
Simplified69.4%
associate-*r/79.6%
*-commutative79.6%
associate-*r/77.8%
clear-num77.7%
un-div-inv78.0%
Applied egg-rr78.0%
Final simplification77.7%
x\_m = (fabs.f64 x)
x\_s = (copysign.f64 #s(literal 1 binary64) x)
(FPCore (x_s x_m y z)
:precision binary64
(*
x_s
(if (<= y -1.82e+15)
(/ x_m (/ z y))
(if (or (<= y 3.4e-34) (and (not (<= y 5e+70)) (<= y 1.95e+106)))
x_m
(* y (/ x_m z))))))x\_m = fabs(x);
x\_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z) {
double tmp;
if (y <= -1.82e+15) {
tmp = x_m / (z / y);
} else if ((y <= 3.4e-34) || (!(y <= 5e+70) && (y <= 1.95e+106))) {
tmp = x_m;
} else {
tmp = y * (x_m / z);
}
return x_s * tmp;
}
x\_m = abs(x)
x\_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8) :: tmp
if (y <= (-1.82d+15)) then
tmp = x_m / (z / y)
else if ((y <= 3.4d-34) .or. (.not. (y <= 5d+70)) .and. (y <= 1.95d+106)) then
tmp = x_m
else
tmp = y * (x_m / z)
end if
code = x_s * tmp
end function
x\_m = Math.abs(x);
x\_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z) {
double tmp;
if (y <= -1.82e+15) {
tmp = x_m / (z / y);
} else if ((y <= 3.4e-34) || (!(y <= 5e+70) && (y <= 1.95e+106))) {
tmp = x_m;
} else {
tmp = y * (x_m / z);
}
return x_s * tmp;
}
x\_m = math.fabs(x) x\_s = math.copysign(1.0, x) def code(x_s, x_m, y, z): tmp = 0 if y <= -1.82e+15: tmp = x_m / (z / y) elif (y <= 3.4e-34) or (not (y <= 5e+70) and (y <= 1.95e+106)): tmp = x_m else: tmp = y * (x_m / z) return x_s * tmp
x\_m = abs(x) x\_s = copysign(1.0, x) function code(x_s, x_m, y, z) tmp = 0.0 if (y <= -1.82e+15) tmp = Float64(x_m / Float64(z / y)); elseif ((y <= 3.4e-34) || (!(y <= 5e+70) && (y <= 1.95e+106))) tmp = x_m; else tmp = Float64(y * Float64(x_m / z)); end return Float64(x_s * tmp) end
x\_m = abs(x); x\_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m, y, z) tmp = 0.0; if (y <= -1.82e+15) tmp = x_m / (z / y); elseif ((y <= 3.4e-34) || (~((y <= 5e+70)) && (y <= 1.95e+106))) tmp = x_m; else tmp = y * (x_m / z); end tmp_2 = x_s * tmp; end
x\_m = N[Abs[x], $MachinePrecision]
x\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_] := N[(x$95$s * If[LessEqual[y, -1.82e+15], N[(x$95$m / N[(z / y), $MachinePrecision]), $MachinePrecision], If[Or[LessEqual[y, 3.4e-34], And[N[Not[LessEqual[y, 5e+70]], $MachinePrecision], LessEqual[y, 1.95e+106]]], x$95$m, N[(y * N[(x$95$m / z), $MachinePrecision]), $MachinePrecision]]]), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;y \leq -1.82 \cdot 10^{+15}:\\
\;\;\;\;\frac{x\_m}{\frac{z}{y}}\\
\mathbf{elif}\;y \leq 3.4 \cdot 10^{-34} \lor \neg \left(y \leq 5 \cdot 10^{+70}\right) \land y \leq 1.95 \cdot 10^{+106}:\\
\;\;\;\;x\_m\\
\mathbf{else}:\\
\;\;\;\;y \cdot \frac{x\_m}{z}\\
\end{array}
\end{array}
if y < -1.82e15Initial program 87.9%
associate-/l*88.2%
remove-double-neg88.2%
distribute-frac-neg288.2%
neg-sub088.2%
remove-double-neg88.2%
unsub-neg88.2%
div-sub88.3%
*-inverses88.3%
metadata-eval88.3%
associate--r-88.3%
neg-sub088.3%
distribute-frac-neg288.3%
remove-double-neg88.3%
sub-neg88.3%
Simplified88.3%
Taylor expanded in y around inf 73.7%
associate-*r/64.8%
Simplified64.8%
clear-num88.2%
un-div-inv90.6%
Applied egg-rr67.1%
if -1.82e15 < y < 3.4000000000000001e-34 or 5.0000000000000002e70 < y < 1.94999999999999984e106Initial program 80.2%
associate-/l*99.9%
remove-double-neg99.9%
distribute-frac-neg299.9%
neg-sub099.9%
remove-double-neg99.9%
unsub-neg99.9%
div-sub99.9%
*-inverses99.9%
metadata-eval99.9%
associate--r-99.9%
neg-sub099.9%
distribute-frac-neg299.9%
remove-double-neg99.9%
sub-neg99.9%
Simplified99.9%
Taylor expanded in y around 0 81.2%
if 3.4000000000000001e-34 < y < 5.0000000000000002e70 or 1.94999999999999984e106 < y Initial program 95.4%
associate-/l*88.1%
remove-double-neg88.1%
distribute-frac-neg288.1%
neg-sub088.1%
remove-double-neg88.1%
unsub-neg88.1%
div-sub88.1%
*-inverses88.1%
metadata-eval88.1%
associate--r-88.1%
neg-sub088.1%
distribute-frac-neg288.1%
remove-double-neg88.1%
sub-neg88.1%
Simplified88.1%
Taylor expanded in y around inf 79.6%
associate-*l/77.8%
*-commutative77.8%
Simplified77.8%
Final simplification77.7%
x\_m = (fabs.f64 x)
x\_s = (copysign.f64 #s(literal 1 binary64) x)
(FPCore (x_s x_m y z)
:precision binary64
(let* ((t_0 (/ (* x_m y) z)))
(*
x_s
(if (<= y -6.8e+14)
t_0
(if (<= y 3e-34)
x_m
(if (<= y 5.5e+70) (/ y (/ z x_m)) (if (<= y 7.2e+109) x_m t_0)))))))x\_m = fabs(x);
x\_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z) {
double t_0 = (x_m * y) / z;
double tmp;
if (y <= -6.8e+14) {
tmp = t_0;
} else if (y <= 3e-34) {
tmp = x_m;
} else if (y <= 5.5e+70) {
tmp = y / (z / x_m);
} else if (y <= 7.2e+109) {
tmp = x_m;
} else {
tmp = t_0;
}
return x_s * tmp;
}
x\_m = abs(x)
x\_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8) :: t_0
real(8) :: tmp
t_0 = (x_m * y) / z
if (y <= (-6.8d+14)) then
tmp = t_0
else if (y <= 3d-34) then
tmp = x_m
else if (y <= 5.5d+70) then
tmp = y / (z / x_m)
else if (y <= 7.2d+109) then
tmp = x_m
else
tmp = t_0
end if
code = x_s * tmp
end function
x\_m = Math.abs(x);
x\_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z) {
double t_0 = (x_m * y) / z;
double tmp;
if (y <= -6.8e+14) {
tmp = t_0;
} else if (y <= 3e-34) {
tmp = x_m;
} else if (y <= 5.5e+70) {
tmp = y / (z / x_m);
} else if (y <= 7.2e+109) {
tmp = x_m;
} else {
tmp = t_0;
}
return x_s * tmp;
}
x\_m = math.fabs(x) x\_s = math.copysign(1.0, x) def code(x_s, x_m, y, z): t_0 = (x_m * y) / z tmp = 0 if y <= -6.8e+14: tmp = t_0 elif y <= 3e-34: tmp = x_m elif y <= 5.5e+70: tmp = y / (z / x_m) elif y <= 7.2e+109: tmp = x_m else: tmp = t_0 return x_s * tmp
x\_m = abs(x) x\_s = copysign(1.0, x) function code(x_s, x_m, y, z) t_0 = Float64(Float64(x_m * y) / z) tmp = 0.0 if (y <= -6.8e+14) tmp = t_0; elseif (y <= 3e-34) tmp = x_m; elseif (y <= 5.5e+70) tmp = Float64(y / Float64(z / x_m)); elseif (y <= 7.2e+109) tmp = x_m; else tmp = t_0; end return Float64(x_s * tmp) end
x\_m = abs(x); x\_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m, y, z) t_0 = (x_m * y) / z; tmp = 0.0; if (y <= -6.8e+14) tmp = t_0; elseif (y <= 3e-34) tmp = x_m; elseif (y <= 5.5e+70) tmp = y / (z / x_m); elseif (y <= 7.2e+109) tmp = x_m; else tmp = t_0; end tmp_2 = x_s * tmp; end
x\_m = N[Abs[x], $MachinePrecision]
x\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_] := Block[{t$95$0 = N[(N[(x$95$m * y), $MachinePrecision] / z), $MachinePrecision]}, N[(x$95$s * If[LessEqual[y, -6.8e+14], t$95$0, If[LessEqual[y, 3e-34], x$95$m, If[LessEqual[y, 5.5e+70], N[(y / N[(z / x$95$m), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 7.2e+109], x$95$m, t$95$0]]]]), $MachinePrecision]]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
\begin{array}{l}
t_0 := \frac{x\_m \cdot y}{z}\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;y \leq -6.8 \cdot 10^{+14}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y \leq 3 \cdot 10^{-34}:\\
\;\;\;\;x\_m\\
\mathbf{elif}\;y \leq 5.5 \cdot 10^{+70}:\\
\;\;\;\;\frac{y}{\frac{z}{x\_m}}\\
\mathbf{elif}\;y \leq 7.2 \cdot 10^{+109}:\\
\;\;\;\;x\_m\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}
\end{array}
\end{array}
if y < -6.8e14 or 7.2e109 < y Initial program 90.2%
associate-/l*86.2%
remove-double-neg86.2%
distribute-frac-neg286.2%
neg-sub086.2%
remove-double-neg86.2%
unsub-neg86.2%
div-sub86.2%
*-inverses86.2%
metadata-eval86.2%
associate--r-86.2%
neg-sub086.2%
distribute-frac-neg286.2%
remove-double-neg86.2%
sub-neg86.2%
Simplified86.2%
Taylor expanded in y around inf 75.3%
if -6.8e14 < y < 3e-34 or 5.49999999999999986e70 < y < 7.2e109Initial program 80.2%
associate-/l*99.9%
remove-double-neg99.9%
distribute-frac-neg299.9%
neg-sub099.9%
remove-double-neg99.9%
unsub-neg99.9%
div-sub99.9%
*-inverses99.9%
metadata-eval99.9%
associate--r-99.9%
neg-sub099.9%
distribute-frac-neg299.9%
remove-double-neg99.9%
sub-neg99.9%
Simplified99.9%
Taylor expanded in y around 0 81.2%
if 3e-34 < y < 5.49999999999999986e70Initial program 99.7%
associate-/l*95.4%
remove-double-neg95.4%
distribute-frac-neg295.4%
neg-sub095.4%
remove-double-neg95.4%
unsub-neg95.4%
div-sub95.4%
*-inverses95.4%
metadata-eval95.4%
associate--r-95.4%
neg-sub095.4%
distribute-frac-neg295.4%
remove-double-neg95.4%
sub-neg95.4%
Simplified95.4%
Taylor expanded in y around inf 83.8%
associate-*r/79.6%
Simplified79.6%
associate-*r/83.8%
*-commutative83.8%
associate-*r/83.5%
clear-num83.4%
un-div-inv83.8%
Applied egg-rr83.8%
x\_m = (fabs.f64 x)
x\_s = (copysign.f64 #s(literal 1 binary64) x)
(FPCore (x_s x_m y z)
:precision binary64
(*
x_s
(if (<= (/ (* x_m (+ y z)) z) -5e+31)
(/ y (/ z x_m))
(+ x_m (/ x_m (/ z y))))))x\_m = fabs(x);
x\_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z) {
double tmp;
if (((x_m * (y + z)) / z) <= -5e+31) {
tmp = y / (z / x_m);
} else {
tmp = x_m + (x_m / (z / y));
}
return x_s * tmp;
}
x\_m = abs(x)
x\_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8) :: tmp
if (((x_m * (y + z)) / z) <= (-5d+31)) then
tmp = y / (z / x_m)
else
tmp = x_m + (x_m / (z / y))
end if
code = x_s * tmp
end function
x\_m = Math.abs(x);
x\_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z) {
double tmp;
if (((x_m * (y + z)) / z) <= -5e+31) {
tmp = y / (z / x_m);
} else {
tmp = x_m + (x_m / (z / y));
}
return x_s * tmp;
}
x\_m = math.fabs(x) x\_s = math.copysign(1.0, x) def code(x_s, x_m, y, z): tmp = 0 if ((x_m * (y + z)) / z) <= -5e+31: tmp = y / (z / x_m) else: tmp = x_m + (x_m / (z / y)) return x_s * tmp
x\_m = abs(x) x\_s = copysign(1.0, x) function code(x_s, x_m, y, z) tmp = 0.0 if (Float64(Float64(x_m * Float64(y + z)) / z) <= -5e+31) tmp = Float64(y / Float64(z / x_m)); else tmp = Float64(x_m + Float64(x_m / Float64(z / y))); end return Float64(x_s * tmp) end
x\_m = abs(x); x\_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m, y, z) tmp = 0.0; if (((x_m * (y + z)) / z) <= -5e+31) tmp = y / (z / x_m); else tmp = x_m + (x_m / (z / y)); end tmp_2 = x_s * tmp; end
x\_m = N[Abs[x], $MachinePrecision]
x\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_] := N[(x$95$s * If[LessEqual[N[(N[(x$95$m * N[(y + z), $MachinePrecision]), $MachinePrecision] / z), $MachinePrecision], -5e+31], N[(y / N[(z / x$95$m), $MachinePrecision]), $MachinePrecision], N[(x$95$m + N[(x$95$m / N[(z / y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;\frac{x\_m \cdot \left(y + z\right)}{z} \leq -5 \cdot 10^{+31}:\\
\;\;\;\;\frac{y}{\frac{z}{x\_m}}\\
\mathbf{else}:\\
\;\;\;\;x\_m + \frac{x\_m}{\frac{z}{y}}\\
\end{array}
\end{array}
if (/.f64 (*.f64 x (+.f64 y z)) z) < -5.00000000000000027e31Initial program 79.3%
associate-/l*89.8%
remove-double-neg89.8%
distribute-frac-neg289.8%
neg-sub089.8%
remove-double-neg89.8%
unsub-neg89.8%
div-sub89.8%
*-inverses89.8%
metadata-eval89.8%
associate--r-89.8%
neg-sub089.8%
distribute-frac-neg289.8%
remove-double-neg89.8%
sub-neg89.8%
Simplified89.8%
Taylor expanded in y around inf 49.9%
associate-*r/44.2%
Simplified44.2%
associate-*r/49.9%
*-commutative49.9%
associate-*r/54.3%
clear-num54.2%
un-div-inv54.3%
Applied egg-rr54.3%
if -5.00000000000000027e31 < (/.f64 (*.f64 x (+.f64 y z)) z) Initial program 87.5%
associate-/l*96.4%
remove-double-neg96.4%
distribute-frac-neg296.4%
neg-sub096.4%
remove-double-neg96.4%
unsub-neg96.4%
div-sub96.4%
*-inverses96.4%
metadata-eval96.4%
associate--r-96.4%
neg-sub096.4%
distribute-frac-neg296.4%
remove-double-neg96.4%
sub-neg96.4%
Simplified96.4%
sub-neg96.4%
metadata-eval96.4%
distribute-rgt-in96.4%
*-commutative96.4%
*-un-lft-identity96.4%
Applied egg-rr96.4%
clear-num96.4%
un-div-inv97.1%
Applied egg-rr97.1%
Final simplification86.4%
x\_m = (fabs.f64 x) x\_s = (copysign.f64 #s(literal 1 binary64) x) (FPCore (x_s x_m y z) :precision binary64 (* x_s (if (<= y 6e+237) (+ x_m (* x_m (/ y z))) (/ (* x_m y) z))))
x\_m = fabs(x);
x\_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z) {
double tmp;
if (y <= 6e+237) {
tmp = x_m + (x_m * (y / z));
} else {
tmp = (x_m * y) / z;
}
return x_s * tmp;
}
x\_m = abs(x)
x\_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8) :: tmp
if (y <= 6d+237) then
tmp = x_m + (x_m * (y / z))
else
tmp = (x_m * y) / z
end if
code = x_s * tmp
end function
x\_m = Math.abs(x);
x\_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z) {
double tmp;
if (y <= 6e+237) {
tmp = x_m + (x_m * (y / z));
} else {
tmp = (x_m * y) / z;
}
return x_s * tmp;
}
x\_m = math.fabs(x) x\_s = math.copysign(1.0, x) def code(x_s, x_m, y, z): tmp = 0 if y <= 6e+237: tmp = x_m + (x_m * (y / z)) else: tmp = (x_m * y) / z return x_s * tmp
x\_m = abs(x) x\_s = copysign(1.0, x) function code(x_s, x_m, y, z) tmp = 0.0 if (y <= 6e+237) tmp = Float64(x_m + Float64(x_m * Float64(y / z))); else tmp = Float64(Float64(x_m * y) / z); end return Float64(x_s * tmp) end
x\_m = abs(x); x\_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m, y, z) tmp = 0.0; if (y <= 6e+237) tmp = x_m + (x_m * (y / z)); else tmp = (x_m * y) / z; end tmp_2 = x_s * tmp; end
x\_m = N[Abs[x], $MachinePrecision]
x\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_] := N[(x$95$s * If[LessEqual[y, 6e+237], N[(x$95$m + N[(x$95$m * N[(y / z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(x$95$m * y), $MachinePrecision] / z), $MachinePrecision]]), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;y \leq 6 \cdot 10^{+237}:\\
\;\;\;\;x\_m + x\_m \cdot \frac{y}{z}\\
\mathbf{else}:\\
\;\;\;\;\frac{x\_m \cdot y}{z}\\
\end{array}
\end{array}
if y < 6e237Initial program 84.7%
associate-/l*96.8%
remove-double-neg96.8%
distribute-frac-neg296.8%
neg-sub096.8%
remove-double-neg96.8%
unsub-neg96.8%
div-sub96.8%
*-inverses96.8%
metadata-eval96.8%
associate--r-96.8%
neg-sub096.8%
distribute-frac-neg296.8%
remove-double-neg96.8%
sub-neg96.8%
Simplified96.8%
sub-neg96.8%
metadata-eval96.8%
distribute-rgt-in96.8%
*-commutative96.8%
*-un-lft-identity96.8%
Applied egg-rr96.8%
if 6e237 < y Initial program 99.6%
associate-/l*56.4%
remove-double-neg56.4%
distribute-frac-neg256.4%
neg-sub056.4%
remove-double-neg56.4%
unsub-neg56.4%
div-sub56.4%
*-inverses56.4%
metadata-eval56.4%
associate--r-56.4%
neg-sub056.4%
distribute-frac-neg256.4%
remove-double-neg56.4%
sub-neg56.4%
Simplified56.4%
Taylor expanded in y around inf 93.6%
Final simplification96.6%
x\_m = (fabs.f64 x) x\_s = (copysign.f64 #s(literal 1 binary64) x) (FPCore (x_s x_m y z) :precision binary64 (* x_s (if (<= y 5.5e+237) (* x_m (- (/ y z) -1.0)) (/ (* x_m y) z))))
x\_m = fabs(x);
x\_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z) {
double tmp;
if (y <= 5.5e+237) {
tmp = x_m * ((y / z) - -1.0);
} else {
tmp = (x_m * y) / z;
}
return x_s * tmp;
}
x\_m = abs(x)
x\_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8) :: tmp
if (y <= 5.5d+237) then
tmp = x_m * ((y / z) - (-1.0d0))
else
tmp = (x_m * y) / z
end if
code = x_s * tmp
end function
x\_m = Math.abs(x);
x\_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z) {
double tmp;
if (y <= 5.5e+237) {
tmp = x_m * ((y / z) - -1.0);
} else {
tmp = (x_m * y) / z;
}
return x_s * tmp;
}
x\_m = math.fabs(x) x\_s = math.copysign(1.0, x) def code(x_s, x_m, y, z): tmp = 0 if y <= 5.5e+237: tmp = x_m * ((y / z) - -1.0) else: tmp = (x_m * y) / z return x_s * tmp
x\_m = abs(x) x\_s = copysign(1.0, x) function code(x_s, x_m, y, z) tmp = 0.0 if (y <= 5.5e+237) tmp = Float64(x_m * Float64(Float64(y / z) - -1.0)); else tmp = Float64(Float64(x_m * y) / z); end return Float64(x_s * tmp) end
x\_m = abs(x); x\_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m, y, z) tmp = 0.0; if (y <= 5.5e+237) tmp = x_m * ((y / z) - -1.0); else tmp = (x_m * y) / z; end tmp_2 = x_s * tmp; end
x\_m = N[Abs[x], $MachinePrecision]
x\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_] := N[(x$95$s * If[LessEqual[y, 5.5e+237], N[(x$95$m * N[(N[(y / z), $MachinePrecision] - -1.0), $MachinePrecision]), $MachinePrecision], N[(N[(x$95$m * y), $MachinePrecision] / z), $MachinePrecision]]), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;y \leq 5.5 \cdot 10^{+237}:\\
\;\;\;\;x\_m \cdot \left(\frac{y}{z} - -1\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{x\_m \cdot y}{z}\\
\end{array}
\end{array}
if y < 5.5000000000000001e237Initial program 84.7%
associate-/l*96.8%
remove-double-neg96.8%
distribute-frac-neg296.8%
neg-sub096.8%
remove-double-neg96.8%
unsub-neg96.8%
div-sub96.8%
*-inverses96.8%
metadata-eval96.8%
associate--r-96.8%
neg-sub096.8%
distribute-frac-neg296.8%
remove-double-neg96.8%
sub-neg96.8%
Simplified96.8%
if 5.5000000000000001e237 < y Initial program 99.6%
associate-/l*56.4%
remove-double-neg56.4%
distribute-frac-neg256.4%
neg-sub056.4%
remove-double-neg56.4%
unsub-neg56.4%
div-sub56.4%
*-inverses56.4%
metadata-eval56.4%
associate--r-56.4%
neg-sub056.4%
distribute-frac-neg256.4%
remove-double-neg56.4%
sub-neg56.4%
Simplified56.4%
Taylor expanded in y around inf 93.6%
x\_m = (fabs.f64 x) x\_s = (copysign.f64 #s(literal 1 binary64) x) (FPCore (x_s x_m y z) :precision binary64 (* x_s x_m))
x\_m = fabs(x);
x\_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z) {
return x_s * x_m;
}
x\_m = abs(x)
x\_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y
real(8), intent (in) :: z
code = x_s * x_m
end function
x\_m = Math.abs(x);
x\_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z) {
return x_s * x_m;
}
x\_m = math.fabs(x) x\_s = math.copysign(1.0, x) def code(x_s, x_m, y, z): return x_s * x_m
x\_m = abs(x) x\_s = copysign(1.0, x) function code(x_s, x_m, y, z) return Float64(x_s * x_m) end
x\_m = abs(x); x\_s = sign(x) * abs(1.0); function tmp = code(x_s, x_m, y, z) tmp = x_s * x_m; end
x\_m = N[Abs[x], $MachinePrecision]
x\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_] := N[(x$95$s * x$95$m), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot x\_m
\end{array}
Initial program 85.5%
associate-/l*94.7%
remove-double-neg94.7%
distribute-frac-neg294.7%
neg-sub094.7%
remove-double-neg94.7%
unsub-neg94.7%
div-sub94.7%
*-inverses94.7%
metadata-eval94.7%
associate--r-94.7%
neg-sub094.7%
distribute-frac-neg294.7%
remove-double-neg94.7%
sub-neg94.7%
Simplified94.7%
Taylor expanded in y around 0 55.3%
(FPCore (x y z) :precision binary64 (/ x (/ z (+ y z))))
double code(double x, double y, double z) {
return x / (z / (y + z));
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = x / (z / (y + z))
end function
public static double code(double x, double y, double z) {
return x / (z / (y + z));
}
def code(x, y, z): return x / (z / (y + z))
function code(x, y, z) return Float64(x / Float64(z / Float64(y + z))) end
function tmp = code(x, y, z) tmp = x / (z / (y + z)); end
code[x_, y_, z_] := N[(x / N[(z / N[(y + z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{x}{\frac{z}{y + z}}
\end{array}
herbie shell --seed 2024108
(FPCore (x y z)
:name "Numeric.SpecFunctions:choose from math-functions-0.1.5.2"
:precision binary64
:alt
(/ x (/ z (+ y z)))
(/ (* x (+ y z)) z))