| Alternative 1 | |
|---|---|
| Accuracy | 90.9% |
| Cost | 8004 |
(FPCore (x y z t a) :precision binary64 (+ x (* (- y z) (/ (- t x) (- a z)))))
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (+ x (* (- z y) (/ (- x t) (- a z))))))
(if (<= t_1 -1e-69)
(fma (- y z) (/ (- t x) (- a z)) x)
(if (<= t_1 -2e-305)
(- x (/ (* (- y z) (- x t)) (- a z)))
(if (<= t_1 0.0)
(+ t (/ (- x t) (/ z (- y a))))
(pow (sqrt (+ x (* (- t x) (/ (- y z) (- a z))))) 2.0))))))double code(double x, double y, double z, double t, double a) {
return x + ((y - z) * ((t - x) / (a - z)));
}
double code(double x, double y, double z, double t, double a) {
double t_1 = x + ((z - y) * ((x - t) / (a - z)));
double tmp;
if (t_1 <= -1e-69) {
tmp = fma((y - z), ((t - x) / (a - z)), x);
} else if (t_1 <= -2e-305) {
tmp = x - (((y - z) * (x - t)) / (a - z));
} else if (t_1 <= 0.0) {
tmp = t + ((x - t) / (z / (y - a)));
} else {
tmp = pow(sqrt((x + ((t - x) * ((y - z) / (a - z))))), 2.0);
}
return tmp;
}
function code(x, y, z, t, a) return Float64(x + Float64(Float64(y - z) * Float64(Float64(t - x) / Float64(a - z)))) end
function code(x, y, z, t, a) t_1 = Float64(x + Float64(Float64(z - y) * Float64(Float64(x - t) / Float64(a - z)))) tmp = 0.0 if (t_1 <= -1e-69) tmp = fma(Float64(y - z), Float64(Float64(t - x) / Float64(a - z)), x); elseif (t_1 <= -2e-305) tmp = Float64(x - Float64(Float64(Float64(y - z) * Float64(x - t)) / Float64(a - z))); elseif (t_1 <= 0.0) tmp = Float64(t + Float64(Float64(x - t) / Float64(z / Float64(y - a)))); else tmp = sqrt(Float64(x + Float64(Float64(t - x) * Float64(Float64(y - z) / Float64(a - z))))) ^ 2.0; end return tmp end
code[x_, y_, z_, t_, a_] := N[(x + N[(N[(y - z), $MachinePrecision] * N[(N[(t - x), $MachinePrecision] / N[(a - z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(x + N[(N[(z - y), $MachinePrecision] * N[(N[(x - t), $MachinePrecision] / N[(a - z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$1, -1e-69], N[(N[(y - z), $MachinePrecision] * N[(N[(t - x), $MachinePrecision] / N[(a - z), $MachinePrecision]), $MachinePrecision] + x), $MachinePrecision], If[LessEqual[t$95$1, -2e-305], N[(x - N[(N[(N[(y - z), $MachinePrecision] * N[(x - t), $MachinePrecision]), $MachinePrecision] / N[(a - z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$1, 0.0], N[(t + N[(N[(x - t), $MachinePrecision] / N[(z / N[(y - a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[Power[N[Sqrt[N[(x + N[(N[(t - x), $MachinePrecision] * N[(N[(y - z), $MachinePrecision] / N[(a - z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], 2.0], $MachinePrecision]]]]]
x + \left(y - z\right) \cdot \frac{t - x}{a - z}
\begin{array}{l}
t_1 := x + \left(z - y\right) \cdot \frac{x - t}{a - z}\\
\mathbf{if}\;t_1 \leq -1 \cdot 10^{-69}:\\
\;\;\;\;\mathsf{fma}\left(y - z, \frac{t - x}{a - z}, x\right)\\
\mathbf{elif}\;t_1 \leq -2 \cdot 10^{-305}:\\
\;\;\;\;x - \frac{\left(y - z\right) \cdot \left(x - t\right)}{a - z}\\
\mathbf{elif}\;t_1 \leq 0:\\
\;\;\;\;t + \frac{x - t}{\frac{z}{y - a}}\\
\mathbf{else}:\\
\;\;\;\;{\left(\sqrt{x + \left(t - x\right) \cdot \frac{y - z}{a - z}}\right)}^{2}\\
\end{array}
if (+.f64 x (*.f64 (-.f64 y z) (/.f64 (-.f64 t x) (-.f64 a z)))) < -9.9999999999999996e-70Initial program 91.8%
Simplified91.8%
[Start]91.8 | \[ x + \left(y - z\right) \cdot \frac{t - x}{a - z}
\] |
|---|---|
+-commutative [=>]91.8 | \[ \color{blue}{\left(y - z\right) \cdot \frac{t - x}{a - z} + x}
\] |
fma-def [=>]91.8 | \[ \color{blue}{\mathsf{fma}\left(y - z, \frac{t - x}{a - z}, x\right)}
\] |
if -9.9999999999999996e-70 < (+.f64 x (*.f64 (-.f64 y z) (/.f64 (-.f64 t x) (-.f64 a z)))) < -1.99999999999999999e-305Initial program 70.8%
Simplified88.9%
[Start]70.8 | \[ x + \left(y - z\right) \cdot \frac{t - x}{a - z}
\] |
|---|---|
associate-*r/ [=>]88.9 | \[ x + \color{blue}{\frac{\left(y - z\right) \cdot \left(t - x\right)}{a - z}}
\] |
if -1.99999999999999999e-305 < (+.f64 x (*.f64 (-.f64 y z) (/.f64 (-.f64 t x) (-.f64 a z)))) < 0.0Initial program 3.5%
Applied egg-rr2.5%
[Start]3.5 | \[ x + \left(y - z\right) \cdot \frac{t - x}{a - z}
\] |
|---|---|
associate-*r/ [=>]2.5 | \[ x + \color{blue}{\frac{\left(y - z\right) \cdot \left(t - x\right)}{a - z}}
\] |
clear-num [=>]2.5 | \[ x + \color{blue}{\frac{1}{\frac{a - z}{\left(y - z\right) \cdot \left(t - x\right)}}}
\] |
Taylor expanded in z around inf 81.9%
Simplified97.7%
[Start]81.9 | \[ \left(-1 \cdot \frac{y \cdot \left(t - x\right)}{z} + t\right) - -1 \cdot \frac{a \cdot \left(t - x\right)}{z}
\] |
|---|---|
+-commutative [=>]81.9 | \[ \color{blue}{\left(t + -1 \cdot \frac{y \cdot \left(t - x\right)}{z}\right)} - -1 \cdot \frac{a \cdot \left(t - x\right)}{z}
\] |
associate--l+ [=>]81.9 | \[ \color{blue}{t + \left(-1 \cdot \frac{y \cdot \left(t - x\right)}{z} - -1 \cdot \frac{a \cdot \left(t - x\right)}{z}\right)}
\] |
associate-*r/ [=>]81.9 | \[ t + \left(\color{blue}{\frac{-1 \cdot \left(y \cdot \left(t - x\right)\right)}{z}} - -1 \cdot \frac{a \cdot \left(t - x\right)}{z}\right)
\] |
associate-*r/ [=>]81.9 | \[ t + \left(\frac{-1 \cdot \left(y \cdot \left(t - x\right)\right)}{z} - \color{blue}{\frac{-1 \cdot \left(a \cdot \left(t - x\right)\right)}{z}}\right)
\] |
div-sub [<=]81.9 | \[ t + \color{blue}{\frac{-1 \cdot \left(y \cdot \left(t - x\right)\right) - -1 \cdot \left(a \cdot \left(t - x\right)\right)}{z}}
\] |
distribute-lft-out-- [=>]81.9 | \[ t + \frac{\color{blue}{-1 \cdot \left(y \cdot \left(t - x\right) - a \cdot \left(t - x\right)\right)}}{z}
\] |
associate-*r/ [<=]81.9 | \[ t + \color{blue}{-1 \cdot \frac{y \cdot \left(t - x\right) - a \cdot \left(t - x\right)}{z}}
\] |
mul-1-neg [=>]81.9 | \[ t + \color{blue}{\left(-\frac{y \cdot \left(t - x\right) - a \cdot \left(t - x\right)}{z}\right)}
\] |
unsub-neg [=>]81.9 | \[ \color{blue}{t - \frac{y \cdot \left(t - x\right) - a \cdot \left(t - x\right)}{z}}
\] |
distribute-rgt-out-- [=>]81.9 | \[ t - \frac{\color{blue}{\left(t - x\right) \cdot \left(y - a\right)}}{z}
\] |
associate-/l* [=>]97.7 | \[ t - \color{blue}{\frac{t - x}{\frac{z}{y - a}}}
\] |
if 0.0 < (+.f64 x (*.f64 (-.f64 y z) (/.f64 (-.f64 t x) (-.f64 a z)))) Initial program 88.6%
Simplified71.2%
[Start]88.6 | \[ x + \left(y - z\right) \cdot \frac{t - x}{a - z}
\] |
|---|---|
associate-*r/ [=>]71.2 | \[ x + \color{blue}{\frac{\left(y - z\right) \cdot \left(t - x\right)}{a - z}}
\] |
Applied egg-rr90.2%
[Start]71.2 | \[ x + \frac{\left(y - z\right) \cdot \left(t - x\right)}{a - z}
\] |
|---|---|
add-sqr-sqrt [=>]68.5 | \[ \color{blue}{\sqrt{x + \frac{\left(y - z\right) \cdot \left(t - x\right)}{a - z}} \cdot \sqrt{x + \frac{\left(y - z\right) \cdot \left(t - x\right)}{a - z}}}
\] |
pow2 [=>]68.5 | \[ \color{blue}{{\left(\sqrt{x + \frac{\left(y - z\right) \cdot \left(t - x\right)}{a - z}}\right)}^{2}}
\] |
*-commutative [=>]68.5 | \[ {\left(\sqrt{x + \frac{\color{blue}{\left(t - x\right) \cdot \left(y - z\right)}}{a - z}}\right)}^{2}
\] |
*-un-lft-identity [=>]68.5 | \[ {\left(\sqrt{x + \frac{\left(t - x\right) \cdot \left(y - z\right)}{\color{blue}{1 \cdot \left(a - z\right)}}}\right)}^{2}
\] |
times-frac [=>]90.2 | \[ {\left(\sqrt{x + \color{blue}{\frac{t - x}{1} \cdot \frac{y - z}{a - z}}}\right)}^{2}
\] |
flip-- [=>]53.7 | \[ {\left(\sqrt{x + \frac{\color{blue}{\frac{t \cdot t - x \cdot x}{t + x}}}{1} \cdot \frac{y - z}{a - z}}\right)}^{2}
\] |
associate-/l/ [=>]53.7 | \[ {\left(\sqrt{x + \color{blue}{\frac{t \cdot t - x \cdot x}{1 \cdot \left(t + x\right)}} \cdot \frac{y - z}{a - z}}\right)}^{2}
\] |
*-un-lft-identity [<=]53.7 | \[ {\left(\sqrt{x + \frac{t \cdot t - x \cdot x}{\color{blue}{t + x}} \cdot \frac{y - z}{a - z}}\right)}^{2}
\] |
flip-- [<=]90.2 | \[ {\left(\sqrt{x + \color{blue}{\left(t - x\right)} \cdot \frac{y - z}{a - z}}\right)}^{2}
\] |
Final simplification91.7%
| Alternative 1 | |
|---|---|
| Accuracy | 90.9% |
| Cost | 8004 |
| Alternative 2 | |
|---|---|
| Accuracy | 90.9% |
| Cost | 3788 |
| Alternative 3 | |
|---|---|
| Accuracy | 91.0% |
| Cost | 3532 |
| Alternative 4 | |
|---|---|
| Accuracy | 88.3% |
| Cost | 2633 |
| Alternative 5 | |
|---|---|
| Accuracy | 33.6% |
| Cost | 1504 |
| Alternative 6 | |
|---|---|
| Accuracy | 33.4% |
| Cost | 1504 |
| Alternative 7 | |
|---|---|
| Accuracy | 41.6% |
| Cost | 1384 |
| Alternative 8 | |
|---|---|
| Accuracy | 42.0% |
| Cost | 1372 |
| Alternative 9 | |
|---|---|
| Accuracy | 63.9% |
| Cost | 1369 |
| Alternative 10 | |
|---|---|
| Accuracy | 64.2% |
| Cost | 1369 |
| Alternative 11 | |
|---|---|
| Accuracy | 67.1% |
| Cost | 1369 |
| Alternative 12 | |
|---|---|
| Accuracy | 73.8% |
| Cost | 1364 |
| Alternative 13 | |
|---|---|
| Accuracy | 51.8% |
| Cost | 1304 |
| Alternative 14 | |
|---|---|
| Accuracy | 51.0% |
| Cost | 1241 |
| Alternative 15 | |
|---|---|
| Accuracy | 50.3% |
| Cost | 1241 |
| Alternative 16 | |
|---|---|
| Accuracy | 49.2% |
| Cost | 1240 |
| Alternative 17 | |
|---|---|
| Accuracy | 55.2% |
| Cost | 1236 |
| Alternative 18 | |
|---|---|
| Accuracy | 71.7% |
| Cost | 1232 |
| Alternative 19 | |
|---|---|
| Accuracy | 43.5% |
| Cost | 1120 |
| Alternative 20 | |
|---|---|
| Accuracy | 43.3% |
| Cost | 1120 |
| Alternative 21 | |
|---|---|
| Accuracy | 67.6% |
| Cost | 1105 |
| Alternative 22 | |
|---|---|
| Accuracy | 55.1% |
| Cost | 972 |
| Alternative 23 | |
|---|---|
| Accuracy | 44.7% |
| Cost | 856 |
| Alternative 24 | |
|---|---|
| Accuracy | 44.9% |
| Cost | 592 |
| Alternative 25 | |
|---|---|
| Accuracy | 29.6% |
| Cost | 64 |
herbie shell --seed 2023137
(FPCore (x y z t a)
:name "Numeric.Signal:interpolate from hsignal-0.2.7.1"
:precision binary64
(+ x (* (- y z) (/ (- t x) (- a z)))))