
(FPCore (x y z) :precision binary64 (/ (* x (- y z)) y))
double code(double x, double y, double z) {
return (x * (y - z)) / y;
}
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)) / y
end function
public static double code(double x, double y, double z) {
return (x * (y - z)) / y;
}
def code(x, y, z): return (x * (y - z)) / y
function code(x, y, z) return Float64(Float64(x * Float64(y - z)) / y) end
function tmp = code(x, y, z) tmp = (x * (y - z)) / y; end
code[x_, y_, z_] := N[(N[(x * N[(y - z), $MachinePrecision]), $MachinePrecision] / y), $MachinePrecision]
\begin{array}{l}
\\
\frac{x \cdot \left(y - z\right)}{y}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 8 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y z) :precision binary64 (/ (* x (- y z)) y))
double code(double x, double y, double z) {
return (x * (y - z)) / y;
}
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)) / y
end function
public static double code(double x, double y, double z) {
return (x * (y - z)) / y;
}
def code(x, y, z): return (x * (y - z)) / y
function code(x, y, z) return Float64(Float64(x * Float64(y - z)) / y) end
function tmp = code(x, y, z) tmp = (x * (y - z)) / y; end
code[x_, y_, z_] := N[(N[(x * N[(y - z), $MachinePrecision]), $MachinePrecision] / y), $MachinePrecision]
\begin{array}{l}
\\
\frac{x \cdot \left(y - z\right)}{y}
\end{array}
x_m = (fabs.f64 x)
x_s = (copysign.f64 1 x)
(FPCore (x_s x_m y z)
:precision binary64
(*
x_s
(if (<= (/ (* x_m (- y z)) y) -2e+58)
(/ (- y z) (/ y x_m))
(* x_m (- 1.0 (/ 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)) / y) <= -2e+58) {
tmp = (y - z) / (y / x_m);
} else {
tmp = x_m * (1.0 - (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)) / y) <= (-2d+58)) then
tmp = (y - z) / (y / x_m)
else
tmp = x_m * (1.0d0 - (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)) / y) <= -2e+58) {
tmp = (y - z) / (y / x_m);
} else {
tmp = x_m * (1.0 - (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)) / y) <= -2e+58: tmp = (y - z) / (y / x_m) else: tmp = x_m * (1.0 - (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)) / y) <= -2e+58) tmp = Float64(Float64(y - z) / Float64(y / x_m)); else tmp = Float64(x_m * Float64(1.0 - 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)) / y) <= -2e+58) tmp = (y - z) / (y / x_m); else tmp = x_m * (1.0 - (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] / y), $MachinePrecision], -2e+58], N[(N[(y - z), $MachinePrecision] / N[(y / x$95$m), $MachinePrecision]), $MachinePrecision], N[(x$95$m * N[(1.0 - 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)}{y} \leq -2 \cdot 10^{+58}:\\
\;\;\;\;\frac{y - z}{\frac{y}{x\_m}}\\
\mathbf{else}:\\
\;\;\;\;x\_m \cdot \left(1 - \frac{z}{y}\right)\\
\end{array}
\end{array}
if (/.f64 (*.f64 x (-.f64 y z)) y) < -1.99999999999999989e58Initial program 74.3%
associate-*l/95.9%
Simplified95.9%
*-commutative95.9%
clear-num95.7%
un-div-inv95.9%
Applied egg-rr95.9%
if -1.99999999999999989e58 < (/.f64 (*.f64 x (-.f64 y z)) y) Initial program 85.4%
*-commutative85.4%
associate-*l/94.6%
*-commutative94.6%
div-sub94.6%
*-inverses94.6%
Simplified94.6%
Final simplification95.1%
x_m = (fabs.f64 x)
x_s = (copysign.f64 1 x)
(FPCore (x_s x_m y z)
:precision binary64
(*
x_s
(if (<= (/ (* x_m (- y z)) y) -2e+58)
(* (- y z) (/ x_m y))
(* x_m (- 1.0 (/ 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)) / y) <= -2e+58) {
tmp = (y - z) * (x_m / y);
} else {
tmp = x_m * (1.0 - (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)) / y) <= (-2d+58)) then
tmp = (y - z) * (x_m / y)
else
tmp = x_m * (1.0d0 - (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)) / y) <= -2e+58) {
tmp = (y - z) * (x_m / y);
} else {
tmp = x_m * (1.0 - (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)) / y) <= -2e+58: tmp = (y - z) * (x_m / y) else: tmp = x_m * (1.0 - (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)) / y) <= -2e+58) tmp = Float64(Float64(y - z) * Float64(x_m / y)); else tmp = Float64(x_m * Float64(1.0 - 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)) / y) <= -2e+58) tmp = (y - z) * (x_m / y); else tmp = x_m * (1.0 - (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] / y), $MachinePrecision], -2e+58], N[(N[(y - z), $MachinePrecision] * N[(x$95$m / y), $MachinePrecision]), $MachinePrecision], N[(x$95$m * N[(1.0 - 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)}{y} \leq -2 \cdot 10^{+58}:\\
\;\;\;\;\left(y - z\right) \cdot \frac{x\_m}{y}\\
\mathbf{else}:\\
\;\;\;\;x\_m \cdot \left(1 - \frac{z}{y}\right)\\
\end{array}
\end{array}
if (/.f64 (*.f64 x (-.f64 y z)) y) < -1.99999999999999989e58Initial program 74.3%
associate-*l/95.9%
Simplified95.9%
if -1.99999999999999989e58 < (/.f64 (*.f64 x (-.f64 y z)) y) Initial program 85.4%
*-commutative85.4%
associate-*l/94.6%
*-commutative94.6%
div-sub94.6%
*-inverses94.6%
Simplified94.6%
Final simplification95.1%
x_m = (fabs.f64 x) x_s = (copysign.f64 1 x) (FPCore (x_s x_m y z) :precision binary64 (* x_s (if (<= y -1.65e-16) x_m (if (<= y 4.3e+103) (* x_m (- (/ z y))) 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 <= -1.65e-16) {
tmp = x_m;
} else if (y <= 4.3e+103) {
tmp = x_m * -(z / y);
} 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 <= (-1.65d-16)) then
tmp = x_m
else if (y <= 4.3d+103) then
tmp = x_m * -(z / y)
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 <= -1.65e-16) {
tmp = x_m;
} else if (y <= 4.3e+103) {
tmp = x_m * -(z / y);
} 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 <= -1.65e-16: tmp = x_m elif y <= 4.3e+103: tmp = x_m * -(z / y) 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 <= -1.65e-16) tmp = x_m; elseif (y <= 4.3e+103) tmp = Float64(x_m * Float64(-Float64(z / y))); 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 <= -1.65e-16) tmp = x_m; elseif (y <= 4.3e+103) tmp = x_m * -(z / y); 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[LessEqual[y, -1.65e-16], x$95$m, If[LessEqual[y, 4.3e+103], N[(x$95$m * (-N[(z / y), $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 -1.65 \cdot 10^{-16}:\\
\;\;\;\;x\_m\\
\mathbf{elif}\;y \leq 4.3 \cdot 10^{+103}:\\
\;\;\;\;x\_m \cdot \left(-\frac{z}{y}\right)\\
\mathbf{else}:\\
\;\;\;\;x\_m\\
\end{array}
\end{array}
if y < -1.64999999999999994e-16 or 4.29999999999999969e103 < y Initial program 67.1%
*-commutative67.1%
associate-*l/99.9%
*-commutative99.9%
div-sub99.9%
*-inverses99.9%
Simplified99.9%
Taylor expanded in z around 0 78.8%
if -1.64999999999999994e-16 < y < 4.29999999999999969e103Initial program 93.2%
*-commutative93.2%
associate-*l/89.6%
*-commutative89.6%
div-sub89.7%
*-inverses89.7%
Simplified89.7%
sub-neg89.7%
distribute-rgt-in89.6%
*-un-lft-identity89.6%
distribute-neg-frac89.6%
Applied egg-rr89.6%
*-un-lft-identity89.6%
*-inverses89.6%
associate-/r/79.0%
distribute-frac-neg79.0%
distribute-lft-neg-out79.0%
associate-/r/89.0%
sub-neg89.0%
div-sub94.2%
associate-/r/89.6%
*-commutative89.6%
div-sub89.7%
*-inverses89.7%
add-sqr-sqrt41.9%
sqrt-unprod49.0%
sqr-neg49.0%
sqrt-unprod11.0%
add-sqr-sqrt21.8%
distribute-rgt-out--21.8%
*-un-lft-identity21.8%
associate-*l/21.9%
Applied egg-rr95.1%
Taylor expanded in z around inf 73.4%
associate-*r/73.4%
mul-1-neg73.4%
distribute-rgt-neg-out73.4%
associate-*r/67.8%
Simplified67.8%
Final simplification72.8%
x_m = (fabs.f64 x) x_s = (copysign.f64 1 x) (FPCore (x_s x_m y z) :precision binary64 (* x_s (if (<= y -1.65e-16) x_m (if (<= y 4e+103) (* z (/ (- x_m) y)) 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 <= -1.65e-16) {
tmp = x_m;
} else if (y <= 4e+103) {
tmp = z * (-x_m / y);
} 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 <= (-1.65d-16)) then
tmp = x_m
else if (y <= 4d+103) then
tmp = z * (-x_m / y)
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 <= -1.65e-16) {
tmp = x_m;
} else if (y <= 4e+103) {
tmp = z * (-x_m / y);
} 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 <= -1.65e-16: tmp = x_m elif y <= 4e+103: tmp = z * (-x_m / y) 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 <= -1.65e-16) tmp = x_m; elseif (y <= 4e+103) tmp = Float64(z * Float64(Float64(-x_m) / y)); 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 <= -1.65e-16) tmp = x_m; elseif (y <= 4e+103) tmp = z * (-x_m / y); 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[LessEqual[y, -1.65e-16], x$95$m, If[LessEqual[y, 4e+103], N[(z * N[((-x$95$m) / y), $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 -1.65 \cdot 10^{-16}:\\
\;\;\;\;x\_m\\
\mathbf{elif}\;y \leq 4 \cdot 10^{+103}:\\
\;\;\;\;z \cdot \frac{-x\_m}{y}\\
\mathbf{else}:\\
\;\;\;\;x\_m\\
\end{array}
\end{array}
if y < -1.64999999999999994e-16 or 4e103 < y Initial program 67.1%
*-commutative67.1%
associate-*l/99.9%
*-commutative99.9%
div-sub99.9%
*-inverses99.9%
Simplified99.9%
Taylor expanded in z around 0 78.8%
if -1.64999999999999994e-16 < y < 4e103Initial program 93.2%
*-commutative93.2%
associate-*l/89.6%
*-commutative89.6%
div-sub89.7%
*-inverses89.7%
Simplified89.7%
Taylor expanded in z around inf 73.4%
mul-1-neg73.4%
associate-*l/76.6%
distribute-rgt-neg-out76.6%
*-commutative76.6%
Simplified76.6%
Final simplification77.6%
x_m = (fabs.f64 x) x_s = (copysign.f64 1 x) (FPCore (x_s x_m y z) :precision binary64 (* x_s (if (<= y -1.6e-16) x_m (if (<= y 5.5e+103) (/ z (/ (- y) x_m)) 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 <= -1.6e-16) {
tmp = x_m;
} else if (y <= 5.5e+103) {
tmp = z / (-y / x_m);
} 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 <= (-1.6d-16)) then
tmp = x_m
else if (y <= 5.5d+103) then
tmp = z / (-y / x_m)
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 <= -1.6e-16) {
tmp = x_m;
} else if (y <= 5.5e+103) {
tmp = z / (-y / x_m);
} 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 <= -1.6e-16: tmp = x_m elif y <= 5.5e+103: tmp = z / (-y / x_m) 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 <= -1.6e-16) tmp = x_m; elseif (y <= 5.5e+103) tmp = Float64(z / Float64(Float64(-y) / x_m)); 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 <= -1.6e-16) tmp = x_m; elseif (y <= 5.5e+103) tmp = z / (-y / x_m); 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[LessEqual[y, -1.6e-16], x$95$m, If[LessEqual[y, 5.5e+103], N[(z / N[((-y) / x$95$m), $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 -1.6 \cdot 10^{-16}:\\
\;\;\;\;x\_m\\
\mathbf{elif}\;y \leq 5.5 \cdot 10^{+103}:\\
\;\;\;\;\frac{z}{\frac{-y}{x\_m}}\\
\mathbf{else}:\\
\;\;\;\;x\_m\\
\end{array}
\end{array}
if y < -1.60000000000000011e-16 or 5.50000000000000001e103 < y Initial program 67.1%
*-commutative67.1%
associate-*l/99.9%
*-commutative99.9%
div-sub99.9%
*-inverses99.9%
Simplified99.9%
Taylor expanded in z around 0 78.8%
if -1.60000000000000011e-16 < y < 5.50000000000000001e103Initial program 93.2%
*-commutative93.2%
associate-*l/89.6%
*-commutative89.6%
div-sub89.7%
*-inverses89.7%
Simplified89.7%
sub-neg89.7%
distribute-rgt-in89.6%
*-un-lft-identity89.6%
distribute-neg-frac89.6%
Applied egg-rr89.6%
*-un-lft-identity89.6%
*-inverses89.6%
associate-/r/79.0%
distribute-frac-neg79.0%
distribute-lft-neg-out79.0%
associate-/r/89.0%
sub-neg89.0%
div-sub94.2%
associate-/r/89.6%
*-commutative89.6%
div-sub89.7%
*-inverses89.7%
add-sqr-sqrt41.9%
sqrt-unprod49.0%
sqr-neg49.0%
sqrt-unprod11.0%
add-sqr-sqrt21.8%
distribute-rgt-out--21.8%
*-un-lft-identity21.8%
associate-*l/21.9%
Applied egg-rr95.1%
Taylor expanded in z around inf 73.4%
associate-*r/73.4%
mul-1-neg73.4%
distribute-rgt-neg-out73.4%
associate-*r/67.8%
Simplified67.8%
*-commutative67.8%
associate-*l/73.4%
associate-/l*76.6%
add-sqr-sqrt40.6%
sqrt-unprod35.1%
sqr-neg35.1%
sqrt-unprod0.8%
add-sqr-sqrt1.5%
frac-2neg1.5%
add-sqr-sqrt0.7%
sqrt-unprod28.7%
sqr-neg28.7%
sqrt-unprod35.9%
add-sqr-sqrt76.6%
distribute-neg-frac76.6%
Applied egg-rr76.6%
Final simplification77.6%
x_m = (fabs.f64 x) x_s = (copysign.f64 1 x) (FPCore (x_s x_m y z) :precision binary64 (* x_s (if (<= x_m 5.5e+156) x_m (* y (/ x_m 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 <= 5.5e+156) {
tmp = x_m;
} else {
tmp = y * (x_m / 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 <= 5.5d+156) then
tmp = x_m
else
tmp = y * (x_m / 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 <= 5.5e+156) {
tmp = x_m;
} else {
tmp = y * (x_m / 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 <= 5.5e+156: tmp = x_m else: tmp = y * (x_m / 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 (x_m <= 5.5e+156) tmp = x_m; else tmp = Float64(y * Float64(x_m / 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 <= 5.5e+156) tmp = x_m; else tmp = y * (x_m / 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[x$95$m, 5.5e+156], x$95$m, N[(y * N[(x$95$m / y), $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}\;x\_m \leq 5.5 \cdot 10^{+156}:\\
\;\;\;\;x\_m\\
\mathbf{else}:\\
\;\;\;\;y \cdot \frac{x\_m}{y}\\
\end{array}
\end{array}
if x < 5.5000000000000003e156Initial program 84.3%
*-commutative84.3%
associate-*l/93.5%
*-commutative93.5%
div-sub93.5%
*-inverses93.5%
Simplified93.5%
Taylor expanded in z around 0 48.1%
if 5.5000000000000003e156 < x Initial program 61.1%
Taylor expanded in y around inf 20.4%
associate-/l*55.9%
associate-/r/64.1%
Applied egg-rr64.1%
Final simplification50.1%
x_m = (fabs.f64 x) x_s = (copysign.f64 1 x) (FPCore (x_s x_m y z) :precision binary64 (* x_s (* x_m (- 1.0 (/ z y)))))
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 * (1.0 - (z / y)));
}
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 * (1.0d0 - (z / y)))
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 * (1.0 - (z / y)));
}
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 * (1.0 - (z / y)))
x_m = abs(x) x_s = copysign(1.0, x) function code(x_s, x_m, y, z) return Float64(x_s * Float64(x_m * Float64(1.0 - Float64(z / y)))) 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 * (1.0 - (z / y))); 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 * N[(x$95$m * N[(1.0 - 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 \left(x\_m \cdot \left(1 - \frac{z}{y}\right)\right)
\end{array}
Initial program 81.3%
*-commutative81.3%
associate-*l/94.4%
*-commutative94.4%
div-sub94.4%
*-inverses94.4%
Simplified94.4%
Final simplification94.4%
x_m = (fabs.f64 x) x_s = (copysign.f64 1 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 81.3%
*-commutative81.3%
associate-*l/94.4%
*-commutative94.4%
div-sub94.4%
*-inverses94.4%
Simplified94.4%
Taylor expanded in z around 0 49.1%
Final simplification49.1%
(FPCore (x y z) :precision binary64 (if (< z -2.060202331921739e+104) (- x (/ (* z x) y)) (if (< z 1.6939766013828526e+213) (/ x (/ y (- y z))) (* (- y z) (/ x y)))))
double code(double x, double y, double z) {
double tmp;
if (z < -2.060202331921739e+104) {
tmp = x - ((z * x) / y);
} else if (z < 1.6939766013828526e+213) {
tmp = x / (y / (y - z));
} else {
tmp = (y - z) * (x / y);
}
return tmp;
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8) :: tmp
if (z < (-2.060202331921739d+104)) then
tmp = x - ((z * x) / y)
else if (z < 1.6939766013828526d+213) then
tmp = x / (y / (y - z))
else
tmp = (y - z) * (x / y)
end if
code = tmp
end function
public static double code(double x, double y, double z) {
double tmp;
if (z < -2.060202331921739e+104) {
tmp = x - ((z * x) / y);
} else if (z < 1.6939766013828526e+213) {
tmp = x / (y / (y - z));
} else {
tmp = (y - z) * (x / y);
}
return tmp;
}
def code(x, y, z): tmp = 0 if z < -2.060202331921739e+104: tmp = x - ((z * x) / y) elif z < 1.6939766013828526e+213: tmp = x / (y / (y - z)) else: tmp = (y - z) * (x / y) return tmp
function code(x, y, z) tmp = 0.0 if (z < -2.060202331921739e+104) tmp = Float64(x - Float64(Float64(z * x) / y)); elseif (z < 1.6939766013828526e+213) tmp = Float64(x / Float64(y / Float64(y - z))); else tmp = Float64(Float64(y - z) * Float64(x / y)); end return tmp end
function tmp_2 = code(x, y, z) tmp = 0.0; if (z < -2.060202331921739e+104) tmp = x - ((z * x) / y); elseif (z < 1.6939766013828526e+213) tmp = x / (y / (y - z)); else tmp = (y - z) * (x / y); end tmp_2 = tmp; end
code[x_, y_, z_] := If[Less[z, -2.060202331921739e+104], N[(x - N[(N[(z * x), $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision], If[Less[z, 1.6939766013828526e+213], N[(x / N[(y / N[(y - z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(y - z), $MachinePrecision] * N[(x / y), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z < -2.060202331921739 \cdot 10^{+104}:\\
\;\;\;\;x - \frac{z \cdot x}{y}\\
\mathbf{elif}\;z < 1.6939766013828526 \cdot 10^{+213}:\\
\;\;\;\;\frac{x}{\frac{y}{y - z}}\\
\mathbf{else}:\\
\;\;\;\;\left(y - z\right) \cdot \frac{x}{y}\\
\end{array}
\end{array}
herbie shell --seed 2024040
(FPCore (x y z)
:name "Diagrams.Backend.Cairo.Internal:setTexture from diagrams-cairo-1.3.0.3"
:precision binary64
:herbie-target
(if (< z -2.060202331921739e+104) (- x (/ (* z x) y)) (if (< z 1.6939766013828526e+213) (/ x (/ y (- y z))) (* (- y z) (/ x y))))
(/ (* x (- y z)) y))