(FPCore (x) :precision binary64 (exp (- (- 1.0 (* x x)))))
(FPCore (x) :precision binary64 (* (exp -1.0) (pow (pow (exp x) 2.0) (/ x 2.0))))
double code(double x) {
return exp(-(1.0 - (x * x)));
}
double code(double x) {
return exp(-1.0) * pow(pow(exp(x), 2.0), (x / 2.0));
}
real(8) function code(x)
real(8), intent (in) :: x
code = exp(-(1.0d0 - (x * x)))
end function
real(8) function code(x)
real(8), intent (in) :: x
code = exp((-1.0d0)) * ((exp(x) ** 2.0d0) ** (x / 2.0d0))
end function
public static double code(double x) {
return Math.exp(-(1.0 - (x * x)));
}
public static double code(double x) {
return Math.exp(-1.0) * Math.pow(Math.pow(Math.exp(x), 2.0), (x / 2.0));
}
def code(x): return math.exp(-(1.0 - (x * x)))
def code(x): return math.exp(-1.0) * math.pow(math.pow(math.exp(x), 2.0), (x / 2.0))
function code(x) return exp(Float64(-Float64(1.0 - Float64(x * x)))) end
function code(x) return Float64(exp(-1.0) * ((exp(x) ^ 2.0) ^ Float64(x / 2.0))) end
function tmp = code(x) tmp = exp(-(1.0 - (x * x))); end
function tmp = code(x) tmp = exp(-1.0) * ((exp(x) ^ 2.0) ^ (x / 2.0)); end
code[x_] := N[Exp[(-N[(1.0 - N[(x * x), $MachinePrecision]), $MachinePrecision])], $MachinePrecision]
code[x_] := N[(N[Exp[-1.0], $MachinePrecision] * N[Power[N[Power[N[Exp[x], $MachinePrecision], 2.0], $MachinePrecision], N[(x / 2.0), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
e^{-\left(1 - x \cdot x\right)}
e^{-1} \cdot {\left({\left(e^{x}\right)}^{2}\right)}^{\left(\frac{x}{2}\right)}



Bits error versus x
Results
Initial program 0.0
Simplified0.0
Applied egg-rr0.0
Applied egg-rr0.0
Applied egg-rr0.0
Final simplification0.0
herbie shell --seed 2022133
(FPCore (x)
:name "exp neg sub"
:precision binary64
(exp (- (- 1.0 (* x x)))))