- Split input into 2 regimes
if x < -0.0019604778091778475
Initial program 0.0
\[\frac{e^{x}}{e^{x} - 1}\]
- Using strategy
rm Applied add-cube-cbrt0.0
\[\leadsto \frac{e^{x}}{\color{blue}{\left(\sqrt[3]{e^{x} - 1} \cdot \sqrt[3]{e^{x} - 1}\right) \cdot \sqrt[3]{e^{x} - 1}}}\]
Applied *-un-lft-identity0.0
\[\leadsto \frac{\color{blue}{1 \cdot e^{x}}}{\left(\sqrt[3]{e^{x} - 1} \cdot \sqrt[3]{e^{x} - 1}\right) \cdot \sqrt[3]{e^{x} - 1}}\]
Applied times-frac0.0
\[\leadsto \color{blue}{\frac{1}{\sqrt[3]{e^{x} - 1} \cdot \sqrt[3]{e^{x} - 1}} \cdot \frac{e^{x}}{\sqrt[3]{e^{x} - 1}}}\]
if -0.0019604778091778475 < x
Initial program 60.0
\[\frac{e^{x}}{e^{x} - 1}\]
Taylor expanded around 0 1.1
\[\leadsto \color{blue}{\frac{1}{12} \cdot x + \left(\frac{1}{x} + \frac{1}{2}\right)}\]
- Recombined 2 regimes into one program.
Final simplification0.7
\[\leadsto \begin{array}{l}
\mathbf{if}\;x \le -0.0019604778091778475:\\
\;\;\;\;\frac{e^{x}}{\sqrt[3]{e^{x} - 1}} \cdot \frac{1}{\sqrt[3]{e^{x} - 1} \cdot \sqrt[3]{e^{x} - 1}}\\
\mathbf{else}:\\
\;\;\;\;\left(\frac{1}{x} + \frac{1}{2}\right) + \frac{1}{12} \cdot x\\
\end{array}\]