| Alternative 1 | |
|---|---|
| Accuracy | 55.2% |
| Cost | 1642 |
(FPCore (x y z t) :precision binary64 (* x (- (/ y z) (/ t (- 1.0 z)))))
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (- (/ y z) (/ t (- 1.0 z)))) (t_2 (* t_1 x)))
(if (<= t_1 -5e+300)
(/ (* y x) z)
(if (<= t_1 -2e-182)
t_2
(if (<= t_1 2e-165)
(* (/ x z) (+ y t))
(if (<= t_1 5e+256) t_2 (- (/ y (/ z x)) (* t x))))))))double code(double x, double y, double z, double t) {
return x * ((y / z) - (t / (1.0 - z)));
}
double code(double x, double y, double z, double t) {
double t_1 = (y / z) - (t / (1.0 - z));
double t_2 = t_1 * x;
double tmp;
if (t_1 <= -5e+300) {
tmp = (y * x) / z;
} else if (t_1 <= -2e-182) {
tmp = t_2;
} else if (t_1 <= 2e-165) {
tmp = (x / z) * (y + t);
} else if (t_1 <= 5e+256) {
tmp = t_2;
} else {
tmp = (y / (z / x)) - (t * x);
}
return tmp;
}
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
code = x * ((y / z) - (t / (1.0d0 - z)))
end function
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = (y / z) - (t / (1.0d0 - z))
t_2 = t_1 * x
if (t_1 <= (-5d+300)) then
tmp = (y * x) / z
else if (t_1 <= (-2d-182)) then
tmp = t_2
else if (t_1 <= 2d-165) then
tmp = (x / z) * (y + t)
else if (t_1 <= 5d+256) then
tmp = t_2
else
tmp = (y / (z / x)) - (t * x)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
return x * ((y / z) - (t / (1.0 - z)));
}
public static double code(double x, double y, double z, double t) {
double t_1 = (y / z) - (t / (1.0 - z));
double t_2 = t_1 * x;
double tmp;
if (t_1 <= -5e+300) {
tmp = (y * x) / z;
} else if (t_1 <= -2e-182) {
tmp = t_2;
} else if (t_1 <= 2e-165) {
tmp = (x / z) * (y + t);
} else if (t_1 <= 5e+256) {
tmp = t_2;
} else {
tmp = (y / (z / x)) - (t * x);
}
return tmp;
}
def code(x, y, z, t): return x * ((y / z) - (t / (1.0 - z)))
def code(x, y, z, t): t_1 = (y / z) - (t / (1.0 - z)) t_2 = t_1 * x tmp = 0 if t_1 <= -5e+300: tmp = (y * x) / z elif t_1 <= -2e-182: tmp = t_2 elif t_1 <= 2e-165: tmp = (x / z) * (y + t) elif t_1 <= 5e+256: tmp = t_2 else: tmp = (y / (z / x)) - (t * x) return tmp
function code(x, y, z, t) return Float64(x * Float64(Float64(y / z) - Float64(t / Float64(1.0 - z)))) end
function code(x, y, z, t) t_1 = Float64(Float64(y / z) - Float64(t / Float64(1.0 - z))) t_2 = Float64(t_1 * x) tmp = 0.0 if (t_1 <= -5e+300) tmp = Float64(Float64(y * x) / z); elseif (t_1 <= -2e-182) tmp = t_2; elseif (t_1 <= 2e-165) tmp = Float64(Float64(x / z) * Float64(y + t)); elseif (t_1 <= 5e+256) tmp = t_2; else tmp = Float64(Float64(y / Float64(z / x)) - Float64(t * x)); end return tmp end
function tmp = code(x, y, z, t) tmp = x * ((y / z) - (t / (1.0 - z))); end
function tmp_2 = code(x, y, z, t) t_1 = (y / z) - (t / (1.0 - z)); t_2 = t_1 * x; tmp = 0.0; if (t_1 <= -5e+300) tmp = (y * x) / z; elseif (t_1 <= -2e-182) tmp = t_2; elseif (t_1 <= 2e-165) tmp = (x / z) * (y + t); elseif (t_1 <= 5e+256) tmp = t_2; else tmp = (y / (z / x)) - (t * x); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := N[(x * N[(N[(y / z), $MachinePrecision] - N[(t / N[(1.0 - z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(N[(y / z), $MachinePrecision] - N[(t / N[(1.0 - z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(t$95$1 * x), $MachinePrecision]}, If[LessEqual[t$95$1, -5e+300], N[(N[(y * x), $MachinePrecision] / z), $MachinePrecision], If[LessEqual[t$95$1, -2e-182], t$95$2, If[LessEqual[t$95$1, 2e-165], N[(N[(x / z), $MachinePrecision] * N[(y + t), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$1, 5e+256], t$95$2, N[(N[(y / N[(z / x), $MachinePrecision]), $MachinePrecision] - N[(t * x), $MachinePrecision]), $MachinePrecision]]]]]]]
x \cdot \left(\frac{y}{z} - \frac{t}{1 - z}\right)
\begin{array}{l}
t_1 := \frac{y}{z} - \frac{t}{1 - z}\\
t_2 := t_1 \cdot x\\
\mathbf{if}\;t_1 \leq -5 \cdot 10^{+300}:\\
\;\;\;\;\frac{y \cdot x}{z}\\
\mathbf{elif}\;t_1 \leq -2 \cdot 10^{-182}:\\
\;\;\;\;t_2\\
\mathbf{elif}\;t_1 \leq 2 \cdot 10^{-165}:\\
\;\;\;\;\frac{x}{z} \cdot \left(y + t\right)\\
\mathbf{elif}\;t_1 \leq 5 \cdot 10^{+256}:\\
\;\;\;\;t_2\\
\mathbf{else}:\\
\;\;\;\;\frac{y}{\frac{z}{x}} - t \cdot x\\
\end{array}
Results
| Original | 92.6% |
|---|---|
| Target | 93.3% |
| Herbie | 98.7% |
if (-.f64 (/.f64 y z) (/.f64 t (-.f64 1 z))) < -5.00000000000000026e300Initial program 10.2%
Taylor expanded in y around inf 96.3%
if -5.00000000000000026e300 < (-.f64 (/.f64 y z) (/.f64 t (-.f64 1 z))) < -2.0000000000000001e-182 or 2e-165 < (-.f64 (/.f64 y z) (/.f64 t (-.f64 1 z))) < 5.00000000000000015e256Initial program 99.7%
if -2.0000000000000001e-182 < (-.f64 (/.f64 y z) (/.f64 t (-.f64 1 z))) < 2e-165Initial program 88.0%
Applied egg-rr86.9%
[Start]88.0 | \[ x \cdot \left(\frac{y}{z} - \frac{t}{1 - z}\right)
\] |
|---|---|
flip3-- [=>]0.0 | \[ x \cdot \color{blue}{\frac{{\left(\frac{y}{z}\right)}^{3} - {\left(\frac{t}{1 - z}\right)}^{3}}{\frac{y}{z} \cdot \frac{y}{z} + \left(\frac{t}{1 - z} \cdot \frac{t}{1 - z} + \frac{y}{z} \cdot \frac{t}{1 - z}\right)}}
\] |
associate-*r/ [=>]0.0 | \[ \color{blue}{\frac{x \cdot \left({\left(\frac{y}{z}\right)}^{3} - {\left(\frac{t}{1 - z}\right)}^{3}\right)}{\frac{y}{z} \cdot \frac{y}{z} + \left(\frac{t}{1 - z} \cdot \frac{t}{1 - z} + \frac{y}{z} \cdot \frac{t}{1 - z}\right)}}
\] |
associate-/l* [=>]0.0 | \[ \color{blue}{\frac{x}{\frac{\frac{y}{z} \cdot \frac{y}{z} + \left(\frac{t}{1 - z} \cdot \frac{t}{1 - z} + \frac{y}{z} \cdot \frac{t}{1 - z}\right)}{{\left(\frac{y}{z}\right)}^{3} - {\left(\frac{t}{1 - z}\right)}^{3}}}}
\] |
*-un-lft-identity [=>]0.0 | \[ \frac{x}{\frac{\color{blue}{1 \cdot \left(\frac{y}{z} \cdot \frac{y}{z} + \left(\frac{t}{1 - z} \cdot \frac{t}{1 - z} + \frac{y}{z} \cdot \frac{t}{1 - z}\right)\right)}}{{\left(\frac{y}{z}\right)}^{3} - {\left(\frac{t}{1 - z}\right)}^{3}}}
\] |
associate-/l* [=>]0.0 | \[ \frac{x}{\color{blue}{\frac{1}{\frac{{\left(\frac{y}{z}\right)}^{3} - {\left(\frac{t}{1 - z}\right)}^{3}}{\frac{y}{z} \cdot \frac{y}{z} + \left(\frac{t}{1 - z} \cdot \frac{t}{1 - z} + \frac{y}{z} \cdot \frac{t}{1 - z}\right)}}}}
\] |
flip3-- [<=]86.9 | \[ \frac{x}{\frac{1}{\color{blue}{\frac{y}{z} - \frac{t}{1 - z}}}}
\] |
Taylor expanded in z around inf 94.9%
Simplified94.9%
[Start]94.9 | \[ \frac{\left(y - -1 \cdot t\right) \cdot x}{z}
\] |
|---|---|
*-commutative [<=]94.9 | \[ \frac{\color{blue}{x \cdot \left(y - -1 \cdot t\right)}}{z}
\] |
associate-/l* [=>]83.9 | \[ \color{blue}{\frac{x}{\frac{z}{y - -1 \cdot t}}}
\] |
associate-/r/ [=>]94.9 | \[ \color{blue}{\frac{x}{z} \cdot \left(y - -1 \cdot t\right)}
\] |
mul-1-neg [=>]94.9 | \[ \frac{x}{z} \cdot \left(y - \color{blue}{\left(-t\right)}\right)
\] |
sub-neg [=>]94.9 | \[ \frac{x}{z} \cdot \color{blue}{\left(y + \left(-\left(-t\right)\right)\right)}
\] |
remove-double-neg [=>]94.9 | \[ \frac{x}{z} \cdot \left(y + \color{blue}{t}\right)
\] |
if 5.00000000000000015e256 < (-.f64 (/.f64 y z) (/.f64 t (-.f64 1 z))) Initial program 45.7%
Applied egg-rr45.6%
[Start]45.7 | \[ x \cdot \left(\frac{y}{z} - \frac{t}{1 - z}\right)
\] |
|---|---|
flip3-- [=>]0.0 | \[ x \cdot \color{blue}{\frac{{\left(\frac{y}{z}\right)}^{3} - {\left(\frac{t}{1 - z}\right)}^{3}}{\frac{y}{z} \cdot \frac{y}{z} + \left(\frac{t}{1 - z} \cdot \frac{t}{1 - z} + \frac{y}{z} \cdot \frac{t}{1 - z}\right)}}
\] |
associate-*r/ [=>]0.0 | \[ \color{blue}{\frac{x \cdot \left({\left(\frac{y}{z}\right)}^{3} - {\left(\frac{t}{1 - z}\right)}^{3}\right)}{\frac{y}{z} \cdot \frac{y}{z} + \left(\frac{t}{1 - z} \cdot \frac{t}{1 - z} + \frac{y}{z} \cdot \frac{t}{1 - z}\right)}}
\] |
associate-/l* [=>]0.0 | \[ \color{blue}{\frac{x}{\frac{\frac{y}{z} \cdot \frac{y}{z} + \left(\frac{t}{1 - z} \cdot \frac{t}{1 - z} + \frac{y}{z} \cdot \frac{t}{1 - z}\right)}{{\left(\frac{y}{z}\right)}^{3} - {\left(\frac{t}{1 - z}\right)}^{3}}}}
\] |
*-un-lft-identity [=>]0.0 | \[ \frac{x}{\frac{\color{blue}{1 \cdot \left(\frac{y}{z} \cdot \frac{y}{z} + \left(\frac{t}{1 - z} \cdot \frac{t}{1 - z} + \frac{y}{z} \cdot \frac{t}{1 - z}\right)\right)}}{{\left(\frac{y}{z}\right)}^{3} - {\left(\frac{t}{1 - z}\right)}^{3}}}
\] |
associate-/l* [=>]0.0 | \[ \frac{x}{\color{blue}{\frac{1}{\frac{{\left(\frac{y}{z}\right)}^{3} - {\left(\frac{t}{1 - z}\right)}^{3}}{\frac{y}{z} \cdot \frac{y}{z} + \left(\frac{t}{1 - z} \cdot \frac{t}{1 - z} + \frac{y}{z} \cdot \frac{t}{1 - z}\right)}}}}
\] |
flip3-- [<=]45.6 | \[ \frac{x}{\frac{1}{\color{blue}{\frac{y}{z} - \frac{t}{1 - z}}}}
\] |
Taylor expanded in z around 0 97.0%
Simplified97.4%
[Start]97.0 | \[ \frac{y \cdot x}{z} + -1 \cdot \left(t \cdot x\right)
\] |
|---|---|
+-commutative [=>]97.0 | \[ \color{blue}{-1 \cdot \left(t \cdot x\right) + \frac{y \cdot x}{z}}
\] |
associate-*r* [=>]97.0 | \[ \color{blue}{\left(-1 \cdot t\right) \cdot x} + \frac{y \cdot x}{z}
\] |
mul-1-neg [=>]97.0 | \[ \color{blue}{\left(-t\right)} \cdot x + \frac{y \cdot x}{z}
\] |
associate-/l* [=>]97.4 | \[ \left(-t\right) \cdot x + \color{blue}{\frac{y}{\frac{z}{x}}}
\] |
Final simplification98.7%
| Alternative 1 | |
|---|---|
| Accuracy | 55.2% |
| Cost | 1642 |
| Alternative 2 | |
|---|---|
| Accuracy | 55.3% |
| Cost | 1642 |
| Alternative 3 | |
|---|---|
| Accuracy | 57.9% |
| Cost | 1641 |
| Alternative 4 | |
|---|---|
| Accuracy | 67.2% |
| Cost | 1641 |
| Alternative 5 | |
|---|---|
| Accuracy | 56.9% |
| Cost | 1113 |
| Alternative 6 | |
|---|---|
| Accuracy | 63.6% |
| Cost | 1112 |
| Alternative 7 | |
|---|---|
| Accuracy | 69.8% |
| Cost | 1109 |
| Alternative 8 | |
|---|---|
| Accuracy | 90.4% |
| Cost | 1104 |
| Alternative 9 | |
|---|---|
| Accuracy | 84.4% |
| Cost | 976 |
| Alternative 10 | |
|---|---|
| Accuracy | 84.0% |
| Cost | 976 |
| Alternative 11 | |
|---|---|
| Accuracy | 90.4% |
| Cost | 976 |
| Alternative 12 | |
|---|---|
| Accuracy | 56.9% |
| Cost | 452 |
| Alternative 13 | |
|---|---|
| Accuracy | 20.9% |
| Cost | 256 |
herbie shell --seed 2023138
(FPCore (x y z t)
:name "Numeric.SpecFunctions:invIncompleteBetaWorker from math-functions-0.1.5.2, C"
:precision binary64
:herbie-target
(if (< (* x (- (/ y z) (/ t (- 1.0 z)))) -7.623226303312042e-196) (* x (- (/ y z) (* t (/ 1.0 (- 1.0 z))))) (if (< (* x (- (/ y z) (/ t (- 1.0 z)))) 1.4133944927702302e-211) (+ (/ (* y x) z) (- (/ (* t x) (- 1.0 z)))) (* x (- (/ y z) (* t (/ 1.0 (- 1.0 z)))))))
(* x (- (/ y z) (/ t (- 1.0 z)))))