- Split input into 3 regimes
if x < -1.0692437963430577
Initial program 61.9
\[\log \left(x + \sqrt{x \cdot x + 1}\right)\]
Simplified61.1
\[\leadsto \color{blue}{\log \left(x + \sqrt{1^2 + x^2}^*\right)}\]
- Using strategy
rm Applied add-cube-cbrt62.0
\[\leadsto \log \left(x + \color{blue}{\left(\sqrt[3]{\sqrt{1^2 + x^2}^*} \cdot \sqrt[3]{\sqrt{1^2 + x^2}^*}\right) \cdot \sqrt[3]{\sqrt{1^2 + x^2}^*}}\right)\]
Taylor expanded around -inf 0.1
\[\leadsto \log \color{blue}{\left(\frac{1}{8} \cdot \frac{1}{{x}^{3}} - \left(\frac{1}{16} \cdot \frac{1}{{x}^{5}} + \frac{1}{2} \cdot \frac{1}{x}\right)\right)}\]
Simplified0.1
\[\leadsto \log \color{blue}{\left(\frac{\frac{\frac{1}{8}}{x}}{x \cdot x} - \left(\frac{\frac{1}{16}}{{x}^{5}} + \frac{\frac{1}{2}}{x}\right)\right)}\]
if -1.0692437963430577 < x < 0.00738903698002201
Initial program 58.9
\[\log \left(x + \sqrt{x \cdot x + 1}\right)\]
Simplified58.9
\[\leadsto \color{blue}{\log \left(x + \sqrt{1^2 + x^2}^*\right)}\]
Taylor expanded around 0 0.1
\[\leadsto \color{blue}{\left(x + \frac{3}{40} \cdot {x}^{5}\right) - \frac{1}{6} \cdot {x}^{3}}\]
Simplified0.1
\[\leadsto \color{blue}{(\left(x \cdot \frac{-1}{6}\right) \cdot \left(x \cdot x\right) + \left((\frac{3}{40} \cdot \left({x}^{5}\right) + x)_*\right))_*}\]
if 0.00738903698002201 < x
Initial program 30.4
\[\log \left(x + \sqrt{x \cdot x + 1}\right)\]
Simplified0.1
\[\leadsto \color{blue}{\log \left(x + \sqrt{1^2 + x^2}^*\right)}\]
- Using strategy
rm Applied add-cube-cbrt0.1
\[\leadsto \log \left(x + \color{blue}{\left(\sqrt[3]{\sqrt{1^2 + x^2}^*} \cdot \sqrt[3]{\sqrt{1^2 + x^2}^*}\right) \cdot \sqrt[3]{\sqrt{1^2 + x^2}^*}}\right)\]
- Using strategy
rm Applied add-exp-log0.1
\[\leadsto \log \color{blue}{\left(e^{\log \left(x + \left(\sqrt[3]{\sqrt{1^2 + x^2}^*} \cdot \sqrt[3]{\sqrt{1^2 + x^2}^*}\right) \cdot \sqrt[3]{\sqrt{1^2 + x^2}^*}\right)}\right)}\]
Applied rem-log-exp0.1
\[\leadsto \color{blue}{\log \left(x + \left(\sqrt[3]{\sqrt{1^2 + x^2}^*} \cdot \sqrt[3]{\sqrt{1^2 + x^2}^*}\right) \cdot \sqrt[3]{\sqrt{1^2 + x^2}^*}\right)}\]
Simplified0.1
\[\leadsto \log \color{blue}{\left(\sqrt{1^2 + x^2}^* + x\right)}\]
- Recombined 3 regimes into one program.
Final simplification0.1
\[\leadsto \begin{array}{l}
\mathbf{if}\;x \le -1.0692437963430577:\\
\;\;\;\;\log \left(\frac{\frac{\frac{1}{8}}{x}}{x \cdot x} - \left(\frac{\frac{1}{2}}{x} + \frac{\frac{1}{16}}{{x}^{5}}\right)\right)\\
\mathbf{elif}\;x \le 0.00738903698002201:\\
\;\;\;\;(\left(x \cdot \frac{-1}{6}\right) \cdot \left(x \cdot x\right) + \left((\frac{3}{40} \cdot \left({x}^{5}\right) + x)_*\right))_*\\
\mathbf{else}:\\
\;\;\;\;\log \left(\sqrt{1^2 + x^2}^* + x\right)\\
\end{array}\]