| Alternative 1 | |
|---|---|
| Error | 0.9 |
| Cost | 20425 |
(FPCore (x y z t) :precision binary64 (+ (- (- (* x (log y)) y) z) (log t)))
(FPCore (x y z t) :precision binary64 (fma (log y) x (- (log t) (+ y z))))
double code(double x, double y, double z, double t) {
return (((x * log(y)) - y) - z) + log(t);
}
double code(double x, double y, double z, double t) {
return fma(log(y), x, (log(t) - (y + z)));
}
function code(x, y, z, t) return Float64(Float64(Float64(Float64(x * log(y)) - y) - z) + log(t)) end
function code(x, y, z, t) return fma(log(y), x, Float64(log(t) - Float64(y + z))) end
code[x_, y_, z_, t_] := N[(N[(N[(N[(x * N[Log[y], $MachinePrecision]), $MachinePrecision] - y), $MachinePrecision] - z), $MachinePrecision] + N[Log[t], $MachinePrecision]), $MachinePrecision]
code[x_, y_, z_, t_] := N[(N[Log[y], $MachinePrecision] * x + N[(N[Log[t], $MachinePrecision] - N[(y + z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\left(\left(x \cdot \log y - y\right) - z\right) + \log t
\mathsf{fma}\left(\log y, x, \log t - \left(y + z\right)\right)
Initial program 0.1
Simplified0.1
[Start]0.1 | \[ \left(\left(x \cdot \log y - y\right) - z\right) + \log t
\] |
|---|---|
associate-+l- [=>]0.1 | \[ \color{blue}{\left(x \cdot \log y - y\right) - \left(z - \log t\right)}
\] |
Taylor expanded in x around 0 0.1
Simplified0.1
[Start]0.1 | \[ \left(\log y \cdot x + \log t\right) - \left(y + z\right)
\] |
|---|---|
+-commutative [=>]0.1 | \[ \color{blue}{\left(\log t + \log y \cdot x\right)} - \left(y + z\right)
\] |
remove-double-neg [<=]0.1 | \[ \left(\color{blue}{\left(-\left(-\log t\right)\right)} + \log y \cdot x\right) - \left(y + z\right)
\] |
neg-mul-1 [=>]0.1 | \[ \left(\color{blue}{-1 \cdot \left(-\log t\right)} + \log y \cdot x\right) - \left(y + z\right)
\] |
mul-1-neg [<=]0.1 | \[ \left(-1 \cdot \color{blue}{\left(-1 \cdot \log t\right)} + \log y \cdot x\right) - \left(y + z\right)
\] |
associate-*r* [=>]0.1 | \[ \left(\color{blue}{\left(-1 \cdot -1\right) \cdot \log t} + \log y \cdot x\right) - \left(y + z\right)
\] |
metadata-eval [=>]0.1 | \[ \left(\color{blue}{1} \cdot \log t + \log y \cdot x\right) - \left(y + z\right)
\] |
*-commutative [<=]0.1 | \[ \left(\color{blue}{\log t \cdot 1} + \log y \cdot x\right) - \left(y + z\right)
\] |
*-commutative [=>]0.1 | \[ \left(\log t \cdot 1 + \color{blue}{x \cdot \log y}\right) - \left(y + z\right)
\] |
associate-+r- [<=]0.1 | \[ \color{blue}{\log t \cdot 1 + \left(x \cdot \log y - \left(y + z\right)\right)}
\] |
*-rgt-identity [<=]0.1 | \[ \log t \cdot 1 + \color{blue}{\left(x \cdot \log y - \left(y + z\right)\right) \cdot 1}
\] |
distribute-rgt-in [<=]0.1 | \[ \color{blue}{1 \cdot \left(\log t + \left(x \cdot \log y - \left(y + z\right)\right)\right)}
\] |
*-lft-identity [=>]0.1 | \[ \color{blue}{\log t + \left(x \cdot \log y - \left(y + z\right)\right)}
\] |
+-commutative [=>]0.1 | \[ \color{blue}{\left(x \cdot \log y - \left(y + z\right)\right) + \log t}
\] |
associate-+l- [=>]0.1 | \[ \color{blue}{x \cdot \log y - \left(\left(y + z\right) - \log t\right)}
\] |
associate-+r- [<=]0.1 | \[ x \cdot \log y - \color{blue}{\left(y + \left(z - \log t\right)\right)}
\] |
unsub-neg [<=]0.1 | \[ \color{blue}{x \cdot \log y + \left(-\left(y + \left(z - \log t\right)\right)\right)}
\] |
*-commutative [<=]0.1 | \[ \color{blue}{\log y \cdot x} + \left(-\left(y + \left(z - \log t\right)\right)\right)
\] |
fma-udef [<=]0.1 | \[ \color{blue}{\mathsf{fma}\left(\log y, x, -\left(y + \left(z - \log t\right)\right)\right)}
\] |
distribute-neg-in [=>]0.1 | \[ \mathsf{fma}\left(\log y, x, \color{blue}{\left(-y\right) + \left(-\left(z - \log t\right)\right)}\right)
\] |
sub-neg [<=]0.1 | \[ \mathsf{fma}\left(\log y, x, \color{blue}{\left(-y\right) - \left(z - \log t\right)}\right)
\] |
associate--r- [=>]0.1 | \[ \mathsf{fma}\left(\log y, x, \color{blue}{\left(\left(-y\right) - z\right) + \log t}\right)
\] |
+-commutative [=>]0.1 | \[ \mathsf{fma}\left(\log y, x, \color{blue}{\log t + \left(\left(-y\right) - z\right)}\right)
\] |
associate--l+ [<=]0.1 | \[ \mathsf{fma}\left(\log y, x, \color{blue}{\left(\log t + \left(-y\right)\right) - z}\right)
\] |
neg-sub0 [=>]0.1 | \[ \mathsf{fma}\left(\log y, x, \left(\log t + \color{blue}{\left(0 - y\right)}\right) - z\right)
\] |
associate-+r- [=>]0.1 | \[ \mathsf{fma}\left(\log y, x, \color{blue}{\left(\left(\log t + 0\right) - y\right)} - z\right)
\] |
+-commutative [<=]0.1 | \[ \mathsf{fma}\left(\log y, x, \left(\color{blue}{\left(0 + \log t\right)} - y\right) - z\right)
\] |
metadata-eval [<=]0.1 | \[ \mathsf{fma}\left(\log y, x, \left(\left(\color{blue}{\left(0 - 0\right)} + \log t\right) - y\right) - z\right)
\] |
associate--r- [<=]0.1 | \[ \mathsf{fma}\left(\log y, x, \left(\color{blue}{\left(0 - \left(0 - \log t\right)\right)} - y\right) - z\right)
\] |
neg-sub0 [<=]0.1 | \[ \mathsf{fma}\left(\log y, x, \left(\left(0 - \color{blue}{\left(-\log t\right)}\right) - y\right) - z\right)
\] |
neg-sub0 [<=]0.1 | \[ \mathsf{fma}\left(\log y, x, \left(\color{blue}{\left(-\left(-\log t\right)\right)} - y\right) - z\right)
\] |
remove-double-neg [=>]0.1 | \[ \mathsf{fma}\left(\log y, x, \left(\color{blue}{\log t} - y\right) - z\right)
\] |
associate--r+ [<=]0.1 | \[ \mathsf{fma}\left(\log y, x, \color{blue}{\log t - \left(y + z\right)}\right)
\] |
Final simplification0.1
| Alternative 1 | |
|---|---|
| Error | 0.9 |
| Cost | 20425 |
| Alternative 2 | |
|---|---|
| Error | 0.5 |
| Cost | 13380 |
| Alternative 3 | |
|---|---|
| Error | 0.1 |
| Cost | 13376 |
| Alternative 4 | |
|---|---|
| Error | 19.3 |
| Cost | 7120 |
| Alternative 5 | |
|---|---|
| Error | 10.3 |
| Cost | 6985 |
| Alternative 6 | |
|---|---|
| Error | 6.8 |
| Cost | 6985 |
| Alternative 7 | |
|---|---|
| Error | 7.2 |
| Cost | 6984 |
| Alternative 8 | |
|---|---|
| Error | 17.8 |
| Cost | 6857 |
| Alternative 9 | |
|---|---|
| Error | 33.0 |
| Cost | 392 |
| Alternative 10 | |
|---|---|
| Error | 26.6 |
| Cost | 256 |
| Alternative 11 | |
|---|---|
| Error | 44.3 |
| Cost | 128 |
herbie shell --seed 2022364
(FPCore (x y z t)
:name "Numeric.SpecFunctions:incompleteGamma from math-functions-0.1.5.2, A"
:precision binary64
(+ (- (- (* x (log y)) y) z) (log t)))