| Alternative 1 | |
|---|---|
| Error | 1.2 |
| Cost | 46464 |
\[\frac{{\left(e^{x}\right)}^{x}}{\left|x\right| \cdot {\left({\pi}^{0.25}\right)}^{2}} \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 (pow (exp x) x)))
(*
(sqrt (/ 1.0 PI))
(+
(+ (* 1.875 (/ t_0 (* x (pow x 6.0)))) (* 0.5 (/ t_0 (pow x 3.0))))
(+ (/ t_0 x) (* 0.75 (/ t_0 (* x (pow x 4.0)))))))))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 = pow(exp(x), x);
return sqrt((1.0 / ((double) M_PI))) * (((1.875 * (t_0 / (x * pow(x, 6.0)))) + (0.5 * (t_0 / pow(x, 3.0)))) + ((t_0 / x) + (0.75 * (t_0 / (x * pow(x, 4.0))))));
}
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.pow(Math.exp(x), x);
return Math.sqrt((1.0 / Math.PI)) * (((1.875 * (t_0 / (x * Math.pow(x, 6.0)))) + (0.5 * (t_0 / Math.pow(x, 3.0)))) + ((t_0 / x) + (0.75 * (t_0 / (x * Math.pow(x, 4.0))))));
}
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.pow(math.exp(x), x) return math.sqrt((1.0 / math.pi)) * (((1.875 * (t_0 / (x * math.pow(x, 6.0)))) + (0.5 * (t_0 / math.pow(x, 3.0)))) + ((t_0 / x) + (0.75 * (t_0 / (x * math.pow(x, 4.0))))))
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 = exp(x) ^ x return Float64(sqrt(Float64(1.0 / pi)) * Float64(Float64(Float64(1.875 * Float64(t_0 / Float64(x * (x ^ 6.0)))) + Float64(0.5 * Float64(t_0 / (x ^ 3.0)))) + Float64(Float64(t_0 / x) + Float64(0.75 * Float64(t_0 / Float64(x * (x ^ 4.0))))))) 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 = exp(x) ^ x; tmp = sqrt((1.0 / pi)) * (((1.875 * (t_0 / (x * (x ^ 6.0)))) + (0.5 * (t_0 / (x ^ 3.0)))) + ((t_0 / x) + (0.75 * (t_0 / (x * (x ^ 4.0)))))); 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[Power[N[Exp[x], $MachinePrecision], x], $MachinePrecision]}, N[(N[Sqrt[N[(1.0 / Pi), $MachinePrecision]], $MachinePrecision] * N[(N[(N[(1.875 * N[(t$95$0 / N[(x * N[Power[x, 6.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(0.5 * N[(t$95$0 / N[Power[x, 3.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(t$95$0 / x), $MachinePrecision] + N[(0.75 * N[(t$95$0 / N[(x * N[Power[x, 4.0], $MachinePrecision]), $MachinePrecision]), $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 := {\left(e^{x}\right)}^{x}\\
\sqrt{\frac{1}{\pi}} \cdot \left(\left(1.875 \cdot \frac{t_0}{x \cdot {x}^{6}} + 0.5 \cdot \frac{t_0}{{x}^{3}}\right) + \left(\frac{t_0}{x} + 0.75 \cdot \frac{t_0}{x \cdot {x}^{4}}\right)\right)
\end{array}
Results
Initial program 2.8
Simplified2.7
[Start]2.8 | \[ \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.8 | \[ \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.6
Simplified1.2
[Start]2.6 | \[ 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.6 | \[ \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.6 | \[ \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.2 |
| Cost | 46464 |
| Alternative 2 | |
|---|---|
| Error | 1.2 |
| Cost | 40000 |
| Alternative 3 | |
|---|---|
| Error | 1.2 |
| Cost | 33536 |
| Alternative 4 | |
|---|---|
| Error | 1.3 |
| Cost | 33536 |
| Alternative 5 | |
|---|---|
| Error | 2.7 |
| Cost | 27392 |
| Alternative 6 | |
|---|---|
| Error | 2.7 |
| Cost | 27200 |
| Alternative 7 | |
|---|---|
| Error | 2.7 |
| Cost | 27200 |
| Alternative 8 | |
|---|---|
| Error | 2.7 |
| Cost | 27200 |
| Alternative 9 | |
|---|---|
| Error | 43.7 |
| Cost | 26816 |
| Alternative 10 | |
|---|---|
| Error | 44.7 |
| Cost | 26624 |
| Alternative 11 | |
|---|---|
| Error | 47.9 |
| Cost | 26560 |
| Alternative 12 | |
|---|---|
| Error | 48.2 |
| Cost | 26112 |
| Alternative 13 | |
|---|---|
| Error | 48.2 |
| Cost | 19712 |
| Alternative 14 | |
|---|---|
| Error | 56.8 |
| Cost | 19520 |
herbie shell --seed 2023187
(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)))))))