
(FPCore (x y z) :precision binary64 (/ (* (cosh x) (/ y x)) z))
double code(double x, double y, double z) {
return (cosh(x) * (y / x)) / z;
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = (cosh(x) * (y / x)) / z
end function
public static double code(double x, double y, double z) {
return (Math.cosh(x) * (y / x)) / z;
}
def code(x, y, z): return (math.cosh(x) * (y / x)) / z
function code(x, y, z) return Float64(Float64(cosh(x) * Float64(y / x)) / z) end
function tmp = code(x, y, z) tmp = (cosh(x) * (y / x)) / z; end
code[x_, y_, z_] := N[(N[(N[Cosh[x], $MachinePrecision] * N[(y / x), $MachinePrecision]), $MachinePrecision] / z), $MachinePrecision]
\begin{array}{l}
\\
\frac{\cosh x \cdot \frac{y}{x}}{z}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 20 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y z) :precision binary64 (/ (* (cosh x) (/ y x)) z))
double code(double x, double y, double z) {
return (cosh(x) * (y / x)) / z;
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = (cosh(x) * (y / x)) / z
end function
public static double code(double x, double y, double z) {
return (Math.cosh(x) * (y / x)) / z;
}
def code(x, y, z): return (math.cosh(x) * (y / x)) / z
function code(x, y, z) return Float64(Float64(cosh(x) * Float64(y / x)) / z) end
function tmp = code(x, y, z) tmp = (cosh(x) * (y / x)) / z; end
code[x_, y_, z_] := N[(N[(N[Cosh[x], $MachinePrecision] * N[(y / x), $MachinePrecision]), $MachinePrecision] / z), $MachinePrecision]
\begin{array}{l}
\\
\frac{\cosh x \cdot \frac{y}{x}}{z}
\end{array}
x\_m = (fabs.f64 x)
x\_s = (copysign.f64 #s(literal 1 binary64) x)
y\_m = (fabs.f64 y)
y\_s = (copysign.f64 #s(literal 1 binary64) y)
z\_m = (fabs.f64 z)
z\_s = (copysign.f64 #s(literal 1 binary64) z)
(FPCore (z_s y_s x_s x_m y_m z_m)
:precision binary64
(let* ((t_0 (/ (cosh x_m) z_m)))
(*
z_s
(*
y_s
(*
x_s
(if (<= (/ (* (cosh x_m) (/ y_m x_m)) z_m) 4e+189)
(* (/ y_m x_m) t_0)
(/ (* y_m t_0) x_m)))))))x\_m = fabs(x);
x\_s = copysign(1.0, x);
y\_m = fabs(y);
y\_s = copysign(1.0, y);
z\_m = fabs(z);
z\_s = copysign(1.0, z);
double code(double z_s, double y_s, double x_s, double x_m, double y_m, double z_m) {
double t_0 = cosh(x_m) / z_m;
double tmp;
if (((cosh(x_m) * (y_m / x_m)) / z_m) <= 4e+189) {
tmp = (y_m / x_m) * t_0;
} else {
tmp = (y_m * t_0) / x_m;
}
return z_s * (y_s * (x_s * tmp));
}
x\_m = abs(x)
x\_s = copysign(1.0d0, x)
y\_m = abs(y)
y\_s = copysign(1.0d0, y)
z\_m = abs(z)
z\_s = copysign(1.0d0, z)
real(8) function code(z_s, y_s, x_s, x_m, y_m, z_m)
real(8), intent (in) :: z_s
real(8), intent (in) :: y_s
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y_m
real(8), intent (in) :: z_m
real(8) :: t_0
real(8) :: tmp
t_0 = cosh(x_m) / z_m
if (((cosh(x_m) * (y_m / x_m)) / z_m) <= 4d+189) then
tmp = (y_m / x_m) * t_0
else
tmp = (y_m * t_0) / x_m
end if
code = z_s * (y_s * (x_s * tmp))
end function
x\_m = Math.abs(x);
x\_s = Math.copySign(1.0, x);
y\_m = Math.abs(y);
y\_s = Math.copySign(1.0, y);
z\_m = Math.abs(z);
z\_s = Math.copySign(1.0, z);
public static double code(double z_s, double y_s, double x_s, double x_m, double y_m, double z_m) {
double t_0 = Math.cosh(x_m) / z_m;
double tmp;
if (((Math.cosh(x_m) * (y_m / x_m)) / z_m) <= 4e+189) {
tmp = (y_m / x_m) * t_0;
} else {
tmp = (y_m * t_0) / x_m;
}
return z_s * (y_s * (x_s * tmp));
}
x\_m = math.fabs(x) x\_s = math.copysign(1.0, x) y\_m = math.fabs(y) y\_s = math.copysign(1.0, y) z\_m = math.fabs(z) z\_s = math.copysign(1.0, z) def code(z_s, y_s, x_s, x_m, y_m, z_m): t_0 = math.cosh(x_m) / z_m tmp = 0 if ((math.cosh(x_m) * (y_m / x_m)) / z_m) <= 4e+189: tmp = (y_m / x_m) * t_0 else: tmp = (y_m * t_0) / x_m return z_s * (y_s * (x_s * tmp))
x\_m = abs(x) x\_s = copysign(1.0, x) y\_m = abs(y) y\_s = copysign(1.0, y) z\_m = abs(z) z\_s = copysign(1.0, z) function code(z_s, y_s, x_s, x_m, y_m, z_m) t_0 = Float64(cosh(x_m) / z_m) tmp = 0.0 if (Float64(Float64(cosh(x_m) * Float64(y_m / x_m)) / z_m) <= 4e+189) tmp = Float64(Float64(y_m / x_m) * t_0); else tmp = Float64(Float64(y_m * t_0) / x_m); end return Float64(z_s * Float64(y_s * Float64(x_s * tmp))) end
x\_m = abs(x); x\_s = sign(x) * abs(1.0); y\_m = abs(y); y\_s = sign(y) * abs(1.0); z\_m = abs(z); z\_s = sign(z) * abs(1.0); function tmp_2 = code(z_s, y_s, x_s, x_m, y_m, z_m) t_0 = cosh(x_m) / z_m; tmp = 0.0; if (((cosh(x_m) * (y_m / x_m)) / z_m) <= 4e+189) tmp = (y_m / x_m) * t_0; else tmp = (y_m * t_0) / x_m; end tmp_2 = z_s * (y_s * (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]
y\_m = N[Abs[y], $MachinePrecision]
y\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[y]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
z\_m = N[Abs[z], $MachinePrecision]
z\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[z]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[z$95$s_, y$95$s_, x$95$s_, x$95$m_, y$95$m_, z$95$m_] := Block[{t$95$0 = N[(N[Cosh[x$95$m], $MachinePrecision] / z$95$m), $MachinePrecision]}, N[(z$95$s * N[(y$95$s * N[(x$95$s * If[LessEqual[N[(N[(N[Cosh[x$95$m], $MachinePrecision] * N[(y$95$m / x$95$m), $MachinePrecision]), $MachinePrecision] / z$95$m), $MachinePrecision], 4e+189], N[(N[(y$95$m / x$95$m), $MachinePrecision] * t$95$0), $MachinePrecision], N[(N[(y$95$m * t$95$0), $MachinePrecision] / x$95$m), $MachinePrecision]]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
y\_m = \left|y\right|
\\
y\_s = \mathsf{copysign}\left(1, y\right)
\\
z\_m = \left|z\right|
\\
z\_s = \mathsf{copysign}\left(1, z\right)
\\
\begin{array}{l}
t_0 := \frac{\cosh x\_m}{z\_m}\\
z\_s \cdot \left(y\_s \cdot \left(x\_s \cdot \begin{array}{l}
\mathbf{if}\;\frac{\cosh x\_m \cdot \frac{y\_m}{x\_m}}{z\_m} \leq 4 \cdot 10^{+189}:\\
\;\;\;\;\frac{y\_m}{x\_m} \cdot t\_0\\
\mathbf{else}:\\
\;\;\;\;\frac{y\_m \cdot t\_0}{x\_m}\\
\end{array}\right)\right)
\end{array}
\end{array}
if (/.f64 (*.f64 (cosh.f64 x) (/.f64 y x)) z) < 4.0000000000000001e189Initial program 97.8%
lift-cosh.f64N/A
lift-/.f64N/A
*-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f6497.8
Applied egg-rr97.8%
if 4.0000000000000001e189 < (/.f64 (*.f64 (cosh.f64 x) (/.f64 y x)) z) Initial program 61.7%
lift-cosh.f64N/A
clear-numN/A
un-div-invN/A
un-div-invN/A
clear-numN/A
associate-*r/N/A
associate-/l/N/A
associate-/r*N/A
un-div-invN/A
lower-/.f64N/A
*-commutativeN/A
associate-*l*N/A
div-invN/A
lower-*.f64N/A
lower-/.f6499.9
Applied egg-rr99.9%
Final simplification98.7%
x\_m = (fabs.f64 x)
x\_s = (copysign.f64 #s(literal 1 binary64) x)
y\_m = (fabs.f64 y)
y\_s = (copysign.f64 #s(literal 1 binary64) y)
z\_m = (fabs.f64 z)
z\_s = (copysign.f64 #s(literal 1 binary64) z)
(FPCore (z_s y_s x_s x_m y_m z_m)
:precision binary64
(*
z_s
(*
y_s
(*
x_s
(if (<= (/ (* (cosh x_m) (/ y_m x_m)) z_m) INFINITY)
(* (/ y_m x_m) (/ (cosh x_m) z_m))
(/
(* y_m (/ (* x_m (* x_m (* (* x_m x_m) 0.041666666666666664))) z_m))
x_m))))))x\_m = fabs(x);
x\_s = copysign(1.0, x);
y\_m = fabs(y);
y\_s = copysign(1.0, y);
z\_m = fabs(z);
z\_s = copysign(1.0, z);
double code(double z_s, double y_s, double x_s, double x_m, double y_m, double z_m) {
double tmp;
if (((cosh(x_m) * (y_m / x_m)) / z_m) <= ((double) INFINITY)) {
tmp = (y_m / x_m) * (cosh(x_m) / z_m);
} else {
tmp = (y_m * ((x_m * (x_m * ((x_m * x_m) * 0.041666666666666664))) / z_m)) / x_m;
}
return z_s * (y_s * (x_s * tmp));
}
x\_m = Math.abs(x);
x\_s = Math.copySign(1.0, x);
y\_m = Math.abs(y);
y\_s = Math.copySign(1.0, y);
z\_m = Math.abs(z);
z\_s = Math.copySign(1.0, z);
public static double code(double z_s, double y_s, double x_s, double x_m, double y_m, double z_m) {
double tmp;
if (((Math.cosh(x_m) * (y_m / x_m)) / z_m) <= Double.POSITIVE_INFINITY) {
tmp = (y_m / x_m) * (Math.cosh(x_m) / z_m);
} else {
tmp = (y_m * ((x_m * (x_m * ((x_m * x_m) * 0.041666666666666664))) / z_m)) / x_m;
}
return z_s * (y_s * (x_s * tmp));
}
x\_m = math.fabs(x) x\_s = math.copysign(1.0, x) y\_m = math.fabs(y) y\_s = math.copysign(1.0, y) z\_m = math.fabs(z) z\_s = math.copysign(1.0, z) def code(z_s, y_s, x_s, x_m, y_m, z_m): tmp = 0 if ((math.cosh(x_m) * (y_m / x_m)) / z_m) <= math.inf: tmp = (y_m / x_m) * (math.cosh(x_m) / z_m) else: tmp = (y_m * ((x_m * (x_m * ((x_m * x_m) * 0.041666666666666664))) / z_m)) / x_m return z_s * (y_s * (x_s * tmp))
x\_m = abs(x) x\_s = copysign(1.0, x) y\_m = abs(y) y\_s = copysign(1.0, y) z\_m = abs(z) z\_s = copysign(1.0, z) function code(z_s, y_s, x_s, x_m, y_m, z_m) tmp = 0.0 if (Float64(Float64(cosh(x_m) * Float64(y_m / x_m)) / z_m) <= Inf) tmp = Float64(Float64(y_m / x_m) * Float64(cosh(x_m) / z_m)); else tmp = Float64(Float64(y_m * Float64(Float64(x_m * Float64(x_m * Float64(Float64(x_m * x_m) * 0.041666666666666664))) / z_m)) / x_m); end return Float64(z_s * Float64(y_s * Float64(x_s * tmp))) end
x\_m = abs(x); x\_s = sign(x) * abs(1.0); y\_m = abs(y); y\_s = sign(y) * abs(1.0); z\_m = abs(z); z\_s = sign(z) * abs(1.0); function tmp_2 = code(z_s, y_s, x_s, x_m, y_m, z_m) tmp = 0.0; if (((cosh(x_m) * (y_m / x_m)) / z_m) <= Inf) tmp = (y_m / x_m) * (cosh(x_m) / z_m); else tmp = (y_m * ((x_m * (x_m * ((x_m * x_m) * 0.041666666666666664))) / z_m)) / x_m; end tmp_2 = z_s * (y_s * (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]
y\_m = N[Abs[y], $MachinePrecision]
y\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[y]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
z\_m = N[Abs[z], $MachinePrecision]
z\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[z]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[z$95$s_, y$95$s_, x$95$s_, x$95$m_, y$95$m_, z$95$m_] := N[(z$95$s * N[(y$95$s * N[(x$95$s * If[LessEqual[N[(N[(N[Cosh[x$95$m], $MachinePrecision] * N[(y$95$m / x$95$m), $MachinePrecision]), $MachinePrecision] / z$95$m), $MachinePrecision], Infinity], N[(N[(y$95$m / x$95$m), $MachinePrecision] * N[(N[Cosh[x$95$m], $MachinePrecision] / z$95$m), $MachinePrecision]), $MachinePrecision], N[(N[(y$95$m * N[(N[(x$95$m * N[(x$95$m * N[(N[(x$95$m * x$95$m), $MachinePrecision] * 0.041666666666666664), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / z$95$m), $MachinePrecision]), $MachinePrecision] / x$95$m), $MachinePrecision]]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
y\_m = \left|y\right|
\\
y\_s = \mathsf{copysign}\left(1, y\right)
\\
z\_m = \left|z\right|
\\
z\_s = \mathsf{copysign}\left(1, z\right)
\\
z\_s \cdot \left(y\_s \cdot \left(x\_s \cdot \begin{array}{l}
\mathbf{if}\;\frac{\cosh x\_m \cdot \frac{y\_m}{x\_m}}{z\_m} \leq \infty:\\
\;\;\;\;\frac{y\_m}{x\_m} \cdot \frac{\cosh x\_m}{z\_m}\\
\mathbf{else}:\\
\;\;\;\;\frac{y\_m \cdot \frac{x\_m \cdot \left(x\_m \cdot \left(\left(x\_m \cdot x\_m\right) \cdot 0.041666666666666664\right)\right)}{z\_m}}{x\_m}\\
\end{array}\right)\right)
\end{array}
if (/.f64 (*.f64 (cosh.f64 x) (/.f64 y x)) z) < +inf.0Initial program 95.1%
lift-cosh.f64N/A
lift-/.f64N/A
*-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f6495.1
Applied egg-rr95.1%
if +inf.0 < (/.f64 (*.f64 (cosh.f64 x) (/.f64 y x)) z) Initial program 0.0%
lift-cosh.f64N/A
clear-numN/A
un-div-invN/A
un-div-invN/A
clear-numN/A
associate-*r/N/A
associate-/l/N/A
associate-/r*N/A
un-div-invN/A
lower-/.f64N/A
*-commutativeN/A
associate-*l*N/A
div-invN/A
lower-*.f64N/A
lower-/.f64100.0
Applied egg-rr100.0%
Taylor expanded in x around 0
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64100.0
Simplified100.0%
Taylor expanded in x around inf
metadata-evalN/A
pow-sqrN/A
associate-*l*N/A
*-commutativeN/A
unpow2N/A
associate-*l*N/A
lower-*.f64N/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f64N/A
unpow2N/A
lower-*.f64100.0
Simplified100.0%
Final simplification95.8%
x\_m = (fabs.f64 x)
x\_s = (copysign.f64 #s(literal 1 binary64) x)
y\_m = (fabs.f64 y)
y\_s = (copysign.f64 #s(literal 1 binary64) y)
z\_m = (fabs.f64 z)
z\_s = (copysign.f64 #s(literal 1 binary64) z)
(FPCore (z_s y_s x_s x_m y_m z_m)
:precision binary64
(let* ((t_0
(fma
(* x_m x_m)
(fma
(* x_m x_m)
(fma (* x_m x_m) 0.001388888888888889 0.041666666666666664)
0.5)
1.0)))
(*
z_s
(*
y_s
(*
x_s
(if (<= (/ (* (cosh x_m) (/ y_m x_m)) z_m) 5e-69)
(* (/ y_m x_m) (/ t_0 z_m))
(/ (/ (* y_m t_0) z_m) x_m)))))))x\_m = fabs(x);
x\_s = copysign(1.0, x);
y\_m = fabs(y);
y\_s = copysign(1.0, y);
z\_m = fabs(z);
z\_s = copysign(1.0, z);
double code(double z_s, double y_s, double x_s, double x_m, double y_m, double z_m) {
double t_0 = fma((x_m * x_m), fma((x_m * x_m), fma((x_m * x_m), 0.001388888888888889, 0.041666666666666664), 0.5), 1.0);
double tmp;
if (((cosh(x_m) * (y_m / x_m)) / z_m) <= 5e-69) {
tmp = (y_m / x_m) * (t_0 / z_m);
} else {
tmp = ((y_m * t_0) / z_m) / x_m;
}
return z_s * (y_s * (x_s * tmp));
}
x\_m = abs(x) x\_s = copysign(1.0, x) y\_m = abs(y) y\_s = copysign(1.0, y) z\_m = abs(z) z\_s = copysign(1.0, z) function code(z_s, y_s, x_s, x_m, y_m, z_m) t_0 = fma(Float64(x_m * x_m), fma(Float64(x_m * x_m), fma(Float64(x_m * x_m), 0.001388888888888889, 0.041666666666666664), 0.5), 1.0) tmp = 0.0 if (Float64(Float64(cosh(x_m) * Float64(y_m / x_m)) / z_m) <= 5e-69) tmp = Float64(Float64(y_m / x_m) * Float64(t_0 / z_m)); else tmp = Float64(Float64(Float64(y_m * t_0) / z_m) / x_m); end return Float64(z_s * Float64(y_s * Float64(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]
y\_m = N[Abs[y], $MachinePrecision]
y\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[y]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
z\_m = N[Abs[z], $MachinePrecision]
z\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[z]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[z$95$s_, y$95$s_, x$95$s_, x$95$m_, y$95$m_, z$95$m_] := Block[{t$95$0 = N[(N[(x$95$m * x$95$m), $MachinePrecision] * N[(N[(x$95$m * x$95$m), $MachinePrecision] * N[(N[(x$95$m * x$95$m), $MachinePrecision] * 0.001388888888888889 + 0.041666666666666664), $MachinePrecision] + 0.5), $MachinePrecision] + 1.0), $MachinePrecision]}, N[(z$95$s * N[(y$95$s * N[(x$95$s * If[LessEqual[N[(N[(N[Cosh[x$95$m], $MachinePrecision] * N[(y$95$m / x$95$m), $MachinePrecision]), $MachinePrecision] / z$95$m), $MachinePrecision], 5e-69], N[(N[(y$95$m / x$95$m), $MachinePrecision] * N[(t$95$0 / z$95$m), $MachinePrecision]), $MachinePrecision], N[(N[(N[(y$95$m * t$95$0), $MachinePrecision] / z$95$m), $MachinePrecision] / x$95$m), $MachinePrecision]]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
y\_m = \left|y\right|
\\
y\_s = \mathsf{copysign}\left(1, y\right)
\\
z\_m = \left|z\right|
\\
z\_s = \mathsf{copysign}\left(1, z\right)
\\
\begin{array}{l}
t_0 := \mathsf{fma}\left(x\_m \cdot x\_m, \mathsf{fma}\left(x\_m \cdot x\_m, \mathsf{fma}\left(x\_m \cdot x\_m, 0.001388888888888889, 0.041666666666666664\right), 0.5\right), 1\right)\\
z\_s \cdot \left(y\_s \cdot \left(x\_s \cdot \begin{array}{l}
\mathbf{if}\;\frac{\cosh x\_m \cdot \frac{y\_m}{x\_m}}{z\_m} \leq 5 \cdot 10^{-69}:\\
\;\;\;\;\frac{y\_m}{x\_m} \cdot \frac{t\_0}{z\_m}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{y\_m \cdot t\_0}{z\_m}}{x\_m}\\
\end{array}\right)\right)
\end{array}
\end{array}
if (/.f64 (*.f64 (cosh.f64 x) (/.f64 y x)) z) < 5.00000000000000033e-69Initial program 97.4%
Taylor expanded in x around 0
+-commutativeN/A
unpow2N/A
associate-*l*N/A
*-commutativeN/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6489.0
Simplified89.0%
lift-*.f64N/A
lift-*.f64N/A
lift-fma.f64N/A
lift-fma.f64N/A
lift-*.f64N/A
lift-fma.f64N/A
lift-/.f64N/A
lift-/.f64N/A
associate-*r/N/A
Applied egg-rr89.1%
if 5.00000000000000033e-69 < (/.f64 (*.f64 (cosh.f64 x) (/.f64 y x)) z) Initial program 67.3%
Taylor expanded in x around 0
+-commutativeN/A
unpow2N/A
associate-*l*N/A
*-commutativeN/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6462.2
Simplified62.2%
lift-*.f64N/A
lift-*.f64N/A
lift-fma.f64N/A
lift-fma.f64N/A
lift-*.f64N/A
lift-fma.f64N/A
lift-/.f64N/A
lift-*.f64N/A
div-invN/A
Applied egg-rr95.6%
Final simplification92.4%
x\_m = (fabs.f64 x)
x\_s = (copysign.f64 #s(literal 1 binary64) x)
y\_m = (fabs.f64 y)
y\_s = (copysign.f64 #s(literal 1 binary64) y)
z\_m = (fabs.f64 z)
z\_s = (copysign.f64 #s(literal 1 binary64) z)
(FPCore (z_s y_s x_s x_m y_m z_m)
:precision binary64
(*
z_s
(*
y_s
(*
x_s
(if (<= (/ (* (cosh x_m) (/ y_m x_m)) z_m) 1e+197)
(*
(/ y_m x_m)
(/
(fma
(* x_m x_m)
(fma
(* x_m x_m)
(fma (* x_m x_m) 0.001388888888888889 0.041666666666666664)
0.5)
1.0)
z_m))
(/
(/
(fma
(* y_m (* x_m x_m))
(fma x_m (* 0.001388888888888889 (* x_m (* x_m x_m))) 0.5)
y_m)
z_m)
x_m))))))x\_m = fabs(x);
x\_s = copysign(1.0, x);
y\_m = fabs(y);
y\_s = copysign(1.0, y);
z\_m = fabs(z);
z\_s = copysign(1.0, z);
double code(double z_s, double y_s, double x_s, double x_m, double y_m, double z_m) {
double tmp;
if (((cosh(x_m) * (y_m / x_m)) / z_m) <= 1e+197) {
tmp = (y_m / x_m) * (fma((x_m * x_m), fma((x_m * x_m), fma((x_m * x_m), 0.001388888888888889, 0.041666666666666664), 0.5), 1.0) / z_m);
} else {
tmp = (fma((y_m * (x_m * x_m)), fma(x_m, (0.001388888888888889 * (x_m * (x_m * x_m))), 0.5), y_m) / z_m) / x_m;
}
return z_s * (y_s * (x_s * tmp));
}
x\_m = abs(x) x\_s = copysign(1.0, x) y\_m = abs(y) y\_s = copysign(1.0, y) z\_m = abs(z) z\_s = copysign(1.0, z) function code(z_s, y_s, x_s, x_m, y_m, z_m) tmp = 0.0 if (Float64(Float64(cosh(x_m) * Float64(y_m / x_m)) / z_m) <= 1e+197) tmp = Float64(Float64(y_m / x_m) * Float64(fma(Float64(x_m * x_m), fma(Float64(x_m * x_m), fma(Float64(x_m * x_m), 0.001388888888888889, 0.041666666666666664), 0.5), 1.0) / z_m)); else tmp = Float64(Float64(fma(Float64(y_m * Float64(x_m * x_m)), fma(x_m, Float64(0.001388888888888889 * Float64(x_m * Float64(x_m * x_m))), 0.5), y_m) / z_m) / x_m); end return Float64(z_s * Float64(y_s * Float64(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]
y\_m = N[Abs[y], $MachinePrecision]
y\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[y]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
z\_m = N[Abs[z], $MachinePrecision]
z\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[z]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[z$95$s_, y$95$s_, x$95$s_, x$95$m_, y$95$m_, z$95$m_] := N[(z$95$s * N[(y$95$s * N[(x$95$s * If[LessEqual[N[(N[(N[Cosh[x$95$m], $MachinePrecision] * N[(y$95$m / x$95$m), $MachinePrecision]), $MachinePrecision] / z$95$m), $MachinePrecision], 1e+197], N[(N[(y$95$m / x$95$m), $MachinePrecision] * N[(N[(N[(x$95$m * x$95$m), $MachinePrecision] * N[(N[(x$95$m * x$95$m), $MachinePrecision] * N[(N[(x$95$m * x$95$m), $MachinePrecision] * 0.001388888888888889 + 0.041666666666666664), $MachinePrecision] + 0.5), $MachinePrecision] + 1.0), $MachinePrecision] / z$95$m), $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(y$95$m * N[(x$95$m * x$95$m), $MachinePrecision]), $MachinePrecision] * N[(x$95$m * N[(0.001388888888888889 * N[(x$95$m * N[(x$95$m * x$95$m), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + 0.5), $MachinePrecision] + y$95$m), $MachinePrecision] / z$95$m), $MachinePrecision] / x$95$m), $MachinePrecision]]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
y\_m = \left|y\right|
\\
y\_s = \mathsf{copysign}\left(1, y\right)
\\
z\_m = \left|z\right|
\\
z\_s = \mathsf{copysign}\left(1, z\right)
\\
z\_s \cdot \left(y\_s \cdot \left(x\_s \cdot \begin{array}{l}
\mathbf{if}\;\frac{\cosh x\_m \cdot \frac{y\_m}{x\_m}}{z\_m} \leq 10^{+197}:\\
\;\;\;\;\frac{y\_m}{x\_m} \cdot \frac{\mathsf{fma}\left(x\_m \cdot x\_m, \mathsf{fma}\left(x\_m \cdot x\_m, \mathsf{fma}\left(x\_m \cdot x\_m, 0.001388888888888889, 0.041666666666666664\right), 0.5\right), 1\right)}{z\_m}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{\mathsf{fma}\left(y\_m \cdot \left(x\_m \cdot x\_m\right), \mathsf{fma}\left(x\_m, 0.001388888888888889 \cdot \left(x\_m \cdot \left(x\_m \cdot x\_m\right)\right), 0.5\right), y\_m\right)}{z\_m}}{x\_m}\\
\end{array}\right)\right)
\end{array}
if (/.f64 (*.f64 (cosh.f64 x) (/.f64 y x)) z) < 9.9999999999999995e196Initial program 97.8%
Taylor expanded in x around 0
+-commutativeN/A
unpow2N/A
associate-*l*N/A
*-commutativeN/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6490.0
Simplified90.0%
lift-*.f64N/A
lift-*.f64N/A
lift-fma.f64N/A
lift-fma.f64N/A
lift-*.f64N/A
lift-fma.f64N/A
lift-/.f64N/A
lift-/.f64N/A
associate-*r/N/A
Applied egg-rr90.0%
if 9.9999999999999995e196 < (/.f64 (*.f64 (cosh.f64 x) (/.f64 y x)) z) Initial program 61.3%
Taylor expanded in x around 0
+-commutativeN/A
unpow2N/A
associate-*l*N/A
*-commutativeN/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6456.0
Simplified56.0%
lift-*.f64N/A
lift-*.f64N/A
lift-fma.f64N/A
lift-fma.f64N/A
lift-*.f64N/A
lift-fma.f64N/A
lift-/.f64N/A
lift-*.f64N/A
clear-numN/A
lower-/.f64N/A
Applied egg-rr88.7%
Applied egg-rr93.8%
Taylor expanded in x around inf
lower-*.f64N/A
cube-multN/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f6493.8
Simplified93.8%
Final simplification91.6%
x\_m = (fabs.f64 x)
x\_s = (copysign.f64 #s(literal 1 binary64) x)
y\_m = (fabs.f64 y)
y\_s = (copysign.f64 #s(literal 1 binary64) y)
z\_m = (fabs.f64 z)
z\_s = (copysign.f64 #s(literal 1 binary64) z)
(FPCore (z_s y_s x_s x_m y_m z_m)
:precision binary64
(*
z_s
(*
y_s
(*
x_s
(if (<= (/ (* (cosh x_m) (/ y_m x_m)) z_m) 4e+52)
(/
(* y_m (fma x_m (* x_m (fma x_m (* x_m 0.041666666666666664) 0.5)) 1.0))
(* x_m z_m))
(/
(*
y_m
(/
(fma (* x_m x_m) (fma (* x_m x_m) 0.041666666666666664 0.5) 1.0)
z_m))
x_m))))))x\_m = fabs(x);
x\_s = copysign(1.0, x);
y\_m = fabs(y);
y\_s = copysign(1.0, y);
z\_m = fabs(z);
z\_s = copysign(1.0, z);
double code(double z_s, double y_s, double x_s, double x_m, double y_m, double z_m) {
double tmp;
if (((cosh(x_m) * (y_m / x_m)) / z_m) <= 4e+52) {
tmp = (y_m * fma(x_m, (x_m * fma(x_m, (x_m * 0.041666666666666664), 0.5)), 1.0)) / (x_m * z_m);
} else {
tmp = (y_m * (fma((x_m * x_m), fma((x_m * x_m), 0.041666666666666664, 0.5), 1.0) / z_m)) / x_m;
}
return z_s * (y_s * (x_s * tmp));
}
x\_m = abs(x) x\_s = copysign(1.0, x) y\_m = abs(y) y\_s = copysign(1.0, y) z\_m = abs(z) z\_s = copysign(1.0, z) function code(z_s, y_s, x_s, x_m, y_m, z_m) tmp = 0.0 if (Float64(Float64(cosh(x_m) * Float64(y_m / x_m)) / z_m) <= 4e+52) tmp = Float64(Float64(y_m * fma(x_m, Float64(x_m * fma(x_m, Float64(x_m * 0.041666666666666664), 0.5)), 1.0)) / Float64(x_m * z_m)); else tmp = Float64(Float64(y_m * Float64(fma(Float64(x_m * x_m), fma(Float64(x_m * x_m), 0.041666666666666664, 0.5), 1.0) / z_m)) / x_m); end return Float64(z_s * Float64(y_s * Float64(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]
y\_m = N[Abs[y], $MachinePrecision]
y\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[y]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
z\_m = N[Abs[z], $MachinePrecision]
z\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[z]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[z$95$s_, y$95$s_, x$95$s_, x$95$m_, y$95$m_, z$95$m_] := N[(z$95$s * N[(y$95$s * N[(x$95$s * If[LessEqual[N[(N[(N[Cosh[x$95$m], $MachinePrecision] * N[(y$95$m / x$95$m), $MachinePrecision]), $MachinePrecision] / z$95$m), $MachinePrecision], 4e+52], N[(N[(y$95$m * N[(x$95$m * N[(x$95$m * N[(x$95$m * N[(x$95$m * 0.041666666666666664), $MachinePrecision] + 0.5), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision] / N[(x$95$m * z$95$m), $MachinePrecision]), $MachinePrecision], N[(N[(y$95$m * N[(N[(N[(x$95$m * x$95$m), $MachinePrecision] * N[(N[(x$95$m * x$95$m), $MachinePrecision] * 0.041666666666666664 + 0.5), $MachinePrecision] + 1.0), $MachinePrecision] / z$95$m), $MachinePrecision]), $MachinePrecision] / x$95$m), $MachinePrecision]]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
y\_m = \left|y\right|
\\
y\_s = \mathsf{copysign}\left(1, y\right)
\\
z\_m = \left|z\right|
\\
z\_s = \mathsf{copysign}\left(1, z\right)
\\
z\_s \cdot \left(y\_s \cdot \left(x\_s \cdot \begin{array}{l}
\mathbf{if}\;\frac{\cosh x\_m \cdot \frac{y\_m}{x\_m}}{z\_m} \leq 4 \cdot 10^{+52}:\\
\;\;\;\;\frac{y\_m \cdot \mathsf{fma}\left(x\_m, x\_m \cdot \mathsf{fma}\left(x\_m, x\_m \cdot 0.041666666666666664, 0.5\right), 1\right)}{x\_m \cdot z\_m}\\
\mathbf{else}:\\
\;\;\;\;\frac{y\_m \cdot \frac{\mathsf{fma}\left(x\_m \cdot x\_m, \mathsf{fma}\left(x\_m \cdot x\_m, 0.041666666666666664, 0.5\right), 1\right)}{z\_m}}{x\_m}\\
\end{array}\right)\right)
\end{array}
if (/.f64 (*.f64 (cosh.f64 x) (/.f64 y x)) z) < 4e52Initial program 97.6%
Taylor expanded in x around 0
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
unpow2N/A
associate-*l*N/A
lower-fma.f64N/A
lower-*.f6487.4
Simplified87.4%
lift-*.f64N/A
lift-*.f64N/A
lift-fma.f64N/A
lift-fma.f64N/A
lift-/.f64N/A
associate-/l*N/A
lift-/.f64N/A
associate-/r*N/A
lift-*.f64N/A
associate-*r/N/A
lower-/.f64N/A
Applied egg-rr77.7%
if 4e52 < (/.f64 (*.f64 (cosh.f64 x) (/.f64 y x)) z) Initial program 65.4%
lift-cosh.f64N/A
clear-numN/A
un-div-invN/A
un-div-invN/A
clear-numN/A
associate-*r/N/A
associate-/l/N/A
associate-/r*N/A
un-div-invN/A
lower-/.f64N/A
*-commutativeN/A
associate-*l*N/A
div-invN/A
lower-*.f64N/A
lower-/.f6499.9
Applied egg-rr99.9%
Taylor expanded in x around 0
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6489.9
Simplified89.9%
x\_m = (fabs.f64 x)
x\_s = (copysign.f64 #s(literal 1 binary64) x)
y\_m = (fabs.f64 y)
y\_s = (copysign.f64 #s(literal 1 binary64) y)
z\_m = (fabs.f64 z)
z\_s = (copysign.f64 #s(literal 1 binary64) z)
(FPCore (z_s y_s x_s x_m y_m z_m)
:precision binary64
(*
z_s
(*
y_s
(*
x_s
(if (<= (* (cosh x_m) (/ y_m x_m)) 1e+207)
(/
(/
(*
y_m
(fma x_m (* x_m (fma x_m (* x_m 0.041666666666666664) 0.5)) 1.0))
x_m)
z_m)
(/
(/
(fma
(* y_m (* x_m x_m))
(fma x_m (* 0.001388888888888889 (* x_m (* x_m x_m))) 0.5)
y_m)
z_m)
x_m))))))x\_m = fabs(x);
x\_s = copysign(1.0, x);
y\_m = fabs(y);
y\_s = copysign(1.0, y);
z\_m = fabs(z);
z\_s = copysign(1.0, z);
double code(double z_s, double y_s, double x_s, double x_m, double y_m, double z_m) {
double tmp;
if ((cosh(x_m) * (y_m / x_m)) <= 1e+207) {
tmp = ((y_m * fma(x_m, (x_m * fma(x_m, (x_m * 0.041666666666666664), 0.5)), 1.0)) / x_m) / z_m;
} else {
tmp = (fma((y_m * (x_m * x_m)), fma(x_m, (0.001388888888888889 * (x_m * (x_m * x_m))), 0.5), y_m) / z_m) / x_m;
}
return z_s * (y_s * (x_s * tmp));
}
x\_m = abs(x) x\_s = copysign(1.0, x) y\_m = abs(y) y\_s = copysign(1.0, y) z\_m = abs(z) z\_s = copysign(1.0, z) function code(z_s, y_s, x_s, x_m, y_m, z_m) tmp = 0.0 if (Float64(cosh(x_m) * Float64(y_m / x_m)) <= 1e+207) tmp = Float64(Float64(Float64(y_m * fma(x_m, Float64(x_m * fma(x_m, Float64(x_m * 0.041666666666666664), 0.5)), 1.0)) / x_m) / z_m); else tmp = Float64(Float64(fma(Float64(y_m * Float64(x_m * x_m)), fma(x_m, Float64(0.001388888888888889 * Float64(x_m * Float64(x_m * x_m))), 0.5), y_m) / z_m) / x_m); end return Float64(z_s * Float64(y_s * Float64(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]
y\_m = N[Abs[y], $MachinePrecision]
y\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[y]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
z\_m = N[Abs[z], $MachinePrecision]
z\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[z]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[z$95$s_, y$95$s_, x$95$s_, x$95$m_, y$95$m_, z$95$m_] := N[(z$95$s * N[(y$95$s * N[(x$95$s * If[LessEqual[N[(N[Cosh[x$95$m], $MachinePrecision] * N[(y$95$m / x$95$m), $MachinePrecision]), $MachinePrecision], 1e+207], N[(N[(N[(y$95$m * N[(x$95$m * N[(x$95$m * N[(x$95$m * N[(x$95$m * 0.041666666666666664), $MachinePrecision] + 0.5), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision] / x$95$m), $MachinePrecision] / z$95$m), $MachinePrecision], N[(N[(N[(N[(y$95$m * N[(x$95$m * x$95$m), $MachinePrecision]), $MachinePrecision] * N[(x$95$m * N[(0.001388888888888889 * N[(x$95$m * N[(x$95$m * x$95$m), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + 0.5), $MachinePrecision] + y$95$m), $MachinePrecision] / z$95$m), $MachinePrecision] / x$95$m), $MachinePrecision]]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
y\_m = \left|y\right|
\\
y\_s = \mathsf{copysign}\left(1, y\right)
\\
z\_m = \left|z\right|
\\
z\_s = \mathsf{copysign}\left(1, z\right)
\\
z\_s \cdot \left(y\_s \cdot \left(x\_s \cdot \begin{array}{l}
\mathbf{if}\;\cosh x\_m \cdot \frac{y\_m}{x\_m} \leq 10^{+207}:\\
\;\;\;\;\frac{\frac{y\_m \cdot \mathsf{fma}\left(x\_m, x\_m \cdot \mathsf{fma}\left(x\_m, x\_m \cdot 0.041666666666666664, 0.5\right), 1\right)}{x\_m}}{z\_m}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{\mathsf{fma}\left(y\_m \cdot \left(x\_m \cdot x\_m\right), \mathsf{fma}\left(x\_m, 0.001388888888888889 \cdot \left(x\_m \cdot \left(x\_m \cdot x\_m\right)\right), 0.5\right), y\_m\right)}{z\_m}}{x\_m}\\
\end{array}\right)\right)
\end{array}
if (*.f64 (cosh.f64 x) (/.f64 y x)) < 1e207Initial program 96.0%
Taylor expanded in x around 0
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
unpow2N/A
associate-*l*N/A
lower-fma.f64N/A
lower-*.f6487.8
Simplified87.8%
lift-*.f64N/A
lift-*.f64N/A
lift-fma.f64N/A
lift-fma.f64N/A
associate-*r/N/A
lower-/.f64N/A
*-commutativeN/A
lower-*.f6488.5
lift-fma.f64N/A
lift-*.f64N/A
associate-*l*N/A
lower-fma.f64N/A
lower-*.f6488.5
Applied egg-rr88.5%
if 1e207 < (*.f64 (cosh.f64 x) (/.f64 y x)) Initial program 62.2%
Taylor expanded in x around 0
+-commutativeN/A
unpow2N/A
associate-*l*N/A
*-commutativeN/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6453.0
Simplified53.0%
lift-*.f64N/A
lift-*.f64N/A
lift-fma.f64N/A
lift-fma.f64N/A
lift-*.f64N/A
lift-fma.f64N/A
lift-/.f64N/A
lift-*.f64N/A
clear-numN/A
lower-/.f64N/A
Applied egg-rr86.3%
Applied egg-rr88.0%
Taylor expanded in x around inf
lower-*.f64N/A
cube-multN/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f6488.0
Simplified88.0%
x\_m = (fabs.f64 x)
x\_s = (copysign.f64 #s(literal 1 binary64) x)
y\_m = (fabs.f64 y)
y\_s = (copysign.f64 #s(literal 1 binary64) y)
z\_m = (fabs.f64 z)
z\_s = (copysign.f64 #s(literal 1 binary64) z)
(FPCore (z_s y_s x_s x_m y_m z_m)
:precision binary64
(*
z_s
(*
y_s
(*
x_s
(if (<= (* (cosh x_m) (/ y_m x_m)) 5e+283)
(/
(/
(*
y_m
(fma x_m (* x_m (fma x_m (* x_m 0.041666666666666664) 0.5)) 1.0))
x_m)
z_m)
(/
(*
y_m
(/
(fma (* x_m x_m) (fma (* x_m x_m) 0.041666666666666664 0.5) 1.0)
z_m))
x_m))))))x\_m = fabs(x);
x\_s = copysign(1.0, x);
y\_m = fabs(y);
y\_s = copysign(1.0, y);
z\_m = fabs(z);
z\_s = copysign(1.0, z);
double code(double z_s, double y_s, double x_s, double x_m, double y_m, double z_m) {
double tmp;
if ((cosh(x_m) * (y_m / x_m)) <= 5e+283) {
tmp = ((y_m * fma(x_m, (x_m * fma(x_m, (x_m * 0.041666666666666664), 0.5)), 1.0)) / x_m) / z_m;
} else {
tmp = (y_m * (fma((x_m * x_m), fma((x_m * x_m), 0.041666666666666664, 0.5), 1.0) / z_m)) / x_m;
}
return z_s * (y_s * (x_s * tmp));
}
x\_m = abs(x) x\_s = copysign(1.0, x) y\_m = abs(y) y\_s = copysign(1.0, y) z\_m = abs(z) z\_s = copysign(1.0, z) function code(z_s, y_s, x_s, x_m, y_m, z_m) tmp = 0.0 if (Float64(cosh(x_m) * Float64(y_m / x_m)) <= 5e+283) tmp = Float64(Float64(Float64(y_m * fma(x_m, Float64(x_m * fma(x_m, Float64(x_m * 0.041666666666666664), 0.5)), 1.0)) / x_m) / z_m); else tmp = Float64(Float64(y_m * Float64(fma(Float64(x_m * x_m), fma(Float64(x_m * x_m), 0.041666666666666664, 0.5), 1.0) / z_m)) / x_m); end return Float64(z_s * Float64(y_s * Float64(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]
y\_m = N[Abs[y], $MachinePrecision]
y\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[y]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
z\_m = N[Abs[z], $MachinePrecision]
z\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[z]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[z$95$s_, y$95$s_, x$95$s_, x$95$m_, y$95$m_, z$95$m_] := N[(z$95$s * N[(y$95$s * N[(x$95$s * If[LessEqual[N[(N[Cosh[x$95$m], $MachinePrecision] * N[(y$95$m / x$95$m), $MachinePrecision]), $MachinePrecision], 5e+283], N[(N[(N[(y$95$m * N[(x$95$m * N[(x$95$m * N[(x$95$m * N[(x$95$m * 0.041666666666666664), $MachinePrecision] + 0.5), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision] / x$95$m), $MachinePrecision] / z$95$m), $MachinePrecision], N[(N[(y$95$m * N[(N[(N[(x$95$m * x$95$m), $MachinePrecision] * N[(N[(x$95$m * x$95$m), $MachinePrecision] * 0.041666666666666664 + 0.5), $MachinePrecision] + 1.0), $MachinePrecision] / z$95$m), $MachinePrecision]), $MachinePrecision] / x$95$m), $MachinePrecision]]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
y\_m = \left|y\right|
\\
y\_s = \mathsf{copysign}\left(1, y\right)
\\
z\_m = \left|z\right|
\\
z\_s = \mathsf{copysign}\left(1, z\right)
\\
z\_s \cdot \left(y\_s \cdot \left(x\_s \cdot \begin{array}{l}
\mathbf{if}\;\cosh x\_m \cdot \frac{y\_m}{x\_m} \leq 5 \cdot 10^{+283}:\\
\;\;\;\;\frac{\frac{y\_m \cdot \mathsf{fma}\left(x\_m, x\_m \cdot \mathsf{fma}\left(x\_m, x\_m \cdot 0.041666666666666664, 0.5\right), 1\right)}{x\_m}}{z\_m}\\
\mathbf{else}:\\
\;\;\;\;\frac{y\_m \cdot \frac{\mathsf{fma}\left(x\_m \cdot x\_m, \mathsf{fma}\left(x\_m \cdot x\_m, 0.041666666666666664, 0.5\right), 1\right)}{z\_m}}{x\_m}\\
\end{array}\right)\right)
\end{array}
if (*.f64 (cosh.f64 x) (/.f64 y x)) < 5.0000000000000004e283Initial program 96.1%
Taylor expanded in x around 0
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
unpow2N/A
associate-*l*N/A
lower-fma.f64N/A
lower-*.f6488.4
Simplified88.4%
lift-*.f64N/A
lift-*.f64N/A
lift-fma.f64N/A
lift-fma.f64N/A
associate-*r/N/A
lower-/.f64N/A
*-commutativeN/A
lower-*.f6489.0
lift-fma.f64N/A
lift-*.f64N/A
associate-*l*N/A
lower-fma.f64N/A
lower-*.f6489.0
Applied egg-rr89.0%
if 5.0000000000000004e283 < (*.f64 (cosh.f64 x) (/.f64 y x)) Initial program 59.5%
lift-cosh.f64N/A
clear-numN/A
un-div-invN/A
un-div-invN/A
clear-numN/A
associate-*r/N/A
associate-/l/N/A
associate-/r*N/A
un-div-invN/A
lower-/.f64N/A
*-commutativeN/A
associate-*l*N/A
div-invN/A
lower-*.f64N/A
lower-/.f64100.0
Applied egg-rr100.0%
Taylor expanded in x around 0
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6488.1
Simplified88.1%
x\_m = (fabs.f64 x)
x\_s = (copysign.f64 #s(literal 1 binary64) x)
y\_m = (fabs.f64 y)
y\_s = (copysign.f64 #s(literal 1 binary64) y)
z\_m = (fabs.f64 z)
z\_s = (copysign.f64 #s(literal 1 binary64) z)
(FPCore (z_s y_s x_s x_m y_m z_m)
:precision binary64
(*
z_s
(*
y_s
(*
x_s
(if (<= (* (cosh x_m) (/ y_m x_m)) 5e+283)
(/
(*
(/ y_m x_m)
(fma (* x_m x_m) (fma x_m (* x_m 0.041666666666666664) 0.5) 1.0))
z_m)
(/
(*
y_m
(/
(fma (* x_m x_m) (fma (* x_m x_m) 0.041666666666666664 0.5) 1.0)
z_m))
x_m))))))x\_m = fabs(x);
x\_s = copysign(1.0, x);
y\_m = fabs(y);
y\_s = copysign(1.0, y);
z\_m = fabs(z);
z\_s = copysign(1.0, z);
double code(double z_s, double y_s, double x_s, double x_m, double y_m, double z_m) {
double tmp;
if ((cosh(x_m) * (y_m / x_m)) <= 5e+283) {
tmp = ((y_m / x_m) * fma((x_m * x_m), fma(x_m, (x_m * 0.041666666666666664), 0.5), 1.0)) / z_m;
} else {
tmp = (y_m * (fma((x_m * x_m), fma((x_m * x_m), 0.041666666666666664, 0.5), 1.0) / z_m)) / x_m;
}
return z_s * (y_s * (x_s * tmp));
}
x\_m = abs(x) x\_s = copysign(1.0, x) y\_m = abs(y) y\_s = copysign(1.0, y) z\_m = abs(z) z\_s = copysign(1.0, z) function code(z_s, y_s, x_s, x_m, y_m, z_m) tmp = 0.0 if (Float64(cosh(x_m) * Float64(y_m / x_m)) <= 5e+283) tmp = Float64(Float64(Float64(y_m / x_m) * fma(Float64(x_m * x_m), fma(x_m, Float64(x_m * 0.041666666666666664), 0.5), 1.0)) / z_m); else tmp = Float64(Float64(y_m * Float64(fma(Float64(x_m * x_m), fma(Float64(x_m * x_m), 0.041666666666666664, 0.5), 1.0) / z_m)) / x_m); end return Float64(z_s * Float64(y_s * Float64(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]
y\_m = N[Abs[y], $MachinePrecision]
y\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[y]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
z\_m = N[Abs[z], $MachinePrecision]
z\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[z]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[z$95$s_, y$95$s_, x$95$s_, x$95$m_, y$95$m_, z$95$m_] := N[(z$95$s * N[(y$95$s * N[(x$95$s * If[LessEqual[N[(N[Cosh[x$95$m], $MachinePrecision] * N[(y$95$m / x$95$m), $MachinePrecision]), $MachinePrecision], 5e+283], N[(N[(N[(y$95$m / x$95$m), $MachinePrecision] * N[(N[(x$95$m * x$95$m), $MachinePrecision] * N[(x$95$m * N[(x$95$m * 0.041666666666666664), $MachinePrecision] + 0.5), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision] / z$95$m), $MachinePrecision], N[(N[(y$95$m * N[(N[(N[(x$95$m * x$95$m), $MachinePrecision] * N[(N[(x$95$m * x$95$m), $MachinePrecision] * 0.041666666666666664 + 0.5), $MachinePrecision] + 1.0), $MachinePrecision] / z$95$m), $MachinePrecision]), $MachinePrecision] / x$95$m), $MachinePrecision]]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
y\_m = \left|y\right|
\\
y\_s = \mathsf{copysign}\left(1, y\right)
\\
z\_m = \left|z\right|
\\
z\_s = \mathsf{copysign}\left(1, z\right)
\\
z\_s \cdot \left(y\_s \cdot \left(x\_s \cdot \begin{array}{l}
\mathbf{if}\;\cosh x\_m \cdot \frac{y\_m}{x\_m} \leq 5 \cdot 10^{+283}:\\
\;\;\;\;\frac{\frac{y\_m}{x\_m} \cdot \mathsf{fma}\left(x\_m \cdot x\_m, \mathsf{fma}\left(x\_m, x\_m \cdot 0.041666666666666664, 0.5\right), 1\right)}{z\_m}\\
\mathbf{else}:\\
\;\;\;\;\frac{y\_m \cdot \frac{\mathsf{fma}\left(x\_m \cdot x\_m, \mathsf{fma}\left(x\_m \cdot x\_m, 0.041666666666666664, 0.5\right), 1\right)}{z\_m}}{x\_m}\\
\end{array}\right)\right)
\end{array}
if (*.f64 (cosh.f64 x) (/.f64 y x)) < 5.0000000000000004e283Initial program 96.1%
Taylor expanded in x around 0
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
unpow2N/A
associate-*l*N/A
lower-fma.f64N/A
lower-*.f6488.4
Simplified88.4%
if 5.0000000000000004e283 < (*.f64 (cosh.f64 x) (/.f64 y x)) Initial program 59.5%
lift-cosh.f64N/A
clear-numN/A
un-div-invN/A
un-div-invN/A
clear-numN/A
associate-*r/N/A
associate-/l/N/A
associate-/r*N/A
un-div-invN/A
lower-/.f64N/A
*-commutativeN/A
associate-*l*N/A
div-invN/A
lower-*.f64N/A
lower-/.f64100.0
Applied egg-rr100.0%
Taylor expanded in x around 0
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6488.1
Simplified88.1%
Final simplification88.3%
x\_m = (fabs.f64 x)
x\_s = (copysign.f64 #s(literal 1 binary64) x)
y\_m = (fabs.f64 y)
y\_s = (copysign.f64 #s(literal 1 binary64) y)
z\_m = (fabs.f64 z)
z\_s = (copysign.f64 #s(literal 1 binary64) z)
(FPCore (z_s y_s x_s x_m y_m z_m)
:precision binary64
(*
z_s
(*
y_s
(*
x_s
(if (<= x_m 1.95e-78)
(/ (/ y_m x_m) z_m)
(if (<= x_m 2.25e+48)
(/ (* (cosh x_m) y_m) (* x_m z_m))
(/
(/
(*
y_m
(fma
(* x_m x_m)
(fma
(* x_m x_m)
(fma (* x_m x_m) 0.001388888888888889 0.041666666666666664)
0.5)
1.0))
z_m)
x_m)))))))x\_m = fabs(x);
x\_s = copysign(1.0, x);
y\_m = fabs(y);
y\_s = copysign(1.0, y);
z\_m = fabs(z);
z\_s = copysign(1.0, z);
double code(double z_s, double y_s, double x_s, double x_m, double y_m, double z_m) {
double tmp;
if (x_m <= 1.95e-78) {
tmp = (y_m / x_m) / z_m;
} else if (x_m <= 2.25e+48) {
tmp = (cosh(x_m) * y_m) / (x_m * z_m);
} else {
tmp = ((y_m * fma((x_m * x_m), fma((x_m * x_m), fma((x_m * x_m), 0.001388888888888889, 0.041666666666666664), 0.5), 1.0)) / z_m) / x_m;
}
return z_s * (y_s * (x_s * tmp));
}
x\_m = abs(x) x\_s = copysign(1.0, x) y\_m = abs(y) y\_s = copysign(1.0, y) z\_m = abs(z) z\_s = copysign(1.0, z) function code(z_s, y_s, x_s, x_m, y_m, z_m) tmp = 0.0 if (x_m <= 1.95e-78) tmp = Float64(Float64(y_m / x_m) / z_m); elseif (x_m <= 2.25e+48) tmp = Float64(Float64(cosh(x_m) * y_m) / Float64(x_m * z_m)); else tmp = Float64(Float64(Float64(y_m * fma(Float64(x_m * x_m), fma(Float64(x_m * x_m), fma(Float64(x_m * x_m), 0.001388888888888889, 0.041666666666666664), 0.5), 1.0)) / z_m) / x_m); end return Float64(z_s * Float64(y_s * Float64(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]
y\_m = N[Abs[y], $MachinePrecision]
y\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[y]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
z\_m = N[Abs[z], $MachinePrecision]
z\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[z]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[z$95$s_, y$95$s_, x$95$s_, x$95$m_, y$95$m_, z$95$m_] := N[(z$95$s * N[(y$95$s * N[(x$95$s * If[LessEqual[x$95$m, 1.95e-78], N[(N[(y$95$m / x$95$m), $MachinePrecision] / z$95$m), $MachinePrecision], If[LessEqual[x$95$m, 2.25e+48], N[(N[(N[Cosh[x$95$m], $MachinePrecision] * y$95$m), $MachinePrecision] / N[(x$95$m * z$95$m), $MachinePrecision]), $MachinePrecision], N[(N[(N[(y$95$m * N[(N[(x$95$m * x$95$m), $MachinePrecision] * N[(N[(x$95$m * x$95$m), $MachinePrecision] * N[(N[(x$95$m * x$95$m), $MachinePrecision] * 0.001388888888888889 + 0.041666666666666664), $MachinePrecision] + 0.5), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision] / z$95$m), $MachinePrecision] / x$95$m), $MachinePrecision]]]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
y\_m = \left|y\right|
\\
y\_s = \mathsf{copysign}\left(1, y\right)
\\
z\_m = \left|z\right|
\\
z\_s = \mathsf{copysign}\left(1, z\right)
\\
z\_s \cdot \left(y\_s \cdot \left(x\_s \cdot \begin{array}{l}
\mathbf{if}\;x\_m \leq 1.95 \cdot 10^{-78}:\\
\;\;\;\;\frac{\frac{y\_m}{x\_m}}{z\_m}\\
\mathbf{elif}\;x\_m \leq 2.25 \cdot 10^{+48}:\\
\;\;\;\;\frac{\cosh x\_m \cdot y\_m}{x\_m \cdot z\_m}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{y\_m \cdot \mathsf{fma}\left(x\_m \cdot x\_m, \mathsf{fma}\left(x\_m \cdot x\_m, \mathsf{fma}\left(x\_m \cdot x\_m, 0.001388888888888889, 0.041666666666666664\right), 0.5\right), 1\right)}{z\_m}}{x\_m}\\
\end{array}\right)\right)
\end{array}
if x < 1.9500000000000001e-78Initial program 84.1%
Taylor expanded in x around 0
lower-/.f6459.3
Simplified59.3%
if 1.9500000000000001e-78 < x < 2.24999999999999998e48Initial program 96.2%
lift-cosh.f64N/A
clear-numN/A
un-div-invN/A
un-div-invN/A
clear-numN/A
associate-*r/N/A
associate-/l/N/A
associate-/r*N/A
un-div-invN/A
lower-/.f64N/A
*-commutativeN/A
associate-*l*N/A
div-invN/A
lower-*.f64N/A
lower-/.f6496.5
Applied egg-rr96.5%
lift-cosh.f64N/A
lift-/.f64N/A
lift-/.f64N/A
associate-*r/N/A
associate-/l/N/A
lift-*.f64N/A
lower-/.f64N/A
lower-*.f6496.3
Applied egg-rr96.3%
if 2.24999999999999998e48 < x Initial program 71.2%
Taylor expanded in x around 0
+-commutativeN/A
unpow2N/A
associate-*l*N/A
*-commutativeN/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6469.7
Simplified69.7%
lift-*.f64N/A
lift-*.f64N/A
lift-fma.f64N/A
lift-fma.f64N/A
lift-*.f64N/A
lift-fma.f64N/A
lift-/.f64N/A
lift-*.f64N/A
div-invN/A
Applied egg-rr100.0%
Final simplification73.8%
x\_m = (fabs.f64 x)
x\_s = (copysign.f64 #s(literal 1 binary64) x)
y\_m = (fabs.f64 y)
y\_s = (copysign.f64 #s(literal 1 binary64) y)
z\_m = (fabs.f64 z)
z\_s = (copysign.f64 #s(literal 1 binary64) z)
(FPCore (z_s y_s x_s x_m y_m z_m)
:precision binary64
(*
z_s
(*
y_s
(*
x_s
(if (<= x_m 4.2e-94)
(/ (/ y_m x_m) z_m)
(if (<= x_m 2.25e+48)
(* y_m (/ (cosh x_m) (* x_m z_m)))
(/
(/
(*
y_m
(fma
(* x_m x_m)
(fma
(* x_m x_m)
(fma (* x_m x_m) 0.001388888888888889 0.041666666666666664)
0.5)
1.0))
z_m)
x_m)))))))x\_m = fabs(x);
x\_s = copysign(1.0, x);
y\_m = fabs(y);
y\_s = copysign(1.0, y);
z\_m = fabs(z);
z\_s = copysign(1.0, z);
double code(double z_s, double y_s, double x_s, double x_m, double y_m, double z_m) {
double tmp;
if (x_m <= 4.2e-94) {
tmp = (y_m / x_m) / z_m;
} else if (x_m <= 2.25e+48) {
tmp = y_m * (cosh(x_m) / (x_m * z_m));
} else {
tmp = ((y_m * fma((x_m * x_m), fma((x_m * x_m), fma((x_m * x_m), 0.001388888888888889, 0.041666666666666664), 0.5), 1.0)) / z_m) / x_m;
}
return z_s * (y_s * (x_s * tmp));
}
x\_m = abs(x) x\_s = copysign(1.0, x) y\_m = abs(y) y\_s = copysign(1.0, y) z\_m = abs(z) z\_s = copysign(1.0, z) function code(z_s, y_s, x_s, x_m, y_m, z_m) tmp = 0.0 if (x_m <= 4.2e-94) tmp = Float64(Float64(y_m / x_m) / z_m); elseif (x_m <= 2.25e+48) tmp = Float64(y_m * Float64(cosh(x_m) / Float64(x_m * z_m))); else tmp = Float64(Float64(Float64(y_m * fma(Float64(x_m * x_m), fma(Float64(x_m * x_m), fma(Float64(x_m * x_m), 0.001388888888888889, 0.041666666666666664), 0.5), 1.0)) / z_m) / x_m); end return Float64(z_s * Float64(y_s * Float64(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]
y\_m = N[Abs[y], $MachinePrecision]
y\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[y]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
z\_m = N[Abs[z], $MachinePrecision]
z\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[z]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[z$95$s_, y$95$s_, x$95$s_, x$95$m_, y$95$m_, z$95$m_] := N[(z$95$s * N[(y$95$s * N[(x$95$s * If[LessEqual[x$95$m, 4.2e-94], N[(N[(y$95$m / x$95$m), $MachinePrecision] / z$95$m), $MachinePrecision], If[LessEqual[x$95$m, 2.25e+48], N[(y$95$m * N[(N[Cosh[x$95$m], $MachinePrecision] / N[(x$95$m * z$95$m), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(y$95$m * N[(N[(x$95$m * x$95$m), $MachinePrecision] * N[(N[(x$95$m * x$95$m), $MachinePrecision] * N[(N[(x$95$m * x$95$m), $MachinePrecision] * 0.001388888888888889 + 0.041666666666666664), $MachinePrecision] + 0.5), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision] / z$95$m), $MachinePrecision] / x$95$m), $MachinePrecision]]]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
y\_m = \left|y\right|
\\
y\_s = \mathsf{copysign}\left(1, y\right)
\\
z\_m = \left|z\right|
\\
z\_s = \mathsf{copysign}\left(1, z\right)
\\
z\_s \cdot \left(y\_s \cdot \left(x\_s \cdot \begin{array}{l}
\mathbf{if}\;x\_m \leq 4.2 \cdot 10^{-94}:\\
\;\;\;\;\frac{\frac{y\_m}{x\_m}}{z\_m}\\
\mathbf{elif}\;x\_m \leq 2.25 \cdot 10^{+48}:\\
\;\;\;\;y\_m \cdot \frac{\cosh x\_m}{x\_m \cdot z\_m}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{y\_m \cdot \mathsf{fma}\left(x\_m \cdot x\_m, \mathsf{fma}\left(x\_m \cdot x\_m, \mathsf{fma}\left(x\_m \cdot x\_m, 0.001388888888888889, 0.041666666666666664\right), 0.5\right), 1\right)}{z\_m}}{x\_m}\\
\end{array}\right)\right)
\end{array}
if x < 4.2000000000000002e-94Initial program 84.0%
Taylor expanded in x around 0
lower-/.f6459.0
Simplified59.0%
if 4.2000000000000002e-94 < x < 2.24999999999999998e48Initial program 96.4%
lift-cosh.f64N/A
clear-numN/A
un-div-invN/A
un-div-invN/A
clear-numN/A
associate-*r/N/A
associate-/l/N/A
*-commutativeN/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f64N/A
*-commutativeN/A
lower-*.f6496.4
Applied egg-rr96.4%
if 2.24999999999999998e48 < x Initial program 71.2%
Taylor expanded in x around 0
+-commutativeN/A
unpow2N/A
associate-*l*N/A
*-commutativeN/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6469.7
Simplified69.7%
lift-*.f64N/A
lift-*.f64N/A
lift-fma.f64N/A
lift-fma.f64N/A
lift-*.f64N/A
lift-fma.f64N/A
lift-/.f64N/A
lift-*.f64N/A
div-invN/A
Applied egg-rr100.0%
x\_m = (fabs.f64 x)
x\_s = (copysign.f64 #s(literal 1 binary64) x)
y\_m = (fabs.f64 y)
y\_s = (copysign.f64 #s(literal 1 binary64) y)
z\_m = (fabs.f64 z)
z\_s = (copysign.f64 #s(literal 1 binary64) z)
(FPCore (z_s y_s x_s x_m y_m z_m)
:precision binary64
(*
z_s
(*
y_s
(*
x_s
(if (<= y_m 1.85e+92)
(/
(/
(fma
(* x_m (* x_m (* (* x_m x_m) 0.001388888888888889)))
(* y_m (* x_m x_m))
y_m)
x_m)
z_m)
(/
(*
y_m
(/
(fma (* x_m x_m) (fma (* x_m x_m) 0.041666666666666664 0.5) 1.0)
z_m))
x_m))))))x\_m = fabs(x);
x\_s = copysign(1.0, x);
y\_m = fabs(y);
y\_s = copysign(1.0, y);
z\_m = fabs(z);
z\_s = copysign(1.0, z);
double code(double z_s, double y_s, double x_s, double x_m, double y_m, double z_m) {
double tmp;
if (y_m <= 1.85e+92) {
tmp = (fma((x_m * (x_m * ((x_m * x_m) * 0.001388888888888889))), (y_m * (x_m * x_m)), y_m) / x_m) / z_m;
} else {
tmp = (y_m * (fma((x_m * x_m), fma((x_m * x_m), 0.041666666666666664, 0.5), 1.0) / z_m)) / x_m;
}
return z_s * (y_s * (x_s * tmp));
}
x\_m = abs(x) x\_s = copysign(1.0, x) y\_m = abs(y) y\_s = copysign(1.0, y) z\_m = abs(z) z\_s = copysign(1.0, z) function code(z_s, y_s, x_s, x_m, y_m, z_m) tmp = 0.0 if (y_m <= 1.85e+92) tmp = Float64(Float64(fma(Float64(x_m * Float64(x_m * Float64(Float64(x_m * x_m) * 0.001388888888888889))), Float64(y_m * Float64(x_m * x_m)), y_m) / x_m) / z_m); else tmp = Float64(Float64(y_m * Float64(fma(Float64(x_m * x_m), fma(Float64(x_m * x_m), 0.041666666666666664, 0.5), 1.0) / z_m)) / x_m); end return Float64(z_s * Float64(y_s * Float64(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]
y\_m = N[Abs[y], $MachinePrecision]
y\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[y]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
z\_m = N[Abs[z], $MachinePrecision]
z\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[z]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[z$95$s_, y$95$s_, x$95$s_, x$95$m_, y$95$m_, z$95$m_] := N[(z$95$s * N[(y$95$s * N[(x$95$s * If[LessEqual[y$95$m, 1.85e+92], N[(N[(N[(N[(x$95$m * N[(x$95$m * N[(N[(x$95$m * x$95$m), $MachinePrecision] * 0.001388888888888889), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(y$95$m * N[(x$95$m * x$95$m), $MachinePrecision]), $MachinePrecision] + y$95$m), $MachinePrecision] / x$95$m), $MachinePrecision] / z$95$m), $MachinePrecision], N[(N[(y$95$m * N[(N[(N[(x$95$m * x$95$m), $MachinePrecision] * N[(N[(x$95$m * x$95$m), $MachinePrecision] * 0.041666666666666664 + 0.5), $MachinePrecision] + 1.0), $MachinePrecision] / z$95$m), $MachinePrecision]), $MachinePrecision] / x$95$m), $MachinePrecision]]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
y\_m = \left|y\right|
\\
y\_s = \mathsf{copysign}\left(1, y\right)
\\
z\_m = \left|z\right|
\\
z\_s = \mathsf{copysign}\left(1, z\right)
\\
z\_s \cdot \left(y\_s \cdot \left(x\_s \cdot \begin{array}{l}
\mathbf{if}\;y\_m \leq 1.85 \cdot 10^{+92}:\\
\;\;\;\;\frac{\frac{\mathsf{fma}\left(x\_m \cdot \left(x\_m \cdot \left(\left(x\_m \cdot x\_m\right) \cdot 0.001388888888888889\right)\right), y\_m \cdot \left(x\_m \cdot x\_m\right), y\_m\right)}{x\_m}}{z\_m}\\
\mathbf{else}:\\
\;\;\;\;\frac{y\_m \cdot \frac{\mathsf{fma}\left(x\_m \cdot x\_m, \mathsf{fma}\left(x\_m \cdot x\_m, 0.041666666666666664, 0.5\right), 1\right)}{z\_m}}{x\_m}\\
\end{array}\right)\right)
\end{array}
if y < 1.84999999999999999e92Initial program 81.3%
Taylor expanded in x around 0
+-commutativeN/A
unpow2N/A
associate-*l*N/A
*-commutativeN/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6474.1
Simplified74.1%
lift-*.f64N/A
lift-*.f64N/A
lift-fma.f64N/A
lift-fma.f64N/A
lift-*.f64N/A
lift-fma.f64N/A
lift-/.f64N/A
lift-*.f64N/A
clear-numN/A
lower-/.f64N/A
Applied egg-rr90.8%
Taylor expanded in x around inf
metadata-evalN/A
pow-sqrN/A
associate-*l*N/A
*-commutativeN/A
unpow2N/A
associate-*l*N/A
lower-*.f64N/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f64N/A
unpow2N/A
lower-*.f6490.6
Simplified90.6%
lift-*.f64N/A
lift-*.f64N/A
lift-*.f64N/A
lift-*.f64N/A
lift-*.f64N/A
lift-fma.f64N/A
lift-*.f64N/A
lift-/.f64N/A
lift-*.f64N/A
/-rgt-identityN/A
Applied egg-rr89.3%
if 1.84999999999999999e92 < y Initial program 86.3%
lift-cosh.f64N/A
clear-numN/A
un-div-invN/A
un-div-invN/A
clear-numN/A
associate-*r/N/A
associate-/l/N/A
associate-/r*N/A
un-div-invN/A
lower-/.f64N/A
*-commutativeN/A
associate-*l*N/A
div-invN/A
lower-*.f64N/A
lower-/.f6499.8
Applied egg-rr99.8%
Taylor expanded in x around 0
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6491.1
Simplified91.1%
x\_m = (fabs.f64 x)
x\_s = (copysign.f64 #s(literal 1 binary64) x)
y\_m = (fabs.f64 y)
y\_s = (copysign.f64 #s(literal 1 binary64) y)
z\_m = (fabs.f64 z)
z\_s = (copysign.f64 #s(literal 1 binary64) z)
(FPCore (z_s y_s x_s x_m y_m z_m)
:precision binary64
(*
z_s
(*
y_s
(*
x_s
(if (<= x_m 1.8e-78)
(/ (/ y_m x_m) z_m)
(if (<= x_m 1.66e+99)
(/
(*
y_m
(fma x_m (* x_m (fma x_m (* x_m 0.041666666666666664) 0.5)) 1.0))
(* x_m z_m))
(/ (* y_m (* 0.041666666666666664 (* x_m (* x_m x_m)))) z_m)))))))x\_m = fabs(x);
x\_s = copysign(1.0, x);
y\_m = fabs(y);
y\_s = copysign(1.0, y);
z\_m = fabs(z);
z\_s = copysign(1.0, z);
double code(double z_s, double y_s, double x_s, double x_m, double y_m, double z_m) {
double tmp;
if (x_m <= 1.8e-78) {
tmp = (y_m / x_m) / z_m;
} else if (x_m <= 1.66e+99) {
tmp = (y_m * fma(x_m, (x_m * fma(x_m, (x_m * 0.041666666666666664), 0.5)), 1.0)) / (x_m * z_m);
} else {
tmp = (y_m * (0.041666666666666664 * (x_m * (x_m * x_m)))) / z_m;
}
return z_s * (y_s * (x_s * tmp));
}
x\_m = abs(x) x\_s = copysign(1.0, x) y\_m = abs(y) y\_s = copysign(1.0, y) z\_m = abs(z) z\_s = copysign(1.0, z) function code(z_s, y_s, x_s, x_m, y_m, z_m) tmp = 0.0 if (x_m <= 1.8e-78) tmp = Float64(Float64(y_m / x_m) / z_m); elseif (x_m <= 1.66e+99) tmp = Float64(Float64(y_m * fma(x_m, Float64(x_m * fma(x_m, Float64(x_m * 0.041666666666666664), 0.5)), 1.0)) / Float64(x_m * z_m)); else tmp = Float64(Float64(y_m * Float64(0.041666666666666664 * Float64(x_m * Float64(x_m * x_m)))) / z_m); end return Float64(z_s * Float64(y_s * Float64(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]
y\_m = N[Abs[y], $MachinePrecision]
y\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[y]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
z\_m = N[Abs[z], $MachinePrecision]
z\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[z]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[z$95$s_, y$95$s_, x$95$s_, x$95$m_, y$95$m_, z$95$m_] := N[(z$95$s * N[(y$95$s * N[(x$95$s * If[LessEqual[x$95$m, 1.8e-78], N[(N[(y$95$m / x$95$m), $MachinePrecision] / z$95$m), $MachinePrecision], If[LessEqual[x$95$m, 1.66e+99], N[(N[(y$95$m * N[(x$95$m * N[(x$95$m * N[(x$95$m * N[(x$95$m * 0.041666666666666664), $MachinePrecision] + 0.5), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision] / N[(x$95$m * z$95$m), $MachinePrecision]), $MachinePrecision], N[(N[(y$95$m * N[(0.041666666666666664 * N[(x$95$m * N[(x$95$m * x$95$m), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / z$95$m), $MachinePrecision]]]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
y\_m = \left|y\right|
\\
y\_s = \mathsf{copysign}\left(1, y\right)
\\
z\_m = \left|z\right|
\\
z\_s = \mathsf{copysign}\left(1, z\right)
\\
z\_s \cdot \left(y\_s \cdot \left(x\_s \cdot \begin{array}{l}
\mathbf{if}\;x\_m \leq 1.8 \cdot 10^{-78}:\\
\;\;\;\;\frac{\frac{y\_m}{x\_m}}{z\_m}\\
\mathbf{elif}\;x\_m \leq 1.66 \cdot 10^{+99}:\\
\;\;\;\;\frac{y\_m \cdot \mathsf{fma}\left(x\_m, x\_m \cdot \mathsf{fma}\left(x\_m, x\_m \cdot 0.041666666666666664, 0.5\right), 1\right)}{x\_m \cdot z\_m}\\
\mathbf{else}:\\
\;\;\;\;\frac{y\_m \cdot \left(0.041666666666666664 \cdot \left(x\_m \cdot \left(x\_m \cdot x\_m\right)\right)\right)}{z\_m}\\
\end{array}\right)\right)
\end{array}
if x < 1.8000000000000001e-78Initial program 84.1%
Taylor expanded in x around 0
lower-/.f6459.3
Simplified59.3%
if 1.8000000000000001e-78 < x < 1.6599999999999999e99Initial program 92.4%
Taylor expanded in x around 0
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
unpow2N/A
associate-*l*N/A
lower-fma.f64N/A
lower-*.f6463.6
Simplified63.6%
lift-*.f64N/A
lift-*.f64N/A
lift-fma.f64N/A
lift-fma.f64N/A
lift-/.f64N/A
associate-/l*N/A
lift-/.f64N/A
associate-/r*N/A
lift-*.f64N/A
associate-*r/N/A
lower-/.f64N/A
Applied egg-rr68.4%
if 1.6599999999999999e99 < x Initial program 68.5%
lift-cosh.f64N/A
clear-numN/A
un-div-invN/A
un-div-invN/A
clear-numN/A
associate-*r/N/A
associate-/l/N/A
associate-/r*N/A
un-div-invN/A
lower-/.f64N/A
*-commutativeN/A
associate-*l*N/A
div-invN/A
lower-*.f64N/A
lower-/.f64100.0
Applied egg-rr100.0%
Taylor expanded in x around 0
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64100.0
Simplified100.0%
Taylor expanded in x around inf
associate-*r/N/A
lower-/.f64N/A
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
cube-multN/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f64100.0
Simplified100.0%
Final simplification69.3%
x\_m = (fabs.f64 x)
x\_s = (copysign.f64 #s(literal 1 binary64) x)
y\_m = (fabs.f64 y)
y\_s = (copysign.f64 #s(literal 1 binary64) y)
z\_m = (fabs.f64 z)
z\_s = (copysign.f64 #s(literal 1 binary64) z)
(FPCore (z_s y_s x_s x_m y_m z_m)
:precision binary64
(*
z_s
(*
y_s
(*
x_s
(if (<= x_m 0.0058)
(/ 1.0 (* z_m (/ x_m y_m)))
(/
(* y_m (/ (* x_m (* x_m (* (* x_m x_m) 0.041666666666666664))) z_m))
x_m))))))x\_m = fabs(x);
x\_s = copysign(1.0, x);
y\_m = fabs(y);
y\_s = copysign(1.0, y);
z\_m = fabs(z);
z\_s = copysign(1.0, z);
double code(double z_s, double y_s, double x_s, double x_m, double y_m, double z_m) {
double tmp;
if (x_m <= 0.0058) {
tmp = 1.0 / (z_m * (x_m / y_m));
} else {
tmp = (y_m * ((x_m * (x_m * ((x_m * x_m) * 0.041666666666666664))) / z_m)) / x_m;
}
return z_s * (y_s * (x_s * tmp));
}
x\_m = abs(x)
x\_s = copysign(1.0d0, x)
y\_m = abs(y)
y\_s = copysign(1.0d0, y)
z\_m = abs(z)
z\_s = copysign(1.0d0, z)
real(8) function code(z_s, y_s, x_s, x_m, y_m, z_m)
real(8), intent (in) :: z_s
real(8), intent (in) :: y_s
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y_m
real(8), intent (in) :: z_m
real(8) :: tmp
if (x_m <= 0.0058d0) then
tmp = 1.0d0 / (z_m * (x_m / y_m))
else
tmp = (y_m * ((x_m * (x_m * ((x_m * x_m) * 0.041666666666666664d0))) / z_m)) / x_m
end if
code = z_s * (y_s * (x_s * tmp))
end function
x\_m = Math.abs(x);
x\_s = Math.copySign(1.0, x);
y\_m = Math.abs(y);
y\_s = Math.copySign(1.0, y);
z\_m = Math.abs(z);
z\_s = Math.copySign(1.0, z);
public static double code(double z_s, double y_s, double x_s, double x_m, double y_m, double z_m) {
double tmp;
if (x_m <= 0.0058) {
tmp = 1.0 / (z_m * (x_m / y_m));
} else {
tmp = (y_m * ((x_m * (x_m * ((x_m * x_m) * 0.041666666666666664))) / z_m)) / x_m;
}
return z_s * (y_s * (x_s * tmp));
}
x\_m = math.fabs(x) x\_s = math.copysign(1.0, x) y\_m = math.fabs(y) y\_s = math.copysign(1.0, y) z\_m = math.fabs(z) z\_s = math.copysign(1.0, z) def code(z_s, y_s, x_s, x_m, y_m, z_m): tmp = 0 if x_m <= 0.0058: tmp = 1.0 / (z_m * (x_m / y_m)) else: tmp = (y_m * ((x_m * (x_m * ((x_m * x_m) * 0.041666666666666664))) / z_m)) / x_m return z_s * (y_s * (x_s * tmp))
x\_m = abs(x) x\_s = copysign(1.0, x) y\_m = abs(y) y\_s = copysign(1.0, y) z\_m = abs(z) z\_s = copysign(1.0, z) function code(z_s, y_s, x_s, x_m, y_m, z_m) tmp = 0.0 if (x_m <= 0.0058) tmp = Float64(1.0 / Float64(z_m * Float64(x_m / y_m))); else tmp = Float64(Float64(y_m * Float64(Float64(x_m * Float64(x_m * Float64(Float64(x_m * x_m) * 0.041666666666666664))) / z_m)) / x_m); end return Float64(z_s * Float64(y_s * Float64(x_s * tmp))) end
x\_m = abs(x); x\_s = sign(x) * abs(1.0); y\_m = abs(y); y\_s = sign(y) * abs(1.0); z\_m = abs(z); z\_s = sign(z) * abs(1.0); function tmp_2 = code(z_s, y_s, x_s, x_m, y_m, z_m) tmp = 0.0; if (x_m <= 0.0058) tmp = 1.0 / (z_m * (x_m / y_m)); else tmp = (y_m * ((x_m * (x_m * ((x_m * x_m) * 0.041666666666666664))) / z_m)) / x_m; end tmp_2 = z_s * (y_s * (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]
y\_m = N[Abs[y], $MachinePrecision]
y\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[y]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
z\_m = N[Abs[z], $MachinePrecision]
z\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[z]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[z$95$s_, y$95$s_, x$95$s_, x$95$m_, y$95$m_, z$95$m_] := N[(z$95$s * N[(y$95$s * N[(x$95$s * If[LessEqual[x$95$m, 0.0058], N[(1.0 / N[(z$95$m * N[(x$95$m / y$95$m), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(y$95$m * N[(N[(x$95$m * N[(x$95$m * N[(N[(x$95$m * x$95$m), $MachinePrecision] * 0.041666666666666664), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / z$95$m), $MachinePrecision]), $MachinePrecision] / x$95$m), $MachinePrecision]]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
y\_m = \left|y\right|
\\
y\_s = \mathsf{copysign}\left(1, y\right)
\\
z\_m = \left|z\right|
\\
z\_s = \mathsf{copysign}\left(1, z\right)
\\
z\_s \cdot \left(y\_s \cdot \left(x\_s \cdot \begin{array}{l}
\mathbf{if}\;x\_m \leq 0.0058:\\
\;\;\;\;\frac{1}{z\_m \cdot \frac{x\_m}{y\_m}}\\
\mathbf{else}:\\
\;\;\;\;\frac{y\_m \cdot \frac{x\_m \cdot \left(x\_m \cdot \left(\left(x\_m \cdot x\_m\right) \cdot 0.041666666666666664\right)\right)}{z\_m}}{x\_m}\\
\end{array}\right)\right)
\end{array}
if x < 0.0058Initial program 85.0%
Taylor expanded in x around 0
+-commutativeN/A
unpow2N/A
associate-*l*N/A
*-commutativeN/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6478.7
Simplified78.7%
lift-*.f64N/A
lift-*.f64N/A
lift-fma.f64N/A
lift-fma.f64N/A
lift-*.f64N/A
lift-fma.f64N/A
lift-/.f64N/A
lift-*.f64N/A
clear-numN/A
lower-/.f64N/A
Applied egg-rr87.9%
Taylor expanded in x around 0
lower-/.f6462.6
Simplified62.6%
if 0.0058 < x Initial program 75.3%
lift-cosh.f64N/A
clear-numN/A
un-div-invN/A
un-div-invN/A
clear-numN/A
associate-*r/N/A
associate-/l/N/A
associate-/r*N/A
un-div-invN/A
lower-/.f64N/A
*-commutativeN/A
associate-*l*N/A
div-invN/A
lower-*.f64N/A
lower-/.f64100.0
Applied egg-rr100.0%
Taylor expanded in x around 0
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6486.2
Simplified86.2%
Taylor expanded in x around inf
metadata-evalN/A
pow-sqrN/A
associate-*l*N/A
*-commutativeN/A
unpow2N/A
associate-*l*N/A
lower-*.f64N/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f64N/A
unpow2N/A
lower-*.f6486.2
Simplified86.2%
x\_m = (fabs.f64 x)
x\_s = (copysign.f64 #s(literal 1 binary64) x)
y\_m = (fabs.f64 y)
y\_s = (copysign.f64 #s(literal 1 binary64) y)
z\_m = (fabs.f64 z)
z\_s = (copysign.f64 #s(literal 1 binary64) z)
(FPCore (z_s y_s x_s x_m y_m z_m)
:precision binary64
(*
z_s
(*
y_s
(*
x_s
(if (<= x_m 0.0058)
(/ 1.0 (* z_m (/ x_m y_m)))
(/ (* y_m (* 0.041666666666666664 (* x_m (* x_m x_m)))) z_m))))))x\_m = fabs(x);
x\_s = copysign(1.0, x);
y\_m = fabs(y);
y\_s = copysign(1.0, y);
z\_m = fabs(z);
z\_s = copysign(1.0, z);
double code(double z_s, double y_s, double x_s, double x_m, double y_m, double z_m) {
double tmp;
if (x_m <= 0.0058) {
tmp = 1.0 / (z_m * (x_m / y_m));
} else {
tmp = (y_m * (0.041666666666666664 * (x_m * (x_m * x_m)))) / z_m;
}
return z_s * (y_s * (x_s * tmp));
}
x\_m = abs(x)
x\_s = copysign(1.0d0, x)
y\_m = abs(y)
y\_s = copysign(1.0d0, y)
z\_m = abs(z)
z\_s = copysign(1.0d0, z)
real(8) function code(z_s, y_s, x_s, x_m, y_m, z_m)
real(8), intent (in) :: z_s
real(8), intent (in) :: y_s
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y_m
real(8), intent (in) :: z_m
real(8) :: tmp
if (x_m <= 0.0058d0) then
tmp = 1.0d0 / (z_m * (x_m / y_m))
else
tmp = (y_m * (0.041666666666666664d0 * (x_m * (x_m * x_m)))) / z_m
end if
code = z_s * (y_s * (x_s * tmp))
end function
x\_m = Math.abs(x);
x\_s = Math.copySign(1.0, x);
y\_m = Math.abs(y);
y\_s = Math.copySign(1.0, y);
z\_m = Math.abs(z);
z\_s = Math.copySign(1.0, z);
public static double code(double z_s, double y_s, double x_s, double x_m, double y_m, double z_m) {
double tmp;
if (x_m <= 0.0058) {
tmp = 1.0 / (z_m * (x_m / y_m));
} else {
tmp = (y_m * (0.041666666666666664 * (x_m * (x_m * x_m)))) / z_m;
}
return z_s * (y_s * (x_s * tmp));
}
x\_m = math.fabs(x) x\_s = math.copysign(1.0, x) y\_m = math.fabs(y) y\_s = math.copysign(1.0, y) z\_m = math.fabs(z) z\_s = math.copysign(1.0, z) def code(z_s, y_s, x_s, x_m, y_m, z_m): tmp = 0 if x_m <= 0.0058: tmp = 1.0 / (z_m * (x_m / y_m)) else: tmp = (y_m * (0.041666666666666664 * (x_m * (x_m * x_m)))) / z_m return z_s * (y_s * (x_s * tmp))
x\_m = abs(x) x\_s = copysign(1.0, x) y\_m = abs(y) y\_s = copysign(1.0, y) z\_m = abs(z) z\_s = copysign(1.0, z) function code(z_s, y_s, x_s, x_m, y_m, z_m) tmp = 0.0 if (x_m <= 0.0058) tmp = Float64(1.0 / Float64(z_m * Float64(x_m / y_m))); else tmp = Float64(Float64(y_m * Float64(0.041666666666666664 * Float64(x_m * Float64(x_m * x_m)))) / z_m); end return Float64(z_s * Float64(y_s * Float64(x_s * tmp))) end
x\_m = abs(x); x\_s = sign(x) * abs(1.0); y\_m = abs(y); y\_s = sign(y) * abs(1.0); z\_m = abs(z); z\_s = sign(z) * abs(1.0); function tmp_2 = code(z_s, y_s, x_s, x_m, y_m, z_m) tmp = 0.0; if (x_m <= 0.0058) tmp = 1.0 / (z_m * (x_m / y_m)); else tmp = (y_m * (0.041666666666666664 * (x_m * (x_m * x_m)))) / z_m; end tmp_2 = z_s * (y_s * (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]
y\_m = N[Abs[y], $MachinePrecision]
y\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[y]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
z\_m = N[Abs[z], $MachinePrecision]
z\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[z]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[z$95$s_, y$95$s_, x$95$s_, x$95$m_, y$95$m_, z$95$m_] := N[(z$95$s * N[(y$95$s * N[(x$95$s * If[LessEqual[x$95$m, 0.0058], N[(1.0 / N[(z$95$m * N[(x$95$m / y$95$m), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(y$95$m * N[(0.041666666666666664 * N[(x$95$m * N[(x$95$m * x$95$m), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / z$95$m), $MachinePrecision]]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
y\_m = \left|y\right|
\\
y\_s = \mathsf{copysign}\left(1, y\right)
\\
z\_m = \left|z\right|
\\
z\_s = \mathsf{copysign}\left(1, z\right)
\\
z\_s \cdot \left(y\_s \cdot \left(x\_s \cdot \begin{array}{l}
\mathbf{if}\;x\_m \leq 0.0058:\\
\;\;\;\;\frac{1}{z\_m \cdot \frac{x\_m}{y\_m}}\\
\mathbf{else}:\\
\;\;\;\;\frac{y\_m \cdot \left(0.041666666666666664 \cdot \left(x\_m \cdot \left(x\_m \cdot x\_m\right)\right)\right)}{z\_m}\\
\end{array}\right)\right)
\end{array}
if x < 0.0058Initial program 85.0%
Taylor expanded in x around 0
+-commutativeN/A
unpow2N/A
associate-*l*N/A
*-commutativeN/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6478.7
Simplified78.7%
lift-*.f64N/A
lift-*.f64N/A
lift-fma.f64N/A
lift-fma.f64N/A
lift-*.f64N/A
lift-fma.f64N/A
lift-/.f64N/A
lift-*.f64N/A
clear-numN/A
lower-/.f64N/A
Applied egg-rr87.9%
Taylor expanded in x around 0
lower-/.f6462.6
Simplified62.6%
if 0.0058 < x Initial program 75.3%
lift-cosh.f64N/A
clear-numN/A
un-div-invN/A
un-div-invN/A
clear-numN/A
associate-*r/N/A
associate-/l/N/A
associate-/r*N/A
un-div-invN/A
lower-/.f64N/A
*-commutativeN/A
associate-*l*N/A
div-invN/A
lower-*.f64N/A
lower-/.f64100.0
Applied egg-rr100.0%
Taylor expanded in x around 0
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6486.2
Simplified86.2%
Taylor expanded in x around inf
associate-*r/N/A
lower-/.f64N/A
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
cube-multN/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f6482.5
Simplified82.5%
Final simplification68.6%
x\_m = (fabs.f64 x)
x\_s = (copysign.f64 #s(literal 1 binary64) x)
y\_m = (fabs.f64 y)
y\_s = (copysign.f64 #s(literal 1 binary64) y)
z\_m = (fabs.f64 z)
z\_s = (copysign.f64 #s(literal 1 binary64) z)
(FPCore (z_s y_s x_s x_m y_m z_m)
:precision binary64
(*
z_s
(*
y_s
(*
x_s
(if (<= x_m 0.0058)
(/ 1.0 (* z_m (/ x_m y_m)))
(/ (* x_m (* y_m (* (* x_m x_m) 0.041666666666666664))) z_m))))))x\_m = fabs(x);
x\_s = copysign(1.0, x);
y\_m = fabs(y);
y\_s = copysign(1.0, y);
z\_m = fabs(z);
z\_s = copysign(1.0, z);
double code(double z_s, double y_s, double x_s, double x_m, double y_m, double z_m) {
double tmp;
if (x_m <= 0.0058) {
tmp = 1.0 / (z_m * (x_m / y_m));
} else {
tmp = (x_m * (y_m * ((x_m * x_m) * 0.041666666666666664))) / z_m;
}
return z_s * (y_s * (x_s * tmp));
}
x\_m = abs(x)
x\_s = copysign(1.0d0, x)
y\_m = abs(y)
y\_s = copysign(1.0d0, y)
z\_m = abs(z)
z\_s = copysign(1.0d0, z)
real(8) function code(z_s, y_s, x_s, x_m, y_m, z_m)
real(8), intent (in) :: z_s
real(8), intent (in) :: y_s
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y_m
real(8), intent (in) :: z_m
real(8) :: tmp
if (x_m <= 0.0058d0) then
tmp = 1.0d0 / (z_m * (x_m / y_m))
else
tmp = (x_m * (y_m * ((x_m * x_m) * 0.041666666666666664d0))) / z_m
end if
code = z_s * (y_s * (x_s * tmp))
end function
x\_m = Math.abs(x);
x\_s = Math.copySign(1.0, x);
y\_m = Math.abs(y);
y\_s = Math.copySign(1.0, y);
z\_m = Math.abs(z);
z\_s = Math.copySign(1.0, z);
public static double code(double z_s, double y_s, double x_s, double x_m, double y_m, double z_m) {
double tmp;
if (x_m <= 0.0058) {
tmp = 1.0 / (z_m * (x_m / y_m));
} else {
tmp = (x_m * (y_m * ((x_m * x_m) * 0.041666666666666664))) / z_m;
}
return z_s * (y_s * (x_s * tmp));
}
x\_m = math.fabs(x) x\_s = math.copysign(1.0, x) y\_m = math.fabs(y) y\_s = math.copysign(1.0, y) z\_m = math.fabs(z) z\_s = math.copysign(1.0, z) def code(z_s, y_s, x_s, x_m, y_m, z_m): tmp = 0 if x_m <= 0.0058: tmp = 1.0 / (z_m * (x_m / y_m)) else: tmp = (x_m * (y_m * ((x_m * x_m) * 0.041666666666666664))) / z_m return z_s * (y_s * (x_s * tmp))
x\_m = abs(x) x\_s = copysign(1.0, x) y\_m = abs(y) y\_s = copysign(1.0, y) z\_m = abs(z) z\_s = copysign(1.0, z) function code(z_s, y_s, x_s, x_m, y_m, z_m) tmp = 0.0 if (x_m <= 0.0058) tmp = Float64(1.0 / Float64(z_m * Float64(x_m / y_m))); else tmp = Float64(Float64(x_m * Float64(y_m * Float64(Float64(x_m * x_m) * 0.041666666666666664))) / z_m); end return Float64(z_s * Float64(y_s * Float64(x_s * tmp))) end
x\_m = abs(x); x\_s = sign(x) * abs(1.0); y\_m = abs(y); y\_s = sign(y) * abs(1.0); z\_m = abs(z); z\_s = sign(z) * abs(1.0); function tmp_2 = code(z_s, y_s, x_s, x_m, y_m, z_m) tmp = 0.0; if (x_m <= 0.0058) tmp = 1.0 / (z_m * (x_m / y_m)); else tmp = (x_m * (y_m * ((x_m * x_m) * 0.041666666666666664))) / z_m; end tmp_2 = z_s * (y_s * (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]
y\_m = N[Abs[y], $MachinePrecision]
y\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[y]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
z\_m = N[Abs[z], $MachinePrecision]
z\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[z]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[z$95$s_, y$95$s_, x$95$s_, x$95$m_, y$95$m_, z$95$m_] := N[(z$95$s * N[(y$95$s * N[(x$95$s * If[LessEqual[x$95$m, 0.0058], N[(1.0 / N[(z$95$m * N[(x$95$m / y$95$m), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(x$95$m * N[(y$95$m * N[(N[(x$95$m * x$95$m), $MachinePrecision] * 0.041666666666666664), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / z$95$m), $MachinePrecision]]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
y\_m = \left|y\right|
\\
y\_s = \mathsf{copysign}\left(1, y\right)
\\
z\_m = \left|z\right|
\\
z\_s = \mathsf{copysign}\left(1, z\right)
\\
z\_s \cdot \left(y\_s \cdot \left(x\_s \cdot \begin{array}{l}
\mathbf{if}\;x\_m \leq 0.0058:\\
\;\;\;\;\frac{1}{z\_m \cdot \frac{x\_m}{y\_m}}\\
\mathbf{else}:\\
\;\;\;\;\frac{x\_m \cdot \left(y\_m \cdot \left(\left(x\_m \cdot x\_m\right) \cdot 0.041666666666666664\right)\right)}{z\_m}\\
\end{array}\right)\right)
\end{array}
if x < 0.0058Initial program 85.0%
Taylor expanded in x around 0
+-commutativeN/A
unpow2N/A
associate-*l*N/A
*-commutativeN/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6478.7
Simplified78.7%
lift-*.f64N/A
lift-*.f64N/A
lift-fma.f64N/A
lift-fma.f64N/A
lift-*.f64N/A
lift-fma.f64N/A
lift-/.f64N/A
lift-*.f64N/A
clear-numN/A
lower-/.f64N/A
Applied egg-rr87.9%
Taylor expanded in x around 0
lower-/.f6462.6
Simplified62.6%
if 0.0058 < x Initial program 75.3%
Taylor expanded in x around 0
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
unpow2N/A
associate-*l*N/A
lower-fma.f64N/A
lower-*.f6460.4
Simplified60.4%
Taylor expanded in x around inf
*-commutativeN/A
associate-*r*N/A
*-commutativeN/A
cube-multN/A
unpow2N/A
associate-*l*N/A
*-commutativeN/A
lower-*.f64N/A
*-commutativeN/A
associate-*l*N/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f64N/A
unpow2N/A
lower-*.f6475.0
Simplified75.0%
x\_m = (fabs.f64 x)
x\_s = (copysign.f64 #s(literal 1 binary64) x)
y\_m = (fabs.f64 y)
y\_s = (copysign.f64 #s(literal 1 binary64) y)
z\_m = (fabs.f64 z)
z\_s = (copysign.f64 #s(literal 1 binary64) z)
(FPCore (z_s y_s x_s x_m y_m z_m)
:precision binary64
(*
z_s
(*
y_s
(*
x_s
(if (<= x_m 0.0058)
(/ 1.0 (* z_m (/ x_m y_m)))
(* (/ x_m z_m) (* y_m 0.5)))))))x\_m = fabs(x);
x\_s = copysign(1.0, x);
y\_m = fabs(y);
y\_s = copysign(1.0, y);
z\_m = fabs(z);
z\_s = copysign(1.0, z);
double code(double z_s, double y_s, double x_s, double x_m, double y_m, double z_m) {
double tmp;
if (x_m <= 0.0058) {
tmp = 1.0 / (z_m * (x_m / y_m));
} else {
tmp = (x_m / z_m) * (y_m * 0.5);
}
return z_s * (y_s * (x_s * tmp));
}
x\_m = abs(x)
x\_s = copysign(1.0d0, x)
y\_m = abs(y)
y\_s = copysign(1.0d0, y)
z\_m = abs(z)
z\_s = copysign(1.0d0, z)
real(8) function code(z_s, y_s, x_s, x_m, y_m, z_m)
real(8), intent (in) :: z_s
real(8), intent (in) :: y_s
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y_m
real(8), intent (in) :: z_m
real(8) :: tmp
if (x_m <= 0.0058d0) then
tmp = 1.0d0 / (z_m * (x_m / y_m))
else
tmp = (x_m / z_m) * (y_m * 0.5d0)
end if
code = z_s * (y_s * (x_s * tmp))
end function
x\_m = Math.abs(x);
x\_s = Math.copySign(1.0, x);
y\_m = Math.abs(y);
y\_s = Math.copySign(1.0, y);
z\_m = Math.abs(z);
z\_s = Math.copySign(1.0, z);
public static double code(double z_s, double y_s, double x_s, double x_m, double y_m, double z_m) {
double tmp;
if (x_m <= 0.0058) {
tmp = 1.0 / (z_m * (x_m / y_m));
} else {
tmp = (x_m / z_m) * (y_m * 0.5);
}
return z_s * (y_s * (x_s * tmp));
}
x\_m = math.fabs(x) x\_s = math.copysign(1.0, x) y\_m = math.fabs(y) y\_s = math.copysign(1.0, y) z\_m = math.fabs(z) z\_s = math.copysign(1.0, z) def code(z_s, y_s, x_s, x_m, y_m, z_m): tmp = 0 if x_m <= 0.0058: tmp = 1.0 / (z_m * (x_m / y_m)) else: tmp = (x_m / z_m) * (y_m * 0.5) return z_s * (y_s * (x_s * tmp))
x\_m = abs(x) x\_s = copysign(1.0, x) y\_m = abs(y) y\_s = copysign(1.0, y) z\_m = abs(z) z\_s = copysign(1.0, z) function code(z_s, y_s, x_s, x_m, y_m, z_m) tmp = 0.0 if (x_m <= 0.0058) tmp = Float64(1.0 / Float64(z_m * Float64(x_m / y_m))); else tmp = Float64(Float64(x_m / z_m) * Float64(y_m * 0.5)); end return Float64(z_s * Float64(y_s * Float64(x_s * tmp))) end
x\_m = abs(x); x\_s = sign(x) * abs(1.0); y\_m = abs(y); y\_s = sign(y) * abs(1.0); z\_m = abs(z); z\_s = sign(z) * abs(1.0); function tmp_2 = code(z_s, y_s, x_s, x_m, y_m, z_m) tmp = 0.0; if (x_m <= 0.0058) tmp = 1.0 / (z_m * (x_m / y_m)); else tmp = (x_m / z_m) * (y_m * 0.5); end tmp_2 = z_s * (y_s * (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]
y\_m = N[Abs[y], $MachinePrecision]
y\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[y]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
z\_m = N[Abs[z], $MachinePrecision]
z\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[z]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[z$95$s_, y$95$s_, x$95$s_, x$95$m_, y$95$m_, z$95$m_] := N[(z$95$s * N[(y$95$s * N[(x$95$s * If[LessEqual[x$95$m, 0.0058], N[(1.0 / N[(z$95$m * N[(x$95$m / y$95$m), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(x$95$m / z$95$m), $MachinePrecision] * N[(y$95$m * 0.5), $MachinePrecision]), $MachinePrecision]]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
y\_m = \left|y\right|
\\
y\_s = \mathsf{copysign}\left(1, y\right)
\\
z\_m = \left|z\right|
\\
z\_s = \mathsf{copysign}\left(1, z\right)
\\
z\_s \cdot \left(y\_s \cdot \left(x\_s \cdot \begin{array}{l}
\mathbf{if}\;x\_m \leq 0.0058:\\
\;\;\;\;\frac{1}{z\_m \cdot \frac{x\_m}{y\_m}}\\
\mathbf{else}:\\
\;\;\;\;\frac{x\_m}{z\_m} \cdot \left(y\_m \cdot 0.5\right)\\
\end{array}\right)\right)
\end{array}
if x < 0.0058Initial program 85.0%
Taylor expanded in x around 0
+-commutativeN/A
unpow2N/A
associate-*l*N/A
*-commutativeN/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6478.7
Simplified78.7%
lift-*.f64N/A
lift-*.f64N/A
lift-fma.f64N/A
lift-fma.f64N/A
lift-*.f64N/A
lift-fma.f64N/A
lift-/.f64N/A
lift-*.f64N/A
clear-numN/A
lower-/.f64N/A
Applied egg-rr87.9%
Taylor expanded in x around 0
lower-/.f6462.6
Simplified62.6%
if 0.0058 < x Initial program 75.3%
Taylor expanded in x around 0
*-commutativeN/A
*-commutativeN/A
associate-/l*N/A
associate-*r*N/A
distribute-lft1-inN/A
+-commutativeN/A
associate-*l/N/A
times-fracN/A
+-commutativeN/A
distribute-rgt1-inN/A
associate-*r*N/A
*-commutativeN/A
associate-*r*N/A
lower-/.f64N/A
Simplified47.7%
Taylor expanded in x around inf
associate-*r/N/A
lower-/.f64N/A
*-commutativeN/A
associate-*r*N/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f6441.4
Simplified41.4%
lift-*.f64N/A
associate-/l*N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f6441.3
Applied egg-rr41.3%
x\_m = (fabs.f64 x)
x\_s = (copysign.f64 #s(literal 1 binary64) x)
y\_m = (fabs.f64 y)
y\_s = (copysign.f64 #s(literal 1 binary64) y)
z\_m = (fabs.f64 z)
z\_s = (copysign.f64 #s(literal 1 binary64) z)
(FPCore (z_s y_s x_s x_m y_m z_m)
:precision binary64
(*
z_s
(*
y_s
(*
x_s
(if (<= x_m 0.0058) (/ (/ y_m x_m) z_m) (* (/ x_m z_m) (* y_m 0.5)))))))x\_m = fabs(x);
x\_s = copysign(1.0, x);
y\_m = fabs(y);
y\_s = copysign(1.0, y);
z\_m = fabs(z);
z\_s = copysign(1.0, z);
double code(double z_s, double y_s, double x_s, double x_m, double y_m, double z_m) {
double tmp;
if (x_m <= 0.0058) {
tmp = (y_m / x_m) / z_m;
} else {
tmp = (x_m / z_m) * (y_m * 0.5);
}
return z_s * (y_s * (x_s * tmp));
}
x\_m = abs(x)
x\_s = copysign(1.0d0, x)
y\_m = abs(y)
y\_s = copysign(1.0d0, y)
z\_m = abs(z)
z\_s = copysign(1.0d0, z)
real(8) function code(z_s, y_s, x_s, x_m, y_m, z_m)
real(8), intent (in) :: z_s
real(8), intent (in) :: y_s
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y_m
real(8), intent (in) :: z_m
real(8) :: tmp
if (x_m <= 0.0058d0) then
tmp = (y_m / x_m) / z_m
else
tmp = (x_m / z_m) * (y_m * 0.5d0)
end if
code = z_s * (y_s * (x_s * tmp))
end function
x\_m = Math.abs(x);
x\_s = Math.copySign(1.0, x);
y\_m = Math.abs(y);
y\_s = Math.copySign(1.0, y);
z\_m = Math.abs(z);
z\_s = Math.copySign(1.0, z);
public static double code(double z_s, double y_s, double x_s, double x_m, double y_m, double z_m) {
double tmp;
if (x_m <= 0.0058) {
tmp = (y_m / x_m) / z_m;
} else {
tmp = (x_m / z_m) * (y_m * 0.5);
}
return z_s * (y_s * (x_s * tmp));
}
x\_m = math.fabs(x) x\_s = math.copysign(1.0, x) y\_m = math.fabs(y) y\_s = math.copysign(1.0, y) z\_m = math.fabs(z) z\_s = math.copysign(1.0, z) def code(z_s, y_s, x_s, x_m, y_m, z_m): tmp = 0 if x_m <= 0.0058: tmp = (y_m / x_m) / z_m else: tmp = (x_m / z_m) * (y_m * 0.5) return z_s * (y_s * (x_s * tmp))
x\_m = abs(x) x\_s = copysign(1.0, x) y\_m = abs(y) y\_s = copysign(1.0, y) z\_m = abs(z) z\_s = copysign(1.0, z) function code(z_s, y_s, x_s, x_m, y_m, z_m) tmp = 0.0 if (x_m <= 0.0058) tmp = Float64(Float64(y_m / x_m) / z_m); else tmp = Float64(Float64(x_m / z_m) * Float64(y_m * 0.5)); end return Float64(z_s * Float64(y_s * Float64(x_s * tmp))) end
x\_m = abs(x); x\_s = sign(x) * abs(1.0); y\_m = abs(y); y\_s = sign(y) * abs(1.0); z\_m = abs(z); z\_s = sign(z) * abs(1.0); function tmp_2 = code(z_s, y_s, x_s, x_m, y_m, z_m) tmp = 0.0; if (x_m <= 0.0058) tmp = (y_m / x_m) / z_m; else tmp = (x_m / z_m) * (y_m * 0.5); end tmp_2 = z_s * (y_s * (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]
y\_m = N[Abs[y], $MachinePrecision]
y\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[y]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
z\_m = N[Abs[z], $MachinePrecision]
z\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[z]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[z$95$s_, y$95$s_, x$95$s_, x$95$m_, y$95$m_, z$95$m_] := N[(z$95$s * N[(y$95$s * N[(x$95$s * If[LessEqual[x$95$m, 0.0058], N[(N[(y$95$m / x$95$m), $MachinePrecision] / z$95$m), $MachinePrecision], N[(N[(x$95$m / z$95$m), $MachinePrecision] * N[(y$95$m * 0.5), $MachinePrecision]), $MachinePrecision]]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
y\_m = \left|y\right|
\\
y\_s = \mathsf{copysign}\left(1, y\right)
\\
z\_m = \left|z\right|
\\
z\_s = \mathsf{copysign}\left(1, z\right)
\\
z\_s \cdot \left(y\_s \cdot \left(x\_s \cdot \begin{array}{l}
\mathbf{if}\;x\_m \leq 0.0058:\\
\;\;\;\;\frac{\frac{y\_m}{x\_m}}{z\_m}\\
\mathbf{else}:\\
\;\;\;\;\frac{x\_m}{z\_m} \cdot \left(y\_m \cdot 0.5\right)\\
\end{array}\right)\right)
\end{array}
if x < 0.0058Initial program 85.0%
Taylor expanded in x around 0
lower-/.f6462.3
Simplified62.3%
if 0.0058 < x Initial program 75.3%
Taylor expanded in x around 0
*-commutativeN/A
*-commutativeN/A
associate-/l*N/A
associate-*r*N/A
distribute-lft1-inN/A
+-commutativeN/A
associate-*l/N/A
times-fracN/A
+-commutativeN/A
distribute-rgt1-inN/A
associate-*r*N/A
*-commutativeN/A
associate-*r*N/A
lower-/.f64N/A
Simplified47.7%
Taylor expanded in x around inf
associate-*r/N/A
lower-/.f64N/A
*-commutativeN/A
associate-*r*N/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f6441.4
Simplified41.4%
lift-*.f64N/A
associate-/l*N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f6441.3
Applied egg-rr41.3%
x\_m = (fabs.f64 x)
x\_s = (copysign.f64 #s(literal 1 binary64) x)
y\_m = (fabs.f64 y)
y\_s = (copysign.f64 #s(literal 1 binary64) y)
z\_m = (fabs.f64 z)
z\_s = (copysign.f64 #s(literal 1 binary64) z)
(FPCore (z_s y_s x_s x_m y_m z_m)
:precision binary64
(*
z_s
(*
y_s
(*
x_s
(if (<= x_m 0.0058) (/ y_m (* x_m z_m)) (* (/ x_m z_m) (* y_m 0.5)))))))x\_m = fabs(x);
x\_s = copysign(1.0, x);
y\_m = fabs(y);
y\_s = copysign(1.0, y);
z\_m = fabs(z);
z\_s = copysign(1.0, z);
double code(double z_s, double y_s, double x_s, double x_m, double y_m, double z_m) {
double tmp;
if (x_m <= 0.0058) {
tmp = y_m / (x_m * z_m);
} else {
tmp = (x_m / z_m) * (y_m * 0.5);
}
return z_s * (y_s * (x_s * tmp));
}
x\_m = abs(x)
x\_s = copysign(1.0d0, x)
y\_m = abs(y)
y\_s = copysign(1.0d0, y)
z\_m = abs(z)
z\_s = copysign(1.0d0, z)
real(8) function code(z_s, y_s, x_s, x_m, y_m, z_m)
real(8), intent (in) :: z_s
real(8), intent (in) :: y_s
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y_m
real(8), intent (in) :: z_m
real(8) :: tmp
if (x_m <= 0.0058d0) then
tmp = y_m / (x_m * z_m)
else
tmp = (x_m / z_m) * (y_m * 0.5d0)
end if
code = z_s * (y_s * (x_s * tmp))
end function
x\_m = Math.abs(x);
x\_s = Math.copySign(1.0, x);
y\_m = Math.abs(y);
y\_s = Math.copySign(1.0, y);
z\_m = Math.abs(z);
z\_s = Math.copySign(1.0, z);
public static double code(double z_s, double y_s, double x_s, double x_m, double y_m, double z_m) {
double tmp;
if (x_m <= 0.0058) {
tmp = y_m / (x_m * z_m);
} else {
tmp = (x_m / z_m) * (y_m * 0.5);
}
return z_s * (y_s * (x_s * tmp));
}
x\_m = math.fabs(x) x\_s = math.copysign(1.0, x) y\_m = math.fabs(y) y\_s = math.copysign(1.0, y) z\_m = math.fabs(z) z\_s = math.copysign(1.0, z) def code(z_s, y_s, x_s, x_m, y_m, z_m): tmp = 0 if x_m <= 0.0058: tmp = y_m / (x_m * z_m) else: tmp = (x_m / z_m) * (y_m * 0.5) return z_s * (y_s * (x_s * tmp))
x\_m = abs(x) x\_s = copysign(1.0, x) y\_m = abs(y) y\_s = copysign(1.0, y) z\_m = abs(z) z\_s = copysign(1.0, z) function code(z_s, y_s, x_s, x_m, y_m, z_m) tmp = 0.0 if (x_m <= 0.0058) tmp = Float64(y_m / Float64(x_m * z_m)); else tmp = Float64(Float64(x_m / z_m) * Float64(y_m * 0.5)); end return Float64(z_s * Float64(y_s * Float64(x_s * tmp))) end
x\_m = abs(x); x\_s = sign(x) * abs(1.0); y\_m = abs(y); y\_s = sign(y) * abs(1.0); z\_m = abs(z); z\_s = sign(z) * abs(1.0); function tmp_2 = code(z_s, y_s, x_s, x_m, y_m, z_m) tmp = 0.0; if (x_m <= 0.0058) tmp = y_m / (x_m * z_m); else tmp = (x_m / z_m) * (y_m * 0.5); end tmp_2 = z_s * (y_s * (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]
y\_m = N[Abs[y], $MachinePrecision]
y\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[y]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
z\_m = N[Abs[z], $MachinePrecision]
z\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[z]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[z$95$s_, y$95$s_, x$95$s_, x$95$m_, y$95$m_, z$95$m_] := N[(z$95$s * N[(y$95$s * N[(x$95$s * If[LessEqual[x$95$m, 0.0058], N[(y$95$m / N[(x$95$m * z$95$m), $MachinePrecision]), $MachinePrecision], N[(N[(x$95$m / z$95$m), $MachinePrecision] * N[(y$95$m * 0.5), $MachinePrecision]), $MachinePrecision]]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
y\_m = \left|y\right|
\\
y\_s = \mathsf{copysign}\left(1, y\right)
\\
z\_m = \left|z\right|
\\
z\_s = \mathsf{copysign}\left(1, z\right)
\\
z\_s \cdot \left(y\_s \cdot \left(x\_s \cdot \begin{array}{l}
\mathbf{if}\;x\_m \leq 0.0058:\\
\;\;\;\;\frac{y\_m}{x\_m \cdot z\_m}\\
\mathbf{else}:\\
\;\;\;\;\frac{x\_m}{z\_m} \cdot \left(y\_m \cdot 0.5\right)\\
\end{array}\right)\right)
\end{array}
if x < 0.0058Initial program 85.0%
Taylor expanded in x around 0
lower-/.f64N/A
lower-*.f6460.9
Simplified60.9%
if 0.0058 < x Initial program 75.3%
Taylor expanded in x around 0
*-commutativeN/A
*-commutativeN/A
associate-/l*N/A
associate-*r*N/A
distribute-lft1-inN/A
+-commutativeN/A
associate-*l/N/A
times-fracN/A
+-commutativeN/A
distribute-rgt1-inN/A
associate-*r*N/A
*-commutativeN/A
associate-*r*N/A
lower-/.f64N/A
Simplified47.7%
Taylor expanded in x around inf
associate-*r/N/A
lower-/.f64N/A
*-commutativeN/A
associate-*r*N/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f6441.4
Simplified41.4%
lift-*.f64N/A
associate-/l*N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f6441.3
Applied egg-rr41.3%
x\_m = (fabs.f64 x)
x\_s = (copysign.f64 #s(literal 1 binary64) x)
y\_m = (fabs.f64 y)
y\_s = (copysign.f64 #s(literal 1 binary64) y)
z\_m = (fabs.f64 z)
z\_s = (copysign.f64 #s(literal 1 binary64) z)
(FPCore (z_s y_s x_s x_m y_m z_m)
:precision binary64
(*
z_s
(*
y_s
(*
x_s
(if (<= x_m 0.0058) (/ y_m (* x_m z_m)) (* x_m (/ (* y_m 0.5) z_m)))))))x\_m = fabs(x);
x\_s = copysign(1.0, x);
y\_m = fabs(y);
y\_s = copysign(1.0, y);
z\_m = fabs(z);
z\_s = copysign(1.0, z);
double code(double z_s, double y_s, double x_s, double x_m, double y_m, double z_m) {
double tmp;
if (x_m <= 0.0058) {
tmp = y_m / (x_m * z_m);
} else {
tmp = x_m * ((y_m * 0.5) / z_m);
}
return z_s * (y_s * (x_s * tmp));
}
x\_m = abs(x)
x\_s = copysign(1.0d0, x)
y\_m = abs(y)
y\_s = copysign(1.0d0, y)
z\_m = abs(z)
z\_s = copysign(1.0d0, z)
real(8) function code(z_s, y_s, x_s, x_m, y_m, z_m)
real(8), intent (in) :: z_s
real(8), intent (in) :: y_s
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y_m
real(8), intent (in) :: z_m
real(8) :: tmp
if (x_m <= 0.0058d0) then
tmp = y_m / (x_m * z_m)
else
tmp = x_m * ((y_m * 0.5d0) / z_m)
end if
code = z_s * (y_s * (x_s * tmp))
end function
x\_m = Math.abs(x);
x\_s = Math.copySign(1.0, x);
y\_m = Math.abs(y);
y\_s = Math.copySign(1.0, y);
z\_m = Math.abs(z);
z\_s = Math.copySign(1.0, z);
public static double code(double z_s, double y_s, double x_s, double x_m, double y_m, double z_m) {
double tmp;
if (x_m <= 0.0058) {
tmp = y_m / (x_m * z_m);
} else {
tmp = x_m * ((y_m * 0.5) / z_m);
}
return z_s * (y_s * (x_s * tmp));
}
x\_m = math.fabs(x) x\_s = math.copysign(1.0, x) y\_m = math.fabs(y) y\_s = math.copysign(1.0, y) z\_m = math.fabs(z) z\_s = math.copysign(1.0, z) def code(z_s, y_s, x_s, x_m, y_m, z_m): tmp = 0 if x_m <= 0.0058: tmp = y_m / (x_m * z_m) else: tmp = x_m * ((y_m * 0.5) / z_m) return z_s * (y_s * (x_s * tmp))
x\_m = abs(x) x\_s = copysign(1.0, x) y\_m = abs(y) y\_s = copysign(1.0, y) z\_m = abs(z) z\_s = copysign(1.0, z) function code(z_s, y_s, x_s, x_m, y_m, z_m) tmp = 0.0 if (x_m <= 0.0058) tmp = Float64(y_m / Float64(x_m * z_m)); else tmp = Float64(x_m * Float64(Float64(y_m * 0.5) / z_m)); end return Float64(z_s * Float64(y_s * Float64(x_s * tmp))) end
x\_m = abs(x); x\_s = sign(x) * abs(1.0); y\_m = abs(y); y\_s = sign(y) * abs(1.0); z\_m = abs(z); z\_s = sign(z) * abs(1.0); function tmp_2 = code(z_s, y_s, x_s, x_m, y_m, z_m) tmp = 0.0; if (x_m <= 0.0058) tmp = y_m / (x_m * z_m); else tmp = x_m * ((y_m * 0.5) / z_m); end tmp_2 = z_s * (y_s * (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]
y\_m = N[Abs[y], $MachinePrecision]
y\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[y]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
z\_m = N[Abs[z], $MachinePrecision]
z\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[z]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[z$95$s_, y$95$s_, x$95$s_, x$95$m_, y$95$m_, z$95$m_] := N[(z$95$s * N[(y$95$s * N[(x$95$s * If[LessEqual[x$95$m, 0.0058], N[(y$95$m / N[(x$95$m * z$95$m), $MachinePrecision]), $MachinePrecision], N[(x$95$m * N[(N[(y$95$m * 0.5), $MachinePrecision] / z$95$m), $MachinePrecision]), $MachinePrecision]]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
y\_m = \left|y\right|
\\
y\_s = \mathsf{copysign}\left(1, y\right)
\\
z\_m = \left|z\right|
\\
z\_s = \mathsf{copysign}\left(1, z\right)
\\
z\_s \cdot \left(y\_s \cdot \left(x\_s \cdot \begin{array}{l}
\mathbf{if}\;x\_m \leq 0.0058:\\
\;\;\;\;\frac{y\_m}{x\_m \cdot z\_m}\\
\mathbf{else}:\\
\;\;\;\;x\_m \cdot \frac{y\_m \cdot 0.5}{z\_m}\\
\end{array}\right)\right)
\end{array}
if x < 0.0058Initial program 85.0%
Taylor expanded in x around 0
lower-/.f64N/A
lower-*.f6460.9
Simplified60.9%
if 0.0058 < x Initial program 75.3%
Taylor expanded in x around 0
*-commutativeN/A
*-commutativeN/A
associate-/l*N/A
associate-*r*N/A
distribute-lft1-inN/A
+-commutativeN/A
associate-*l/N/A
times-fracN/A
+-commutativeN/A
distribute-rgt1-inN/A
associate-*r*N/A
*-commutativeN/A
associate-*r*N/A
lower-/.f64N/A
Simplified47.7%
Taylor expanded in x around inf
associate-*r/N/A
lower-/.f64N/A
*-commutativeN/A
associate-*r*N/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f6441.4
Simplified41.4%
lift-*.f64N/A
*-commutativeN/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f6436.4
Applied egg-rr36.4%
x\_m = (fabs.f64 x) x\_s = (copysign.f64 #s(literal 1 binary64) x) y\_m = (fabs.f64 y) y\_s = (copysign.f64 #s(literal 1 binary64) y) z\_m = (fabs.f64 z) z\_s = (copysign.f64 #s(literal 1 binary64) z) (FPCore (z_s y_s x_s x_m y_m z_m) :precision binary64 (* z_s (* y_s (* x_s (/ y_m (* x_m z_m))))))
x\_m = fabs(x);
x\_s = copysign(1.0, x);
y\_m = fabs(y);
y\_s = copysign(1.0, y);
z\_m = fabs(z);
z\_s = copysign(1.0, z);
double code(double z_s, double y_s, double x_s, double x_m, double y_m, double z_m) {
return z_s * (y_s * (x_s * (y_m / (x_m * z_m))));
}
x\_m = abs(x)
x\_s = copysign(1.0d0, x)
y\_m = abs(y)
y\_s = copysign(1.0d0, y)
z\_m = abs(z)
z\_s = copysign(1.0d0, z)
real(8) function code(z_s, y_s, x_s, x_m, y_m, z_m)
real(8), intent (in) :: z_s
real(8), intent (in) :: y_s
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y_m
real(8), intent (in) :: z_m
code = z_s * (y_s * (x_s * (y_m / (x_m * z_m))))
end function
x\_m = Math.abs(x);
x\_s = Math.copySign(1.0, x);
y\_m = Math.abs(y);
y\_s = Math.copySign(1.0, y);
z\_m = Math.abs(z);
z\_s = Math.copySign(1.0, z);
public static double code(double z_s, double y_s, double x_s, double x_m, double y_m, double z_m) {
return z_s * (y_s * (x_s * (y_m / (x_m * z_m))));
}
x\_m = math.fabs(x) x\_s = math.copysign(1.0, x) y\_m = math.fabs(y) y\_s = math.copysign(1.0, y) z\_m = math.fabs(z) z\_s = math.copysign(1.0, z) def code(z_s, y_s, x_s, x_m, y_m, z_m): return z_s * (y_s * (x_s * (y_m / (x_m * z_m))))
x\_m = abs(x) x\_s = copysign(1.0, x) y\_m = abs(y) y\_s = copysign(1.0, y) z\_m = abs(z) z\_s = copysign(1.0, z) function code(z_s, y_s, x_s, x_m, y_m, z_m) return Float64(z_s * Float64(y_s * Float64(x_s * Float64(y_m / Float64(x_m * z_m))))) end
x\_m = abs(x); x\_s = sign(x) * abs(1.0); y\_m = abs(y); y\_s = sign(y) * abs(1.0); z\_m = abs(z); z\_s = sign(z) * abs(1.0); function tmp = code(z_s, y_s, x_s, x_m, y_m, z_m) tmp = z_s * (y_s * (x_s * (y_m / (x_m * z_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]
y\_m = N[Abs[y], $MachinePrecision]
y\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[y]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
z\_m = N[Abs[z], $MachinePrecision]
z\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[z]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[z$95$s_, y$95$s_, x$95$s_, x$95$m_, y$95$m_, z$95$m_] := N[(z$95$s * N[(y$95$s * N[(x$95$s * N[(y$95$m / N[(x$95$m * z$95$m), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
x\_m = \left|x\right|
\\
x\_s = \mathsf{copysign}\left(1, x\right)
\\
y\_m = \left|y\right|
\\
y\_s = \mathsf{copysign}\left(1, y\right)
\\
z\_m = \left|z\right|
\\
z\_s = \mathsf{copysign}\left(1, z\right)
\\
z\_s \cdot \left(y\_s \cdot \left(x\_s \cdot \frac{y\_m}{x\_m \cdot z\_m}\right)\right)
\end{array}
Initial program 82.1%
Taylor expanded in x around 0
lower-/.f64N/A
lower-*.f6445.3
Simplified45.3%
(FPCore (x y z)
:precision binary64
(let* ((t_0 (* (/ (/ y z) x) (cosh x))))
(if (< y -4.618902267687042e-52)
t_0
(if (< y 1.038530535935153e-39) (/ (/ (* (cosh x) y) x) z) t_0))))
double code(double x, double y, double z) {
double t_0 = ((y / z) / x) * cosh(x);
double tmp;
if (y < -4.618902267687042e-52) {
tmp = t_0;
} else if (y < 1.038530535935153e-39) {
tmp = ((cosh(x) * y) / x) / z;
} else {
tmp = t_0;
}
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) :: t_0
real(8) :: tmp
t_0 = ((y / z) / x) * cosh(x)
if (y < (-4.618902267687042d-52)) then
tmp = t_0
else if (y < 1.038530535935153d-39) then
tmp = ((cosh(x) * y) / x) / z
else
tmp = t_0
end if
code = tmp
end function
public static double code(double x, double y, double z) {
double t_0 = ((y / z) / x) * Math.cosh(x);
double tmp;
if (y < -4.618902267687042e-52) {
tmp = t_0;
} else if (y < 1.038530535935153e-39) {
tmp = ((Math.cosh(x) * y) / x) / z;
} else {
tmp = t_0;
}
return tmp;
}
def code(x, y, z): t_0 = ((y / z) / x) * math.cosh(x) tmp = 0 if y < -4.618902267687042e-52: tmp = t_0 elif y < 1.038530535935153e-39: tmp = ((math.cosh(x) * y) / x) / z else: tmp = t_0 return tmp
function code(x, y, z) t_0 = Float64(Float64(Float64(y / z) / x) * cosh(x)) tmp = 0.0 if (y < -4.618902267687042e-52) tmp = t_0; elseif (y < 1.038530535935153e-39) tmp = Float64(Float64(Float64(cosh(x) * y) / x) / z); else tmp = t_0; end return tmp end
function tmp_2 = code(x, y, z) t_0 = ((y / z) / x) * cosh(x); tmp = 0.0; if (y < -4.618902267687042e-52) tmp = t_0; elseif (y < 1.038530535935153e-39) tmp = ((cosh(x) * y) / x) / z; else tmp = t_0; end tmp_2 = tmp; end
code[x_, y_, z_] := Block[{t$95$0 = N[(N[(N[(y / z), $MachinePrecision] / x), $MachinePrecision] * N[Cosh[x], $MachinePrecision]), $MachinePrecision]}, If[Less[y, -4.618902267687042e-52], t$95$0, If[Less[y, 1.038530535935153e-39], N[(N[(N[(N[Cosh[x], $MachinePrecision] * y), $MachinePrecision] / x), $MachinePrecision] / z), $MachinePrecision], t$95$0]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{\frac{y}{z}}{x} \cdot \cosh x\\
\mathbf{if}\;y < -4.618902267687042 \cdot 10^{-52}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y < 1.038530535935153 \cdot 10^{-39}:\\
\;\;\;\;\frac{\frac{\cosh x \cdot y}{x}}{z}\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}
\end{array}
herbie shell --seed 2024200
(FPCore (x y z)
:name "Linear.Quaternion:$ctan from linear-1.19.1.3"
:precision binary64
:alt
(! :herbie-platform default (if (< y -2309451133843521/5000000000000000000000000000000000000000000000000000000000000000000) (* (/ (/ y z) x) (cosh x)) (if (< y 1038530535935153/1000000000000000000000000000000000000000000000000000000) (/ (/ (* (cosh x) y) x) z) (* (/ (/ y z) x) (cosh x)))))
(/ (* (cosh x) (/ y x)) z))