- Split input into 2 regimes
if (/ (+ x (* (* x x) (+ (* x 1/6) 1/2))) x) < 1.0187894117188008
Initial program 60.3
\[\frac{e^{x} - 1}{x}\]
Taylor expanded around 0 0.3
\[\leadsto \frac{\color{blue}{x + \left(\frac{1}{6} \cdot {x}^{3} + \frac{1}{2} \cdot {x}^{2}\right)}}{x}\]
Simplified0.3
\[\leadsto \frac{\color{blue}{x + \left(x \cdot x\right) \cdot \left(x \cdot \frac{1}{6} + \frac{1}{2}\right)}}{x}\]
if 1.0187894117188008 < (/ (+ x (* (* x x) (+ (* x 1/6) 1/2))) x)
Initial program 0.0
\[\frac{e^{x} - 1}{x}\]
- Using strategy
rm Applied flip--0.1
\[\leadsto \frac{\color{blue}{\frac{e^{x} \cdot e^{x} - 1 \cdot 1}{e^{x} + 1}}}{x}\]
Applied associate-/l/0.1
\[\leadsto \color{blue}{\frac{e^{x} \cdot e^{x} - 1 \cdot 1}{x \cdot \left(e^{x} + 1\right)}}\]
Simplified0.1
\[\leadsto \frac{\color{blue}{e^{x} \cdot e^{x} - 1}}{x \cdot \left(e^{x} + 1\right)}\]
- Using strategy
rm Applied flip--0.1
\[\leadsto \frac{\color{blue}{\frac{\left(e^{x} \cdot e^{x}\right) \cdot \left(e^{x} \cdot e^{x}\right) - 1 \cdot 1}{e^{x} \cdot e^{x} + 1}}}{x \cdot \left(e^{x} + 1\right)}\]
- Using strategy
rm Applied add-cube-cbrt0.1
\[\leadsto \frac{\frac{\left(e^{x} \cdot e^{x}\right) \cdot \left(e^{x} \cdot e^{x}\right) - 1 \cdot 1}{\color{blue}{\left(\sqrt[3]{e^{x} \cdot e^{x} + 1} \cdot \sqrt[3]{e^{x} \cdot e^{x} + 1}\right) \cdot \sqrt[3]{e^{x} \cdot e^{x} + 1}}}}{x \cdot \left(e^{x} + 1\right)}\]
Applied associate-/r*0.1
\[\leadsto \frac{\color{blue}{\frac{\frac{\left(e^{x} \cdot e^{x}\right) \cdot \left(e^{x} \cdot e^{x}\right) - 1 \cdot 1}{\sqrt[3]{e^{x} \cdot e^{x} + 1} \cdot \sqrt[3]{e^{x} \cdot e^{x} + 1}}}{\sqrt[3]{e^{x} \cdot e^{x} + 1}}}}{x \cdot \left(e^{x} + 1\right)}\]
- Recombined 2 regimes into one program.
Final simplification0.2
\[\leadsto \begin{array}{l}
\mathbf{if}\;\frac{x + \left(x \cdot \frac{1}{6} + \frac{1}{2}\right) \cdot \left(x \cdot x\right)}{x} \le 1.0187894117188008:\\
\;\;\;\;\frac{x + \left(x \cdot \frac{1}{6} + \frac{1}{2}\right) \cdot \left(x \cdot x\right)}{x}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{\frac{\left(e^{x} \cdot e^{x}\right) \cdot \left(e^{x} \cdot e^{x}\right) - 1}{\sqrt[3]{1 + e^{x} \cdot e^{x}} \cdot \sqrt[3]{1 + e^{x} \cdot e^{x}}}}{\sqrt[3]{1 + e^{x} \cdot e^{x}}}}{x \cdot \left(e^{x} + 1\right)}\\
\end{array}\]