| Alternative 1 | |
|---|---|
| Error | 8.0 |
| Cost | 8004 |
(FPCore (x y z t a) :precision binary64 (+ x (/ (* (- y x) (- z t)) (- a t))))
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (+ x (/ (* (- y x) (- z t)) (- a t)))))
(if (<= t_1 -2e+264)
(+ x (* (- z t) (/ (- y x) (- a t))))
(if (<= t_1 -1e-265)
t_1
(if (<= t_1 0.0)
(+ y (/ (- x y) (/ t (- z a))))
(if (<= t_1 1e+283) t_1 (+ y (* (- z a) (/ (- x y) t)))))))))double code(double x, double y, double z, double t, double a) {
return x + (((y - x) * (z - t)) / (a - t));
}
double code(double x, double y, double z, double t, double a) {
double t_1 = x + (((y - x) * (z - t)) / (a - t));
double tmp;
if (t_1 <= -2e+264) {
tmp = x + ((z - t) * ((y - x) / (a - t)));
} else if (t_1 <= -1e-265) {
tmp = t_1;
} else if (t_1 <= 0.0) {
tmp = y + ((x - y) / (t / (z - a)));
} else if (t_1 <= 1e+283) {
tmp = t_1;
} else {
tmp = y + ((z - a) * ((x - y) / t));
}
return tmp;
}
real(8) function code(x, y, z, t, a)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
code = x + (((y - x) * (z - t)) / (a - t))
end function
real(8) function code(x, y, z, t, a)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8) :: t_1
real(8) :: tmp
t_1 = x + (((y - x) * (z - t)) / (a - t))
if (t_1 <= (-2d+264)) then
tmp = x + ((z - t) * ((y - x) / (a - t)))
else if (t_1 <= (-1d-265)) then
tmp = t_1
else if (t_1 <= 0.0d0) then
tmp = y + ((x - y) / (t / (z - a)))
else if (t_1 <= 1d+283) then
tmp = t_1
else
tmp = y + ((z - a) * ((x - y) / t))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a) {
return x + (((y - x) * (z - t)) / (a - t));
}
public static double code(double x, double y, double z, double t, double a) {
double t_1 = x + (((y - x) * (z - t)) / (a - t));
double tmp;
if (t_1 <= -2e+264) {
tmp = x + ((z - t) * ((y - x) / (a - t)));
} else if (t_1 <= -1e-265) {
tmp = t_1;
} else if (t_1 <= 0.0) {
tmp = y + ((x - y) / (t / (z - a)));
} else if (t_1 <= 1e+283) {
tmp = t_1;
} else {
tmp = y + ((z - a) * ((x - y) / t));
}
return tmp;
}
def code(x, y, z, t, a): return x + (((y - x) * (z - t)) / (a - t))
def code(x, y, z, t, a): t_1 = x + (((y - x) * (z - t)) / (a - t)) tmp = 0 if t_1 <= -2e+264: tmp = x + ((z - t) * ((y - x) / (a - t))) elif t_1 <= -1e-265: tmp = t_1 elif t_1 <= 0.0: tmp = y + ((x - y) / (t / (z - a))) elif t_1 <= 1e+283: tmp = t_1 else: tmp = y + ((z - a) * ((x - y) / t)) return tmp
function code(x, y, z, t, a) return Float64(x + Float64(Float64(Float64(y - x) * Float64(z - t)) / Float64(a - t))) end
function code(x, y, z, t, a) t_1 = Float64(x + Float64(Float64(Float64(y - x) * Float64(z - t)) / Float64(a - t))) tmp = 0.0 if (t_1 <= -2e+264) tmp = Float64(x + Float64(Float64(z - t) * Float64(Float64(y - x) / Float64(a - t)))); elseif (t_1 <= -1e-265) tmp = t_1; elseif (t_1 <= 0.0) tmp = Float64(y + Float64(Float64(x - y) / Float64(t / Float64(z - a)))); elseif (t_1 <= 1e+283) tmp = t_1; else tmp = Float64(y + Float64(Float64(z - a) * Float64(Float64(x - y) / t))); end return tmp end
function tmp = code(x, y, z, t, a) tmp = x + (((y - x) * (z - t)) / (a - t)); end
function tmp_2 = code(x, y, z, t, a) t_1 = x + (((y - x) * (z - t)) / (a - t)); tmp = 0.0; if (t_1 <= -2e+264) tmp = x + ((z - t) * ((y - x) / (a - t))); elseif (t_1 <= -1e-265) tmp = t_1; elseif (t_1 <= 0.0) tmp = y + ((x - y) / (t / (z - a))); elseif (t_1 <= 1e+283) tmp = t_1; else tmp = y + ((z - a) * ((x - y) / t)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := N[(x + N[(N[(N[(y - x), $MachinePrecision] * N[(z - t), $MachinePrecision]), $MachinePrecision] / N[(a - t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(x + N[(N[(N[(y - x), $MachinePrecision] * N[(z - t), $MachinePrecision]), $MachinePrecision] / N[(a - t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$1, -2e+264], N[(x + N[(N[(z - t), $MachinePrecision] * N[(N[(y - x), $MachinePrecision] / N[(a - t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$1, -1e-265], t$95$1, If[LessEqual[t$95$1, 0.0], N[(y + N[(N[(x - y), $MachinePrecision] / N[(t / N[(z - a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$1, 1e+283], t$95$1, N[(y + N[(N[(z - a), $MachinePrecision] * N[(N[(x - y), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]
x + \frac{\left(y - x\right) \cdot \left(z - t\right)}{a - t}
\begin{array}{l}
t_1 := x + \frac{\left(y - x\right) \cdot \left(z - t\right)}{a - t}\\
\mathbf{if}\;t_1 \leq -2 \cdot 10^{+264}:\\
\;\;\;\;x + \left(z - t\right) \cdot \frac{y - x}{a - t}\\
\mathbf{elif}\;t_1 \leq -1 \cdot 10^{-265}:\\
\;\;\;\;t_1\\
\mathbf{elif}\;t_1 \leq 0:\\
\;\;\;\;y + \frac{x - y}{\frac{t}{z - a}}\\
\mathbf{elif}\;t_1 \leq 10^{+283}:\\
\;\;\;\;t_1\\
\mathbf{else}:\\
\;\;\;\;y + \left(z - a\right) \cdot \frac{x - y}{t}\\
\end{array}
Results
| Original | 24.6 |
|---|---|
| Target | 9.2 |
| Herbie | 8.1 |
if (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) < -2.00000000000000009e264Initial program 57.6
Simplified18.1
[Start]57.6 | \[ x + \frac{\left(y - x\right) \cdot \left(z - t\right)}{a - t}
\] |
|---|---|
associate-*l/ [<=]18.1 | \[ x + \color{blue}{\frac{y - x}{a - t} \cdot \left(z - t\right)}
\] |
if -2.00000000000000009e264 < (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) < -9.99999999999999985e-266 or 0.0 < (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) < 9.99999999999999955e282Initial program 2.1
if -9.99999999999999985e-266 < (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) < 0.0Initial program 57.8
Simplified57.7
[Start]57.8 | \[ x + \frac{\left(y - x\right) \cdot \left(z - t\right)}{a - t}
\] |
|---|---|
associate-/l* [=>]57.7 | \[ x + \color{blue}{\frac{y - x}{\frac{a - t}{z - t}}}
\] |
Taylor expanded in t around inf 3.5
Simplified3.4
[Start]3.5 | \[ \left(-1 \cdot \frac{z \cdot \left(y - x\right)}{t} + y\right) - -1 \cdot \frac{a \cdot \left(y - x\right)}{t}
\] |
|---|---|
+-commutative [=>]3.5 | \[ \color{blue}{\left(y + -1 \cdot \frac{z \cdot \left(y - x\right)}{t}\right)} - -1 \cdot \frac{a \cdot \left(y - x\right)}{t}
\] |
associate--l+ [=>]3.5 | \[ \color{blue}{y + \left(-1 \cdot \frac{z \cdot \left(y - x\right)}{t} - -1 \cdot \frac{a \cdot \left(y - x\right)}{t}\right)}
\] |
*-commutative [=>]3.5 | \[ y + \left(-1 \cdot \frac{\color{blue}{\left(y - x\right) \cdot z}}{t} - -1 \cdot \frac{a \cdot \left(y - x\right)}{t}\right)
\] |
associate-*r/ [=>]3.5 | \[ y + \left(\color{blue}{\frac{-1 \cdot \left(\left(y - x\right) \cdot z\right)}{t}} - -1 \cdot \frac{a \cdot \left(y - x\right)}{t}\right)
\] |
associate-*r/ [=>]3.5 | \[ y + \left(\frac{-1 \cdot \left(\left(y - x\right) \cdot z\right)}{t} - \color{blue}{\frac{-1 \cdot \left(a \cdot \left(y - x\right)\right)}{t}}\right)
\] |
div-sub [<=]3.5 | \[ y + \color{blue}{\frac{-1 \cdot \left(\left(y - x\right) \cdot z\right) - -1 \cdot \left(a \cdot \left(y - x\right)\right)}{t}}
\] |
distribute-lft-out-- [=>]3.5 | \[ y + \frac{\color{blue}{-1 \cdot \left(\left(y - x\right) \cdot z - a \cdot \left(y - x\right)\right)}}{t}
\] |
associate-*r/ [<=]3.5 | \[ y + \color{blue}{-1 \cdot \frac{\left(y - x\right) \cdot z - a \cdot \left(y - x\right)}{t}}
\] |
mul-1-neg [=>]3.5 | \[ y + \color{blue}{\left(-\frac{\left(y - x\right) \cdot z - a \cdot \left(y - x\right)}{t}\right)}
\] |
unsub-neg [=>]3.5 | \[ \color{blue}{y - \frac{\left(y - x\right) \cdot z - a \cdot \left(y - x\right)}{t}}
\] |
*-commutative [<=]3.5 | \[ y - \frac{\color{blue}{z \cdot \left(y - x\right)} - a \cdot \left(y - x\right)}{t}
\] |
distribute-rgt-out-- [=>]3.5 | \[ y - \frac{\color{blue}{\left(y - x\right) \cdot \left(z - a\right)}}{t}
\] |
associate-/l* [=>]3.4 | \[ y - \color{blue}{\frac{y - x}{\frac{t}{z - a}}}
\] |
if 9.99999999999999955e282 < (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) Initial program 59.0
Simplified15.5
[Start]59.0 | \[ x + \frac{\left(y - x\right) \cdot \left(z - t\right)}{a - t}
\] |
|---|---|
+-commutative [=>]59.0 | \[ \color{blue}{\frac{\left(y - x\right) \cdot \left(z - t\right)}{a - t} + x}
\] |
associate-*r/ [<=]15.5 | \[ \color{blue}{\left(y - x\right) \cdot \frac{z - t}{a - t}} + x
\] |
*-commutative [<=]15.5 | \[ \color{blue}{\frac{z - t}{a - t} \cdot \left(y - x\right)} + x
\] |
fma-def [=>]15.5 | \[ \color{blue}{\mathsf{fma}\left(\frac{z - t}{a - t}, y - x, x\right)}
\] |
Taylor expanded in t around inf 42.1
Simplified23.7
[Start]42.1 | \[ y + \frac{\left(-1 \cdot z - -1 \cdot a\right) \cdot \left(y - x\right)}{t}
\] |
|---|---|
distribute-lft-out-- [=>]42.1 | \[ y + \frac{\color{blue}{\left(-1 \cdot \left(z - a\right)\right)} \cdot \left(y - x\right)}{t}
\] |
associate-*r* [<=]42.1 | \[ y + \frac{\color{blue}{-1 \cdot \left(\left(z - a\right) \cdot \left(y - x\right)\right)}}{t}
\] |
*-commutative [<=]42.1 | \[ y + \frac{-1 \cdot \color{blue}{\left(\left(y - x\right) \cdot \left(z - a\right)\right)}}{t}
\] |
associate-*r/ [<=]42.1 | \[ y + \color{blue}{-1 \cdot \frac{\left(y - x\right) \cdot \left(z - a\right)}{t}}
\] |
mul-1-neg [=>]42.1 | \[ y + \color{blue}{\left(-\frac{\left(y - x\right) \cdot \left(z - a\right)}{t}\right)}
\] |
unsub-neg [=>]42.1 | \[ \color{blue}{y - \frac{\left(y - x\right) \cdot \left(z - a\right)}{t}}
\] |
associate-/l* [=>]23.8 | \[ y - \color{blue}{\frac{y - x}{\frac{t}{z - a}}}
\] |
associate-/r/ [=>]23.7 | \[ y - \color{blue}{\frac{y - x}{t} \cdot \left(z - a\right)}
\] |
Final simplification8.1
| Alternative 1 | |
|---|---|
| Error | 8.0 |
| Cost | 8004 |
| Alternative 2 | |
|---|---|
| Error | 7.9 |
| Cost | 4300 |
| Alternative 3 | |
|---|---|
| Error | 8.0 |
| Cost | 3532 |
| Alternative 4 | |
|---|---|
| Error | 10.6 |
| Cost | 1624 |
| Alternative 5 | |
|---|---|
| Error | 35.8 |
| Cost | 1568 |
| Alternative 6 | |
|---|---|
| Error | 35.7 |
| Cost | 1504 |
| Alternative 7 | |
|---|---|
| Error | 30.6 |
| Cost | 1368 |
| Alternative 8 | |
|---|---|
| Error | 28.5 |
| Cost | 1368 |
| Alternative 9 | |
|---|---|
| Error | 24.6 |
| Cost | 1368 |
| Alternative 10 | |
|---|---|
| Error | 20.4 |
| Cost | 1368 |
| Alternative 11 | |
|---|---|
| Error | 34.0 |
| Cost | 1304 |
| Alternative 12 | |
|---|---|
| Error | 18.8 |
| Cost | 1232 |
| Alternative 13 | |
|---|---|
| Error | 20.9 |
| Cost | 1104 |
| Alternative 14 | |
|---|---|
| Error | 20.1 |
| Cost | 1104 |
| Alternative 15 | |
|---|---|
| Error | 19.8 |
| Cost | 1100 |
| Alternative 16 | |
|---|---|
| Error | 34.9 |
| Cost | 976 |
| Alternative 17 | |
|---|---|
| Error | 36.4 |
| Cost | 716 |
| Alternative 18 | |
|---|---|
| Error | 36.4 |
| Cost | 716 |
| Alternative 19 | |
|---|---|
| Error | 36.4 |
| Cost | 328 |
| Alternative 20 | |
|---|---|
| Error | 45.7 |
| Cost | 64 |
herbie shell --seed 2023031
(FPCore (x y z t a)
:name "Graphics.Rendering.Chart.Axis.Types:linMap from Chart-1.5.3"
:precision binary64
:herbie-target
(if (< a -1.6153062845442575e-142) (+ x (* (/ (- y x) 1.0) (/ (- z t) (- a t)))) (if (< a 3.774403170083174e-182) (- y (* (/ z t) (- y x))) (+ x (* (/ (- y x) 1.0) (/ (- z t) (- a t))))))
(+ x (/ (* (- y x) (- z t)) (- a t))))