(FPCore (x)
:precision binary64
(*
(/
(+
(+
(+
(+ (+ 1.0 (* 0.1049934947 (* x x))) (* 0.0424060604 (* (* x x) (* x x))))
(* 0.0072644182 (* (* (* x x) (* x x)) (* x x))))
(* 0.0005064034 (* (* (* (* x x) (* x x)) (* x x)) (* x x))))
(* 0.0001789971 (* (* (* (* (* x x) (* x x)) (* x x)) (* x x)) (* x x))))
(+
(+
(+
(+
(+
(+ 1.0 (* 0.7715471019 (* x x)))
(* 0.2909738639 (* (* x x) (* x x))))
(* 0.0694555761 (* (* (* x x) (* x x)) (* x x))))
(* 0.0140005442 (* (* (* (* x x) (* x x)) (* x x)) (* x x))))
(* 0.0008327945 (* (* (* (* (* x x) (* x x)) (* x x)) (* x x)) (* x x))))
(*
(* 2.0 0.0001789971)
(* (* (* (* (* (* x x) (* x x)) (* x x)) (* x x)) (* x x)) (* x x)))))
x))(FPCore (x)
:precision binary64
(let* ((t_0 (pow (* x x) 2.0))
(t_1 (pow (* x x) 3.0))
(t_2 (* t_0 t_1))
(t_3 (* (* x x) t_1)))
(if (<= x -35000000.0)
(/ 0.5 x)
(if (<= x 1000000000.0)
(*
x
(*
(+
(+
(+ 1.0 (* 0.1049934947 (* x x)))
(+ (* 0.0424060604 t_0) (* 0.0072644182 t_1)))
(+ (* 0.0005064034 t_3) (* 0.0001789971 t_2)))
(/
1.0
(+
(+
(+ 1.0 (+ (* (* x x) 0.7715471019) (* t_0 0.2909738639)))
(+ (* t_1 0.0694555761) (* t_3 0.0140005442)))
(+ (* t_2 0.0008327945) (* 0.0003579942 (pow x 12.0)))))))
(/ 0.5 x)))))double code(double x) {
return ((((((1.0 + (0.1049934947 * (x * x))) + (0.0424060604 * ((x * x) * (x * x)))) + (0.0072644182 * (((x * x) * (x * x)) * (x * x)))) + (0.0005064034 * ((((x * x) * (x * x)) * (x * x)) * (x * x)))) + (0.0001789971 * (((((x * x) * (x * x)) * (x * x)) * (x * x)) * (x * x)))) / ((((((1.0 + (0.7715471019 * (x * x))) + (0.2909738639 * ((x * x) * (x * x)))) + (0.0694555761 * (((x * x) * (x * x)) * (x * x)))) + (0.0140005442 * ((((x * x) * (x * x)) * (x * x)) * (x * x)))) + (0.0008327945 * (((((x * x) * (x * x)) * (x * x)) * (x * x)) * (x * x)))) + ((2.0 * 0.0001789971) * ((((((x * x) * (x * x)) * (x * x)) * (x * x)) * (x * x)) * (x * x))))) * x;
}
double code(double x) {
double t_0 = pow((x * x), 2.0);
double t_1 = pow((x * x), 3.0);
double t_2 = t_0 * t_1;
double t_3 = (x * x) * t_1;
double tmp;
if (x <= -35000000.0) {
tmp = 0.5 / x;
} else if (x <= 1000000000.0) {
tmp = x * ((((1.0 + (0.1049934947 * (x * x))) + ((0.0424060604 * t_0) + (0.0072644182 * t_1))) + ((0.0005064034 * t_3) + (0.0001789971 * t_2))) * (1.0 / (((1.0 + (((x * x) * 0.7715471019) + (t_0 * 0.2909738639))) + ((t_1 * 0.0694555761) + (t_3 * 0.0140005442))) + ((t_2 * 0.0008327945) + (0.0003579942 * pow(x, 12.0))))));
} else {
tmp = 0.5 / x;
}
return tmp;
}
real(8) function code(x)
real(8), intent (in) :: x
code = ((((((1.0d0 + (0.1049934947d0 * (x * x))) + (0.0424060604d0 * ((x * x) * (x * x)))) + (0.0072644182d0 * (((x * x) * (x * x)) * (x * x)))) + (0.0005064034d0 * ((((x * x) * (x * x)) * (x * x)) * (x * x)))) + (0.0001789971d0 * (((((x * x) * (x * x)) * (x * x)) * (x * x)) * (x * x)))) / ((((((1.0d0 + (0.7715471019d0 * (x * x))) + (0.2909738639d0 * ((x * x) * (x * x)))) + (0.0694555761d0 * (((x * x) * (x * x)) * (x * x)))) + (0.0140005442d0 * ((((x * x) * (x * x)) * (x * x)) * (x * x)))) + (0.0008327945d0 * (((((x * x) * (x * x)) * (x * x)) * (x * x)) * (x * x)))) + ((2.0d0 * 0.0001789971d0) * ((((((x * x) * (x * x)) * (x * x)) * (x * x)) * (x * x)) * (x * x))))) * x
end function
real(8) function code(x)
real(8), intent (in) :: x
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: tmp
t_0 = (x * x) ** 2.0d0
t_1 = (x * x) ** 3.0d0
t_2 = t_0 * t_1
t_3 = (x * x) * t_1
if (x <= (-35000000.0d0)) then
tmp = 0.5d0 / x
else if (x <= 1000000000.0d0) then
tmp = x * ((((1.0d0 + (0.1049934947d0 * (x * x))) + ((0.0424060604d0 * t_0) + (0.0072644182d0 * t_1))) + ((0.0005064034d0 * t_3) + (0.0001789971d0 * t_2))) * (1.0d0 / (((1.0d0 + (((x * x) * 0.7715471019d0) + (t_0 * 0.2909738639d0))) + ((t_1 * 0.0694555761d0) + (t_3 * 0.0140005442d0))) + ((t_2 * 0.0008327945d0) + (0.0003579942d0 * (x ** 12.0d0))))))
else
tmp = 0.5d0 / x
end if
code = tmp
end function
public static double code(double x) {
return ((((((1.0 + (0.1049934947 * (x * x))) + (0.0424060604 * ((x * x) * (x * x)))) + (0.0072644182 * (((x * x) * (x * x)) * (x * x)))) + (0.0005064034 * ((((x * x) * (x * x)) * (x * x)) * (x * x)))) + (0.0001789971 * (((((x * x) * (x * x)) * (x * x)) * (x * x)) * (x * x)))) / ((((((1.0 + (0.7715471019 * (x * x))) + (0.2909738639 * ((x * x) * (x * x)))) + (0.0694555761 * (((x * x) * (x * x)) * (x * x)))) + (0.0140005442 * ((((x * x) * (x * x)) * (x * x)) * (x * x)))) + (0.0008327945 * (((((x * x) * (x * x)) * (x * x)) * (x * x)) * (x * x)))) + ((2.0 * 0.0001789971) * ((((((x * x) * (x * x)) * (x * x)) * (x * x)) * (x * x)) * (x * x))))) * x;
}
public static double code(double x) {
double t_0 = Math.pow((x * x), 2.0);
double t_1 = Math.pow((x * x), 3.0);
double t_2 = t_0 * t_1;
double t_3 = (x * x) * t_1;
double tmp;
if (x <= -35000000.0) {
tmp = 0.5 / x;
} else if (x <= 1000000000.0) {
tmp = x * ((((1.0 + (0.1049934947 * (x * x))) + ((0.0424060604 * t_0) + (0.0072644182 * t_1))) + ((0.0005064034 * t_3) + (0.0001789971 * t_2))) * (1.0 / (((1.0 + (((x * x) * 0.7715471019) + (t_0 * 0.2909738639))) + ((t_1 * 0.0694555761) + (t_3 * 0.0140005442))) + ((t_2 * 0.0008327945) + (0.0003579942 * Math.pow(x, 12.0))))));
} else {
tmp = 0.5 / x;
}
return tmp;
}
def code(x): return ((((((1.0 + (0.1049934947 * (x * x))) + (0.0424060604 * ((x * x) * (x * x)))) + (0.0072644182 * (((x * x) * (x * x)) * (x * x)))) + (0.0005064034 * ((((x * x) * (x * x)) * (x * x)) * (x * x)))) + (0.0001789971 * (((((x * x) * (x * x)) * (x * x)) * (x * x)) * (x * x)))) / ((((((1.0 + (0.7715471019 * (x * x))) + (0.2909738639 * ((x * x) * (x * x)))) + (0.0694555761 * (((x * x) * (x * x)) * (x * x)))) + (0.0140005442 * ((((x * x) * (x * x)) * (x * x)) * (x * x)))) + (0.0008327945 * (((((x * x) * (x * x)) * (x * x)) * (x * x)) * (x * x)))) + ((2.0 * 0.0001789971) * ((((((x * x) * (x * x)) * (x * x)) * (x * x)) * (x * x)) * (x * x))))) * x
def code(x): t_0 = math.pow((x * x), 2.0) t_1 = math.pow((x * x), 3.0) t_2 = t_0 * t_1 t_3 = (x * x) * t_1 tmp = 0 if x <= -35000000.0: tmp = 0.5 / x elif x <= 1000000000.0: tmp = x * ((((1.0 + (0.1049934947 * (x * x))) + ((0.0424060604 * t_0) + (0.0072644182 * t_1))) + ((0.0005064034 * t_3) + (0.0001789971 * t_2))) * (1.0 / (((1.0 + (((x * x) * 0.7715471019) + (t_0 * 0.2909738639))) + ((t_1 * 0.0694555761) + (t_3 * 0.0140005442))) + ((t_2 * 0.0008327945) + (0.0003579942 * math.pow(x, 12.0)))))) else: tmp = 0.5 / x return tmp
function code(x) return Float64(Float64(Float64(Float64(Float64(Float64(Float64(1.0 + Float64(0.1049934947 * Float64(x * x))) + Float64(0.0424060604 * Float64(Float64(x * x) * Float64(x * x)))) + Float64(0.0072644182 * Float64(Float64(Float64(x * x) * Float64(x * x)) * Float64(x * x)))) + Float64(0.0005064034 * Float64(Float64(Float64(Float64(x * x) * Float64(x * x)) * Float64(x * x)) * Float64(x * x)))) + Float64(0.0001789971 * Float64(Float64(Float64(Float64(Float64(x * x) * Float64(x * x)) * Float64(x * x)) * Float64(x * x)) * Float64(x * x)))) / Float64(Float64(Float64(Float64(Float64(Float64(1.0 + Float64(0.7715471019 * Float64(x * x))) + Float64(0.2909738639 * Float64(Float64(x * x) * Float64(x * x)))) + Float64(0.0694555761 * Float64(Float64(Float64(x * x) * Float64(x * x)) * Float64(x * x)))) + Float64(0.0140005442 * Float64(Float64(Float64(Float64(x * x) * Float64(x * x)) * Float64(x * x)) * Float64(x * x)))) + Float64(0.0008327945 * Float64(Float64(Float64(Float64(Float64(x * x) * Float64(x * x)) * Float64(x * x)) * Float64(x * x)) * Float64(x * x)))) + Float64(Float64(2.0 * 0.0001789971) * Float64(Float64(Float64(Float64(Float64(Float64(x * x) * Float64(x * x)) * Float64(x * x)) * Float64(x * x)) * Float64(x * x)) * Float64(x * x))))) * x) end
function code(x) t_0 = Float64(x * x) ^ 2.0 t_1 = Float64(x * x) ^ 3.0 t_2 = Float64(t_0 * t_1) t_3 = Float64(Float64(x * x) * t_1) tmp = 0.0 if (x <= -35000000.0) tmp = Float64(0.5 / x); elseif (x <= 1000000000.0) tmp = Float64(x * Float64(Float64(Float64(Float64(1.0 + Float64(0.1049934947 * Float64(x * x))) + Float64(Float64(0.0424060604 * t_0) + Float64(0.0072644182 * t_1))) + Float64(Float64(0.0005064034 * t_3) + Float64(0.0001789971 * t_2))) * Float64(1.0 / Float64(Float64(Float64(1.0 + Float64(Float64(Float64(x * x) * 0.7715471019) + Float64(t_0 * 0.2909738639))) + Float64(Float64(t_1 * 0.0694555761) + Float64(t_3 * 0.0140005442))) + Float64(Float64(t_2 * 0.0008327945) + Float64(0.0003579942 * (x ^ 12.0))))))); else tmp = Float64(0.5 / x); end return tmp end
function tmp = code(x) tmp = ((((((1.0 + (0.1049934947 * (x * x))) + (0.0424060604 * ((x * x) * (x * x)))) + (0.0072644182 * (((x * x) * (x * x)) * (x * x)))) + (0.0005064034 * ((((x * x) * (x * x)) * (x * x)) * (x * x)))) + (0.0001789971 * (((((x * x) * (x * x)) * (x * x)) * (x * x)) * (x * x)))) / ((((((1.0 + (0.7715471019 * (x * x))) + (0.2909738639 * ((x * x) * (x * x)))) + (0.0694555761 * (((x * x) * (x * x)) * (x * x)))) + (0.0140005442 * ((((x * x) * (x * x)) * (x * x)) * (x * x)))) + (0.0008327945 * (((((x * x) * (x * x)) * (x * x)) * (x * x)) * (x * x)))) + ((2.0 * 0.0001789971) * ((((((x * x) * (x * x)) * (x * x)) * (x * x)) * (x * x)) * (x * x))))) * x; end
function tmp_2 = code(x) t_0 = (x * x) ^ 2.0; t_1 = (x * x) ^ 3.0; t_2 = t_0 * t_1; t_3 = (x * x) * t_1; tmp = 0.0; if (x <= -35000000.0) tmp = 0.5 / x; elseif (x <= 1000000000.0) tmp = x * ((((1.0 + (0.1049934947 * (x * x))) + ((0.0424060604 * t_0) + (0.0072644182 * t_1))) + ((0.0005064034 * t_3) + (0.0001789971 * t_2))) * (1.0 / (((1.0 + (((x * x) * 0.7715471019) + (t_0 * 0.2909738639))) + ((t_1 * 0.0694555761) + (t_3 * 0.0140005442))) + ((t_2 * 0.0008327945) + (0.0003579942 * (x ^ 12.0)))))); else tmp = 0.5 / x; end tmp_2 = tmp; end
code[x_] := N[(N[(N[(N[(N[(N[(N[(1.0 + N[(0.1049934947 * N[(x * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(0.0424060604 * N[(N[(x * x), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(0.0072644182 * N[(N[(N[(x * x), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(0.0005064034 * N[(N[(N[(N[(x * x), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(0.0001789971 * N[(N[(N[(N[(N[(x * x), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(N[(N[(N[(N[(N[(1.0 + N[(0.7715471019 * N[(x * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(0.2909738639 * N[(N[(x * x), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(0.0694555761 * N[(N[(N[(x * x), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(0.0140005442 * N[(N[(N[(N[(x * x), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(0.0008327945 * N[(N[(N[(N[(N[(x * x), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(2.0 * 0.0001789971), $MachinePrecision] * N[(N[(N[(N[(N[(N[(x * x), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * x), $MachinePrecision]
code[x_] := Block[{t$95$0 = N[Power[N[(x * x), $MachinePrecision], 2.0], $MachinePrecision]}, Block[{t$95$1 = N[Power[N[(x * x), $MachinePrecision], 3.0], $MachinePrecision]}, Block[{t$95$2 = N[(t$95$0 * t$95$1), $MachinePrecision]}, Block[{t$95$3 = N[(N[(x * x), $MachinePrecision] * t$95$1), $MachinePrecision]}, If[LessEqual[x, -35000000.0], N[(0.5 / x), $MachinePrecision], If[LessEqual[x, 1000000000.0], N[(x * N[(N[(N[(N[(1.0 + N[(0.1049934947 * N[(x * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(0.0424060604 * t$95$0), $MachinePrecision] + N[(0.0072644182 * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(0.0005064034 * t$95$3), $MachinePrecision] + N[(0.0001789971 * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(1.0 / N[(N[(N[(1.0 + N[(N[(N[(x * x), $MachinePrecision] * 0.7715471019), $MachinePrecision] + N[(t$95$0 * 0.2909738639), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(t$95$1 * 0.0694555761), $MachinePrecision] + N[(t$95$3 * 0.0140005442), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(t$95$2 * 0.0008327945), $MachinePrecision] + N[(0.0003579942 * N[Power[x, 12.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(0.5 / x), $MachinePrecision]]]]]]]
\frac{\left(\left(\left(\left(1 + 0.1049934947 \cdot \left(x \cdot x\right)\right) + 0.0424060604 \cdot \left(\left(x \cdot x\right) \cdot \left(x \cdot x\right)\right)\right) + 0.0072644182 \cdot \left(\left(\left(x \cdot x\right) \cdot \left(x \cdot x\right)\right) \cdot \left(x \cdot x\right)\right)\right) + 0.0005064034 \cdot \left(\left(\left(\left(x \cdot x\right) \cdot \left(x \cdot x\right)\right) \cdot \left(x \cdot x\right)\right) \cdot \left(x \cdot x\right)\right)\right) + 0.0001789971 \cdot \left(\left(\left(\left(\left(x \cdot x\right) \cdot \left(x \cdot x\right)\right) \cdot \left(x \cdot x\right)\right) \cdot \left(x \cdot x\right)\right) \cdot \left(x \cdot x\right)\right)}{\left(\left(\left(\left(\left(1 + 0.7715471019 \cdot \left(x \cdot x\right)\right) + 0.2909738639 \cdot \left(\left(x \cdot x\right) \cdot \left(x \cdot x\right)\right)\right) + 0.0694555761 \cdot \left(\left(\left(x \cdot x\right) \cdot \left(x \cdot x\right)\right) \cdot \left(x \cdot x\right)\right)\right) + 0.0140005442 \cdot \left(\left(\left(\left(x \cdot x\right) \cdot \left(x \cdot x\right)\right) \cdot \left(x \cdot x\right)\right) \cdot \left(x \cdot x\right)\right)\right) + 0.0008327945 \cdot \left(\left(\left(\left(\left(x \cdot x\right) \cdot \left(x \cdot x\right)\right) \cdot \left(x \cdot x\right)\right) \cdot \left(x \cdot x\right)\right) \cdot \left(x \cdot x\right)\right)\right) + \left(2 \cdot 0.0001789971\right) \cdot \left(\left(\left(\left(\left(\left(x \cdot x\right) \cdot \left(x \cdot x\right)\right) \cdot \left(x \cdot x\right)\right) \cdot \left(x \cdot x\right)\right) \cdot \left(x \cdot x\right)\right) \cdot \left(x \cdot x\right)\right)} \cdot x
\begin{array}{l}
t_0 := {\left(x \cdot x\right)}^{2}\\
t_1 := {\left(x \cdot x\right)}^{3}\\
t_2 := t_0 \cdot t_1\\
t_3 := \left(x \cdot x\right) \cdot t_1\\
\mathbf{if}\;x \leq -35000000:\\
\;\;\;\;\frac{0.5}{x}\\
\mathbf{elif}\;x \leq 1000000000:\\
\;\;\;\;x \cdot \left(\left(\left(\left(1 + 0.1049934947 \cdot \left(x \cdot x\right)\right) + \left(0.0424060604 \cdot t_0 + 0.0072644182 \cdot t_1\right)\right) + \left(0.0005064034 \cdot t_3 + 0.0001789971 \cdot t_2\right)\right) \cdot \frac{1}{\left(\left(1 + \left(\left(x \cdot x\right) \cdot 0.7715471019 + t_0 \cdot 0.2909738639\right)\right) + \left(t_1 \cdot 0.0694555761 + t_3 \cdot 0.0140005442\right)\right) + \left(t_2 \cdot 0.0008327945 + 0.0003579942 \cdot {x}^{12}\right)}\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{0.5}{x}\\
\end{array}



Bits error versus x
Results
if x < -3.5e7 or 1e9 < x Initial program 60.5
Taylor expanded in x around inf 0.0
if -3.5e7 < x < 1e9Initial program 0.0
Taylor expanded in x around 0 0.0
Applied egg-rr0.0
Final simplification0.0
herbie shell --seed 2022155
(FPCore (x)
:name "Jmat.Real.dawson"
:precision binary64
(* (/ (+ (+ (+ (+ (+ 1.0 (* 0.1049934947 (* x x))) (* 0.0424060604 (* (* x x) (* x x)))) (* 0.0072644182 (* (* (* x x) (* x x)) (* x x)))) (* 0.0005064034 (* (* (* (* x x) (* x x)) (* x x)) (* x x)))) (* 0.0001789971 (* (* (* (* (* x x) (* x x)) (* x x)) (* x x)) (* x x)))) (+ (+ (+ (+ (+ (+ 1.0 (* 0.7715471019 (* x x))) (* 0.2909738639 (* (* x x) (* x x)))) (* 0.0694555761 (* (* (* x x) (* x x)) (* x x)))) (* 0.0140005442 (* (* (* (* x x) (* x x)) (* x x)) (* x x)))) (* 0.0008327945 (* (* (* (* (* x x) (* x x)) (* x x)) (* x x)) (* x x)))) (* (* 2.0 0.0001789971) (* (* (* (* (* (* x x) (* x x)) (* x x)) (* x x)) (* x x)) (* x x))))) x))