
(FPCore (x y) :precision binary64 (* (cosh x) (/ (sin y) y)))
double code(double x, double y) {
return cosh(x) * (sin(y) / y);
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = cosh(x) * (sin(y) / y)
end function
public static double code(double x, double y) {
return Math.cosh(x) * (Math.sin(y) / y);
}
def code(x, y): return math.cosh(x) * (math.sin(y) / y)
function code(x, y) return Float64(cosh(x) * Float64(sin(y) / y)) end
function tmp = code(x, y) tmp = cosh(x) * (sin(y) / y); end
code[x_, y_] := N[(N[Cosh[x], $MachinePrecision] * N[(N[Sin[y], $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\cosh x \cdot \frac{\sin y}{y}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 21 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y) :precision binary64 (* (cosh x) (/ (sin y) y)))
double code(double x, double y) {
return cosh(x) * (sin(y) / y);
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = cosh(x) * (sin(y) / y)
end function
public static double code(double x, double y) {
return Math.cosh(x) * (Math.sin(y) / y);
}
def code(x, y): return math.cosh(x) * (math.sin(y) / y)
function code(x, y) return Float64(cosh(x) * Float64(sin(y) / y)) end
function tmp = code(x, y) tmp = cosh(x) * (sin(y) / y); end
code[x_, y_] := N[(N[Cosh[x], $MachinePrecision] * N[(N[Sin[y], $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\cosh x \cdot \frac{\sin y}{y}
\end{array}
(FPCore (x y) :precision binary64 (* (cosh x) (/ (sin y) y)))
double code(double x, double y) {
return cosh(x) * (sin(y) / y);
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = cosh(x) * (sin(y) / y)
end function
public static double code(double x, double y) {
return Math.cosh(x) * (Math.sin(y) / y);
}
def code(x, y): return math.cosh(x) * (math.sin(y) / y)
function code(x, y) return Float64(cosh(x) * Float64(sin(y) / y)) end
function tmp = code(x, y) tmp = cosh(x) * (sin(y) / y); end
code[x_, y_] := N[(N[Cosh[x], $MachinePrecision] * N[(N[Sin[y], $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\cosh x \cdot \frac{\sin y}{y}
\end{array}
Initial program 99.9%
(FPCore (x y)
:precision binary64
(let* ((t_0 (* (cosh x) (/ (sin y) y))))
(if (<= t_0 (- INFINITY))
(* (cosh x) (fma y (* y -0.16666666666666666) 1.0))
(if (<= t_0 0.9914654459306355)
(/
(* (sin y) (fma (* x x) (fma (* x x) 0.041666666666666664 0.5) 1.0))
y)
(cosh x)))))
double code(double x, double y) {
double t_0 = cosh(x) * (sin(y) / y);
double tmp;
if (t_0 <= -((double) INFINITY)) {
tmp = cosh(x) * fma(y, (y * -0.16666666666666666), 1.0);
} else if (t_0 <= 0.9914654459306355) {
tmp = (sin(y) * fma((x * x), fma((x * x), 0.041666666666666664, 0.5), 1.0)) / y;
} else {
tmp = cosh(x);
}
return tmp;
}
function code(x, y) t_0 = Float64(cosh(x) * Float64(sin(y) / y)) tmp = 0.0 if (t_0 <= Float64(-Inf)) tmp = Float64(cosh(x) * fma(y, Float64(y * -0.16666666666666666), 1.0)); elseif (t_0 <= 0.9914654459306355) tmp = Float64(Float64(sin(y) * fma(Float64(x * x), fma(Float64(x * x), 0.041666666666666664, 0.5), 1.0)) / y); else tmp = cosh(x); end return tmp end
code[x_, y_] := Block[{t$95$0 = N[(N[Cosh[x], $MachinePrecision] * N[(N[Sin[y], $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, (-Infinity)], N[(N[Cosh[x], $MachinePrecision] * N[(y * N[(y * -0.16666666666666666), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$0, 0.9914654459306355], N[(N[(N[Sin[y], $MachinePrecision] * N[(N[(x * x), $MachinePrecision] * N[(N[(x * x), $MachinePrecision] * 0.041666666666666664 + 0.5), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision] / y), $MachinePrecision], N[Cosh[x], $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \cosh x \cdot \frac{\sin y}{y}\\
\mathbf{if}\;t\_0 \leq -\infty:\\
\;\;\;\;\cosh x \cdot \mathsf{fma}\left(y, y \cdot -0.16666666666666666, 1\right)\\
\mathbf{elif}\;t\_0 \leq 0.9914654459306355:\\
\;\;\;\;\frac{\sin y \cdot \mathsf{fma}\left(x \cdot x, \mathsf{fma}\left(x \cdot x, 0.041666666666666664, 0.5\right), 1\right)}{y}\\
\mathbf{else}:\\
\;\;\;\;\cosh x\\
\end{array}
\end{array}
if (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) < -inf.0Initial program 100.0%
Taylor expanded in y around 0
+-commutativeN/A
*-commutativeN/A
unpow2N/A
associate-*l*N/A
lower-fma.f64N/A
lower-*.f64100.0
Simplified100.0%
if -inf.0 < (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) < 0.991465445930635458Initial program 99.5%
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-*.f6499.3
Simplified99.3%
lift-*.f64N/A
lift-*.f64N/A
lift-fma.f64N/A
lift-fma.f64N/A
lift-sin.f64N/A
div-invN/A
associate-*r*N/A
div-invN/A
lower-/.f64N/A
*-commutativeN/A
lower-*.f6499.3
Applied egg-rr99.3%
if 0.991465445930635458 < (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) Initial program 100.0%
Taylor expanded in y around 0
Simplified100.0%
lift-cosh.f64N/A
*-rgt-identity100.0
Applied egg-rr100.0%
(FPCore (x y)
:precision binary64
(let* ((t_0 (/ (sin y) y)) (t_1 (* (cosh x) t_0)))
(if (<= t_1 (- INFINITY))
(* (cosh x) (fma y (* y -0.16666666666666666) 1.0))
(if (<= t_1 0.9914654459306355)
(* t_0 (fma (* x x) (fma (* x x) 0.041666666666666664 0.5) 1.0))
(cosh x)))))
double code(double x, double y) {
double t_0 = sin(y) / y;
double t_1 = cosh(x) * t_0;
double tmp;
if (t_1 <= -((double) INFINITY)) {
tmp = cosh(x) * fma(y, (y * -0.16666666666666666), 1.0);
} else if (t_1 <= 0.9914654459306355) {
tmp = t_0 * fma((x * x), fma((x * x), 0.041666666666666664, 0.5), 1.0);
} else {
tmp = cosh(x);
}
return tmp;
}
function code(x, y) t_0 = Float64(sin(y) / y) t_1 = Float64(cosh(x) * t_0) tmp = 0.0 if (t_1 <= Float64(-Inf)) tmp = Float64(cosh(x) * fma(y, Float64(y * -0.16666666666666666), 1.0)); elseif (t_1 <= 0.9914654459306355) tmp = Float64(t_0 * fma(Float64(x * x), fma(Float64(x * x), 0.041666666666666664, 0.5), 1.0)); else tmp = cosh(x); end return tmp end
code[x_, y_] := Block[{t$95$0 = N[(N[Sin[y], $MachinePrecision] / y), $MachinePrecision]}, Block[{t$95$1 = N[(N[Cosh[x], $MachinePrecision] * t$95$0), $MachinePrecision]}, If[LessEqual[t$95$1, (-Infinity)], N[(N[Cosh[x], $MachinePrecision] * N[(y * N[(y * -0.16666666666666666), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$1, 0.9914654459306355], N[(t$95$0 * N[(N[(x * x), $MachinePrecision] * N[(N[(x * x), $MachinePrecision] * 0.041666666666666664 + 0.5), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision], N[Cosh[x], $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{\sin y}{y}\\
t_1 := \cosh x \cdot t\_0\\
\mathbf{if}\;t\_1 \leq -\infty:\\
\;\;\;\;\cosh x \cdot \mathsf{fma}\left(y, y \cdot -0.16666666666666666, 1\right)\\
\mathbf{elif}\;t\_1 \leq 0.9914654459306355:\\
\;\;\;\;t\_0 \cdot \mathsf{fma}\left(x \cdot x, \mathsf{fma}\left(x \cdot x, 0.041666666666666664, 0.5\right), 1\right)\\
\mathbf{else}:\\
\;\;\;\;\cosh x\\
\end{array}
\end{array}
if (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) < -inf.0Initial program 100.0%
Taylor expanded in y around 0
+-commutativeN/A
*-commutativeN/A
unpow2N/A
associate-*l*N/A
lower-fma.f64N/A
lower-*.f64100.0
Simplified100.0%
if -inf.0 < (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) < 0.991465445930635458Initial program 99.5%
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-*.f6499.3
Simplified99.3%
if 0.991465445930635458 < (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) Initial program 100.0%
Taylor expanded in y around 0
Simplified100.0%
lift-cosh.f64N/A
*-rgt-identity100.0
Applied egg-rr100.0%
Final simplification99.8%
(FPCore (x y)
:precision binary64
(let* ((t_0 (* (cosh x) (/ (sin y) y))))
(if (<= t_0 (- INFINITY))
(* (cosh x) (fma y (* y -0.16666666666666666) 1.0))
(if (<= t_0 0.9914654459306355)
(/ (* (sin y) (fma 0.5 (* x x) 1.0)) y)
(cosh x)))))
double code(double x, double y) {
double t_0 = cosh(x) * (sin(y) / y);
double tmp;
if (t_0 <= -((double) INFINITY)) {
tmp = cosh(x) * fma(y, (y * -0.16666666666666666), 1.0);
} else if (t_0 <= 0.9914654459306355) {
tmp = (sin(y) * fma(0.5, (x * x), 1.0)) / y;
} else {
tmp = cosh(x);
}
return tmp;
}
function code(x, y) t_0 = Float64(cosh(x) * Float64(sin(y) / y)) tmp = 0.0 if (t_0 <= Float64(-Inf)) tmp = Float64(cosh(x) * fma(y, Float64(y * -0.16666666666666666), 1.0)); elseif (t_0 <= 0.9914654459306355) tmp = Float64(Float64(sin(y) * fma(0.5, Float64(x * x), 1.0)) / y); else tmp = cosh(x); end return tmp end
code[x_, y_] := Block[{t$95$0 = N[(N[Cosh[x], $MachinePrecision] * N[(N[Sin[y], $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, (-Infinity)], N[(N[Cosh[x], $MachinePrecision] * N[(y * N[(y * -0.16666666666666666), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$0, 0.9914654459306355], N[(N[(N[Sin[y], $MachinePrecision] * N[(0.5 * N[(x * x), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision] / y), $MachinePrecision], N[Cosh[x], $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \cosh x \cdot \frac{\sin y}{y}\\
\mathbf{if}\;t\_0 \leq -\infty:\\
\;\;\;\;\cosh x \cdot \mathsf{fma}\left(y, y \cdot -0.16666666666666666, 1\right)\\
\mathbf{elif}\;t\_0 \leq 0.9914654459306355:\\
\;\;\;\;\frac{\sin y \cdot \mathsf{fma}\left(0.5, x \cdot x, 1\right)}{y}\\
\mathbf{else}:\\
\;\;\;\;\cosh x\\
\end{array}
\end{array}
if (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) < -inf.0Initial program 100.0%
Taylor expanded in y around 0
+-commutativeN/A
*-commutativeN/A
unpow2N/A
associate-*l*N/A
lower-fma.f64N/A
lower-*.f64100.0
Simplified100.0%
if -inf.0 < (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) < 0.991465445930635458Initial program 99.5%
Taylor expanded in x around 0
*-commutativeN/A
associate-/l*N/A
associate-*r*N/A
*-commutativeN/A
associate-*r*N/A
*-commutativeN/A
distribute-lft1-inN/A
+-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
lower-/.f64N/A
lower-sin.f6498.9
Simplified98.9%
lift-*.f64N/A
lift-fma.f64N/A
lift-sin.f64N/A
div-invN/A
associate-*r*N/A
div-invN/A
lower-/.f64N/A
*-commutativeN/A
lower-*.f6498.9
Applied egg-rr98.9%
if 0.991465445930635458 < (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) Initial program 100.0%
Taylor expanded in y around 0
Simplified100.0%
lift-cosh.f64N/A
*-rgt-identity100.0
Applied egg-rr100.0%
(FPCore (x y)
:precision binary64
(let* ((t_0 (/ (sin y) y)) (t_1 (* (cosh x) t_0)))
(if (<= t_1 (- INFINITY))
(* (cosh x) (fma y (* y -0.16666666666666666) 1.0))
(if (<= t_1 0.9914654459306355) (* t_0 (fma 0.5 (* x x) 1.0)) (cosh x)))))
double code(double x, double y) {
double t_0 = sin(y) / y;
double t_1 = cosh(x) * t_0;
double tmp;
if (t_1 <= -((double) INFINITY)) {
tmp = cosh(x) * fma(y, (y * -0.16666666666666666), 1.0);
} else if (t_1 <= 0.9914654459306355) {
tmp = t_0 * fma(0.5, (x * x), 1.0);
} else {
tmp = cosh(x);
}
return tmp;
}
function code(x, y) t_0 = Float64(sin(y) / y) t_1 = Float64(cosh(x) * t_0) tmp = 0.0 if (t_1 <= Float64(-Inf)) tmp = Float64(cosh(x) * fma(y, Float64(y * -0.16666666666666666), 1.0)); elseif (t_1 <= 0.9914654459306355) tmp = Float64(t_0 * fma(0.5, Float64(x * x), 1.0)); else tmp = cosh(x); end return tmp end
code[x_, y_] := Block[{t$95$0 = N[(N[Sin[y], $MachinePrecision] / y), $MachinePrecision]}, Block[{t$95$1 = N[(N[Cosh[x], $MachinePrecision] * t$95$0), $MachinePrecision]}, If[LessEqual[t$95$1, (-Infinity)], N[(N[Cosh[x], $MachinePrecision] * N[(y * N[(y * -0.16666666666666666), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$1, 0.9914654459306355], N[(t$95$0 * N[(0.5 * N[(x * x), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision], N[Cosh[x], $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{\sin y}{y}\\
t_1 := \cosh x \cdot t\_0\\
\mathbf{if}\;t\_1 \leq -\infty:\\
\;\;\;\;\cosh x \cdot \mathsf{fma}\left(y, y \cdot -0.16666666666666666, 1\right)\\
\mathbf{elif}\;t\_1 \leq 0.9914654459306355:\\
\;\;\;\;t\_0 \cdot \mathsf{fma}\left(0.5, x \cdot x, 1\right)\\
\mathbf{else}:\\
\;\;\;\;\cosh x\\
\end{array}
\end{array}
if (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) < -inf.0Initial program 100.0%
Taylor expanded in y around 0
+-commutativeN/A
*-commutativeN/A
unpow2N/A
associate-*l*N/A
lower-fma.f64N/A
lower-*.f64100.0
Simplified100.0%
if -inf.0 < (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) < 0.991465445930635458Initial program 99.5%
Taylor expanded in x around 0
*-commutativeN/A
associate-/l*N/A
associate-*r*N/A
*-commutativeN/A
associate-*r*N/A
*-commutativeN/A
distribute-lft1-inN/A
+-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
lower-/.f64N/A
lower-sin.f6498.9
Simplified98.9%
if 0.991465445930635458 < (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) Initial program 100.0%
Taylor expanded in y around 0
Simplified100.0%
lift-cosh.f64N/A
*-rgt-identity100.0
Applied egg-rr100.0%
Final simplification99.7%
(FPCore (x y)
:precision binary64
(let* ((t_0 (/ (sin y) y)) (t_1 (* (cosh x) t_0)))
(if (<= t_1 (- INFINITY))
(* (cosh x) (fma y (* y -0.16666666666666666) 1.0))
(if (<= t_1 0.9914654459306355) t_0 (cosh x)))))
double code(double x, double y) {
double t_0 = sin(y) / y;
double t_1 = cosh(x) * t_0;
double tmp;
if (t_1 <= -((double) INFINITY)) {
tmp = cosh(x) * fma(y, (y * -0.16666666666666666), 1.0);
} else if (t_1 <= 0.9914654459306355) {
tmp = t_0;
} else {
tmp = cosh(x);
}
return tmp;
}
function code(x, y) t_0 = Float64(sin(y) / y) t_1 = Float64(cosh(x) * t_0) tmp = 0.0 if (t_1 <= Float64(-Inf)) tmp = Float64(cosh(x) * fma(y, Float64(y * -0.16666666666666666), 1.0)); elseif (t_1 <= 0.9914654459306355) tmp = t_0; else tmp = cosh(x); end return tmp end
code[x_, y_] := Block[{t$95$0 = N[(N[Sin[y], $MachinePrecision] / y), $MachinePrecision]}, Block[{t$95$1 = N[(N[Cosh[x], $MachinePrecision] * t$95$0), $MachinePrecision]}, If[LessEqual[t$95$1, (-Infinity)], N[(N[Cosh[x], $MachinePrecision] * N[(y * N[(y * -0.16666666666666666), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$1, 0.9914654459306355], t$95$0, N[Cosh[x], $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{\sin y}{y}\\
t_1 := \cosh x \cdot t\_0\\
\mathbf{if}\;t\_1 \leq -\infty:\\
\;\;\;\;\cosh x \cdot \mathsf{fma}\left(y, y \cdot -0.16666666666666666, 1\right)\\
\mathbf{elif}\;t\_1 \leq 0.9914654459306355:\\
\;\;\;\;t\_0\\
\mathbf{else}:\\
\;\;\;\;\cosh x\\
\end{array}
\end{array}
if (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) < -inf.0Initial program 100.0%
Taylor expanded in y around 0
+-commutativeN/A
*-commutativeN/A
unpow2N/A
associate-*l*N/A
lower-fma.f64N/A
lower-*.f64100.0
Simplified100.0%
if -inf.0 < (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) < 0.991465445930635458Initial program 99.5%
Taylor expanded in x around 0
lower-/.f64N/A
lower-sin.f6498.1
Simplified98.1%
if 0.991465445930635458 < (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) Initial program 100.0%
Taylor expanded in y around 0
Simplified100.0%
lift-cosh.f64N/A
*-rgt-identity100.0
Applied egg-rr100.0%
(FPCore (x y)
:precision binary64
(let* ((t_0 (/ (sin y) y)) (t_1 (* (cosh x) t_0)))
(if (<= t_1 (- INFINITY))
(*
(fma y (* y -0.16666666666666666) 1.0)
(fma (* x x) (fma (* x x) 0.041666666666666664 0.5) 1.0))
(if (<= t_1 0.9914654459306355) t_0 (cosh x)))))
double code(double x, double y) {
double t_0 = sin(y) / y;
double t_1 = cosh(x) * t_0;
double tmp;
if (t_1 <= -((double) INFINITY)) {
tmp = fma(y, (y * -0.16666666666666666), 1.0) * fma((x * x), fma((x * x), 0.041666666666666664, 0.5), 1.0);
} else if (t_1 <= 0.9914654459306355) {
tmp = t_0;
} else {
tmp = cosh(x);
}
return tmp;
}
function code(x, y) t_0 = Float64(sin(y) / y) t_1 = Float64(cosh(x) * t_0) tmp = 0.0 if (t_1 <= Float64(-Inf)) tmp = Float64(fma(y, Float64(y * -0.16666666666666666), 1.0) * fma(Float64(x * x), fma(Float64(x * x), 0.041666666666666664, 0.5), 1.0)); elseif (t_1 <= 0.9914654459306355) tmp = t_0; else tmp = cosh(x); end return tmp end
code[x_, y_] := Block[{t$95$0 = N[(N[Sin[y], $MachinePrecision] / y), $MachinePrecision]}, Block[{t$95$1 = N[(N[Cosh[x], $MachinePrecision] * t$95$0), $MachinePrecision]}, If[LessEqual[t$95$1, (-Infinity)], N[(N[(y * N[(y * -0.16666666666666666), $MachinePrecision] + 1.0), $MachinePrecision] * N[(N[(x * x), $MachinePrecision] * N[(N[(x * x), $MachinePrecision] * 0.041666666666666664 + 0.5), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$1, 0.9914654459306355], t$95$0, N[Cosh[x], $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{\sin y}{y}\\
t_1 := \cosh x \cdot t\_0\\
\mathbf{if}\;t\_1 \leq -\infty:\\
\;\;\;\;\mathsf{fma}\left(y, y \cdot -0.16666666666666666, 1\right) \cdot \mathsf{fma}\left(x \cdot x, \mathsf{fma}\left(x \cdot x, 0.041666666666666664, 0.5\right), 1\right)\\
\mathbf{elif}\;t\_1 \leq 0.9914654459306355:\\
\;\;\;\;t\_0\\
\mathbf{else}:\\
\;\;\;\;\cosh x\\
\end{array}
\end{array}
if (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) < -inf.0Initial program 100.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-*.f6475.6
Simplified75.6%
Taylor expanded in y around 0
+-commutativeN/A
*-commutativeN/A
unpow2N/A
associate-*l*N/A
*-commutativeN/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f6497.6
Simplified97.6%
if -inf.0 < (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) < 0.991465445930635458Initial program 99.5%
Taylor expanded in x around 0
lower-/.f64N/A
lower-sin.f6498.1
Simplified98.1%
if 0.991465445930635458 < (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) Initial program 100.0%
Taylor expanded in y around 0
Simplified100.0%
lift-cosh.f64N/A
*-rgt-identity100.0
Applied egg-rr100.0%
Final simplification99.2%
(FPCore (x y)
:precision binary64
(let* ((t_0 (* (cosh x) (/ (sin y) y))))
(if (<= t_0 -1e-145)
(* y (* y -0.16666666666666666))
(if (<= t_0 2.0) 1.0 (* (* x x) 0.5)))))
double code(double x, double y) {
double t_0 = cosh(x) * (sin(y) / y);
double tmp;
if (t_0 <= -1e-145) {
tmp = y * (y * -0.16666666666666666);
} else if (t_0 <= 2.0) {
tmp = 1.0;
} else {
tmp = (x * x) * 0.5;
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
real(8) :: tmp
t_0 = cosh(x) * (sin(y) / y)
if (t_0 <= (-1d-145)) then
tmp = y * (y * (-0.16666666666666666d0))
else if (t_0 <= 2.0d0) then
tmp = 1.0d0
else
tmp = (x * x) * 0.5d0
end if
code = tmp
end function
public static double code(double x, double y) {
double t_0 = Math.cosh(x) * (Math.sin(y) / y);
double tmp;
if (t_0 <= -1e-145) {
tmp = y * (y * -0.16666666666666666);
} else if (t_0 <= 2.0) {
tmp = 1.0;
} else {
tmp = (x * x) * 0.5;
}
return tmp;
}
def code(x, y): t_0 = math.cosh(x) * (math.sin(y) / y) tmp = 0 if t_0 <= -1e-145: tmp = y * (y * -0.16666666666666666) elif t_0 <= 2.0: tmp = 1.0 else: tmp = (x * x) * 0.5 return tmp
function code(x, y) t_0 = Float64(cosh(x) * Float64(sin(y) / y)) tmp = 0.0 if (t_0 <= -1e-145) tmp = Float64(y * Float64(y * -0.16666666666666666)); elseif (t_0 <= 2.0) tmp = 1.0; else tmp = Float64(Float64(x * x) * 0.5); end return tmp end
function tmp_2 = code(x, y) t_0 = cosh(x) * (sin(y) / y); tmp = 0.0; if (t_0 <= -1e-145) tmp = y * (y * -0.16666666666666666); elseif (t_0 <= 2.0) tmp = 1.0; else tmp = (x * x) * 0.5; end tmp_2 = tmp; end
code[x_, y_] := Block[{t$95$0 = N[(N[Cosh[x], $MachinePrecision] * N[(N[Sin[y], $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, -1e-145], N[(y * N[(y * -0.16666666666666666), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$0, 2.0], 1.0, N[(N[(x * x), $MachinePrecision] * 0.5), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \cosh x \cdot \frac{\sin y}{y}\\
\mathbf{if}\;t\_0 \leq -1 \cdot 10^{-145}:\\
\;\;\;\;y \cdot \left(y \cdot -0.16666666666666666\right)\\
\mathbf{elif}\;t\_0 \leq 2:\\
\;\;\;\;1\\
\mathbf{else}:\\
\;\;\;\;\left(x \cdot x\right) \cdot 0.5\\
\end{array}
\end{array}
if (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) < -9.99999999999999915e-146Initial program 99.9%
Taylor expanded in x around 0
lower-/.f64N/A
lower-sin.f6423.3
Simplified23.3%
Taylor expanded in y around 0
+-commutativeN/A
distribute-lft-inN/A
*-rgt-identityN/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
unpow2N/A
lower-*.f6450.1
Simplified50.1%
Taylor expanded in y around inf
*-commutativeN/A
unpow2N/A
associate-*l*N/A
lower-*.f64N/A
lower-*.f6439.0
Simplified39.0%
if -9.99999999999999915e-146 < (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) < 2Initial program 99.8%
Taylor expanded in y around 0
Simplified60.7%
Taylor expanded in x around 0
Simplified59.9%
if 2 < (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) Initial program 100.0%
Taylor expanded in y around 0
Simplified100.0%
Taylor expanded in x around 0
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6453.4
Simplified53.4%
Taylor expanded in x around inf
lower-*.f64N/A
unpow2N/A
lower-*.f6453.4
Simplified53.4%
Final simplification53.5%
(FPCore (x y)
:precision binary64
(let* ((t_0 (/ (sin y) y)))
(if (<= (* (cosh x) t_0) 0.9914654459306355)
(*
t_0
(fma
(* x x)
(fma
x
(* x (fma (* x x) 0.001388888888888889 0.041666666666666664))
0.5)
1.0))
(cosh x))))
double code(double x, double y) {
double t_0 = sin(y) / y;
double tmp;
if ((cosh(x) * t_0) <= 0.9914654459306355) {
tmp = t_0 * fma((x * x), fma(x, (x * fma((x * x), 0.001388888888888889, 0.041666666666666664)), 0.5), 1.0);
} else {
tmp = cosh(x);
}
return tmp;
}
function code(x, y) t_0 = Float64(sin(y) / y) tmp = 0.0 if (Float64(cosh(x) * t_0) <= 0.9914654459306355) tmp = Float64(t_0 * fma(Float64(x * x), fma(x, Float64(x * fma(Float64(x * x), 0.001388888888888889, 0.041666666666666664)), 0.5), 1.0)); else tmp = cosh(x); end return tmp end
code[x_, y_] := Block[{t$95$0 = N[(N[Sin[y], $MachinePrecision] / y), $MachinePrecision]}, If[LessEqual[N[(N[Cosh[x], $MachinePrecision] * t$95$0), $MachinePrecision], 0.9914654459306355], N[(t$95$0 * N[(N[(x * x), $MachinePrecision] * N[(x * N[(x * N[(N[(x * x), $MachinePrecision] * 0.001388888888888889 + 0.041666666666666664), $MachinePrecision]), $MachinePrecision] + 0.5), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision], N[Cosh[x], $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{\sin y}{y}\\
\mathbf{if}\;\cosh x \cdot t\_0 \leq 0.9914654459306355:\\
\;\;\;\;t\_0 \cdot \mathsf{fma}\left(x \cdot x, \mathsf{fma}\left(x, x \cdot \mathsf{fma}\left(x \cdot x, 0.001388888888888889, 0.041666666666666664\right), 0.5\right), 1\right)\\
\mathbf{else}:\\
\;\;\;\;\cosh x\\
\end{array}
\end{array}
if (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) < 0.991465445930635458Initial program 99.7%
Taylor expanded in x around 0
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
+-commutativeN/A
unpow2N/A
associate-*l*N/A
*-commutativeN/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6495.7
Simplified95.7%
if 0.991465445930635458 < (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) Initial program 100.0%
Taylor expanded in y around 0
Simplified100.0%
lift-cosh.f64N/A
*-rgt-identity100.0
Applied egg-rr100.0%
Final simplification98.4%
(FPCore (x y)
:precision binary64
(if (<= (* (cosh x) (/ (sin y) y)) -1e-145)
(*
(fma y (* y -0.16666666666666666) 1.0)
(fma (* x x) (fma (* x x) 0.041666666666666664 0.5) 1.0))
(cosh x)))
double code(double x, double y) {
double tmp;
if ((cosh(x) * (sin(y) / y)) <= -1e-145) {
tmp = fma(y, (y * -0.16666666666666666), 1.0) * fma((x * x), fma((x * x), 0.041666666666666664, 0.5), 1.0);
} else {
tmp = cosh(x);
}
return tmp;
}
function code(x, y) tmp = 0.0 if (Float64(cosh(x) * Float64(sin(y) / y)) <= -1e-145) tmp = Float64(fma(y, Float64(y * -0.16666666666666666), 1.0) * fma(Float64(x * x), fma(Float64(x * x), 0.041666666666666664, 0.5), 1.0)); else tmp = cosh(x); end return tmp end
code[x_, y_] := If[LessEqual[N[(N[Cosh[x], $MachinePrecision] * N[(N[Sin[y], $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision], -1e-145], N[(N[(y * N[(y * -0.16666666666666666), $MachinePrecision] + 1.0), $MachinePrecision] * N[(N[(x * x), $MachinePrecision] * N[(N[(x * x), $MachinePrecision] * 0.041666666666666664 + 0.5), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision], N[Cosh[x], $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\cosh x \cdot \frac{\sin y}{y} \leq -1 \cdot 10^{-145}:\\
\;\;\;\;\mathsf{fma}\left(y, y \cdot -0.16666666666666666, 1\right) \cdot \mathsf{fma}\left(x \cdot x, \mathsf{fma}\left(x \cdot x, 0.041666666666666664, 0.5\right), 1\right)\\
\mathbf{else}:\\
\;\;\;\;\cosh x\\
\end{array}
\end{array}
if (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) < -9.99999999999999915e-146Initial program 99.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-*.f6480.8
Simplified80.8%
Taylor expanded in y around 0
+-commutativeN/A
*-commutativeN/A
unpow2N/A
associate-*l*N/A
*-commutativeN/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f6476.9
Simplified76.9%
if -9.99999999999999915e-146 < (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) Initial program 99.9%
Taylor expanded in y around 0
Simplified78.5%
lift-cosh.f64N/A
*-rgt-identity78.5
Applied egg-rr78.5%
Final simplification78.2%
(FPCore (x y)
:precision binary64
(let* ((t_0 (/ (sin y) y)))
(if (<= t_0 -1e-304)
(*
(fma y (* y -0.16666666666666666) 1.0)
(fma (* x x) (fma (* x x) 0.041666666666666664 0.5) 1.0))
(if (<= t_0 5e-67)
(*
(fma 0.5 (* x x) 1.0)
(fma
(* y y)
(fma y (* y 0.008333333333333333) -0.16666666666666666)
1.0))
(fma
x
(*
x
(fma
(* x x)
(fma (* x x) 0.001388888888888889 0.041666666666666664)
0.5))
1.0)))))
double code(double x, double y) {
double t_0 = sin(y) / y;
double tmp;
if (t_0 <= -1e-304) {
tmp = fma(y, (y * -0.16666666666666666), 1.0) * fma((x * x), fma((x * x), 0.041666666666666664, 0.5), 1.0);
} else if (t_0 <= 5e-67) {
tmp = fma(0.5, (x * x), 1.0) * fma((y * y), fma(y, (y * 0.008333333333333333), -0.16666666666666666), 1.0);
} else {
tmp = fma(x, (x * fma((x * x), fma((x * x), 0.001388888888888889, 0.041666666666666664), 0.5)), 1.0);
}
return tmp;
}
function code(x, y) t_0 = Float64(sin(y) / y) tmp = 0.0 if (t_0 <= -1e-304) tmp = Float64(fma(y, Float64(y * -0.16666666666666666), 1.0) * fma(Float64(x * x), fma(Float64(x * x), 0.041666666666666664, 0.5), 1.0)); elseif (t_0 <= 5e-67) tmp = Float64(fma(0.5, Float64(x * x), 1.0) * fma(Float64(y * y), fma(y, Float64(y * 0.008333333333333333), -0.16666666666666666), 1.0)); else tmp = fma(x, Float64(x * fma(Float64(x * x), fma(Float64(x * x), 0.001388888888888889, 0.041666666666666664), 0.5)), 1.0); end return tmp end
code[x_, y_] := Block[{t$95$0 = N[(N[Sin[y], $MachinePrecision] / y), $MachinePrecision]}, If[LessEqual[t$95$0, -1e-304], N[(N[(y * N[(y * -0.16666666666666666), $MachinePrecision] + 1.0), $MachinePrecision] * N[(N[(x * x), $MachinePrecision] * N[(N[(x * x), $MachinePrecision] * 0.041666666666666664 + 0.5), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$0, 5e-67], N[(N[(0.5 * N[(x * x), $MachinePrecision] + 1.0), $MachinePrecision] * N[(N[(y * y), $MachinePrecision] * N[(y * N[(y * 0.008333333333333333), $MachinePrecision] + -0.16666666666666666), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision], N[(x * N[(x * N[(N[(x * x), $MachinePrecision] * N[(N[(x * x), $MachinePrecision] * 0.001388888888888889 + 0.041666666666666664), $MachinePrecision] + 0.5), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{\sin y}{y}\\
\mathbf{if}\;t\_0 \leq -1 \cdot 10^{-304}:\\
\;\;\;\;\mathsf{fma}\left(y, y \cdot -0.16666666666666666, 1\right) \cdot \mathsf{fma}\left(x \cdot x, \mathsf{fma}\left(x \cdot x, 0.041666666666666664, 0.5\right), 1\right)\\
\mathbf{elif}\;t\_0 \leq 5 \cdot 10^{-67}:\\
\;\;\;\;\mathsf{fma}\left(0.5, x \cdot x, 1\right) \cdot \mathsf{fma}\left(y \cdot y, \mathsf{fma}\left(y, y \cdot 0.008333333333333333, -0.16666666666666666\right), 1\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(x, x \cdot \mathsf{fma}\left(x \cdot x, \mathsf{fma}\left(x \cdot x, 0.001388888888888889, 0.041666666666666664\right), 0.5\right), 1\right)\\
\end{array}
\end{array}
if (/.f64 (sin.f64 y) y) < -9.99999999999999971e-305Initial program 99.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-*.f6485.1
Simplified85.1%
Taylor expanded in y around 0
+-commutativeN/A
*-commutativeN/A
unpow2N/A
associate-*l*N/A
*-commutativeN/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f6459.7
Simplified59.7%
if -9.99999999999999971e-305 < (/.f64 (sin.f64 y) y) < 4.9999999999999999e-67Initial program 99.8%
Taylor expanded in x around 0
*-commutativeN/A
associate-/l*N/A
associate-*r*N/A
*-commutativeN/A
associate-*r*N/A
*-commutativeN/A
distribute-lft1-inN/A
+-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
lower-/.f64N/A
lower-sin.f6474.6
Simplified74.6%
Taylor expanded in y around 0
associate-+r+N/A
*-rgt-identityN/A
distribute-lft-inN/A
associate-*r*N/A
*-commutativeN/A
associate-*r*N/A
associate-*r*N/A
distribute-rgt-outN/A
*-commutativeN/A
distribute-lft-inN/A
+-commutativeN/A
metadata-evalN/A
Simplified57.8%
if 4.9999999999999999e-67 < (/.f64 (sin.f64 y) y) Initial program 99.9%
Taylor expanded in x around 0
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
+-commutativeN/A
unpow2N/A
associate-*l*N/A
*-commutativeN/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6491.0
Simplified91.0%
Taylor expanded in y around 0
+-commutativeN/A
unpow2N/A
associate-*l*N/A
lower-fma.f64N/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-*.f6483.1
Simplified83.1%
Final simplification72.8%
(FPCore (x y)
:precision binary64
(let* ((t_0 (/ (sin y) y)))
(if (<= t_0 -1e-304)
(fma
y
(*
y
(fma
(* y y)
(fma y (* y -0.0001984126984126984) 0.008333333333333333)
-0.16666666666666666))
1.0)
(if (<= t_0 5e-67)
(*
(fma 0.5 (* x x) 1.0)
(fma
(* y y)
(fma y (* y 0.008333333333333333) -0.16666666666666666)
1.0))
(fma
x
(*
x
(fma
(* x x)
(fma (* x x) 0.001388888888888889 0.041666666666666664)
0.5))
1.0)))))
double code(double x, double y) {
double t_0 = sin(y) / y;
double tmp;
if (t_0 <= -1e-304) {
tmp = fma(y, (y * fma((y * y), fma(y, (y * -0.0001984126984126984), 0.008333333333333333), -0.16666666666666666)), 1.0);
} else if (t_0 <= 5e-67) {
tmp = fma(0.5, (x * x), 1.0) * fma((y * y), fma(y, (y * 0.008333333333333333), -0.16666666666666666), 1.0);
} else {
tmp = fma(x, (x * fma((x * x), fma((x * x), 0.001388888888888889, 0.041666666666666664), 0.5)), 1.0);
}
return tmp;
}
function code(x, y) t_0 = Float64(sin(y) / y) tmp = 0.0 if (t_0 <= -1e-304) tmp = fma(y, Float64(y * fma(Float64(y * y), fma(y, Float64(y * -0.0001984126984126984), 0.008333333333333333), -0.16666666666666666)), 1.0); elseif (t_0 <= 5e-67) tmp = Float64(fma(0.5, Float64(x * x), 1.0) * fma(Float64(y * y), fma(y, Float64(y * 0.008333333333333333), -0.16666666666666666), 1.0)); else tmp = fma(x, Float64(x * fma(Float64(x * x), fma(Float64(x * x), 0.001388888888888889, 0.041666666666666664), 0.5)), 1.0); end return tmp end
code[x_, y_] := Block[{t$95$0 = N[(N[Sin[y], $MachinePrecision] / y), $MachinePrecision]}, If[LessEqual[t$95$0, -1e-304], N[(y * N[(y * N[(N[(y * y), $MachinePrecision] * N[(y * N[(y * -0.0001984126984126984), $MachinePrecision] + 0.008333333333333333), $MachinePrecision] + -0.16666666666666666), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision], If[LessEqual[t$95$0, 5e-67], N[(N[(0.5 * N[(x * x), $MachinePrecision] + 1.0), $MachinePrecision] * N[(N[(y * y), $MachinePrecision] * N[(y * N[(y * 0.008333333333333333), $MachinePrecision] + -0.16666666666666666), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision], N[(x * N[(x * N[(N[(x * x), $MachinePrecision] * N[(N[(x * x), $MachinePrecision] * 0.001388888888888889 + 0.041666666666666664), $MachinePrecision] + 0.5), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{\sin y}{y}\\
\mathbf{if}\;t\_0 \leq -1 \cdot 10^{-304}:\\
\;\;\;\;\mathsf{fma}\left(y, y \cdot \mathsf{fma}\left(y \cdot y, \mathsf{fma}\left(y, y \cdot -0.0001984126984126984, 0.008333333333333333\right), -0.16666666666666666\right), 1\right)\\
\mathbf{elif}\;t\_0 \leq 5 \cdot 10^{-67}:\\
\;\;\;\;\mathsf{fma}\left(0.5, x \cdot x, 1\right) \cdot \mathsf{fma}\left(y \cdot y, \mathsf{fma}\left(y, y \cdot 0.008333333333333333, -0.16666666666666666\right), 1\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(x, x \cdot \mathsf{fma}\left(x \cdot x, \mathsf{fma}\left(x \cdot x, 0.001388888888888889, 0.041666666666666664\right), 0.5\right), 1\right)\\
\end{array}
\end{array}
if (/.f64 (sin.f64 y) y) < -9.99999999999999971e-305Initial program 99.8%
Taylor expanded in x around 0
lower-/.f64N/A
lower-sin.f6440.9
Simplified40.9%
Taylor expanded in y around 0
+-commutativeN/A
unpow2N/A
associate-*l*N/A
lower-fma.f64N/A
lower-*.f64N/A
sub-negN/A
metadata-evalN/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-*.f6453.7
Simplified53.7%
if -9.99999999999999971e-305 < (/.f64 (sin.f64 y) y) < 4.9999999999999999e-67Initial program 99.8%
Taylor expanded in x around 0
*-commutativeN/A
associate-/l*N/A
associate-*r*N/A
*-commutativeN/A
associate-*r*N/A
*-commutativeN/A
distribute-lft1-inN/A
+-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
lower-/.f64N/A
lower-sin.f6474.6
Simplified74.6%
Taylor expanded in y around 0
associate-+r+N/A
*-rgt-identityN/A
distribute-lft-inN/A
associate-*r*N/A
*-commutativeN/A
associate-*r*N/A
associate-*r*N/A
distribute-rgt-outN/A
*-commutativeN/A
distribute-lft-inN/A
+-commutativeN/A
metadata-evalN/A
Simplified57.8%
if 4.9999999999999999e-67 < (/.f64 (sin.f64 y) y) Initial program 99.9%
Taylor expanded in x around 0
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
+-commutativeN/A
unpow2N/A
associate-*l*N/A
*-commutativeN/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6491.0
Simplified91.0%
Taylor expanded in y around 0
+-commutativeN/A
unpow2N/A
associate-*l*N/A
lower-fma.f64N/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-*.f6483.1
Simplified83.1%
(FPCore (x y)
:precision binary64
(let* ((t_0 (/ (sin y) y)))
(if (<= t_0 -1e-304)
(* y (* y (fma (* x x) -0.08333333333333333 -0.16666666666666666)))
(if (<= t_0 2e-95)
(fma
y
(* y (fma (* y y) 0.008333333333333333 -0.16666666666666666))
1.0)
(fma x (* x (fma (* x x) 0.041666666666666664 0.5)) 1.0)))))
double code(double x, double y) {
double t_0 = sin(y) / y;
double tmp;
if (t_0 <= -1e-304) {
tmp = y * (y * fma((x * x), -0.08333333333333333, -0.16666666666666666));
} else if (t_0 <= 2e-95) {
tmp = fma(y, (y * fma((y * y), 0.008333333333333333, -0.16666666666666666)), 1.0);
} else {
tmp = fma(x, (x * fma((x * x), 0.041666666666666664, 0.5)), 1.0);
}
return tmp;
}
function code(x, y) t_0 = Float64(sin(y) / y) tmp = 0.0 if (t_0 <= -1e-304) tmp = Float64(y * Float64(y * fma(Float64(x * x), -0.08333333333333333, -0.16666666666666666))); elseif (t_0 <= 2e-95) tmp = fma(y, Float64(y * fma(Float64(y * y), 0.008333333333333333, -0.16666666666666666)), 1.0); else tmp = fma(x, Float64(x * fma(Float64(x * x), 0.041666666666666664, 0.5)), 1.0); end return tmp end
code[x_, y_] := Block[{t$95$0 = N[(N[Sin[y], $MachinePrecision] / y), $MachinePrecision]}, If[LessEqual[t$95$0, -1e-304], N[(y * N[(y * N[(N[(x * x), $MachinePrecision] * -0.08333333333333333 + -0.16666666666666666), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$0, 2e-95], N[(y * N[(y * N[(N[(y * y), $MachinePrecision] * 0.008333333333333333 + -0.16666666666666666), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision], N[(x * N[(x * N[(N[(x * x), $MachinePrecision] * 0.041666666666666664 + 0.5), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{\sin y}{y}\\
\mathbf{if}\;t\_0 \leq -1 \cdot 10^{-304}:\\
\;\;\;\;y \cdot \left(y \cdot \mathsf{fma}\left(x \cdot x, -0.08333333333333333, -0.16666666666666666\right)\right)\\
\mathbf{elif}\;t\_0 \leq 2 \cdot 10^{-95}:\\
\;\;\;\;\mathsf{fma}\left(y, y \cdot \mathsf{fma}\left(y \cdot y, 0.008333333333333333, -0.16666666666666666\right), 1\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(x, x \cdot \mathsf{fma}\left(x \cdot x, 0.041666666666666664, 0.5\right), 1\right)\\
\end{array}
\end{array}
if (/.f64 (sin.f64 y) y) < -9.99999999999999971e-305Initial program 99.8%
Taylor expanded in x around 0
*-commutativeN/A
associate-/l*N/A
associate-*r*N/A
*-commutativeN/A
associate-*r*N/A
*-commutativeN/A
distribute-lft1-inN/A
+-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
lower-/.f64N/A
lower-sin.f6479.0
Simplified79.0%
Taylor expanded in y around 0
+-commutativeN/A
distribute-lft-inN/A
*-rgt-identityN/A
lower-fma.f64N/A
unpow2N/A
associate-*r*N/A
*-commutativeN/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f6453.9
Simplified53.9%
Taylor expanded in y around inf
*-commutativeN/A
associate-*r*N/A
unpow2N/A
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
+-commutativeN/A
distribute-rgt-inN/A
*-commutativeN/A
associate-*l*N/A
metadata-evalN/A
metadata-evalN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6452.5
Simplified52.5%
if -9.99999999999999971e-305 < (/.f64 (sin.f64 y) y) < 1.99999999999999998e-95Initial program 99.8%
Taylor expanded in x around 0
lower-/.f64N/A
lower-sin.f6438.2
Simplified38.2%
Taylor expanded in y around 0
+-commutativeN/A
unpow2N/A
associate-*l*N/A
lower-fma.f64N/A
lower-*.f64N/A
sub-negN/A
*-commutativeN/A
metadata-evalN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6462.0
Simplified62.0%
if 1.99999999999999998e-95 < (/.f64 (sin.f64 y) y) Initial program 99.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-*.f6488.8
Simplified88.8%
Taylor expanded in y around 0
+-commutativeN/A
unpow2N/A
associate-*l*N/A
lower-fma.f64N/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6478.3
Simplified78.3%
Final simplification69.5%
(FPCore (x y)
:precision binary64
(if (<= (* (cosh x) (/ (sin y) y)) -1e-145)
(fma
y
(*
y
(fma
(* y y)
(fma y (* y -0.0001984126984126984) 0.008333333333333333)
-0.16666666666666666))
1.0)
(fma
x
(*
x
(fma (* x x) (fma (* x x) 0.001388888888888889 0.041666666666666664) 0.5))
1.0)))
double code(double x, double y) {
double tmp;
if ((cosh(x) * (sin(y) / y)) <= -1e-145) {
tmp = fma(y, (y * fma((y * y), fma(y, (y * -0.0001984126984126984), 0.008333333333333333), -0.16666666666666666)), 1.0);
} else {
tmp = fma(x, (x * fma((x * x), fma((x * x), 0.001388888888888889, 0.041666666666666664), 0.5)), 1.0);
}
return tmp;
}
function code(x, y) tmp = 0.0 if (Float64(cosh(x) * Float64(sin(y) / y)) <= -1e-145) tmp = fma(y, Float64(y * fma(Float64(y * y), fma(y, Float64(y * -0.0001984126984126984), 0.008333333333333333), -0.16666666666666666)), 1.0); else tmp = fma(x, Float64(x * fma(Float64(x * x), fma(Float64(x * x), 0.001388888888888889, 0.041666666666666664), 0.5)), 1.0); end return tmp end
code[x_, y_] := If[LessEqual[N[(N[Cosh[x], $MachinePrecision] * N[(N[Sin[y], $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision], -1e-145], N[(y * N[(y * N[(N[(y * y), $MachinePrecision] * N[(y * N[(y * -0.0001984126984126984), $MachinePrecision] + 0.008333333333333333), $MachinePrecision] + -0.16666666666666666), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision], N[(x * N[(x * N[(N[(x * x), $MachinePrecision] * N[(N[(x * x), $MachinePrecision] * 0.001388888888888889 + 0.041666666666666664), $MachinePrecision] + 0.5), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\cosh x \cdot \frac{\sin y}{y} \leq -1 \cdot 10^{-145}:\\
\;\;\;\;\mathsf{fma}\left(y, y \cdot \mathsf{fma}\left(y \cdot y, \mathsf{fma}\left(y, y \cdot -0.0001984126984126984, 0.008333333333333333\right), -0.16666666666666666\right), 1\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(x, x \cdot \mathsf{fma}\left(x \cdot x, \mathsf{fma}\left(x \cdot x, 0.001388888888888889, 0.041666666666666664\right), 0.5\right), 1\right)\\
\end{array}
\end{array}
if (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) < -9.99999999999999915e-146Initial program 99.9%
Taylor expanded in x around 0
lower-/.f64N/A
lower-sin.f6423.3
Simplified23.3%
Taylor expanded in y around 0
+-commutativeN/A
unpow2N/A
associate-*l*N/A
lower-fma.f64N/A
lower-*.f64N/A
sub-negN/A
metadata-evalN/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-*.f6469.2
Simplified69.2%
if -9.99999999999999915e-146 < (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) Initial program 99.9%
Taylor expanded in x around 0
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
+-commutativeN/A
unpow2N/A
associate-*l*N/A
*-commutativeN/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6491.1
Simplified91.1%
Taylor expanded in y around 0
+-commutativeN/A
unpow2N/A
associate-*l*N/A
lower-fma.f64N/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%
(FPCore (x y)
:precision binary64
(if (<= (* (cosh x) (/ (sin y) y)) -1e-145)
(* (* x x) (* 0.5 (fma y (* y -0.16666666666666666) 1.0)))
(fma
x
(*
x
(fma (* x x) (fma (* x x) 0.001388888888888889 0.041666666666666664) 0.5))
1.0)))
double code(double x, double y) {
double tmp;
if ((cosh(x) * (sin(y) / y)) <= -1e-145) {
tmp = (x * x) * (0.5 * fma(y, (y * -0.16666666666666666), 1.0));
} else {
tmp = fma(x, (x * fma((x * x), fma((x * x), 0.001388888888888889, 0.041666666666666664), 0.5)), 1.0);
}
return tmp;
}
function code(x, y) tmp = 0.0 if (Float64(cosh(x) * Float64(sin(y) / y)) <= -1e-145) tmp = Float64(Float64(x * x) * Float64(0.5 * fma(y, Float64(y * -0.16666666666666666), 1.0))); else tmp = fma(x, Float64(x * fma(Float64(x * x), fma(Float64(x * x), 0.001388888888888889, 0.041666666666666664), 0.5)), 1.0); end return tmp end
code[x_, y_] := If[LessEqual[N[(N[Cosh[x], $MachinePrecision] * N[(N[Sin[y], $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision], -1e-145], N[(N[(x * x), $MachinePrecision] * N[(0.5 * N[(y * N[(y * -0.16666666666666666), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(x * N[(x * N[(N[(x * x), $MachinePrecision] * N[(N[(x * x), $MachinePrecision] * 0.001388888888888889 + 0.041666666666666664), $MachinePrecision] + 0.5), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\cosh x \cdot \frac{\sin y}{y} \leq -1 \cdot 10^{-145}:\\
\;\;\;\;\left(x \cdot x\right) \cdot \left(0.5 \cdot \mathsf{fma}\left(y, y \cdot -0.16666666666666666, 1\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(x, x \cdot \mathsf{fma}\left(x \cdot x, \mathsf{fma}\left(x \cdot x, 0.001388888888888889, 0.041666666666666664\right), 0.5\right), 1\right)\\
\end{array}
\end{array}
if (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) < -9.99999999999999915e-146Initial program 99.9%
Taylor expanded in x around 0
*-commutativeN/A
associate-/l*N/A
associate-*r*N/A
*-commutativeN/A
associate-*r*N/A
*-commutativeN/A
distribute-lft1-inN/A
+-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
lower-/.f64N/A
lower-sin.f6472.8
Simplified72.8%
Taylor expanded in y around 0
+-commutativeN/A
distribute-lft-inN/A
*-rgt-identityN/A
lower-fma.f64N/A
unpow2N/A
associate-*r*N/A
*-commutativeN/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f6469.4
Simplified69.4%
lift-*.f64N/A
lift-*.f64N/A
lift-fma.f6469.4
remove-double-negN/A
lift-fma.f64N/A
distribute-neg-inN/A
distribute-neg-inN/A
remove-double-negN/A
lower-+.f64N/A
Applied egg-rr69.4%
Taylor expanded in x around inf
*-commutativeN/A
associate-/l*N/A
associate-*l*N/A
*-commutativeN/A
lower-*.f64N/A
unpow2N/A
lower-*.f64N/A
div-subN/A
*-inversesN/A
unpow3N/A
unpow2N/A
associate-*r*N/A
associate-/l*N/A
*-inversesN/A
cancel-sign-sub-invN/A
distribute-lft-neg-inN/A
metadata-evalN/A
*-rgt-identityN/A
Simplified67.8%
if -9.99999999999999915e-146 < (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) Initial program 99.9%
Taylor expanded in x around 0
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
+-commutativeN/A
unpow2N/A
associate-*l*N/A
*-commutativeN/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6491.1
Simplified91.1%
Taylor expanded in y around 0
+-commutativeN/A
unpow2N/A
associate-*l*N/A
lower-fma.f64N/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%
(FPCore (x y) :precision binary64 (if (<= (* (cosh x) (/ (sin y) y)) -1e-145) (* y (* y (fma (* x x) -0.08333333333333333 -0.16666666666666666))) (fma x (* x (fma (* x x) 0.041666666666666664 0.5)) 1.0)))
double code(double x, double y) {
double tmp;
if ((cosh(x) * (sin(y) / y)) <= -1e-145) {
tmp = y * (y * fma((x * x), -0.08333333333333333, -0.16666666666666666));
} else {
tmp = fma(x, (x * fma((x * x), 0.041666666666666664, 0.5)), 1.0);
}
return tmp;
}
function code(x, y) tmp = 0.0 if (Float64(cosh(x) * Float64(sin(y) / y)) <= -1e-145) tmp = Float64(y * Float64(y * fma(Float64(x * x), -0.08333333333333333, -0.16666666666666666))); else tmp = fma(x, Float64(x * fma(Float64(x * x), 0.041666666666666664, 0.5)), 1.0); end return tmp end
code[x_, y_] := If[LessEqual[N[(N[Cosh[x], $MachinePrecision] * N[(N[Sin[y], $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision], -1e-145], N[(y * N[(y * N[(N[(x * x), $MachinePrecision] * -0.08333333333333333 + -0.16666666666666666), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(x * N[(x * N[(N[(x * x), $MachinePrecision] * 0.041666666666666664 + 0.5), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\cosh x \cdot \frac{\sin y}{y} \leq -1 \cdot 10^{-145}:\\
\;\;\;\;y \cdot \left(y \cdot \mathsf{fma}\left(x \cdot x, -0.08333333333333333, -0.16666666666666666\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(x, x \cdot \mathsf{fma}\left(x \cdot x, 0.041666666666666664, 0.5\right), 1\right)\\
\end{array}
\end{array}
if (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) < -9.99999999999999915e-146Initial program 99.9%
Taylor expanded in x around 0
*-commutativeN/A
associate-/l*N/A
associate-*r*N/A
*-commutativeN/A
associate-*r*N/A
*-commutativeN/A
distribute-lft1-inN/A
+-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
lower-/.f64N/A
lower-sin.f6472.8
Simplified72.8%
Taylor expanded in y around 0
+-commutativeN/A
distribute-lft-inN/A
*-rgt-identityN/A
lower-fma.f64N/A
unpow2N/A
associate-*r*N/A
*-commutativeN/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f6469.4
Simplified69.4%
Taylor expanded in y around inf
*-commutativeN/A
associate-*r*N/A
unpow2N/A
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
+-commutativeN/A
distribute-rgt-inN/A
*-commutativeN/A
associate-*l*N/A
metadata-evalN/A
metadata-evalN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6467.7
Simplified67.7%
if -9.99999999999999915e-146 < (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) Initial program 99.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-*.f6488.6
Simplified88.6%
Taylor expanded in y around 0
+-commutativeN/A
unpow2N/A
associate-*l*N/A
lower-fma.f64N/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6467.3
Simplified67.3%
Final simplification67.4%
(FPCore (x y) :precision binary64 (if (<= (* (cosh x) (/ (sin y) y)) -1e-145) (* y (* y (fma (* x x) -0.08333333333333333 -0.16666666666666666))) (fma 0.5 (* x x) 1.0)))
double code(double x, double y) {
double tmp;
if ((cosh(x) * (sin(y) / y)) <= -1e-145) {
tmp = y * (y * fma((x * x), -0.08333333333333333, -0.16666666666666666));
} else {
tmp = fma(0.5, (x * x), 1.0);
}
return tmp;
}
function code(x, y) tmp = 0.0 if (Float64(cosh(x) * Float64(sin(y) / y)) <= -1e-145) tmp = Float64(y * Float64(y * fma(Float64(x * x), -0.08333333333333333, -0.16666666666666666))); else tmp = fma(0.5, Float64(x * x), 1.0); end return tmp end
code[x_, y_] := If[LessEqual[N[(N[Cosh[x], $MachinePrecision] * N[(N[Sin[y], $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision], -1e-145], N[(y * N[(y * N[(N[(x * x), $MachinePrecision] * -0.08333333333333333 + -0.16666666666666666), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(0.5 * N[(x * x), $MachinePrecision] + 1.0), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\cosh x \cdot \frac{\sin y}{y} \leq -1 \cdot 10^{-145}:\\
\;\;\;\;y \cdot \left(y \cdot \mathsf{fma}\left(x \cdot x, -0.08333333333333333, -0.16666666666666666\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(0.5, x \cdot x, 1\right)\\
\end{array}
\end{array}
if (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) < -9.99999999999999915e-146Initial program 99.9%
Taylor expanded in x around 0
*-commutativeN/A
associate-/l*N/A
associate-*r*N/A
*-commutativeN/A
associate-*r*N/A
*-commutativeN/A
distribute-lft1-inN/A
+-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
lower-/.f64N/A
lower-sin.f6472.8
Simplified72.8%
Taylor expanded in y around 0
+-commutativeN/A
distribute-lft-inN/A
*-rgt-identityN/A
lower-fma.f64N/A
unpow2N/A
associate-*r*N/A
*-commutativeN/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f6469.4
Simplified69.4%
Taylor expanded in y around inf
*-commutativeN/A
associate-*r*N/A
unpow2N/A
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
+-commutativeN/A
distribute-rgt-inN/A
*-commutativeN/A
associate-*l*N/A
metadata-evalN/A
metadata-evalN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6467.7
Simplified67.7%
if -9.99999999999999915e-146 < (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) Initial program 99.9%
Taylor expanded in y around 0
Simplified78.5%
Taylor expanded in x around 0
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6457.2
Simplified57.2%
Final simplification59.2%
(FPCore (x y) :precision binary64 (if (<= (* (cosh x) (/ (sin y) y)) -1e-145) (* y (* y -0.16666666666666666)) (fma 0.5 (* x x) 1.0)))
double code(double x, double y) {
double tmp;
if ((cosh(x) * (sin(y) / y)) <= -1e-145) {
tmp = y * (y * -0.16666666666666666);
} else {
tmp = fma(0.5, (x * x), 1.0);
}
return tmp;
}
function code(x, y) tmp = 0.0 if (Float64(cosh(x) * Float64(sin(y) / y)) <= -1e-145) tmp = Float64(y * Float64(y * -0.16666666666666666)); else tmp = fma(0.5, Float64(x * x), 1.0); end return tmp end
code[x_, y_] := If[LessEqual[N[(N[Cosh[x], $MachinePrecision] * N[(N[Sin[y], $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision], -1e-145], N[(y * N[(y * -0.16666666666666666), $MachinePrecision]), $MachinePrecision], N[(0.5 * N[(x * x), $MachinePrecision] + 1.0), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\cosh x \cdot \frac{\sin y}{y} \leq -1 \cdot 10^{-145}:\\
\;\;\;\;y \cdot \left(y \cdot -0.16666666666666666\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(0.5, x \cdot x, 1\right)\\
\end{array}
\end{array}
if (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) < -9.99999999999999915e-146Initial program 99.9%
Taylor expanded in x around 0
lower-/.f64N/A
lower-sin.f6423.3
Simplified23.3%
Taylor expanded in y around 0
+-commutativeN/A
distribute-lft-inN/A
*-rgt-identityN/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
unpow2N/A
lower-*.f6450.1
Simplified50.1%
Taylor expanded in y around inf
*-commutativeN/A
unpow2N/A
associate-*l*N/A
lower-*.f64N/A
lower-*.f6439.0
Simplified39.0%
if -9.99999999999999915e-146 < (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) Initial program 99.9%
Taylor expanded in y around 0
Simplified78.5%
Taylor expanded in x around 0
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6457.2
Simplified57.2%
(FPCore (x y) :precision binary64 (if (<= (* (cosh x) (/ (sin y) y)) 2.0) 1.0 (* (* x x) 0.5)))
double code(double x, double y) {
double tmp;
if ((cosh(x) * (sin(y) / y)) <= 2.0) {
tmp = 1.0;
} else {
tmp = (x * x) * 0.5;
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: tmp
if ((cosh(x) * (sin(y) / y)) <= 2.0d0) then
tmp = 1.0d0
else
tmp = (x * x) * 0.5d0
end if
code = tmp
end function
public static double code(double x, double y) {
double tmp;
if ((Math.cosh(x) * (Math.sin(y) / y)) <= 2.0) {
tmp = 1.0;
} else {
tmp = (x * x) * 0.5;
}
return tmp;
}
def code(x, y): tmp = 0 if (math.cosh(x) * (math.sin(y) / y)) <= 2.0: tmp = 1.0 else: tmp = (x * x) * 0.5 return tmp
function code(x, y) tmp = 0.0 if (Float64(cosh(x) * Float64(sin(y) / y)) <= 2.0) tmp = 1.0; else tmp = Float64(Float64(x * x) * 0.5); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if ((cosh(x) * (sin(y) / y)) <= 2.0) tmp = 1.0; else tmp = (x * x) * 0.5; end tmp_2 = tmp; end
code[x_, y_] := If[LessEqual[N[(N[Cosh[x], $MachinePrecision] * N[(N[Sin[y], $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision], 2.0], 1.0, N[(N[(x * x), $MachinePrecision] * 0.5), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\cosh x \cdot \frac{\sin y}{y} \leq 2:\\
\;\;\;\;1\\
\mathbf{else}:\\
\;\;\;\;\left(x \cdot x\right) \cdot 0.5\\
\end{array}
\end{array}
if (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) < 2Initial program 99.8%
Taylor expanded in y around 0
Simplified42.2%
Taylor expanded in x around 0
Simplified41.8%
if 2 < (*.f64 (cosh.f64 x) (/.f64 (sin.f64 y) y)) Initial program 100.0%
Taylor expanded in y around 0
Simplified100.0%
Taylor expanded in x around 0
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6453.4
Simplified53.4%
Taylor expanded in x around inf
lower-*.f64N/A
unpow2N/A
lower-*.f6453.4
Simplified53.4%
Final simplification46.0%
(FPCore (x y)
:precision binary64
(let* ((t_0 (fma (* x x) (fma (* x x) 0.041666666666666664 0.5) 1.0)))
(if (<= (/ (sin y) y) -1e-304)
(* (fma y (* y -0.16666666666666666) 1.0) t_0)
(*
t_0
(fma
y
(* y (fma (* y y) 0.008333333333333333 -0.16666666666666666))
1.0)))))
double code(double x, double y) {
double t_0 = fma((x * x), fma((x * x), 0.041666666666666664, 0.5), 1.0);
double tmp;
if ((sin(y) / y) <= -1e-304) {
tmp = fma(y, (y * -0.16666666666666666), 1.0) * t_0;
} else {
tmp = t_0 * fma(y, (y * fma((y * y), 0.008333333333333333, -0.16666666666666666)), 1.0);
}
return tmp;
}
function code(x, y) t_0 = fma(Float64(x * x), fma(Float64(x * x), 0.041666666666666664, 0.5), 1.0) tmp = 0.0 if (Float64(sin(y) / y) <= -1e-304) tmp = Float64(fma(y, Float64(y * -0.16666666666666666), 1.0) * t_0); else tmp = Float64(t_0 * fma(y, Float64(y * fma(Float64(y * y), 0.008333333333333333, -0.16666666666666666)), 1.0)); end return tmp end
code[x_, y_] := Block[{t$95$0 = N[(N[(x * x), $MachinePrecision] * N[(N[(x * x), $MachinePrecision] * 0.041666666666666664 + 0.5), $MachinePrecision] + 1.0), $MachinePrecision]}, If[LessEqual[N[(N[Sin[y], $MachinePrecision] / y), $MachinePrecision], -1e-304], N[(N[(y * N[(y * -0.16666666666666666), $MachinePrecision] + 1.0), $MachinePrecision] * t$95$0), $MachinePrecision], N[(t$95$0 * N[(y * N[(y * N[(N[(y * y), $MachinePrecision] * 0.008333333333333333 + -0.16666666666666666), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \mathsf{fma}\left(x \cdot x, \mathsf{fma}\left(x \cdot x, 0.041666666666666664, 0.5\right), 1\right)\\
\mathbf{if}\;\frac{\sin y}{y} \leq -1 \cdot 10^{-304}:\\
\;\;\;\;\mathsf{fma}\left(y, y \cdot -0.16666666666666666, 1\right) \cdot t\_0\\
\mathbf{else}:\\
\;\;\;\;t\_0 \cdot \mathsf{fma}\left(y, y \cdot \mathsf{fma}\left(y \cdot y, 0.008333333333333333, -0.16666666666666666\right), 1\right)\\
\end{array}
\end{array}
if (/.f64 (sin.f64 y) y) < -9.99999999999999971e-305Initial program 99.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-*.f6485.1
Simplified85.1%
Taylor expanded in y around 0
+-commutativeN/A
*-commutativeN/A
unpow2N/A
associate-*l*N/A
*-commutativeN/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f6459.7
Simplified59.7%
if -9.99999999999999971e-305 < (/.f64 (sin.f64 y) y) Initial program 99.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-*.f6487.8
Simplified87.8%
Taylor expanded in y around 0
+-commutativeN/A
unpow2N/A
associate-*l*N/A
lower-fma.f64N/A
lower-*.f64N/A
sub-negN/A
*-commutativeN/A
metadata-evalN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6476.1
Simplified76.1%
Final simplification71.9%
(FPCore (x y) :precision binary64 1.0)
double code(double x, double y) {
return 1.0;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = 1.0d0
end function
public static double code(double x, double y) {
return 1.0;
}
def code(x, y): return 1.0
function code(x, y) return 1.0 end
function tmp = code(x, y) tmp = 1.0; end
code[x_, y_] := 1.0
\begin{array}{l}
\\
1
\end{array}
Initial program 99.9%
Taylor expanded in y around 0
Simplified63.2%
Taylor expanded in x around 0
Simplified27.8%
(FPCore (x y) :precision binary64 (/ (* (cosh x) (sin y)) y))
double code(double x, double y) {
return (cosh(x) * sin(y)) / y;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = (cosh(x) * sin(y)) / y
end function
public static double code(double x, double y) {
return (Math.cosh(x) * Math.sin(y)) / y;
}
def code(x, y): return (math.cosh(x) * math.sin(y)) / y
function code(x, y) return Float64(Float64(cosh(x) * sin(y)) / y) end
function tmp = code(x, y) tmp = (cosh(x) * sin(y)) / y; end
code[x_, y_] := N[(N[(N[Cosh[x], $MachinePrecision] * N[Sin[y], $MachinePrecision]), $MachinePrecision] / y), $MachinePrecision]
\begin{array}{l}
\\
\frac{\cosh x \cdot \sin y}{y}
\end{array}
herbie shell --seed 2024207
(FPCore (x y)
:name "Linear.Quaternion:$csinh from linear-1.19.1.3"
:precision binary64
:alt
(! :herbie-platform default (/ (* (cosh x) (sin y)) y))
(* (cosh x) (/ (sin y) y)))