| Alternative 1 | |
|---|---|
| Error | 3.8 |
| Cost | 4112 |
(FPCore (x y z t a) :precision binary64 (/ (- x (* y z)) (- t (* a z))))
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (- (* z a) t)) (t_2 (- x (* y z))) (t_3 (/ t_2 (- t (* a z)))))
(if (<= t_3 (- INFINITY))
(- (* (/ z t_1) (- y)))
(if (<= t_3 -4e-306)
(/ (- (* y (+ z z)) (+ (* y z) x)) t_1)
(if (<= t_3 0.0)
(/ (* (- (/ x z) y) (/ -2.0 a)) 2.0)
(if (<= t_3 5e+279)
(/ t_2 (+ (- (+ t t) (* z a)) (- t)))
(/ (/ (- y (- (/ x z) (- y (/ x z)))) a) 2.0)))))))double code(double x, double y, double z, double t, double a) {
return (x - (y * z)) / (t - (a * z));
}
double code(double x, double y, double z, double t, double a) {
double t_1 = (z * a) - t;
double t_2 = x - (y * z);
double t_3 = t_2 / (t - (a * z));
double tmp;
if (t_3 <= -((double) INFINITY)) {
tmp = -((z / t_1) * -y);
} else if (t_3 <= -4e-306) {
tmp = ((y * (z + z)) - ((y * z) + x)) / t_1;
} else if (t_3 <= 0.0) {
tmp = (((x / z) - y) * (-2.0 / a)) / 2.0;
} else if (t_3 <= 5e+279) {
tmp = t_2 / (((t + t) - (z * a)) + -t);
} else {
tmp = ((y - ((x / z) - (y - (x / z)))) / a) / 2.0;
}
return tmp;
}
public static double code(double x, double y, double z, double t, double a) {
return (x - (y * z)) / (t - (a * z));
}
public static double code(double x, double y, double z, double t, double a) {
double t_1 = (z * a) - t;
double t_2 = x - (y * z);
double t_3 = t_2 / (t - (a * z));
double tmp;
if (t_3 <= -Double.POSITIVE_INFINITY) {
tmp = -((z / t_1) * -y);
} else if (t_3 <= -4e-306) {
tmp = ((y * (z + z)) - ((y * z) + x)) / t_1;
} else if (t_3 <= 0.0) {
tmp = (((x / z) - y) * (-2.0 / a)) / 2.0;
} else if (t_3 <= 5e+279) {
tmp = t_2 / (((t + t) - (z * a)) + -t);
} else {
tmp = ((y - ((x / z) - (y - (x / z)))) / a) / 2.0;
}
return tmp;
}
def code(x, y, z, t, a): return (x - (y * z)) / (t - (a * z))
def code(x, y, z, t, a): t_1 = (z * a) - t t_2 = x - (y * z) t_3 = t_2 / (t - (a * z)) tmp = 0 if t_3 <= -math.inf: tmp = -((z / t_1) * -y) elif t_3 <= -4e-306: tmp = ((y * (z + z)) - ((y * z) + x)) / t_1 elif t_3 <= 0.0: tmp = (((x / z) - y) * (-2.0 / a)) / 2.0 elif t_3 <= 5e+279: tmp = t_2 / (((t + t) - (z * a)) + -t) else: tmp = ((y - ((x / z) - (y - (x / z)))) / a) / 2.0 return tmp
function code(x, y, z, t, a) return Float64(Float64(x - Float64(y * z)) / Float64(t - Float64(a * z))) end
function code(x, y, z, t, a) t_1 = Float64(Float64(z * a) - t) t_2 = Float64(x - Float64(y * z)) t_3 = Float64(t_2 / Float64(t - Float64(a * z))) tmp = 0.0 if (t_3 <= Float64(-Inf)) tmp = Float64(-Float64(Float64(z / t_1) * Float64(-y))); elseif (t_3 <= -4e-306) tmp = Float64(Float64(Float64(y * Float64(z + z)) - Float64(Float64(y * z) + x)) / t_1); elseif (t_3 <= 0.0) tmp = Float64(Float64(Float64(Float64(x / z) - y) * Float64(-2.0 / a)) / 2.0); elseif (t_3 <= 5e+279) tmp = Float64(t_2 / Float64(Float64(Float64(t + t) - Float64(z * a)) + Float64(-t))); else tmp = Float64(Float64(Float64(y - Float64(Float64(x / z) - Float64(y - Float64(x / z)))) / a) / 2.0); end return tmp end
function tmp = code(x, y, z, t, a) tmp = (x - (y * z)) / (t - (a * z)); end
function tmp_2 = code(x, y, z, t, a) t_1 = (z * a) - t; t_2 = x - (y * z); t_3 = t_2 / (t - (a * z)); tmp = 0.0; if (t_3 <= -Inf) tmp = -((z / t_1) * -y); elseif (t_3 <= -4e-306) tmp = ((y * (z + z)) - ((y * z) + x)) / t_1; elseif (t_3 <= 0.0) tmp = (((x / z) - y) * (-2.0 / a)) / 2.0; elseif (t_3 <= 5e+279) tmp = t_2 / (((t + t) - (z * a)) + -t); else tmp = ((y - ((x / z) - (y - (x / z)))) / a) / 2.0; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := N[(N[(x - N[(y * z), $MachinePrecision]), $MachinePrecision] / N[(t - N[(a * z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(N[(z * a), $MachinePrecision] - t), $MachinePrecision]}, Block[{t$95$2 = N[(x - N[(y * z), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(t$95$2 / N[(t - N[(a * z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$3, (-Infinity)], (-N[(N[(z / t$95$1), $MachinePrecision] * (-y)), $MachinePrecision]), If[LessEqual[t$95$3, -4e-306], N[(N[(N[(y * N[(z + z), $MachinePrecision]), $MachinePrecision] - N[(N[(y * z), $MachinePrecision] + x), $MachinePrecision]), $MachinePrecision] / t$95$1), $MachinePrecision], If[LessEqual[t$95$3, 0.0], N[(N[(N[(N[(x / z), $MachinePrecision] - y), $MachinePrecision] * N[(-2.0 / a), $MachinePrecision]), $MachinePrecision] / 2.0), $MachinePrecision], If[LessEqual[t$95$3, 5e+279], N[(t$95$2 / N[(N[(N[(t + t), $MachinePrecision] - N[(z * a), $MachinePrecision]), $MachinePrecision] + (-t)), $MachinePrecision]), $MachinePrecision], N[(N[(N[(y - N[(N[(x / z), $MachinePrecision] - N[(y - N[(x / z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / a), $MachinePrecision] / 2.0), $MachinePrecision]]]]]]]]
\frac{x - y \cdot z}{t - a \cdot z}
\begin{array}{l}
t_1 := z \cdot a - t\\
t_2 := x - y \cdot z\\
t_3 := \frac{t_2}{t - a \cdot z}\\
\mathbf{if}\;t_3 \leq -\infty:\\
\;\;\;\;-\frac{z}{t_1} \cdot \left(-y\right)\\
\mathbf{elif}\;t_3 \leq -4 \cdot 10^{-306}:\\
\;\;\;\;\frac{y \cdot \left(z + z\right) - \left(y \cdot z + x\right)}{t_1}\\
\mathbf{elif}\;t_3 \leq 0:\\
\;\;\;\;\frac{\left(\frac{x}{z} - y\right) \cdot \frac{-2}{a}}{2}\\
\mathbf{elif}\;t_3 \leq 5 \cdot 10^{+279}:\\
\;\;\;\;\frac{t_2}{\left(\left(t + t\right) - z \cdot a\right) + \left(-t\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{y - \left(\frac{x}{z} - \left(y - \frac{x}{z}\right)\right)}{a}}{2}\\
\end{array}
Results
| Original | 10.5 |
|---|---|
| Target | 1.7 |
| Herbie | 3.8 |
if (/.f64 (-.f64 x (*.f64 y z)) (-.f64 t (*.f64 a z))) < -inf.0Initial program 64.0
Simplified64.0
[Start]64.0 | \[ \frac{x - y \cdot z}{t - a \cdot z}
\] |
|---|---|
rational_best-simplify-1 [=>]64.0 | \[ \frac{x - y \cdot z}{t - \color{blue}{z \cdot a}}
\] |
Taylor expanded in x around 0 64.0
Simplified64.0
[Start]64.0 | \[ -1 \cdot \frac{y \cdot z}{t - a \cdot z}
\] |
|---|---|
rational_best-simplify-55 [=>]64.0 | \[ \color{blue}{\left(y \cdot z\right) \cdot \frac{-1}{t - a \cdot z}}
\] |
rational_best-simplify-1 [<=]64.0 | \[ \left(y \cdot z\right) \cdot \frac{-1}{t - \color{blue}{z \cdot a}}
\] |
rational_best-simplify-55 [<=]64.0 | \[ \color{blue}{-1 \cdot \frac{y \cdot z}{t - z \cdot a}}
\] |
rational_best-simplify-1 [=>]64.0 | \[ \color{blue}{\frac{y \cdot z}{t - z \cdot a} \cdot -1}
\] |
rational_best-simplify-10 [=>]64.0 | \[ \color{blue}{-\frac{y \cdot z}{t - z \cdot a}}
\] |
Applied egg-rr0.3
if -inf.0 < (/.f64 (-.f64 x (*.f64 y z)) (-.f64 t (*.f64 a z))) < -4.00000000000000011e-306Initial program 0.2
Simplified0.2
[Start]0.2 | \[ \frac{x - y \cdot z}{t - a \cdot z}
\] |
|---|---|
rational_best-simplify-1 [=>]0.2 | \[ \frac{x - y \cdot z}{t - \color{blue}{z \cdot a}}
\] |
Applied egg-rr0.2
Simplified0.2
[Start]0.2 | \[ \frac{y \cdot \left(z + z\right)}{z \cdot a - t} - \frac{x + y \cdot z}{z \cdot a - t}
\] |
|---|---|
rational_best-simplify-66 [=>]0.2 | \[ \color{blue}{\frac{y \cdot \left(z + z\right) - \left(x + y \cdot z\right)}{z \cdot a - t}}
\] |
rational_best-simplify-3 [=>]0.2 | \[ \frac{y \cdot \left(z + z\right) - \color{blue}{\left(y \cdot z + x\right)}}{z \cdot a - t}
\] |
if -4.00000000000000011e-306 < (/.f64 (-.f64 x (*.f64 y z)) (-.f64 t (*.f64 a z))) < -0.0Initial program 25.7
Simplified25.7
[Start]25.7 | \[ \frac{x - y \cdot z}{t - a \cdot z}
\] |
|---|---|
rational_best-simplify-1 [=>]25.7 | \[ \frac{x - y \cdot z}{t - \color{blue}{z \cdot a}}
\] |
Applied egg-rr25.7
Applied egg-rr25.7
Simplified25.7
[Start]25.7 | \[ \frac{1.5 \cdot \frac{x - y \cdot z}{t - z \cdot a}}{2} - \frac{\frac{x - y \cdot z}{2 \cdot \left(z \cdot a - t\right)}}{2}
\] |
|---|---|
rational_best-simplify-66 [=>]25.7 | \[ \color{blue}{\frac{1.5 \cdot \frac{x - y \cdot z}{t - z \cdot a} - \frac{x - y \cdot z}{2 \cdot \left(z \cdot a - t\right)}}{2}}
\] |
rational_best-simplify-55 [=>]25.7 | \[ \frac{\color{blue}{\left(x - y \cdot z\right) \cdot \frac{1.5}{t - z \cdot a}} - \frac{x - y \cdot z}{2 \cdot \left(z \cdot a - t\right)}}{2}
\] |
Taylor expanded in a around inf 16.4
Simplified16.4
[Start]16.4 | \[ \frac{\frac{-1.5 \cdot \frac{x - y \cdot z}{z} - 0.5 \cdot \frac{x - y \cdot z}{z}}{a}}{2}
\] |
|---|---|
rational_best-simplify-55 [=>]16.4 | \[ \frac{\frac{\color{blue}{\left(x - y \cdot z\right) \cdot \frac{-1.5}{z}} - 0.5 \cdot \frac{x - y \cdot z}{z}}{a}}{2}
\] |
rational_best-simplify-55 [=>]16.4 | \[ \frac{\frac{\left(x - y \cdot z\right) \cdot \frac{-1.5}{z} - \color{blue}{\left(x - y \cdot z\right) \cdot \frac{0.5}{z}}}{a}}{2}
\] |
Applied egg-rr16.4
Simplified16.5
[Start]16.4 | \[ \frac{-2 \cdot \frac{\frac{x}{z} - y}{a} + 0}{2}
\] |
|---|---|
rational_best-simplify-3 [=>]16.4 | \[ \frac{\color{blue}{0 + -2 \cdot \frac{\frac{x}{z} - y}{a}}}{2}
\] |
rational_best-simplify-6 [=>]16.4 | \[ \frac{\color{blue}{-2 \cdot \frac{\frac{x}{z} - y}{a}}}{2}
\] |
rational_best-simplify-55 [=>]16.5 | \[ \frac{\color{blue}{\left(\frac{x}{z} - y\right) \cdot \frac{-2}{a}}}{2}
\] |
if -0.0 < (/.f64 (-.f64 x (*.f64 y z)) (-.f64 t (*.f64 a z))) < 5.0000000000000002e279Initial program 0.2
Simplified0.2
[Start]0.2 | \[ \frac{x - y \cdot z}{t - a \cdot z}
\] |
|---|---|
rational_best-simplify-1 [=>]0.2 | \[ \frac{x - y \cdot z}{t - \color{blue}{z \cdot a}}
\] |
Applied egg-rr0.2
if 5.0000000000000002e279 < (/.f64 (-.f64 x (*.f64 y z)) (-.f64 t (*.f64 a z))) Initial program 57.1
Simplified57.1
[Start]57.1 | \[ \frac{x - y \cdot z}{t - a \cdot z}
\] |
|---|---|
rational_best-simplify-1 [=>]57.1 | \[ \frac{x - y \cdot z}{t - \color{blue}{z \cdot a}}
\] |
Applied egg-rr57.1
Applied egg-rr57.1
Simplified57.2
[Start]57.1 | \[ \frac{1.5 \cdot \frac{x - y \cdot z}{t - z \cdot a}}{2} - \frac{\frac{x - y \cdot z}{2 \cdot \left(z \cdot a - t\right)}}{2}
\] |
|---|---|
rational_best-simplify-66 [=>]57.1 | \[ \color{blue}{\frac{1.5 \cdot \frac{x - y \cdot z}{t - z \cdot a} - \frac{x - y \cdot z}{2 \cdot \left(z \cdot a - t\right)}}{2}}
\] |
rational_best-simplify-55 [=>]57.2 | \[ \frac{\color{blue}{\left(x - y \cdot z\right) \cdot \frac{1.5}{t - z \cdot a}} - \frac{x - y \cdot z}{2 \cdot \left(z \cdot a - t\right)}}{2}
\] |
Taylor expanded in a around inf 61.4
Simplified61.4
[Start]61.4 | \[ \frac{\frac{-1.5 \cdot \frac{x - y \cdot z}{z} - 0.5 \cdot \frac{x - y \cdot z}{z}}{a}}{2}
\] |
|---|---|
rational_best-simplify-55 [=>]61.4 | \[ \frac{\frac{\color{blue}{\left(x - y \cdot z\right) \cdot \frac{-1.5}{z}} - 0.5 \cdot \frac{x - y \cdot z}{z}}{a}}{2}
\] |
rational_best-simplify-55 [=>]61.4 | \[ \frac{\frac{\left(x - y \cdot z\right) \cdot \frac{-1.5}{z} - \color{blue}{\left(x - y \cdot z\right) \cdot \frac{0.5}{z}}}{a}}{2}
\] |
Applied egg-rr12.9
Simplified12.9
[Start]12.9 | \[ \frac{\frac{y - \frac{x}{z}}{a} - \frac{\frac{x}{z} - y}{a}}{2}
\] |
|---|---|
rational_best-simplify-66 [=>]12.9 | \[ \frac{\color{blue}{\frac{\left(y - \frac{x}{z}\right) - \left(\frac{x}{z} - y\right)}{a}}}{2}
\] |
rational_best-simplify-51 [=>]12.9 | \[ \frac{\frac{\color{blue}{y - \left(\frac{x}{z} - \left(y - \frac{x}{z}\right)\right)}}{a}}{2}
\] |
Final simplification3.8
| Alternative 1 | |
|---|---|
| Error | 3.8 |
| Cost | 4112 |
| Alternative 2 | |
|---|---|
| Error | 3.7 |
| Cost | 4048 |
| Alternative 3 | |
|---|---|
| Error | 3.4 |
| Cost | 3792 |
| Alternative 4 | |
|---|---|
| Error | 21.8 |
| Cost | 1564 |
| Alternative 5 | |
|---|---|
| Error | 22.7 |
| Cost | 1496 |
| Alternative 6 | |
|---|---|
| Error | 22.7 |
| Cost | 1496 |
| Alternative 7 | |
|---|---|
| Error | 29.9 |
| Cost | 1108 |
| Alternative 8 | |
|---|---|
| Error | 22.5 |
| Cost | 1108 |
| Alternative 9 | |
|---|---|
| Error | 22.5 |
| Cost | 1108 |
| Alternative 10 | |
|---|---|
| Error | 19.6 |
| Cost | 1100 |
| Alternative 11 | |
|---|---|
| Error | 29.7 |
| Cost | 912 |
| Alternative 12 | |
|---|---|
| Error | 29.7 |
| Cost | 780 |
| Alternative 13 | |
|---|---|
| Error | 22.1 |
| Cost | 712 |
| Alternative 14 | |
|---|---|
| Error | 29.7 |
| Cost | 456 |
| Alternative 15 | |
|---|---|
| Error | 41.8 |
| Cost | 192 |
herbie shell --seed 2023099
(FPCore (x y z t a)
:name "Diagrams.Solve.Tridiagonal:solveTriDiagonal from diagrams-solve-0.1, A"
:precision binary64
:herbie-target
(if (< z -32113435955957344.0) (- (/ x (- t (* a z))) (/ y (- (/ t z) a))) (if (< z 3.5139522372978296e-86) (* (- x (* y z)) (/ 1.0 (- t (* a z)))) (- (/ x (- t (* a z))) (/ y (- (/ t z) a)))))
(/ (- x (* y z)) (- t (* a z))))