(FPCore (x y) :precision binary64 (/ (fabs (- x y)) (fabs y)))
(FPCore (x y) :precision binary64 (fabs (/ (- x y) y)))
double code(double x, double y) {
return fabs((x - y)) / fabs(y);
}
double code(double x, double y) {
return fabs(((x - y) / y));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = abs((x - y)) / abs(y)
end function
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = abs(((x - y) / y))
end function
public static double code(double x, double y) {
return Math.abs((x - y)) / Math.abs(y);
}
public static double code(double x, double y) {
return Math.abs(((x - y) / y));
}
def code(x, y): return math.fabs((x - y)) / math.fabs(y)
def code(x, y): return math.fabs(((x - y) / y))
function code(x, y) return Float64(abs(Float64(x - y)) / abs(y)) end
function code(x, y) return abs(Float64(Float64(x - y) / y)) end
function tmp = code(x, y) tmp = abs((x - y)) / abs(y); end
function tmp = code(x, y) tmp = abs(((x - y) / y)); end
code[x_, y_] := N[(N[Abs[N[(x - y), $MachinePrecision]], $MachinePrecision] / N[Abs[y], $MachinePrecision]), $MachinePrecision]
code[x_, y_] := N[Abs[N[(N[(x - y), $MachinePrecision] / y), $MachinePrecision]], $MachinePrecision]
\frac{\left|x - y\right|}{\left|y\right|}
\left|\frac{x - y}{y}\right|
Results
Initial program 0.0
Applied egg-rr0.0
Final simplification0.0
herbie shell --seed 2022192
(FPCore (x y)
:name "Numeric.LinearAlgebra.Util:formatSparse from hmatrix-0.16.1.5"
:precision binary64
(/ (fabs (- x y)) (fabs y)))