
(FPCore (x y) :precision binary64 (/ (* (sin x) (sinh y)) x))
double code(double x, double y) {
return (sin(x) * sinh(y)) / x;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = (sin(x) * sinh(y)) / x
end function
public static double code(double x, double y) {
return (Math.sin(x) * Math.sinh(y)) / x;
}
def code(x, y): return (math.sin(x) * math.sinh(y)) / x
function code(x, y) return Float64(Float64(sin(x) * sinh(y)) / x) end
function tmp = code(x, y) tmp = (sin(x) * sinh(y)) / x; end
code[x_, y_] := N[(N[(N[Sin[x], $MachinePrecision] * N[Sinh[y], $MachinePrecision]), $MachinePrecision] / x), $MachinePrecision]
\begin{array}{l}
\\
\frac{\sin x \cdot \sinh y}{x}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 15 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y) :precision binary64 (/ (* (sin x) (sinh y)) x))
double code(double x, double y) {
return (sin(x) * sinh(y)) / x;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = (sin(x) * sinh(y)) / x
end function
public static double code(double x, double y) {
return (Math.sin(x) * Math.sinh(y)) / x;
}
def code(x, y): return (math.sin(x) * math.sinh(y)) / x
function code(x, y) return Float64(Float64(sin(x) * sinh(y)) / x) end
function tmp = code(x, y) tmp = (sin(x) * sinh(y)) / x; end
code[x_, y_] := N[(N[(N[Sin[x], $MachinePrecision] * N[Sinh[y], $MachinePrecision]), $MachinePrecision] / x), $MachinePrecision]
\begin{array}{l}
\\
\frac{\sin x \cdot \sinh y}{x}
\end{array}
(FPCore (x y) :precision binary64 (* (sinh y) (/ (sin x) x)))
double code(double x, double y) {
return sinh(y) * (sin(x) / x);
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = sinh(y) * (sin(x) / x)
end function
public static double code(double x, double y) {
return Math.sinh(y) * (Math.sin(x) / x);
}
def code(x, y): return math.sinh(y) * (math.sin(x) / x)
function code(x, y) return Float64(sinh(y) * Float64(sin(x) / x)) end
function tmp = code(x, y) tmp = sinh(y) * (sin(x) / x); end
code[x_, y_] := N[(N[Sinh[y], $MachinePrecision] * N[(N[Sin[x], $MachinePrecision] / x), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\sinh y \cdot \frac{\sin x}{x}
\end{array}
Initial program 90.8%
lift-/.f64N/A
lift-*.f64N/A
associate-*l/N/A
lower-*.f64N/A
lower-/.f64100.0
Applied rewrites100.0%
Final simplification100.0%
(FPCore (x y)
:precision binary64
(let* ((t_0 (/ (* (sinh y) (sin x)) x)))
(if (<= t_0 (- INFINITY))
(/
(*
(*
(fma
(fma (* 0.0001984126984126984 (* y y)) (* y y) 0.16666666666666666)
(* y y)
1.0)
y)
(* (fma (* x x) -0.16666666666666666 1.0) x))
x)
(if (<= t_0 2e-74)
(* (* (fma (* y y) 0.16666666666666666 1.0) (sin x)) (/ y x))
(* 1.0 (sinh y))))))
double code(double x, double y) {
double t_0 = (sinh(y) * sin(x)) / x;
double tmp;
if (t_0 <= -((double) INFINITY)) {
tmp = ((fma(fma((0.0001984126984126984 * (y * y)), (y * y), 0.16666666666666666), (y * y), 1.0) * y) * (fma((x * x), -0.16666666666666666, 1.0) * x)) / x;
} else if (t_0 <= 2e-74) {
tmp = (fma((y * y), 0.16666666666666666, 1.0) * sin(x)) * (y / x);
} else {
tmp = 1.0 * sinh(y);
}
return tmp;
}
function code(x, y) t_0 = Float64(Float64(sinh(y) * sin(x)) / x) tmp = 0.0 if (t_0 <= Float64(-Inf)) tmp = Float64(Float64(Float64(fma(fma(Float64(0.0001984126984126984 * Float64(y * y)), Float64(y * y), 0.16666666666666666), Float64(y * y), 1.0) * y) * Float64(fma(Float64(x * x), -0.16666666666666666, 1.0) * x)) / x); elseif (t_0 <= 2e-74) tmp = Float64(Float64(fma(Float64(y * y), 0.16666666666666666, 1.0) * sin(x)) * Float64(y / x)); else tmp = Float64(1.0 * sinh(y)); end return tmp end
code[x_, y_] := Block[{t$95$0 = N[(N[(N[Sinh[y], $MachinePrecision] * N[Sin[x], $MachinePrecision]), $MachinePrecision] / x), $MachinePrecision]}, If[LessEqual[t$95$0, (-Infinity)], N[(N[(N[(N[(N[(N[(0.0001984126984126984 * N[(y * y), $MachinePrecision]), $MachinePrecision] * N[(y * y), $MachinePrecision] + 0.16666666666666666), $MachinePrecision] * N[(y * y), $MachinePrecision] + 1.0), $MachinePrecision] * y), $MachinePrecision] * N[(N[(N[(x * x), $MachinePrecision] * -0.16666666666666666 + 1.0), $MachinePrecision] * x), $MachinePrecision]), $MachinePrecision] / x), $MachinePrecision], If[LessEqual[t$95$0, 2e-74], N[(N[(N[(N[(y * y), $MachinePrecision] * 0.16666666666666666 + 1.0), $MachinePrecision] * N[Sin[x], $MachinePrecision]), $MachinePrecision] * N[(y / x), $MachinePrecision]), $MachinePrecision], N[(1.0 * N[Sinh[y], $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{\sinh y \cdot \sin x}{x}\\
\mathbf{if}\;t\_0 \leq -\infty:\\
\;\;\;\;\frac{\left(\mathsf{fma}\left(\mathsf{fma}\left(0.0001984126984126984 \cdot \left(y \cdot y\right), y \cdot y, 0.16666666666666666\right), y \cdot y, 1\right) \cdot y\right) \cdot \left(\mathsf{fma}\left(x \cdot x, -0.16666666666666666, 1\right) \cdot x\right)}{x}\\
\mathbf{elif}\;t\_0 \leq 2 \cdot 10^{-74}:\\
\;\;\;\;\left(\mathsf{fma}\left(y \cdot y, 0.16666666666666666, 1\right) \cdot \sin x\right) \cdot \frac{y}{x}\\
\mathbf{else}:\\
\;\;\;\;1 \cdot \sinh y\\
\end{array}
\end{array}
if (/.f64 (*.f64 (sin.f64 x) (sinh.f64 y)) x) < -inf.0Initial program 100.0%
Taylor expanded in y around 0
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f6486.4
Applied rewrites86.4%
Taylor expanded in y around inf
Applied rewrites86.4%
Taylor expanded in x around 0
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6471.9
Applied rewrites71.9%
if -inf.0 < (/.f64 (*.f64 (sin.f64 x) (sinh.f64 y)) x) < 1.99999999999999992e-74Initial program 77.6%
Taylor expanded in y around 0
+-commutativeN/A
distribute-lft-inN/A
associate-/l*N/A
*-commutativeN/A
associate-/l*N/A
associate-*r*N/A
*-commutativeN/A
*-commutativeN/A
associate-*l/N/A
associate-*l*N/A
*-commutativeN/A
*-commutativeN/A
associate-*r*N/A
associate-/l*N/A
distribute-rgt-outN/A
lower-*.f64N/A
Applied rewrites98.9%
if 1.99999999999999992e-74 < (/.f64 (*.f64 (sin.f64 x) (sinh.f64 y)) x) Initial program 100.0%
lift-/.f64N/A
lift-*.f64N/A
associate-*l/N/A
lower-*.f64N/A
lower-/.f64100.0
Applied rewrites100.0%
Taylor expanded in x around 0
Applied rewrites75.0%
Final simplification84.1%
(FPCore (x y)
:precision binary64
(let* ((t_0 (/ (* (sinh y) (sin x)) x)))
(if (<= t_0 (- INFINITY))
(/
(*
(*
(fma
(fma (* 0.0001984126984126984 (* y y)) (* y y) 0.16666666666666666)
(* y y)
1.0)
y)
(* (fma (* x x) -0.16666666666666666 1.0) x))
x)
(if (<= t_0 2e-74) (* y (/ (sin x) x)) (* 1.0 (sinh y))))))
double code(double x, double y) {
double t_0 = (sinh(y) * sin(x)) / x;
double tmp;
if (t_0 <= -((double) INFINITY)) {
tmp = ((fma(fma((0.0001984126984126984 * (y * y)), (y * y), 0.16666666666666666), (y * y), 1.0) * y) * (fma((x * x), -0.16666666666666666, 1.0) * x)) / x;
} else if (t_0 <= 2e-74) {
tmp = y * (sin(x) / x);
} else {
tmp = 1.0 * sinh(y);
}
return tmp;
}
function code(x, y) t_0 = Float64(Float64(sinh(y) * sin(x)) / x) tmp = 0.0 if (t_0 <= Float64(-Inf)) tmp = Float64(Float64(Float64(fma(fma(Float64(0.0001984126984126984 * Float64(y * y)), Float64(y * y), 0.16666666666666666), Float64(y * y), 1.0) * y) * Float64(fma(Float64(x * x), -0.16666666666666666, 1.0) * x)) / x); elseif (t_0 <= 2e-74) tmp = Float64(y * Float64(sin(x) / x)); else tmp = Float64(1.0 * sinh(y)); end return tmp end
code[x_, y_] := Block[{t$95$0 = N[(N[(N[Sinh[y], $MachinePrecision] * N[Sin[x], $MachinePrecision]), $MachinePrecision] / x), $MachinePrecision]}, If[LessEqual[t$95$0, (-Infinity)], N[(N[(N[(N[(N[(N[(0.0001984126984126984 * N[(y * y), $MachinePrecision]), $MachinePrecision] * N[(y * y), $MachinePrecision] + 0.16666666666666666), $MachinePrecision] * N[(y * y), $MachinePrecision] + 1.0), $MachinePrecision] * y), $MachinePrecision] * N[(N[(N[(x * x), $MachinePrecision] * -0.16666666666666666 + 1.0), $MachinePrecision] * x), $MachinePrecision]), $MachinePrecision] / x), $MachinePrecision], If[LessEqual[t$95$0, 2e-74], N[(y * N[(N[Sin[x], $MachinePrecision] / x), $MachinePrecision]), $MachinePrecision], N[(1.0 * N[Sinh[y], $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{\sinh y \cdot \sin x}{x}\\
\mathbf{if}\;t\_0 \leq -\infty:\\
\;\;\;\;\frac{\left(\mathsf{fma}\left(\mathsf{fma}\left(0.0001984126984126984 \cdot \left(y \cdot y\right), y \cdot y, 0.16666666666666666\right), y \cdot y, 1\right) \cdot y\right) \cdot \left(\mathsf{fma}\left(x \cdot x, -0.16666666666666666, 1\right) \cdot x\right)}{x}\\
\mathbf{elif}\;t\_0 \leq 2 \cdot 10^{-74}:\\
\;\;\;\;y \cdot \frac{\sin x}{x}\\
\mathbf{else}:\\
\;\;\;\;1 \cdot \sinh y\\
\end{array}
\end{array}
if (/.f64 (*.f64 (sin.f64 x) (sinh.f64 y)) x) < -inf.0Initial program 100.0%
Taylor expanded in y around 0
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f6486.4
Applied rewrites86.4%
Taylor expanded in y around inf
Applied rewrites86.4%
Taylor expanded in x around 0
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6471.9
Applied rewrites71.9%
if -inf.0 < (/.f64 (*.f64 (sin.f64 x) (sinh.f64 y)) x) < 1.99999999999999992e-74Initial program 77.6%
Taylor expanded in y around 0
*-commutativeN/A
associate-*l/N/A
lower-*.f64N/A
lower-/.f64N/A
lower-sin.f6498.7
Applied rewrites98.7%
if 1.99999999999999992e-74 < (/.f64 (*.f64 (sin.f64 x) (sinh.f64 y)) x) Initial program 100.0%
lift-/.f64N/A
lift-*.f64N/A
associate-*l/N/A
lower-*.f64N/A
lower-/.f64100.0
Applied rewrites100.0%
Taylor expanded in x around 0
Applied rewrites75.0%
Final simplification84.0%
(FPCore (x y)
:precision binary64
(let* ((t_0 (/ (* (sinh y) (sin x)) x)))
(if (<= t_0 -2e-170)
(/
(*
(*
(fma
(fma (* 0.0001984126984126984 (* y y)) (* y y) 0.16666666666666666)
(* y y)
1.0)
y)
(* (fma (* x x) -0.16666666666666666 1.0) x))
x)
(if (<= t_0 2e-216)
(* (* (fma (* y y) 0.16666666666666666 1.0) x) (/ y x))
(* 1.0 (sinh y))))))
double code(double x, double y) {
double t_0 = (sinh(y) * sin(x)) / x;
double tmp;
if (t_0 <= -2e-170) {
tmp = ((fma(fma((0.0001984126984126984 * (y * y)), (y * y), 0.16666666666666666), (y * y), 1.0) * y) * (fma((x * x), -0.16666666666666666, 1.0) * x)) / x;
} else if (t_0 <= 2e-216) {
tmp = (fma((y * y), 0.16666666666666666, 1.0) * x) * (y / x);
} else {
tmp = 1.0 * sinh(y);
}
return tmp;
}
function code(x, y) t_0 = Float64(Float64(sinh(y) * sin(x)) / x) tmp = 0.0 if (t_0 <= -2e-170) tmp = Float64(Float64(Float64(fma(fma(Float64(0.0001984126984126984 * Float64(y * y)), Float64(y * y), 0.16666666666666666), Float64(y * y), 1.0) * y) * Float64(fma(Float64(x * x), -0.16666666666666666, 1.0) * x)) / x); elseif (t_0 <= 2e-216) tmp = Float64(Float64(fma(Float64(y * y), 0.16666666666666666, 1.0) * x) * Float64(y / x)); else tmp = Float64(1.0 * sinh(y)); end return tmp end
code[x_, y_] := Block[{t$95$0 = N[(N[(N[Sinh[y], $MachinePrecision] * N[Sin[x], $MachinePrecision]), $MachinePrecision] / x), $MachinePrecision]}, If[LessEqual[t$95$0, -2e-170], N[(N[(N[(N[(N[(N[(0.0001984126984126984 * N[(y * y), $MachinePrecision]), $MachinePrecision] * N[(y * y), $MachinePrecision] + 0.16666666666666666), $MachinePrecision] * N[(y * y), $MachinePrecision] + 1.0), $MachinePrecision] * y), $MachinePrecision] * N[(N[(N[(x * x), $MachinePrecision] * -0.16666666666666666 + 1.0), $MachinePrecision] * x), $MachinePrecision]), $MachinePrecision] / x), $MachinePrecision], If[LessEqual[t$95$0, 2e-216], N[(N[(N[(N[(y * y), $MachinePrecision] * 0.16666666666666666 + 1.0), $MachinePrecision] * x), $MachinePrecision] * N[(y / x), $MachinePrecision]), $MachinePrecision], N[(1.0 * N[Sinh[y], $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{\sinh y \cdot \sin x}{x}\\
\mathbf{if}\;t\_0 \leq -2 \cdot 10^{-170}:\\
\;\;\;\;\frac{\left(\mathsf{fma}\left(\mathsf{fma}\left(0.0001984126984126984 \cdot \left(y \cdot y\right), y \cdot y, 0.16666666666666666\right), y \cdot y, 1\right) \cdot y\right) \cdot \left(\mathsf{fma}\left(x \cdot x, -0.16666666666666666, 1\right) \cdot x\right)}{x}\\
\mathbf{elif}\;t\_0 \leq 2 \cdot 10^{-216}:\\
\;\;\;\;\left(\mathsf{fma}\left(y \cdot y, 0.16666666666666666, 1\right) \cdot x\right) \cdot \frac{y}{x}\\
\mathbf{else}:\\
\;\;\;\;1 \cdot \sinh y\\
\end{array}
\end{array}
if (/.f64 (*.f64 (sin.f64 x) (sinh.f64 y)) x) < -1.99999999999999997e-170Initial program 100.0%
Taylor expanded in y around 0
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f6490.0
Applied rewrites90.0%
Taylor expanded in y around inf
Applied rewrites90.0%
Taylor expanded in x around 0
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6474.9
Applied rewrites74.9%
if -1.99999999999999997e-170 < (/.f64 (*.f64 (sin.f64 x) (sinh.f64 y)) x) < 2.0000000000000001e-216Initial program 65.5%
Taylor expanded in y around 0
+-commutativeN/A
distribute-lft-inN/A
associate-/l*N/A
*-commutativeN/A
associate-/l*N/A
associate-*r*N/A
*-commutativeN/A
*-commutativeN/A
associate-*l/N/A
associate-*l*N/A
*-commutativeN/A
*-commutativeN/A
associate-*r*N/A
associate-/l*N/A
distribute-rgt-outN/A
lower-*.f64N/A
Applied rewrites98.5%
Taylor expanded in x around 0
Applied rewrites77.6%
if 2.0000000000000001e-216 < (/.f64 (*.f64 (sin.f64 x) (sinh.f64 y)) x) Initial program 100.0%
lift-/.f64N/A
lift-*.f64N/A
associate-*l/N/A
lower-*.f64N/A
lower-/.f64100.0
Applied rewrites100.0%
Taylor expanded in x around 0
Applied rewrites70.9%
Final simplification74.0%
(FPCore (x y)
:precision binary64
(let* ((t_0 (/ (* (sinh y) (sin x)) x)))
(if (<= t_0 -2e-296)
(* (* (* y y) y) (fma -0.027777777777777776 (* x x) 0.16666666666666666))
(if (<= t_0 2e-216)
(* (* (fma (* y y) 0.16666666666666666 1.0) x) (/ y x))
(*
(fma
(fma 0.008333333333333333 (* y y) 0.16666666666666666)
(* y y)
1.0)
y)))))
double code(double x, double y) {
double t_0 = (sinh(y) * sin(x)) / x;
double tmp;
if (t_0 <= -2e-296) {
tmp = ((y * y) * y) * fma(-0.027777777777777776, (x * x), 0.16666666666666666);
} else if (t_0 <= 2e-216) {
tmp = (fma((y * y), 0.16666666666666666, 1.0) * x) * (y / x);
} else {
tmp = fma(fma(0.008333333333333333, (y * y), 0.16666666666666666), (y * y), 1.0) * y;
}
return tmp;
}
function code(x, y) t_0 = Float64(Float64(sinh(y) * sin(x)) / x) tmp = 0.0 if (t_0 <= -2e-296) tmp = Float64(Float64(Float64(y * y) * y) * fma(-0.027777777777777776, Float64(x * x), 0.16666666666666666)); elseif (t_0 <= 2e-216) tmp = Float64(Float64(fma(Float64(y * y), 0.16666666666666666, 1.0) * x) * Float64(y / x)); else tmp = Float64(fma(fma(0.008333333333333333, Float64(y * y), 0.16666666666666666), Float64(y * y), 1.0) * y); end return tmp end
code[x_, y_] := Block[{t$95$0 = N[(N[(N[Sinh[y], $MachinePrecision] * N[Sin[x], $MachinePrecision]), $MachinePrecision] / x), $MachinePrecision]}, If[LessEqual[t$95$0, -2e-296], N[(N[(N[(y * y), $MachinePrecision] * y), $MachinePrecision] * N[(-0.027777777777777776 * N[(x * x), $MachinePrecision] + 0.16666666666666666), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$0, 2e-216], N[(N[(N[(N[(y * y), $MachinePrecision] * 0.16666666666666666 + 1.0), $MachinePrecision] * x), $MachinePrecision] * N[(y / x), $MachinePrecision]), $MachinePrecision], N[(N[(N[(0.008333333333333333 * N[(y * y), $MachinePrecision] + 0.16666666666666666), $MachinePrecision] * N[(y * y), $MachinePrecision] + 1.0), $MachinePrecision] * y), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{\sinh y \cdot \sin x}{x}\\
\mathbf{if}\;t\_0 \leq -2 \cdot 10^{-296}:\\
\;\;\;\;\left(\left(y \cdot y\right) \cdot y\right) \cdot \mathsf{fma}\left(-0.027777777777777776, x \cdot x, 0.16666666666666666\right)\\
\mathbf{elif}\;t\_0 \leq 2 \cdot 10^{-216}:\\
\;\;\;\;\left(\mathsf{fma}\left(y \cdot y, 0.16666666666666666, 1\right) \cdot x\right) \cdot \frac{y}{x}\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(0.008333333333333333, y \cdot y, 0.16666666666666666\right), y \cdot y, 1\right) \cdot y\\
\end{array}
\end{array}
if (/.f64 (*.f64 (sin.f64 x) (sinh.f64 y)) x) < -2e-296Initial program 100.0%
Taylor expanded in y around 0
+-commutativeN/A
distribute-lft-inN/A
associate-/l*N/A
*-commutativeN/A
associate-/l*N/A
associate-*r*N/A
*-commutativeN/A
*-commutativeN/A
associate-*l/N/A
associate-*l*N/A
*-commutativeN/A
*-commutativeN/A
associate-*r*N/A
associate-/l*N/A
distribute-rgt-outN/A
lower-*.f64N/A
Applied rewrites75.7%
Taylor expanded in x around 0
Applied rewrites60.7%
Taylor expanded in y around inf
Applied rewrites40.2%
Taylor expanded in y around inf
Applied rewrites40.2%
if -2e-296 < (/.f64 (*.f64 (sin.f64 x) (sinh.f64 y)) x) < 2.0000000000000001e-216Initial program 57.4%
Taylor expanded in y around 0
+-commutativeN/A
distribute-lft-inN/A
associate-/l*N/A
*-commutativeN/A
associate-/l*N/A
associate-*r*N/A
*-commutativeN/A
*-commutativeN/A
associate-*l/N/A
associate-*l*N/A
*-commutativeN/A
*-commutativeN/A
associate-*r*N/A
associate-/l*N/A
distribute-rgt-outN/A
lower-*.f64N/A
Applied rewrites98.2%
Taylor expanded in x around 0
Applied rewrites89.5%
if 2.0000000000000001e-216 < (/.f64 (*.f64 (sin.f64 x) (sinh.f64 y)) x) Initial program 100.0%
Taylor expanded in y around 0
*-commutativeN/A
lower-*.f64N/A
Applied rewrites82.8%
Taylor expanded in x around 0
Applied rewrites58.4%
Final simplification58.0%
(FPCore (x y)
:precision binary64
(if (<= (/ (* (sinh y) (sin x)) x) 2e-74)
(*
(*
(fma (fma 0.008333333333333333 (* y y) 0.16666666666666666) (* y y) 1.0)
(/ (sin x) x))
y)
(* 1.0 (sinh y))))
double code(double x, double y) {
double tmp;
if (((sinh(y) * sin(x)) / x) <= 2e-74) {
tmp = (fma(fma(0.008333333333333333, (y * y), 0.16666666666666666), (y * y), 1.0) * (sin(x) / x)) * y;
} else {
tmp = 1.0 * sinh(y);
}
return tmp;
}
function code(x, y) tmp = 0.0 if (Float64(Float64(sinh(y) * sin(x)) / x) <= 2e-74) tmp = Float64(Float64(fma(fma(0.008333333333333333, Float64(y * y), 0.16666666666666666), Float64(y * y), 1.0) * Float64(sin(x) / x)) * y); else tmp = Float64(1.0 * sinh(y)); end return tmp end
code[x_, y_] := If[LessEqual[N[(N[(N[Sinh[y], $MachinePrecision] * N[Sin[x], $MachinePrecision]), $MachinePrecision] / x), $MachinePrecision], 2e-74], N[(N[(N[(N[(0.008333333333333333 * N[(y * y), $MachinePrecision] + 0.16666666666666666), $MachinePrecision] * N[(y * y), $MachinePrecision] + 1.0), $MachinePrecision] * N[(N[Sin[x], $MachinePrecision] / x), $MachinePrecision]), $MachinePrecision] * y), $MachinePrecision], N[(1.0 * N[Sinh[y], $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{\sinh y \cdot \sin x}{x} \leq 2 \cdot 10^{-74}:\\
\;\;\;\;\left(\mathsf{fma}\left(\mathsf{fma}\left(0.008333333333333333, y \cdot y, 0.16666666666666666\right), y \cdot y, 1\right) \cdot \frac{\sin x}{x}\right) \cdot y\\
\mathbf{else}:\\
\;\;\;\;1 \cdot \sinh y\\
\end{array}
\end{array}
if (/.f64 (*.f64 (sin.f64 x) (sinh.f64 y)) x) < 1.99999999999999992e-74Initial program 86.0%
Taylor expanded in y around 0
*-commutativeN/A
lower-*.f64N/A
Applied rewrites91.5%
if 1.99999999999999992e-74 < (/.f64 (*.f64 (sin.f64 x) (sinh.f64 y)) x) Initial program 100.0%
lift-/.f64N/A
lift-*.f64N/A
associate-*l/N/A
lower-*.f64N/A
lower-/.f64100.0
Applied rewrites100.0%
Taylor expanded in x around 0
Applied rewrites75.0%
Final simplification85.8%
(FPCore (x y)
:precision binary64
(if (<= (/ (* (sinh y) (sin x)) x) -2e-170)
(/
(*
(*
(fma
(fma (* 0.0001984126984126984 (* y y)) (* y y) 0.16666666666666666)
(* y y)
1.0)
y)
(* (fma (* x x) -0.16666666666666666 1.0) x))
x)
(*
(* 1.0 x)
(/
(*
(fma (fma 0.008333333333333333 (* y y) 0.16666666666666666) (* y y) 1.0)
y)
x))))
double code(double x, double y) {
double tmp;
if (((sinh(y) * sin(x)) / x) <= -2e-170) {
tmp = ((fma(fma((0.0001984126984126984 * (y * y)), (y * y), 0.16666666666666666), (y * y), 1.0) * y) * (fma((x * x), -0.16666666666666666, 1.0) * x)) / x;
} else {
tmp = (1.0 * x) * ((fma(fma(0.008333333333333333, (y * y), 0.16666666666666666), (y * y), 1.0) * y) / x);
}
return tmp;
}
function code(x, y) tmp = 0.0 if (Float64(Float64(sinh(y) * sin(x)) / x) <= -2e-170) tmp = Float64(Float64(Float64(fma(fma(Float64(0.0001984126984126984 * Float64(y * y)), Float64(y * y), 0.16666666666666666), Float64(y * y), 1.0) * y) * Float64(fma(Float64(x * x), -0.16666666666666666, 1.0) * x)) / x); else tmp = Float64(Float64(1.0 * x) * Float64(Float64(fma(fma(0.008333333333333333, Float64(y * y), 0.16666666666666666), Float64(y * y), 1.0) * y) / x)); end return tmp end
code[x_, y_] := If[LessEqual[N[(N[(N[Sinh[y], $MachinePrecision] * N[Sin[x], $MachinePrecision]), $MachinePrecision] / x), $MachinePrecision], -2e-170], N[(N[(N[(N[(N[(N[(0.0001984126984126984 * N[(y * y), $MachinePrecision]), $MachinePrecision] * N[(y * y), $MachinePrecision] + 0.16666666666666666), $MachinePrecision] * N[(y * y), $MachinePrecision] + 1.0), $MachinePrecision] * y), $MachinePrecision] * N[(N[(N[(x * x), $MachinePrecision] * -0.16666666666666666 + 1.0), $MachinePrecision] * x), $MachinePrecision]), $MachinePrecision] / x), $MachinePrecision], N[(N[(1.0 * x), $MachinePrecision] * N[(N[(N[(N[(0.008333333333333333 * N[(y * y), $MachinePrecision] + 0.16666666666666666), $MachinePrecision] * N[(y * y), $MachinePrecision] + 1.0), $MachinePrecision] * y), $MachinePrecision] / x), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{\sinh y \cdot \sin x}{x} \leq -2 \cdot 10^{-170}:\\
\;\;\;\;\frac{\left(\mathsf{fma}\left(\mathsf{fma}\left(0.0001984126984126984 \cdot \left(y \cdot y\right), y \cdot y, 0.16666666666666666\right), y \cdot y, 1\right) \cdot y\right) \cdot \left(\mathsf{fma}\left(x \cdot x, -0.16666666666666666, 1\right) \cdot x\right)}{x}\\
\mathbf{else}:\\
\;\;\;\;\left(1 \cdot x\right) \cdot \frac{\mathsf{fma}\left(\mathsf{fma}\left(0.008333333333333333, y \cdot y, 0.16666666666666666\right), y \cdot y, 1\right) \cdot y}{x}\\
\end{array}
\end{array}
if (/.f64 (*.f64 (sin.f64 x) (sinh.f64 y)) x) < -1.99999999999999997e-170Initial program 100.0%
Taylor expanded in y around 0
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f6490.0
Applied rewrites90.0%
Taylor expanded in y around inf
Applied rewrites90.0%
Taylor expanded in x around 0
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6474.9
Applied rewrites74.9%
if -1.99999999999999997e-170 < (/.f64 (*.f64 (sin.f64 x) (sinh.f64 y)) x) Initial program 86.2%
Taylor expanded in x around 0
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6444.6
Applied rewrites44.6%
Taylor expanded in y around 0
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f6438.2
Applied rewrites38.2%
lift-/.f64N/A
lift-*.f64N/A
associate-/l*N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f6456.1
Applied rewrites56.1%
Taylor expanded in x around 0
Applied rewrites69.9%
Final simplification71.6%
(FPCore (x y)
:precision binary64
(if (<= (/ (* (sinh y) (sin x)) x) -2e-296)
(* (* (* y y) y) (fma -0.027777777777777776 (* x x) 0.16666666666666666))
(*
(* 1.0 x)
(/
(*
(fma (fma 0.008333333333333333 (* y y) 0.16666666666666666) (* y y) 1.0)
y)
x))))
double code(double x, double y) {
double tmp;
if (((sinh(y) * sin(x)) / x) <= -2e-296) {
tmp = ((y * y) * y) * fma(-0.027777777777777776, (x * x), 0.16666666666666666);
} else {
tmp = (1.0 * x) * ((fma(fma(0.008333333333333333, (y * y), 0.16666666666666666), (y * y), 1.0) * y) / x);
}
return tmp;
}
function code(x, y) tmp = 0.0 if (Float64(Float64(sinh(y) * sin(x)) / x) <= -2e-296) tmp = Float64(Float64(Float64(y * y) * y) * fma(-0.027777777777777776, Float64(x * x), 0.16666666666666666)); else tmp = Float64(Float64(1.0 * x) * Float64(Float64(fma(fma(0.008333333333333333, Float64(y * y), 0.16666666666666666), Float64(y * y), 1.0) * y) / x)); end return tmp end
code[x_, y_] := If[LessEqual[N[(N[(N[Sinh[y], $MachinePrecision] * N[Sin[x], $MachinePrecision]), $MachinePrecision] / x), $MachinePrecision], -2e-296], N[(N[(N[(y * y), $MachinePrecision] * y), $MachinePrecision] * N[(-0.027777777777777776 * N[(x * x), $MachinePrecision] + 0.16666666666666666), $MachinePrecision]), $MachinePrecision], N[(N[(1.0 * x), $MachinePrecision] * N[(N[(N[(N[(0.008333333333333333 * N[(y * y), $MachinePrecision] + 0.16666666666666666), $MachinePrecision] * N[(y * y), $MachinePrecision] + 1.0), $MachinePrecision] * y), $MachinePrecision] / x), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{\sinh y \cdot \sin x}{x} \leq -2 \cdot 10^{-296}:\\
\;\;\;\;\left(\left(y \cdot y\right) \cdot y\right) \cdot \mathsf{fma}\left(-0.027777777777777776, x \cdot x, 0.16666666666666666\right)\\
\mathbf{else}:\\
\;\;\;\;\left(1 \cdot x\right) \cdot \frac{\mathsf{fma}\left(\mathsf{fma}\left(0.008333333333333333, y \cdot y, 0.16666666666666666\right), y \cdot y, 1\right) \cdot y}{x}\\
\end{array}
\end{array}
if (/.f64 (*.f64 (sin.f64 x) (sinh.f64 y)) x) < -2e-296Initial program 100.0%
Taylor expanded in y around 0
+-commutativeN/A
distribute-lft-inN/A
associate-/l*N/A
*-commutativeN/A
associate-/l*N/A
associate-*r*N/A
*-commutativeN/A
*-commutativeN/A
associate-*l/N/A
associate-*l*N/A
*-commutativeN/A
*-commutativeN/A
associate-*r*N/A
associate-/l*N/A
distribute-rgt-outN/A
lower-*.f64N/A
Applied rewrites75.7%
Taylor expanded in x around 0
Applied rewrites60.7%
Taylor expanded in y around inf
Applied rewrites40.2%
Taylor expanded in y around inf
Applied rewrites40.2%
if -2e-296 < (/.f64 (*.f64 (sin.f64 x) (sinh.f64 y)) x) Initial program 85.1%
Taylor expanded in x around 0
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6446.2
Applied rewrites46.2%
Taylor expanded in y around 0
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f6439.2
Applied rewrites39.2%
lift-/.f64N/A
lift-*.f64N/A
associate-/l*N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f6458.6
Applied rewrites58.6%
Taylor expanded in x around 0
Applied rewrites73.4%
Final simplification60.6%
(FPCore (x y)
:precision binary64
(if (<= (/ (* (sinh y) (sin x)) x) -2e-296)
(* (* (* y y) y) (fma -0.027777777777777776 (* x x) 0.16666666666666666))
(*
(fma (fma 0.008333333333333333 (* y y) 0.16666666666666666) (* y y) 1.0)
y)))
double code(double x, double y) {
double tmp;
if (((sinh(y) * sin(x)) / x) <= -2e-296) {
tmp = ((y * y) * y) * fma(-0.027777777777777776, (x * x), 0.16666666666666666);
} else {
tmp = fma(fma(0.008333333333333333, (y * y), 0.16666666666666666), (y * y), 1.0) * y;
}
return tmp;
}
function code(x, y) tmp = 0.0 if (Float64(Float64(sinh(y) * sin(x)) / x) <= -2e-296) tmp = Float64(Float64(Float64(y * y) * y) * fma(-0.027777777777777776, Float64(x * x), 0.16666666666666666)); else tmp = Float64(fma(fma(0.008333333333333333, Float64(y * y), 0.16666666666666666), Float64(y * y), 1.0) * y); end return tmp end
code[x_, y_] := If[LessEqual[N[(N[(N[Sinh[y], $MachinePrecision] * N[Sin[x], $MachinePrecision]), $MachinePrecision] / x), $MachinePrecision], -2e-296], N[(N[(N[(y * y), $MachinePrecision] * y), $MachinePrecision] * N[(-0.027777777777777776 * N[(x * x), $MachinePrecision] + 0.16666666666666666), $MachinePrecision]), $MachinePrecision], N[(N[(N[(0.008333333333333333 * N[(y * y), $MachinePrecision] + 0.16666666666666666), $MachinePrecision] * N[(y * y), $MachinePrecision] + 1.0), $MachinePrecision] * y), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{\sinh y \cdot \sin x}{x} \leq -2 \cdot 10^{-296}:\\
\;\;\;\;\left(\left(y \cdot y\right) \cdot y\right) \cdot \mathsf{fma}\left(-0.027777777777777776, x \cdot x, 0.16666666666666666\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(0.008333333333333333, y \cdot y, 0.16666666666666666\right), y \cdot y, 1\right) \cdot y\\
\end{array}
\end{array}
if (/.f64 (*.f64 (sin.f64 x) (sinh.f64 y)) x) < -2e-296Initial program 100.0%
Taylor expanded in y around 0
+-commutativeN/A
distribute-lft-inN/A
associate-/l*N/A
*-commutativeN/A
associate-/l*N/A
associate-*r*N/A
*-commutativeN/A
*-commutativeN/A
associate-*l/N/A
associate-*l*N/A
*-commutativeN/A
*-commutativeN/A
associate-*r*N/A
associate-/l*N/A
distribute-rgt-outN/A
lower-*.f64N/A
Applied rewrites75.7%
Taylor expanded in x around 0
Applied rewrites60.7%
Taylor expanded in y around inf
Applied rewrites40.2%
Taylor expanded in y around inf
Applied rewrites40.2%
if -2e-296 < (/.f64 (*.f64 (sin.f64 x) (sinh.f64 y)) x) Initial program 85.1%
Taylor expanded in y around 0
*-commutativeN/A
lower-*.f64N/A
Applied rewrites88.2%
Taylor expanded in x around 0
Applied rewrites54.9%
Final simplification49.2%
(FPCore (x y) :precision binary64 (if (<= (/ (* (sinh y) (sin x)) x) -2e-296) (* (* (* y y) y) (fma -0.027777777777777776 (* x x) 0.16666666666666666)) (* (fma (* 0.16666666666666666 y) y 1.0) y)))
double code(double x, double y) {
double tmp;
if (((sinh(y) * sin(x)) / x) <= -2e-296) {
tmp = ((y * y) * y) * fma(-0.027777777777777776, (x * x), 0.16666666666666666);
} else {
tmp = fma((0.16666666666666666 * y), y, 1.0) * y;
}
return tmp;
}
function code(x, y) tmp = 0.0 if (Float64(Float64(sinh(y) * sin(x)) / x) <= -2e-296) tmp = Float64(Float64(Float64(y * y) * y) * fma(-0.027777777777777776, Float64(x * x), 0.16666666666666666)); else tmp = Float64(fma(Float64(0.16666666666666666 * y), y, 1.0) * y); end return tmp end
code[x_, y_] := If[LessEqual[N[(N[(N[Sinh[y], $MachinePrecision] * N[Sin[x], $MachinePrecision]), $MachinePrecision] / x), $MachinePrecision], -2e-296], N[(N[(N[(y * y), $MachinePrecision] * y), $MachinePrecision] * N[(-0.027777777777777776 * N[(x * x), $MachinePrecision] + 0.16666666666666666), $MachinePrecision]), $MachinePrecision], N[(N[(N[(0.16666666666666666 * y), $MachinePrecision] * y + 1.0), $MachinePrecision] * y), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{\sinh y \cdot \sin x}{x} \leq -2 \cdot 10^{-296}:\\
\;\;\;\;\left(\left(y \cdot y\right) \cdot y\right) \cdot \mathsf{fma}\left(-0.027777777777777776, x \cdot x, 0.16666666666666666\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(0.16666666666666666 \cdot y, y, 1\right) \cdot y\\
\end{array}
\end{array}
if (/.f64 (*.f64 (sin.f64 x) (sinh.f64 y)) x) < -2e-296Initial program 100.0%
Taylor expanded in y around 0
+-commutativeN/A
distribute-lft-inN/A
associate-/l*N/A
*-commutativeN/A
associate-/l*N/A
associate-*r*N/A
*-commutativeN/A
*-commutativeN/A
associate-*l/N/A
associate-*l*N/A
*-commutativeN/A
*-commutativeN/A
associate-*r*N/A
associate-/l*N/A
distribute-rgt-outN/A
lower-*.f64N/A
Applied rewrites75.7%
Taylor expanded in x around 0
Applied rewrites60.7%
Taylor expanded in y around inf
Applied rewrites40.2%
Taylor expanded in y around inf
Applied rewrites40.2%
if -2e-296 < (/.f64 (*.f64 (sin.f64 x) (sinh.f64 y)) x) Initial program 85.1%
Taylor expanded in y around 0
+-commutativeN/A
distribute-lft-inN/A
associate-/l*N/A
*-commutativeN/A
associate-/l*N/A
associate-*r*N/A
*-commutativeN/A
*-commutativeN/A
associate-*l/N/A
associate-*l*N/A
*-commutativeN/A
*-commutativeN/A
associate-*r*N/A
associate-/l*N/A
distribute-rgt-outN/A
lower-*.f64N/A
Applied rewrites76.4%
Taylor expanded in x around 0
Applied rewrites51.1%
Applied rewrites51.1%
Final simplification46.9%
(FPCore (x y) :precision binary64 (if (<= (/ (* (sinh y) (sin x)) x) -2e-296) (* (* (fma -0.027777777777777776 (* x x) 0.16666666666666666) y) (* y y)) (* (fma (* 0.16666666666666666 y) y 1.0) y)))
double code(double x, double y) {
double tmp;
if (((sinh(y) * sin(x)) / x) <= -2e-296) {
tmp = (fma(-0.027777777777777776, (x * x), 0.16666666666666666) * y) * (y * y);
} else {
tmp = fma((0.16666666666666666 * y), y, 1.0) * y;
}
return tmp;
}
function code(x, y) tmp = 0.0 if (Float64(Float64(sinh(y) * sin(x)) / x) <= -2e-296) tmp = Float64(Float64(fma(-0.027777777777777776, Float64(x * x), 0.16666666666666666) * y) * Float64(y * y)); else tmp = Float64(fma(Float64(0.16666666666666666 * y), y, 1.0) * y); end return tmp end
code[x_, y_] := If[LessEqual[N[(N[(N[Sinh[y], $MachinePrecision] * N[Sin[x], $MachinePrecision]), $MachinePrecision] / x), $MachinePrecision], -2e-296], N[(N[(N[(-0.027777777777777776 * N[(x * x), $MachinePrecision] + 0.16666666666666666), $MachinePrecision] * y), $MachinePrecision] * N[(y * y), $MachinePrecision]), $MachinePrecision], N[(N[(N[(0.16666666666666666 * y), $MachinePrecision] * y + 1.0), $MachinePrecision] * y), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{\sinh y \cdot \sin x}{x} \leq -2 \cdot 10^{-296}:\\
\;\;\;\;\left(\mathsf{fma}\left(-0.027777777777777776, x \cdot x, 0.16666666666666666\right) \cdot y\right) \cdot \left(y \cdot y\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(0.16666666666666666 \cdot y, y, 1\right) \cdot y\\
\end{array}
\end{array}
if (/.f64 (*.f64 (sin.f64 x) (sinh.f64 y)) x) < -2e-296Initial program 100.0%
Taylor expanded in y around 0
+-commutativeN/A
distribute-lft-inN/A
associate-/l*N/A
*-commutativeN/A
associate-/l*N/A
associate-*r*N/A
*-commutativeN/A
*-commutativeN/A
associate-*l/N/A
associate-*l*N/A
*-commutativeN/A
*-commutativeN/A
associate-*r*N/A
associate-/l*N/A
distribute-rgt-outN/A
lower-*.f64N/A
Applied rewrites75.7%
Taylor expanded in x around 0
Applied rewrites60.7%
Taylor expanded in y around inf
Applied rewrites40.1%
if -2e-296 < (/.f64 (*.f64 (sin.f64 x) (sinh.f64 y)) x) Initial program 85.1%
Taylor expanded in y around 0
+-commutativeN/A
distribute-lft-inN/A
associate-/l*N/A
*-commutativeN/A
associate-/l*N/A
associate-*r*N/A
*-commutativeN/A
*-commutativeN/A
associate-*l/N/A
associate-*l*N/A
*-commutativeN/A
*-commutativeN/A
associate-*r*N/A
associate-/l*N/A
distribute-rgt-outN/A
lower-*.f64N/A
Applied rewrites76.4%
Taylor expanded in x around 0
Applied rewrites51.1%
Applied rewrites51.1%
Final simplification46.9%
(FPCore (x y) :precision binary64 (if (<= (/ (* (sinh y) (sin x)) x) -2e-170) (* (fma (* x x) -0.16666666666666666 1.0) y) (* (fma (* 0.16666666666666666 y) y 1.0) y)))
double code(double x, double y) {
double tmp;
if (((sinh(y) * sin(x)) / x) <= -2e-170) {
tmp = fma((x * x), -0.16666666666666666, 1.0) * y;
} else {
tmp = fma((0.16666666666666666 * y), y, 1.0) * y;
}
return tmp;
}
function code(x, y) tmp = 0.0 if (Float64(Float64(sinh(y) * sin(x)) / x) <= -2e-170) tmp = Float64(fma(Float64(x * x), -0.16666666666666666, 1.0) * y); else tmp = Float64(fma(Float64(0.16666666666666666 * y), y, 1.0) * y); end return tmp end
code[x_, y_] := If[LessEqual[N[(N[(N[Sinh[y], $MachinePrecision] * N[Sin[x], $MachinePrecision]), $MachinePrecision] / x), $MachinePrecision], -2e-170], N[(N[(N[(x * x), $MachinePrecision] * -0.16666666666666666 + 1.0), $MachinePrecision] * y), $MachinePrecision], N[(N[(N[(0.16666666666666666 * y), $MachinePrecision] * y + 1.0), $MachinePrecision] * y), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{\sinh y \cdot \sin x}{x} \leq -2 \cdot 10^{-170}:\\
\;\;\;\;\mathsf{fma}\left(x \cdot x, -0.16666666666666666, 1\right) \cdot y\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(0.16666666666666666 \cdot y, y, 1\right) \cdot y\\
\end{array}
\end{array}
if (/.f64 (*.f64 (sin.f64 x) (sinh.f64 y)) x) < -1.99999999999999997e-170Initial program 100.0%
Taylor expanded in y around 0
*-commutativeN/A
associate-*l/N/A
lower-*.f64N/A
lower-/.f64N/A
lower-sin.f6430.2
Applied rewrites30.2%
Taylor expanded in x around 0
Applied rewrites39.9%
if -1.99999999999999997e-170 < (/.f64 (*.f64 (sin.f64 x) (sinh.f64 y)) x) Initial program 86.2%
Taylor expanded in y around 0
+-commutativeN/A
distribute-lft-inN/A
associate-/l*N/A
*-commutativeN/A
associate-/l*N/A
associate-*r*N/A
*-commutativeN/A
*-commutativeN/A
associate-*l/N/A
associate-*l*N/A
*-commutativeN/A
*-commutativeN/A
associate-*r*N/A
associate-/l*N/A
distribute-rgt-outN/A
lower-*.f64N/A
Applied rewrites78.2%
Taylor expanded in x around 0
Applied rewrites49.3%
Applied rewrites49.3%
Final simplification46.1%
(FPCore (x y) :precision binary64 (if (<= (/ (* (sinh y) (sin x)) x) 1.0) (* 1.0 y) (* (* (* y y) y) 0.16666666666666666)))
double code(double x, double y) {
double tmp;
if (((sinh(y) * sin(x)) / x) <= 1.0) {
tmp = 1.0 * y;
} else {
tmp = ((y * y) * y) * 0.16666666666666666;
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: tmp
if (((sinh(y) * sin(x)) / x) <= 1.0d0) then
tmp = 1.0d0 * y
else
tmp = ((y * y) * y) * 0.16666666666666666d0
end if
code = tmp
end function
public static double code(double x, double y) {
double tmp;
if (((Math.sinh(y) * Math.sin(x)) / x) <= 1.0) {
tmp = 1.0 * y;
} else {
tmp = ((y * y) * y) * 0.16666666666666666;
}
return tmp;
}
def code(x, y): tmp = 0 if ((math.sinh(y) * math.sin(x)) / x) <= 1.0: tmp = 1.0 * y else: tmp = ((y * y) * y) * 0.16666666666666666 return tmp
function code(x, y) tmp = 0.0 if (Float64(Float64(sinh(y) * sin(x)) / x) <= 1.0) tmp = Float64(1.0 * y); else tmp = Float64(Float64(Float64(y * y) * y) * 0.16666666666666666); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if (((sinh(y) * sin(x)) / x) <= 1.0) tmp = 1.0 * y; else tmp = ((y * y) * y) * 0.16666666666666666; end tmp_2 = tmp; end
code[x_, y_] := If[LessEqual[N[(N[(N[Sinh[y], $MachinePrecision] * N[Sin[x], $MachinePrecision]), $MachinePrecision] / x), $MachinePrecision], 1.0], N[(1.0 * y), $MachinePrecision], N[(N[(N[(y * y), $MachinePrecision] * y), $MachinePrecision] * 0.16666666666666666), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{\sinh y \cdot \sin x}{x} \leq 1:\\
\;\;\;\;1 \cdot y\\
\mathbf{else}:\\
\;\;\;\;\left(\left(y \cdot y\right) \cdot y\right) \cdot 0.16666666666666666\\
\end{array}
\end{array}
if (/.f64 (*.f64 (sin.f64 x) (sinh.f64 y)) x) < 1Initial program 86.6%
Taylor expanded in y around 0
*-commutativeN/A
associate-*l/N/A
lower-*.f64N/A
lower-/.f64N/A
lower-sin.f6464.7
Applied rewrites64.7%
Taylor expanded in x around 0
Applied rewrites37.3%
if 1 < (/.f64 (*.f64 (sin.f64 x) (sinh.f64 y)) x) Initial program 100.0%
Taylor expanded in y around 0
+-commutativeN/A
distribute-lft-inN/A
associate-/l*N/A
*-commutativeN/A
associate-/l*N/A
associate-*r*N/A
*-commutativeN/A
*-commutativeN/A
associate-*l/N/A
associate-*l*N/A
*-commutativeN/A
*-commutativeN/A
associate-*r*N/A
associate-/l*N/A
distribute-rgt-outN/A
lower-*.f64N/A
Applied rewrites55.8%
Taylor expanded in x around 0
Applied rewrites50.0%
Taylor expanded in y around inf
Applied rewrites50.0%
Final simplification41.3%
(FPCore (x y) :precision binary64 (if (<= x 2.9e+28) (* (fma (* 0.16666666666666666 y) y 1.0) y) (* (* (* y y) y) 0.16666666666666666)))
double code(double x, double y) {
double tmp;
if (x <= 2.9e+28) {
tmp = fma((0.16666666666666666 * y), y, 1.0) * y;
} else {
tmp = ((y * y) * y) * 0.16666666666666666;
}
return tmp;
}
function code(x, y) tmp = 0.0 if (x <= 2.9e+28) tmp = Float64(fma(Float64(0.16666666666666666 * y), y, 1.0) * y); else tmp = Float64(Float64(Float64(y * y) * y) * 0.16666666666666666); end return tmp end
code[x_, y_] := If[LessEqual[x, 2.9e+28], N[(N[(N[(0.16666666666666666 * y), $MachinePrecision] * y + 1.0), $MachinePrecision] * y), $MachinePrecision], N[(N[(N[(y * y), $MachinePrecision] * y), $MachinePrecision] * 0.16666666666666666), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq 2.9 \cdot 10^{+28}:\\
\;\;\;\;\mathsf{fma}\left(0.16666666666666666 \cdot y, y, 1\right) \cdot y\\
\mathbf{else}:\\
\;\;\;\;\left(\left(y \cdot y\right) \cdot y\right) \cdot 0.16666666666666666\\
\end{array}
\end{array}
if x < 2.9000000000000001e28Initial program 87.7%
Taylor expanded in y around 0
+-commutativeN/A
distribute-lft-inN/A
associate-/l*N/A
*-commutativeN/A
associate-/l*N/A
associate-*r*N/A
*-commutativeN/A
*-commutativeN/A
associate-*l/N/A
associate-*l*N/A
*-commutativeN/A
*-commutativeN/A
associate-*r*N/A
associate-/l*N/A
distribute-rgt-outN/A
lower-*.f64N/A
Applied rewrites78.9%
Taylor expanded in x around 0
Applied rewrites62.3%
Applied rewrites62.3%
if 2.9000000000000001e28 < x Initial program 99.9%
Taylor expanded in y around 0
+-commutativeN/A
distribute-lft-inN/A
associate-/l*N/A
*-commutativeN/A
associate-/l*N/A
associate-*r*N/A
*-commutativeN/A
*-commutativeN/A
associate-*l/N/A
associate-*l*N/A
*-commutativeN/A
*-commutativeN/A
associate-*r*N/A
associate-/l*N/A
distribute-rgt-outN/A
lower-*.f64N/A
Applied rewrites68.0%
Taylor expanded in x around 0
Applied rewrites24.8%
Taylor expanded in y around inf
Applied rewrites35.2%
(FPCore (x y) :precision binary64 (* 1.0 y))
double code(double x, double y) {
return 1.0 * y;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = 1.0d0 * y
end function
public static double code(double x, double y) {
return 1.0 * y;
}
def code(x, y): return 1.0 * y
function code(x, y) return Float64(1.0 * y) end
function tmp = code(x, y) tmp = 1.0 * y; end
code[x_, y_] := N[(1.0 * y), $MachinePrecision]
\begin{array}{l}
\\
1 \cdot y
\end{array}
Initial program 90.8%
Taylor expanded in y around 0
*-commutativeN/A
associate-*l/N/A
lower-*.f64N/A
lower-/.f64N/A
lower-sin.f6445.7
Applied rewrites45.7%
Taylor expanded in x around 0
Applied rewrites26.8%
(FPCore (x y) :precision binary64 (* (sin x) (/ (sinh y) x)))
double code(double x, double y) {
return sin(x) * (sinh(y) / x);
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = sin(x) * (sinh(y) / x)
end function
public static double code(double x, double y) {
return Math.sin(x) * (Math.sinh(y) / x);
}
def code(x, y): return math.sin(x) * (math.sinh(y) / x)
function code(x, y) return Float64(sin(x) * Float64(sinh(y) / x)) end
function tmp = code(x, y) tmp = sin(x) * (sinh(y) / x); end
code[x_, y_] := N[(N[Sin[x], $MachinePrecision] * N[(N[Sinh[y], $MachinePrecision] / x), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\sin x \cdot \frac{\sinh y}{x}
\end{array}
herbie shell --seed 2024235
(FPCore (x y)
:name "Linear.Quaternion:$ccosh from linear-1.19.1.3"
:precision binary64
:alt
(! :herbie-platform default (* (sin x) (/ (sinh y) x)))
(/ (* (sin x) (sinh y)) x))