| Alternative 1 | |
|---|---|
| Accuracy | 81.2% |
| Cost | 20424 |
(FPCore (i n) :precision binary64 (* 100.0 (/ (- (pow (+ 1.0 (/ i n)) n) 1.0) (/ i n))))
(FPCore (i n)
:precision binary64
(let* ((t_0 (* 100.0 (* n (/ (expm1 i) i))))
(t_1 (- (log (/ -1.0 n)) (log (/ -1.0 i)))))
(if (<= n -3.8e-125)
t_0
(if (<= n -4e-310)
(/
(* 100.0 (+ (* (/ (* n n) i) (pow (exp n) t_1)) (expm1 (* n t_1))))
(/ i n))
(if (<= n 2.1e-141)
(/ (* (* n 100.0) (fma -1.0 (log n) (log i))) (/ i n))
(if (<= n 5.3e-14) (/ (* 100.0 i) (/ i n)) t_0))))))double code(double i, double n) {
return 100.0 * ((pow((1.0 + (i / n)), n) - 1.0) / (i / n));
}
double code(double i, double n) {
double t_0 = 100.0 * (n * (expm1(i) / i));
double t_1 = log((-1.0 / n)) - log((-1.0 / i));
double tmp;
if (n <= -3.8e-125) {
tmp = t_0;
} else if (n <= -4e-310) {
tmp = (100.0 * ((((n * n) / i) * pow(exp(n), t_1)) + expm1((n * t_1)))) / (i / n);
} else if (n <= 2.1e-141) {
tmp = ((n * 100.0) * fma(-1.0, log(n), log(i))) / (i / n);
} else if (n <= 5.3e-14) {
tmp = (100.0 * i) / (i / n);
} else {
tmp = t_0;
}
return tmp;
}
function code(i, n) return Float64(100.0 * Float64(Float64((Float64(1.0 + Float64(i / n)) ^ n) - 1.0) / Float64(i / n))) end
function code(i, n) t_0 = Float64(100.0 * Float64(n * Float64(expm1(i) / i))) t_1 = Float64(log(Float64(-1.0 / n)) - log(Float64(-1.0 / i))) tmp = 0.0 if (n <= -3.8e-125) tmp = t_0; elseif (n <= -4e-310) tmp = Float64(Float64(100.0 * Float64(Float64(Float64(Float64(n * n) / i) * (exp(n) ^ t_1)) + expm1(Float64(n * t_1)))) / Float64(i / n)); elseif (n <= 2.1e-141) tmp = Float64(Float64(Float64(n * 100.0) * fma(-1.0, log(n), log(i))) / Float64(i / n)); elseif (n <= 5.3e-14) tmp = Float64(Float64(100.0 * i) / Float64(i / n)); else tmp = t_0; end return tmp end
code[i_, n_] := N[(100.0 * N[(N[(N[Power[N[(1.0 + N[(i / n), $MachinePrecision]), $MachinePrecision], n], $MachinePrecision] - 1.0), $MachinePrecision] / N[(i / n), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
code[i_, n_] := Block[{t$95$0 = N[(100.0 * N[(n * N[(N[(Exp[i] - 1), $MachinePrecision] / i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[Log[N[(-1.0 / n), $MachinePrecision]], $MachinePrecision] - N[Log[N[(-1.0 / i), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[n, -3.8e-125], t$95$0, If[LessEqual[n, -4e-310], N[(N[(100.0 * N[(N[(N[(N[(n * n), $MachinePrecision] / i), $MachinePrecision] * N[Power[N[Exp[n], $MachinePrecision], t$95$1], $MachinePrecision]), $MachinePrecision] + N[(Exp[N[(n * t$95$1), $MachinePrecision]] - 1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(i / n), $MachinePrecision]), $MachinePrecision], If[LessEqual[n, 2.1e-141], N[(N[(N[(n * 100.0), $MachinePrecision] * N[(-1.0 * N[Log[n], $MachinePrecision] + N[Log[i], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(i / n), $MachinePrecision]), $MachinePrecision], If[LessEqual[n, 5.3e-14], N[(N[(100.0 * i), $MachinePrecision] / N[(i / n), $MachinePrecision]), $MachinePrecision], t$95$0]]]]]]
100 \cdot \frac{{\left(1 + \frac{i}{n}\right)}^{n} - 1}{\frac{i}{n}}
\begin{array}{l}
t_0 := 100 \cdot \left(n \cdot \frac{\mathsf{expm1}\left(i\right)}{i}\right)\\
t_1 := \log \left(\frac{-1}{n}\right) - \log \left(\frac{-1}{i}\right)\\
\mathbf{if}\;n \leq -3.8 \cdot 10^{-125}:\\
\;\;\;\;t_0\\
\mathbf{elif}\;n \leq -4 \cdot 10^{-310}:\\
\;\;\;\;\frac{100 \cdot \left(\frac{n \cdot n}{i} \cdot {\left(e^{n}\right)}^{t_1} + \mathsf{expm1}\left(n \cdot t_1\right)\right)}{\frac{i}{n}}\\
\mathbf{elif}\;n \leq 2.1 \cdot 10^{-141}:\\
\;\;\;\;\frac{\left(n \cdot 100\right) \cdot \mathsf{fma}\left(-1, \log n, \log i\right)}{\frac{i}{n}}\\
\mathbf{elif}\;n \leq 5.3 \cdot 10^{-14}:\\
\;\;\;\;\frac{100 \cdot i}{\frac{i}{n}}\\
\mathbf{else}:\\
\;\;\;\;t_0\\
\end{array}
| Original | 26.0% |
|---|---|
| Target | 26.2% |
| Herbie | 81.2% |
if n < -3.8000000000000001e-125 or 5.3000000000000001e-14 < n Initial program 19.6%
Simplified20.0%
[Start]19.6 | \[ 100 \cdot \frac{{\left(1 + \frac{i}{n}\right)}^{n} - 1}{\frac{i}{n}}
\] |
|---|---|
associate-/r/ [=>]20.0 | \[ 100 \cdot \color{blue}{\left(\frac{{\left(1 + \frac{i}{n}\right)}^{n} - 1}{i} \cdot n\right)}
\] |
*-commutative [=>]20.0 | \[ 100 \cdot \color{blue}{\left(n \cdot \frac{{\left(1 + \frac{i}{n}\right)}^{n} - 1}{i}\right)}
\] |
*-rgt-identity [<=]20.0 | \[ 100 \cdot \left(\color{blue}{\left(n \cdot 1\right)} \cdot \frac{{\left(1 + \frac{i}{n}\right)}^{n} - 1}{i}\right)
\] |
associate-*l* [=>]20.0 | \[ 100 \cdot \color{blue}{\left(n \cdot \left(1 \cdot \frac{{\left(1 + \frac{i}{n}\right)}^{n} - 1}{i}\right)\right)}
\] |
*-lft-identity [=>]20.0 | \[ 100 \cdot \left(n \cdot \color{blue}{\frac{{\left(1 + \frac{i}{n}\right)}^{n} - 1}{i}}\right)
\] |
sub-neg [=>]20.0 | \[ 100 \cdot \left(n \cdot \frac{\color{blue}{{\left(1 + \frac{i}{n}\right)}^{n} + \left(-1\right)}}{i}\right)
\] |
metadata-eval [=>]20.0 | \[ 100 \cdot \left(n \cdot \frac{{\left(1 + \frac{i}{n}\right)}^{n} + \color{blue}{-1}}{i}\right)
\] |
Taylor expanded in n around inf 25.9%
Simplified87.3%
[Start]25.9 | \[ 100 \cdot \left(n \cdot \frac{e^{i} - 1}{i}\right)
\] |
|---|---|
expm1-def [=>]87.3 | \[ 100 \cdot \left(n \cdot \frac{\color{blue}{\mathsf{expm1}\left(i\right)}}{i}\right)
\] |
if -3.8000000000000001e-125 < n < -3.999999999999988e-310Initial program 62.0%
Simplified62.0%
[Start]62.0 | \[ 100 \cdot \frac{{\left(1 + \frac{i}{n}\right)}^{n} - 1}{\frac{i}{n}}
\] |
|---|---|
associate-*r/ [=>]62.0 | \[ \color{blue}{\frac{100 \cdot \left({\left(1 + \frac{i}{n}\right)}^{n} - 1\right)}{\frac{i}{n}}}
\] |
sub-neg [=>]62.0 | \[ \frac{100 \cdot \color{blue}{\left({\left(1 + \frac{i}{n}\right)}^{n} + \left(-1\right)\right)}}{\frac{i}{n}}
\] |
metadata-eval [=>]62.0 | \[ \frac{100 \cdot \left({\left(1 + \frac{i}{n}\right)}^{n} + \color{blue}{-1}\right)}{\frac{i}{n}}
\] |
Taylor expanded in i around -inf 61.2%
Simplified72.2%
[Start]61.2 | \[ \frac{100 \cdot \left(\left(\frac{{n}^{2} \cdot e^{n \cdot \left(-1 \cdot \log \left(\frac{-1}{i}\right) + \log \left(-\frac{1}{n}\right)\right)}}{i} + e^{n \cdot \left(-1 \cdot \log \left(\frac{-1}{i}\right) + \log \left(-\frac{1}{n}\right)\right)}\right) - 1\right)}{\frac{i}{n}}
\] |
|---|---|
associate--l+ [=>]61.2 | \[ \frac{100 \cdot \color{blue}{\left(\frac{{n}^{2} \cdot e^{n \cdot \left(-1 \cdot \log \left(\frac{-1}{i}\right) + \log \left(-\frac{1}{n}\right)\right)}}{i} + \left(e^{n \cdot \left(-1 \cdot \log \left(\frac{-1}{i}\right) + \log \left(-\frac{1}{n}\right)\right)} - 1\right)\right)}}{\frac{i}{n}}
\] |
if -3.999999999999988e-310 < n < 2.0999999999999999e-141Initial program 34.6%
Simplified34.6%
[Start]34.6 | \[ 100 \cdot \frac{{\left(1 + \frac{i}{n}\right)}^{n} - 1}{\frac{i}{n}}
\] |
|---|---|
associate-*r/ [=>]34.6 | \[ \color{blue}{\frac{100 \cdot \left({\left(1 + \frac{i}{n}\right)}^{n} - 1\right)}{\frac{i}{n}}}
\] |
sub-neg [=>]34.6 | \[ \frac{100 \cdot \color{blue}{\left({\left(1 + \frac{i}{n}\right)}^{n} + \left(-1\right)\right)}}{\frac{i}{n}}
\] |
metadata-eval [=>]34.6 | \[ \frac{100 \cdot \left({\left(1 + \frac{i}{n}\right)}^{n} + \color{blue}{-1}\right)}{\frac{i}{n}}
\] |
Taylor expanded in n around 0 75.8%
Simplified75.8%
[Start]75.8 | \[ \frac{100 \cdot \left(n \cdot \left(-1 \cdot \log n + \log i\right)\right)}{\frac{i}{n}}
\] |
|---|---|
associate-*r* [=>]75.8 | \[ \frac{\color{blue}{\left(100 \cdot n\right) \cdot \left(-1 \cdot \log n + \log i\right)}}{\frac{i}{n}}
\] |
fma-def [=>]75.8 | \[ \frac{\left(100 \cdot n\right) \cdot \color{blue}{\mathsf{fma}\left(-1, \log n, \log i\right)}}{\frac{i}{n}}
\] |
if 2.0999999999999999e-141 < n < 5.3000000000000001e-14Initial program 14.1%
Simplified14.1%
[Start]14.1 | \[ 100 \cdot \frac{{\left(1 + \frac{i}{n}\right)}^{n} - 1}{\frac{i}{n}}
\] |
|---|---|
associate-*r/ [=>]14.1 | \[ \color{blue}{\frac{100 \cdot \left({\left(1 + \frac{i}{n}\right)}^{n} - 1\right)}{\frac{i}{n}}}
\] |
sub-neg [=>]14.1 | \[ \frac{100 \cdot \color{blue}{\left({\left(1 + \frac{i}{n}\right)}^{n} + \left(-1\right)\right)}}{\frac{i}{n}}
\] |
metadata-eval [=>]14.1 | \[ \frac{100 \cdot \left({\left(1 + \frac{i}{n}\right)}^{n} + \color{blue}{-1}\right)}{\frac{i}{n}}
\] |
Taylor expanded in i around 0 59.9%
Final simplification81.2%
| Alternative 1 | |
|---|---|
| Accuracy | 81.2% |
| Cost | 20424 |
| Alternative 2 | |
|---|---|
| Accuracy | 81.3% |
| Cost | 20424 |
| Alternative 3 | |
|---|---|
| Accuracy | 81.2% |
| Cost | 20300 |
| Alternative 4 | |
|---|---|
| Accuracy | 79.4% |
| Cost | 14032 |
| Alternative 5 | |
|---|---|
| Accuracy | 79.9% |
| Cost | 14032 |
| Alternative 6 | |
|---|---|
| Accuracy | 79.4% |
| Cost | 14032 |
| Alternative 7 | |
|---|---|
| Accuracy | 81.2% |
| Cost | 13900 |
| Alternative 8 | |
|---|---|
| Accuracy | 79.7% |
| Cost | 7508 |
| Alternative 9 | |
|---|---|
| Accuracy | 79.6% |
| Cost | 7508 |
| Alternative 10 | |
|---|---|
| Accuracy | 80.1% |
| Cost | 7244 |
| Alternative 11 | |
|---|---|
| Accuracy | 67.8% |
| Cost | 1097 |
| Alternative 12 | |
|---|---|
| Accuracy | 67.9% |
| Cost | 969 |
| Alternative 13 | |
|---|---|
| Accuracy | 64.1% |
| Cost | 841 |
| Alternative 14 | |
|---|---|
| Accuracy | 67.9% |
| Cost | 841 |
| Alternative 15 | |
|---|---|
| Accuracy | 63.3% |
| Cost | 713 |
| Alternative 16 | |
|---|---|
| Accuracy | 64.1% |
| Cost | 713 |
| Alternative 17 | |
|---|---|
| Accuracy | 56.9% |
| Cost | 584 |
| Alternative 18 | |
|---|---|
| Accuracy | 3.0% |
| Cost | 192 |
| Alternative 19 | |
|---|---|
| Accuracy | 55.4% |
| Cost | 192 |
herbie shell --seed 2023133
(FPCore (i n)
:name "Compound Interest"
:precision binary64
:herbie-target
(* 100.0 (/ (- (exp (* n (if (== (+ 1.0 (/ i n)) 1.0) (/ i n) (/ (* (/ i n) (log (+ 1.0 (/ i n)))) (- (+ (/ i n) 1.0) 1.0))))) 1.0) (/ i n)))
(* 100.0 (/ (- (pow (+ 1.0 (/ i n)) n) 1.0) (/ i n))))