| Alternative 1 | |
|---|---|
| Error | 1.3 |
| Cost | 33600 |
\[\left({\left(e^{x}\right)}^{x} \cdot \frac{{\pi}^{-0.5}}{x}\right) \cdot \left(\frac{0.5 + \frac{0.75}{x \cdot x}}{x \cdot x} + \left(1 + \frac{1.875}{{x}^{6}}\right)\right)
\]
(FPCore (x)
:precision binary64
(*
(* (/ 1.0 (sqrt PI)) (exp (* (fabs x) (fabs x))))
(+
(+
(+
(/ 1.0 (fabs x))
(*
(/ 1.0 2.0)
(* (* (/ 1.0 (fabs x)) (/ 1.0 (fabs x))) (/ 1.0 (fabs x)))))
(*
(/ 3.0 4.0)
(*
(*
(* (* (/ 1.0 (fabs x)) (/ 1.0 (fabs x))) (/ 1.0 (fabs x)))
(/ 1.0 (fabs x)))
(/ 1.0 (fabs x)))))
(*
(/ 15.0 8.0)
(*
(*
(*
(*
(* (* (/ 1.0 (fabs x)) (/ 1.0 (fabs x))) (/ 1.0 (fabs x)))
(/ 1.0 (fabs x)))
(/ 1.0 (fabs x)))
(/ 1.0 (fabs x)))
(/ 1.0 (fabs x)))))))(FPCore (x)
:precision binary64
(let* ((t_0 (sqrt (/ 1.0 PI))) (t_1 (pow (exp x) x)))
(+
(*
t_0
(+
(* 0.5 (/ t_1 (* (* x x) (fabs x))))
(* 1.875 (/ t_1 (* (fabs x) (pow x 6.0))))))
(* t_0 (+ (* 0.75 (/ t_1 (* (fabs x) (pow x 4.0)))) (/ t_1 (fabs x)))))))double code(double x) {
return ((1.0 / sqrt(((double) M_PI))) * exp((fabs(x) * fabs(x)))) * ((((1.0 / fabs(x)) + ((1.0 / 2.0) * (((1.0 / fabs(x)) * (1.0 / fabs(x))) * (1.0 / fabs(x))))) + ((3.0 / 4.0) * (((((1.0 / fabs(x)) * (1.0 / fabs(x))) * (1.0 / fabs(x))) * (1.0 / fabs(x))) * (1.0 / fabs(x))))) + ((15.0 / 8.0) * (((((((1.0 / fabs(x)) * (1.0 / fabs(x))) * (1.0 / fabs(x))) * (1.0 / fabs(x))) * (1.0 / fabs(x))) * (1.0 / fabs(x))) * (1.0 / fabs(x)))));
}
double code(double x) {
double t_0 = sqrt((1.0 / ((double) M_PI)));
double t_1 = pow(exp(x), x);
return (t_0 * ((0.5 * (t_1 / ((x * x) * fabs(x)))) + (1.875 * (t_1 / (fabs(x) * pow(x, 6.0)))))) + (t_0 * ((0.75 * (t_1 / (fabs(x) * pow(x, 4.0)))) + (t_1 / fabs(x))));
}
public static double code(double x) {
return ((1.0 / Math.sqrt(Math.PI)) * Math.exp((Math.abs(x) * Math.abs(x)))) * ((((1.0 / Math.abs(x)) + ((1.0 / 2.0) * (((1.0 / Math.abs(x)) * (1.0 / Math.abs(x))) * (1.0 / Math.abs(x))))) + ((3.0 / 4.0) * (((((1.0 / Math.abs(x)) * (1.0 / Math.abs(x))) * (1.0 / Math.abs(x))) * (1.0 / Math.abs(x))) * (1.0 / Math.abs(x))))) + ((15.0 / 8.0) * (((((((1.0 / Math.abs(x)) * (1.0 / Math.abs(x))) * (1.0 / Math.abs(x))) * (1.0 / Math.abs(x))) * (1.0 / Math.abs(x))) * (1.0 / Math.abs(x))) * (1.0 / Math.abs(x)))));
}
public static double code(double x) {
double t_0 = Math.sqrt((1.0 / Math.PI));
double t_1 = Math.pow(Math.exp(x), x);
return (t_0 * ((0.5 * (t_1 / ((x * x) * Math.abs(x)))) + (1.875 * (t_1 / (Math.abs(x) * Math.pow(x, 6.0)))))) + (t_0 * ((0.75 * (t_1 / (Math.abs(x) * Math.pow(x, 4.0)))) + (t_1 / Math.abs(x))));
}
def code(x): return ((1.0 / math.sqrt(math.pi)) * math.exp((math.fabs(x) * math.fabs(x)))) * ((((1.0 / math.fabs(x)) + ((1.0 / 2.0) * (((1.0 / math.fabs(x)) * (1.0 / math.fabs(x))) * (1.0 / math.fabs(x))))) + ((3.0 / 4.0) * (((((1.0 / math.fabs(x)) * (1.0 / math.fabs(x))) * (1.0 / math.fabs(x))) * (1.0 / math.fabs(x))) * (1.0 / math.fabs(x))))) + ((15.0 / 8.0) * (((((((1.0 / math.fabs(x)) * (1.0 / math.fabs(x))) * (1.0 / math.fabs(x))) * (1.0 / math.fabs(x))) * (1.0 / math.fabs(x))) * (1.0 / math.fabs(x))) * (1.0 / math.fabs(x)))))
def code(x): t_0 = math.sqrt((1.0 / math.pi)) t_1 = math.pow(math.exp(x), x) return (t_0 * ((0.5 * (t_1 / ((x * x) * math.fabs(x)))) + (1.875 * (t_1 / (math.fabs(x) * math.pow(x, 6.0)))))) + (t_0 * ((0.75 * (t_1 / (math.fabs(x) * math.pow(x, 4.0)))) + (t_1 / math.fabs(x))))
function code(x) return Float64(Float64(Float64(1.0 / sqrt(pi)) * exp(Float64(abs(x) * abs(x)))) * Float64(Float64(Float64(Float64(1.0 / abs(x)) + Float64(Float64(1.0 / 2.0) * Float64(Float64(Float64(1.0 / abs(x)) * Float64(1.0 / abs(x))) * Float64(1.0 / abs(x))))) + Float64(Float64(3.0 / 4.0) * Float64(Float64(Float64(Float64(Float64(1.0 / abs(x)) * Float64(1.0 / abs(x))) * Float64(1.0 / abs(x))) * Float64(1.0 / abs(x))) * Float64(1.0 / abs(x))))) + Float64(Float64(15.0 / 8.0) * Float64(Float64(Float64(Float64(Float64(Float64(Float64(1.0 / abs(x)) * Float64(1.0 / abs(x))) * Float64(1.0 / abs(x))) * Float64(1.0 / abs(x))) * Float64(1.0 / abs(x))) * Float64(1.0 / abs(x))) * Float64(1.0 / abs(x)))))) end
function code(x) t_0 = sqrt(Float64(1.0 / pi)) t_1 = exp(x) ^ x return Float64(Float64(t_0 * Float64(Float64(0.5 * Float64(t_1 / Float64(Float64(x * x) * abs(x)))) + Float64(1.875 * Float64(t_1 / Float64(abs(x) * (x ^ 6.0)))))) + Float64(t_0 * Float64(Float64(0.75 * Float64(t_1 / Float64(abs(x) * (x ^ 4.0)))) + Float64(t_1 / abs(x))))) end
function tmp = code(x) tmp = ((1.0 / sqrt(pi)) * exp((abs(x) * abs(x)))) * ((((1.0 / abs(x)) + ((1.0 / 2.0) * (((1.0 / abs(x)) * (1.0 / abs(x))) * (1.0 / abs(x))))) + ((3.0 / 4.0) * (((((1.0 / abs(x)) * (1.0 / abs(x))) * (1.0 / abs(x))) * (1.0 / abs(x))) * (1.0 / abs(x))))) + ((15.0 / 8.0) * (((((((1.0 / abs(x)) * (1.0 / abs(x))) * (1.0 / abs(x))) * (1.0 / abs(x))) * (1.0 / abs(x))) * (1.0 / abs(x))) * (1.0 / abs(x))))); end
function tmp = code(x) t_0 = sqrt((1.0 / pi)); t_1 = exp(x) ^ x; tmp = (t_0 * ((0.5 * (t_1 / ((x * x) * abs(x)))) + (1.875 * (t_1 / (abs(x) * (x ^ 6.0)))))) + (t_0 * ((0.75 * (t_1 / (abs(x) * (x ^ 4.0)))) + (t_1 / abs(x)))); end
code[x_] := N[(N[(N[(1.0 / N[Sqrt[Pi], $MachinePrecision]), $MachinePrecision] * N[Exp[N[(N[Abs[x], $MachinePrecision] * N[Abs[x], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] * N[(N[(N[(N[(1.0 / N[Abs[x], $MachinePrecision]), $MachinePrecision] + N[(N[(1.0 / 2.0), $MachinePrecision] * N[(N[(N[(1.0 / N[Abs[x], $MachinePrecision]), $MachinePrecision] * N[(1.0 / N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(1.0 / N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(3.0 / 4.0), $MachinePrecision] * N[(N[(N[(N[(N[(1.0 / N[Abs[x], $MachinePrecision]), $MachinePrecision] * N[(1.0 / N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(1.0 / N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(1.0 / N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(1.0 / N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(15.0 / 8.0), $MachinePrecision] * N[(N[(N[(N[(N[(N[(N[(1.0 / N[Abs[x], $MachinePrecision]), $MachinePrecision] * N[(1.0 / N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(1.0 / N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(1.0 / N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(1.0 / N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(1.0 / N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(1.0 / N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
code[x_] := Block[{t$95$0 = N[Sqrt[N[(1.0 / Pi), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$1 = N[Power[N[Exp[x], $MachinePrecision], x], $MachinePrecision]}, N[(N[(t$95$0 * N[(N[(0.5 * N[(t$95$1 / N[(N[(x * x), $MachinePrecision] * N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(1.875 * N[(t$95$1 / N[(N[Abs[x], $MachinePrecision] * N[Power[x, 6.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t$95$0 * N[(N[(0.75 * N[(t$95$1 / N[(N[Abs[x], $MachinePrecision] * N[Power[x, 4.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t$95$1 / N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\left(\frac{1}{\sqrt{\pi}} \cdot e^{\left|x\right| \cdot \left|x\right|}\right) \cdot \left(\left(\left(\frac{1}{\left|x\right|} + \frac{1}{2} \cdot \left(\left(\frac{1}{\left|x\right|} \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right)\right) + \frac{3}{4} \cdot \left(\left(\left(\left(\frac{1}{\left|x\right|} \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right)\right) + \frac{15}{8} \cdot \left(\left(\left(\left(\left(\left(\frac{1}{\left|x\right|} \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right)\right)
\begin{array}{l}
t_0 := \sqrt{\frac{1}{\pi}}\\
t_1 := {\left(e^{x}\right)}^{x}\\
t_0 \cdot \left(0.5 \cdot \frac{t_1}{\left(x \cdot x\right) \cdot \left|x\right|} + 1.875 \cdot \frac{t_1}{\left|x\right| \cdot {x}^{6}}\right) + t_0 \cdot \left(0.75 \cdot \frac{t_1}{\left|x\right| \cdot {x}^{4}} + \frac{t_1}{\left|x\right|}\right)
\end{array}
Results
Initial program 2.9
Simplified2.7
[Start]2.9 | \[ \left(\frac{1}{\sqrt{\pi}} \cdot e^{\left|x\right| \cdot \left|x\right|}\right) \cdot \left(\left(\left(\frac{1}{\left|x\right|} + \frac{1}{2} \cdot \left(\left(\frac{1}{\left|x\right|} \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right)\right) + \frac{3}{4} \cdot \left(\left(\left(\left(\frac{1}{\left|x\right|} \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right)\right) + \frac{15}{8} \cdot \left(\left(\left(\left(\left(\left(\frac{1}{\left|x\right|} \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right)\right)
\] |
|---|---|
associate-+l+ [=>]2.9 | \[ \left(\frac{1}{\sqrt{\pi}} \cdot e^{\left|x\right| \cdot \left|x\right|}\right) \cdot \color{blue}{\left(\left(\frac{1}{\left|x\right|} + \frac{1}{2} \cdot \left(\left(\frac{1}{\left|x\right|} \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right)\right) + \left(\frac{3}{4} \cdot \left(\left(\left(\left(\frac{1}{\left|x\right|} \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) + \frac{15}{8} \cdot \left(\left(\left(\left(\left(\left(\frac{1}{\left|x\right|} \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right) \cdot \frac{1}{\left|x\right|}\right)\right)\right)}
\] |
Taylor expanded in x around inf 2.7
Simplified1.2
[Start]2.7 | \[ 0.75 \cdot \left(\frac{e^{{x}^{2}}}{\left|x\right| \cdot {x}^{4}} \cdot \sqrt{\frac{1}{\pi}}\right) + \left(\frac{e^{{x}^{2}}}{\left|x\right|} \cdot \sqrt{\frac{1}{\pi}} + \left(0.5 \cdot \left(\frac{e^{{x}^{2}}}{\left|x\right| \cdot {x}^{2}} \cdot \sqrt{\frac{1}{\pi}}\right) + 1.875 \cdot \left(\frac{e^{{x}^{2}}}{\left|x\right| \cdot {x}^{6}} \cdot \sqrt{\frac{1}{\pi}}\right)\right)\right)
\] |
|---|---|
associate-+r+ [=>]2.7 | \[ \color{blue}{\left(0.75 \cdot \left(\frac{e^{{x}^{2}}}{\left|x\right| \cdot {x}^{4}} \cdot \sqrt{\frac{1}{\pi}}\right) + \frac{e^{{x}^{2}}}{\left|x\right|} \cdot \sqrt{\frac{1}{\pi}}\right) + \left(0.5 \cdot \left(\frac{e^{{x}^{2}}}{\left|x\right| \cdot {x}^{2}} \cdot \sqrt{\frac{1}{\pi}}\right) + 1.875 \cdot \left(\frac{e^{{x}^{2}}}{\left|x\right| \cdot {x}^{6}} \cdot \sqrt{\frac{1}{\pi}}\right)\right)}
\] |
+-commutative [=>]2.7 | \[ \color{blue}{\left(0.5 \cdot \left(\frac{e^{{x}^{2}}}{\left|x\right| \cdot {x}^{2}} \cdot \sqrt{\frac{1}{\pi}}\right) + 1.875 \cdot \left(\frac{e^{{x}^{2}}}{\left|x\right| \cdot {x}^{6}} \cdot \sqrt{\frac{1}{\pi}}\right)\right) + \left(0.75 \cdot \left(\frac{e^{{x}^{2}}}{\left|x\right| \cdot {x}^{4}} \cdot \sqrt{\frac{1}{\pi}}\right) + \frac{e^{{x}^{2}}}{\left|x\right|} \cdot \sqrt{\frac{1}{\pi}}\right)}
\] |
Final simplification1.2
| Alternative 1 | |
|---|---|
| Error | 1.3 |
| Cost | 33600 |
| Alternative 2 | |
|---|---|
| Error | 1.3 |
| Cost | 33536 |
| Alternative 3 | |
|---|---|
| Error | 1.3 |
| Cost | 33536 |
| Alternative 4 | |
|---|---|
| Error | 2.7 |
| Cost | 27264 |
| Alternative 5 | |
|---|---|
| Error | 2.7 |
| Cost | 27200 |
| Alternative 6 | |
|---|---|
| Error | 2.7 |
| Cost | 27200 |
| Alternative 7 | |
|---|---|
| Error | 2.8 |
| Cost | 27200 |
| Alternative 8 | |
|---|---|
| Error | 48.2 |
| Cost | 26048 |
| Alternative 9 | |
|---|---|
| Error | 48.2 |
| Cost | 19712 |
| Alternative 10 | |
|---|---|
| Error | 56.8 |
| Cost | 13696 |
| Alternative 11 | |
|---|---|
| Error | 56.9 |
| Cost | 13056 |
herbie shell --seed 2023046
(FPCore (x)
:name "Jmat.Real.erfi, branch x greater than or equal to 5"
:precision binary64
:pre (>= x 0.5)
(* (* (/ 1.0 (sqrt PI)) (exp (* (fabs x) (fabs x)))) (+ (+ (+ (/ 1.0 (fabs x)) (* (/ 1.0 2.0) (* (* (/ 1.0 (fabs x)) (/ 1.0 (fabs x))) (/ 1.0 (fabs x))))) (* (/ 3.0 4.0) (* (* (* (* (/ 1.0 (fabs x)) (/ 1.0 (fabs x))) (/ 1.0 (fabs x))) (/ 1.0 (fabs x))) (/ 1.0 (fabs x))))) (* (/ 15.0 8.0) (* (* (* (* (* (* (/ 1.0 (fabs x)) (/ 1.0 (fabs x))) (/ 1.0 (fabs x))) (/ 1.0 (fabs x))) (/ 1.0 (fabs x))) (/ 1.0 (fabs x))) (/ 1.0 (fabs x)))))))