- Split input into 2 regimes
if (/ (exp x) (- (exp x) 1)) < 390.8384192731809
Initial program 1.0
\[\frac{e^{x}}{e^{x} - 1}\]
Initial simplification1.0
\[\leadsto \frac{e^{x}}{e^{x} - 1}\]
- Using strategy
rm Applied flip--1.1
\[\leadsto \frac{e^{x}}{\color{blue}{\frac{e^{x} \cdot e^{x} - 1 \cdot 1}{e^{x} + 1}}}\]
- Using strategy
rm Applied *-un-lft-identity1.1
\[\leadsto \frac{e^{x}}{\frac{e^{x} \cdot e^{x} - 1 \cdot 1}{\color{blue}{1 \cdot \left(e^{x} + 1\right)}}}\]
Applied add-cube-cbrt1.1
\[\leadsto \frac{e^{x}}{\frac{\color{blue}{\left(\sqrt[3]{e^{x} \cdot e^{x} - 1 \cdot 1} \cdot \sqrt[3]{e^{x} \cdot e^{x} - 1 \cdot 1}\right) \cdot \sqrt[3]{e^{x} \cdot e^{x} - 1 \cdot 1}}}{1 \cdot \left(e^{x} + 1\right)}}\]
Applied times-frac1.1
\[\leadsto \frac{e^{x}}{\color{blue}{\frac{\sqrt[3]{e^{x} \cdot e^{x} - 1 \cdot 1} \cdot \sqrt[3]{e^{x} \cdot e^{x} - 1 \cdot 1}}{1} \cdot \frac{\sqrt[3]{e^{x} \cdot e^{x} - 1 \cdot 1}}{e^{x} + 1}}}\]
Applied *-un-lft-identity1.1
\[\leadsto \frac{\color{blue}{1 \cdot e^{x}}}{\frac{\sqrt[3]{e^{x} \cdot e^{x} - 1 \cdot 1} \cdot \sqrt[3]{e^{x} \cdot e^{x} - 1 \cdot 1}}{1} \cdot \frac{\sqrt[3]{e^{x} \cdot e^{x} - 1 \cdot 1}}{e^{x} + 1}}\]
Applied times-frac1.1
\[\leadsto \color{blue}{\frac{1}{\frac{\sqrt[3]{e^{x} \cdot e^{x} - 1 \cdot 1} \cdot \sqrt[3]{e^{x} \cdot e^{x} - 1 \cdot 1}}{1}} \cdot \frac{e^{x}}{\frac{\sqrt[3]{e^{x} \cdot e^{x} - 1 \cdot 1}}{e^{x} + 1}}}\]
Simplified1.0
\[\leadsto \color{blue}{\frac{1}{\sqrt[3]{e^{x + x} - 1} \cdot \sqrt[3]{e^{x + x} - 1}}} \cdot \frac{e^{x}}{\frac{\sqrt[3]{e^{x} \cdot e^{x} - 1 \cdot 1}}{e^{x} + 1}}\]
Simplified1.0
\[\leadsto \frac{1}{\sqrt[3]{e^{x + x} - 1} \cdot \sqrt[3]{e^{x + x} - 1}} \cdot \color{blue}{\frac{\left(1 + e^{x}\right) \cdot e^{x}}{\sqrt[3]{e^{x + x} - 1}}}\]
- Using strategy
rm Applied add-log-exp1.4
\[\leadsto \frac{1}{\sqrt[3]{e^{x + x} - 1} \cdot \sqrt[3]{e^{x + x} - 1}} \cdot \frac{\left(1 + e^{x}\right) \cdot e^{x}}{\color{blue}{\log \left(e^{\sqrt[3]{e^{x + x} - 1}}\right)}}\]
if 390.8384192731809 < (/ (exp x) (- (exp x) 1))
Initial program 61.5
\[\frac{e^{x}}{e^{x} - 1}\]
Initial simplification61.5
\[\leadsto \frac{e^{x}}{e^{x} - 1}\]
Taylor expanded around 0 0.6
\[\leadsto \color{blue}{\frac{1}{12} \cdot x + \left(\frac{1}{x} + \frac{1}{2}\right)}\]
- Recombined 2 regimes into one program.
Final simplification0.9
\[\leadsto \begin{array}{l}
\mathbf{if}\;\frac{e^{x}}{e^{x} - 1} \le 390.8384192731809:\\
\;\;\;\;\frac{1}{\sqrt[3]{e^{x + x} - 1} \cdot \sqrt[3]{e^{x + x} - 1}} \cdot \frac{e^{x} \cdot \left(e^{x} + 1\right)}{\log \left(e^{\sqrt[3]{e^{x + x} - 1}}\right)}\\
\mathbf{else}:\\
\;\;\;\;x \cdot \frac{1}{12} + \left(\frac{1}{2} + \frac{1}{x}\right)\\
\end{array}\]