(FPCore (x y) :precision binary64 (* (sin x) (/ (sinh y) y)))
(FPCore (x y) :precision binary64 (/ (sin x) (pow (sqrt (/ y (sinh y))) 2.0)))
double code(double x, double y) {
return sin(x) * (sinh(y) / y);
}
double code(double x, double y) {
return sin(x) / pow(sqrt((y / sinh(y))), 2.0);
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = sin(x) * (sinh(y) / y)
end function
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = sin(x) / (sqrt((y / sinh(y))) ** 2.0d0)
end function
public static double code(double x, double y) {
return Math.sin(x) * (Math.sinh(y) / y);
}
public static double code(double x, double y) {
return Math.sin(x) / Math.pow(Math.sqrt((y / Math.sinh(y))), 2.0);
}
def code(x, y): return math.sin(x) * (math.sinh(y) / y)
def code(x, y): return math.sin(x) / math.pow(math.sqrt((y / math.sinh(y))), 2.0)
function code(x, y) return Float64(sin(x) * Float64(sinh(y) / y)) end
function code(x, y) return Float64(sin(x) / (sqrt(Float64(y / sinh(y))) ^ 2.0)) end
function tmp = code(x, y) tmp = sin(x) * (sinh(y) / y); end
function tmp = code(x, y) tmp = sin(x) / (sqrt((y / sinh(y))) ^ 2.0); end
code[x_, y_] := N[(N[Sin[x], $MachinePrecision] * N[(N[Sinh[y], $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision]
code[x_, y_] := N[(N[Sin[x], $MachinePrecision] / N[Power[N[Sqrt[N[(y / N[Sinh[y], $MachinePrecision]), $MachinePrecision]], $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]
\sin x \cdot \frac{\sinh y}{y}
\frac{\sin x}{{\left(\sqrt{\frac{y}{\sinh y}}\right)}^{2}}



Bits error versus x



Bits error versus y
Results
Initial program 0.0
Applied egg-rr0.0
Applied egg-rr0.0
Final simplification0.0
herbie shell --seed 2022170
(FPCore (x y)
:name "Linear.Quaternion:$ccos from linear-1.19.1.3"
:precision binary64
(* (sin x) (/ (sinh y) y)))