Average Error: 29.0 → 0.8
Time: 27.0s
Precision: 64
Internal Precision: 1408
\[e^{a \cdot x} - 1\]
↓
\[\begin{array}{l}
\mathbf{if}\;e^{a \cdot x} - 1 \le -3.346391101860843 \cdot 10^{-307}:\\
\;\;\;\;\left(\sqrt[3]{e^{a \cdot x} - 1} \cdot \sqrt[3]{e^{a \cdot x} - 1}\right) \cdot \sqrt[3]{\left(\sqrt[3]{e^{a \cdot x} - 1} \cdot \sqrt[3]{e^{a \cdot x} - 1}\right) \cdot \sqrt[3]{e^{a \cdot x} - 1}}\\
\mathbf{else}:\\
\;\;\;\;\left(\left(x \cdot a\right) \cdot \left(x \cdot a\right)\right) \cdot \frac{1}{2} + x \cdot a\\
\end{array}\]
Target
| Original | 29.0 |
|---|
| Target | 0.2 |
|---|
| Herbie | 0.8 |
|---|
\[\begin{array}{l}
\mathbf{if}\;\left|a \cdot x\right| \lt \frac{1}{10}:\\
\;\;\;\;\left(a \cdot x\right) \cdot \left(1 + \left(\frac{a \cdot x}{2} + \frac{{\left(a \cdot x\right)}^{2}}{6}\right)\right)\\
\mathbf{else}:\\
\;\;\;\;e^{a \cdot x} - 1\\
\end{array}\]
Derivation
- Split input into 2 regimes
if (- (exp (* a x)) 1) < -3.346391101860843e-307
Initial program 1.0
\[e^{a \cdot x} - 1\]
- Using strategy
rm Applied add-cube-cbrt1.0
\[\leadsto \color{blue}{\left(\sqrt[3]{e^{a \cdot x} - 1} \cdot \sqrt[3]{e^{a \cdot x} - 1}\right) \cdot \sqrt[3]{e^{a \cdot x} - 1}}\]
- Using strategy
rm Applied add-cube-cbrt1.0
\[\leadsto \left(\sqrt[3]{e^{a \cdot x} - 1} \cdot \sqrt[3]{e^{a \cdot x} - 1}\right) \cdot \sqrt[3]{\color{blue}{\left(\sqrt[3]{e^{a \cdot x} - 1} \cdot \sqrt[3]{e^{a \cdot x} - 1}\right) \cdot \sqrt[3]{e^{a \cdot x} - 1}}}\]
if -3.346391101860843e-307 < (- (exp (* a x)) 1)
Initial program 44.2
\[e^{a \cdot x} - 1\]
Taylor expanded around 0 45.2
\[\leadsto \color{blue}{\left(a \cdot x + \left(1 + \frac{1}{2} \cdot \left({a}^{2} \cdot {x}^{2}\right)\right)\right)} - 1\]
Applied simplify0.6
\[\leadsto \color{blue}{\left(\left(x \cdot a\right) \cdot \left(x \cdot a\right)\right) \cdot \frac{1}{2} + x \cdot a}\]
- Recombined 2 regimes into one program.
Runtime
herbie shell --seed '#(1064397287 3527694221 3797617954 1138343853 2854031332 1153838279)'
(FPCore (a x)
:name "expax (section 3.5)"
:herbie-target
(if (< (fabs (* a x)) 1/10) (* (* a x) (+ 1 (+ (/ (* a x) 2) (/ (pow (* a x) 2) 6)))) (- (exp (* a x)) 1))
(- (exp (* a x)) 1))