- Split input into 2 regimes
if eps < -2.424082476615287e-17 or 1.128135375760212e-30 < eps
Initial program 29.8
\[\tan \left(x + \varepsilon\right) - \tan x\]
- Using strategy
rm Applied tan-sum1.6
\[\leadsto \color{blue}{\frac{\tan x + \tan \varepsilon}{1 - \tan x \cdot \tan \varepsilon}} - \tan x\]
- Using strategy
rm Applied flip3--1.7
\[\leadsto \frac{\tan x + \tan \varepsilon}{\color{blue}{\frac{{1}^{3} - {\left(\tan x \cdot \tan \varepsilon\right)}^{3}}{1 \cdot 1 + \left(\left(\tan x \cdot \tan \varepsilon\right) \cdot \left(\tan x \cdot \tan \varepsilon\right) + 1 \cdot \left(\tan x \cdot \tan \varepsilon\right)\right)}}} - \tan x\]
Applied associate-/r/1.7
\[\leadsto \color{blue}{\frac{\tan x + \tan \varepsilon}{{1}^{3} - {\left(\tan x \cdot \tan \varepsilon\right)}^{3}} \cdot \left(1 \cdot 1 + \left(\left(\tan x \cdot \tan \varepsilon\right) \cdot \left(\tan x \cdot \tan \varepsilon\right) + 1 \cdot \left(\tan x \cdot \tan \varepsilon\right)\right)\right)} - \tan x\]
Applied fma-neg1.7
\[\leadsto \color{blue}{(\left(\frac{\tan x + \tan \varepsilon}{{1}^{3} - {\left(\tan x \cdot \tan \varepsilon\right)}^{3}}\right) \cdot \left(1 \cdot 1 + \left(\left(\tan x \cdot \tan \varepsilon\right) \cdot \left(\tan x \cdot \tan \varepsilon\right) + 1 \cdot \left(\tan x \cdot \tan \varepsilon\right)\right)\right) + \left(-\tan x\right))_*}\]
- Using strategy
rm Applied add-cbrt-cube1.7
\[\leadsto (\left(\frac{\tan x + \tan \varepsilon}{{1}^{3} - {\left(\tan x \cdot \color{blue}{\sqrt[3]{\left(\tan \varepsilon \cdot \tan \varepsilon\right) \cdot \tan \varepsilon}}\right)}^{3}}\right) \cdot \left(1 \cdot 1 + \left(\left(\tan x \cdot \tan \varepsilon\right) \cdot \left(\tan x \cdot \tan \varepsilon\right) + 1 \cdot \left(\tan x \cdot \tan \varepsilon\right)\right)\right) + \left(-\tan x\right))_*\]
Applied add-cbrt-cube1.8
\[\leadsto (\left(\frac{\tan x + \tan \varepsilon}{{1}^{3} - {\left(\color{blue}{\sqrt[3]{\left(\tan x \cdot \tan x\right) \cdot \tan x}} \cdot \sqrt[3]{\left(\tan \varepsilon \cdot \tan \varepsilon\right) \cdot \tan \varepsilon}\right)}^{3}}\right) \cdot \left(1 \cdot 1 + \left(\left(\tan x \cdot \tan \varepsilon\right) \cdot \left(\tan x \cdot \tan \varepsilon\right) + 1 \cdot \left(\tan x \cdot \tan \varepsilon\right)\right)\right) + \left(-\tan x\right))_*\]
Applied cbrt-unprod1.8
\[\leadsto (\left(\frac{\tan x + \tan \varepsilon}{{1}^{3} - {\color{blue}{\left(\sqrt[3]{\left(\left(\tan x \cdot \tan x\right) \cdot \tan x\right) \cdot \left(\left(\tan \varepsilon \cdot \tan \varepsilon\right) \cdot \tan \varepsilon\right)}\right)}}^{3}}\right) \cdot \left(1 \cdot 1 + \left(\left(\tan x \cdot \tan \varepsilon\right) \cdot \left(\tan x \cdot \tan \varepsilon\right) + 1 \cdot \left(\tan x \cdot \tan \varepsilon\right)\right)\right) + \left(-\tan x\right))_*\]
Applied rem-cube-cbrt1.7
\[\leadsto (\left(\frac{\tan x + \tan \varepsilon}{{1}^{3} - \color{blue}{\left(\left(\tan x \cdot \tan x\right) \cdot \tan x\right) \cdot \left(\left(\tan \varepsilon \cdot \tan \varepsilon\right) \cdot \tan \varepsilon\right)}}\right) \cdot \left(1 \cdot 1 + \left(\left(\tan x \cdot \tan \varepsilon\right) \cdot \left(\tan x \cdot \tan \varepsilon\right) + 1 \cdot \left(\tan x \cdot \tan \varepsilon\right)\right)\right) + \left(-\tan x\right))_*\]
Simplified1.7
\[\leadsto (\left(\frac{\tan x + \tan \varepsilon}{{1}^{3} - \color{blue}{{\left(\tan x\right)}^{3}} \cdot \left(\left(\tan \varepsilon \cdot \tan \varepsilon\right) \cdot \tan \varepsilon\right)}\right) \cdot \left(1 \cdot 1 + \left(\left(\tan x \cdot \tan \varepsilon\right) \cdot \left(\tan x \cdot \tan \varepsilon\right) + 1 \cdot \left(\tan x \cdot \tan \varepsilon\right)\right)\right) + \left(-\tan x\right))_*\]
Taylor expanded around -inf 1.7
\[\leadsto (\left(\frac{\tan x + \tan \varepsilon}{{1}^{3} - {\left(\tan x\right)}^{3} \cdot \left(\left(\tan \varepsilon \cdot \tan \varepsilon\right) \cdot \tan \varepsilon\right)}\right) \cdot \left(1 \cdot 1 + \left(\color{blue}{\frac{{\left(\sin x\right)}^{2} \cdot {\left(\sin \varepsilon\right)}^{2}}{{\left(\cos x\right)}^{2} \cdot {\left(\cos \varepsilon\right)}^{2}}} + 1 \cdot \left(\tan x \cdot \tan \varepsilon\right)\right)\right) + \left(-\tan x\right))_*\]
if -2.424082476615287e-17 < eps < 1.128135375760212e-30
Initial program 45.6
\[\tan \left(x + \varepsilon\right) - \tan x\]
Taylor expanded around 0 30.8
\[\leadsto \color{blue}{x \cdot {\varepsilon}^{2} + \left(\varepsilon + {x}^{2} \cdot \varepsilon\right)}\]
Simplified30.7
\[\leadsto \color{blue}{(\left(x \cdot \varepsilon\right) \cdot \left(\varepsilon + x\right) + \varepsilon)_*}\]
- Recombined 2 regimes into one program.
Final simplification15.4
\[\leadsto \begin{array}{l}
\mathbf{if}\;\varepsilon \le -2.424082476615287 \cdot 10^{-17} \lor \neg \left(\varepsilon \le 1.128135375760212 \cdot 10^{-30}\right):\\
\;\;\;\;(\left(\frac{\tan \varepsilon + \tan x}{1 - \left(\tan \varepsilon \cdot \left(\tan \varepsilon \cdot \tan \varepsilon\right)\right) \cdot {\left(\tan x\right)}^{3}}\right) \cdot \left(\left(\frac{{\left(\sin \varepsilon\right)}^{2} \cdot {\left(\sin x\right)}^{2}}{{\left(\cos x\right)}^{2} \cdot {\left(\cos \varepsilon\right)}^{2}} + \tan x \cdot \tan \varepsilon\right) + 1\right) + \left(-\tan x\right))_*\\
\mathbf{else}:\\
\;\;\;\;(\left(x \cdot \varepsilon\right) \cdot \left(x + \varepsilon\right) + \varepsilon)_*\\
\end{array}\]