- Split input into 3 regimes
if (* 100 (* (/ (* (cbrt (+ i (* (* i i) (+ (* 1/6 i) 1/2)))) (log (exp (cbrt (+ i (* (* i i) (+ (* 1/6 i) 1/2))))))) i) (* n (cbrt (+ i (* (+ (* i 1/6) 1/2) (* i i))))))) < -7.876677038040007e+303
Initial program 16.8
\[100 \cdot \frac{{\left(1 + \frac{i}{n}\right)}^{n} - 1}{\frac{i}{n}}\]
- Using strategy
rm Applied add-log-exp16.8
\[\leadsto 100 \cdot \frac{\color{blue}{\log \left(e^{{\left(1 + \frac{i}{n}\right)}^{n} - 1}\right)}}{\frac{i}{n}}\]
if -7.876677038040007e+303 < (* 100 (* (/ (* (cbrt (+ i (* (* i i) (+ (* 1/6 i) 1/2)))) (log (exp (cbrt (+ i (* (* i i) (+ (* 1/6 i) 1/2))))))) i) (* n (cbrt (+ i (* (+ (* i 1/6) 1/2) (* i i))))))) < 1.7737416257178375e+308
Initial program 57.5
\[100 \cdot \frac{{\left(1 + \frac{i}{n}\right)}^{n} - 1}{\frac{i}{n}}\]
Taylor expanded around 0 25.7
\[\leadsto 100 \cdot \frac{\color{blue}{i + \left(\frac{1}{2} \cdot {i}^{2} + \frac{1}{6} \cdot {i}^{3}\right)}}{\frac{i}{n}}\]
Simplified25.7
\[\leadsto 100 \cdot \frac{\color{blue}{i + \left(i \cdot i\right) \cdot \left(\frac{1}{6} \cdot i + \frac{1}{2}\right)}}{\frac{i}{n}}\]
Taylor expanded around inf 9.8
\[\leadsto \color{blue}{\frac{50}{3} \cdot \left({i}^{2} \cdot n\right) + \left(100 \cdot n + 50 \cdot \left(i \cdot n\right)\right)}\]
Simplified9.8
\[\leadsto \color{blue}{\left(50 + \frac{50}{3} \cdot i\right) \cdot \left(i \cdot n\right) + 100 \cdot n}\]
if 1.7737416257178375e+308 < (* 100 (* (/ (* (cbrt (+ i (* (* i i) (+ (* 1/6 i) 1/2)))) (log (exp (cbrt (+ i (* (* i i) (+ (* 1/6 i) 1/2))))))) i) (* n (cbrt (+ i (* (+ (* i 1/6) 1/2) (* i i)))))))
Initial program 48.1
\[100 \cdot \frac{{\left(1 + \frac{i}{n}\right)}^{n} - 1}{\frac{i}{n}}\]
Taylor expanded around inf 29.1
\[\leadsto \color{blue}{100 \cdot \frac{\left(e^{\left(\log \left(\frac{1}{n}\right) - \log \left(\frac{1}{i}\right)\right) \cdot n} - 1\right) \cdot n}{i}}\]
Simplified31.4
\[\leadsto \color{blue}{\left(\frac{100}{i} \cdot n\right) \cdot \left({\left(\frac{i}{n}\right)}^{n} - 1\right)}\]
- Recombined 3 regimes into one program.
Final simplification14.3
\[\leadsto \begin{array}{l}
\mathbf{if}\;\left(\frac{\log \left(e^{\sqrt[3]{\left(\frac{1}{2} + \frac{1}{6} \cdot i\right) \cdot \left(i \cdot i\right) + i}}\right) \cdot \sqrt[3]{\left(\frac{1}{2} + \frac{1}{6} \cdot i\right) \cdot \left(i \cdot i\right) + i}}{i} \cdot \left(n \cdot \sqrt[3]{\left(\frac{1}{2} + \frac{1}{6} \cdot i\right) \cdot \left(i \cdot i\right) + i}\right)\right) \cdot 100 \le -7.876677038040007 \cdot 10^{+303}:\\
\;\;\;\;\frac{\log \left(e^{{\left(1 + \frac{i}{n}\right)}^{n} - 1}\right)}{\frac{i}{n}} \cdot 100\\
\mathbf{elif}\;\left(\frac{\log \left(e^{\sqrt[3]{\left(\frac{1}{2} + \frac{1}{6} \cdot i\right) \cdot \left(i \cdot i\right) + i}}\right) \cdot \sqrt[3]{\left(\frac{1}{2} + \frac{1}{6} \cdot i\right) \cdot \left(i \cdot i\right) + i}}{i} \cdot \left(n \cdot \sqrt[3]{\left(\frac{1}{2} + \frac{1}{6} \cdot i\right) \cdot \left(i \cdot i\right) + i}\right)\right) \cdot 100 \le 1.7737416257178375 \cdot 10^{+308}:\\
\;\;\;\;100 \cdot n + \left(50 + \frac{50}{3} \cdot i\right) \cdot \left(i \cdot n\right)\\
\mathbf{else}:\\
\;\;\;\;\left({\left(\frac{i}{n}\right)}^{n} - 1\right) \cdot \left(n \cdot \frac{100}{i}\right)\\
\end{array}\]