- Split input into 3 regimes
if (fma (* x eps) (fma (* x eps) eps eps) eps) < -1.059607752271381e-24
Initial program 33.3
\[\tan \left(x + \varepsilon\right) - \tan x\]
- Using strategy
rm Applied tan-quot33.2
\[\leadsto \tan \left(x + \varepsilon\right) - \color{blue}{\frac{\sin x}{\cos x}}\]
Applied tan-sum8.7
\[\leadsto \color{blue}{\frac{\tan x + \tan \varepsilon}{1 - \tan x \cdot \tan \varepsilon}} - \frac{\sin x}{\cos x}\]
Applied frac-sub8.7
\[\leadsto \color{blue}{\frac{\left(\tan x + \tan \varepsilon\right) \cdot \cos x - \left(1 - \tan x \cdot \tan \varepsilon\right) \cdot \sin x}{\left(1 - \tan x \cdot \tan \varepsilon\right) \cdot \cos x}}\]
if -1.059607752271381e-24 < (fma (* x eps) (fma (* x eps) eps eps) eps) < 1.5630001627745174e-31
Initial program 42.5
\[\tan \left(x + \varepsilon\right) - \tan x\]
Taylor expanded around 0 23.1
\[\leadsto \color{blue}{x \cdot {\varepsilon}^{2} + \left(\varepsilon + {x}^{2} \cdot {\varepsilon}^{3}\right)}\]
Simplified22.0
\[\leadsto \color{blue}{(\left(x \cdot \varepsilon\right) \cdot \left((\left(x \cdot \varepsilon\right) \cdot \varepsilon + \varepsilon)_*\right) + \varepsilon)_*}\]
if 1.5630001627745174e-31 < (fma (* x eps) (fma (* x eps) eps eps) eps)
Initial program 33.7
\[\tan \left(x + \varepsilon\right) - \tan x\]
- Using strategy
rm Applied tan-sum8.7
\[\leadsto \color{blue}{\frac{\tan x + \tan \varepsilon}{1 - \tan x \cdot \tan \varepsilon}} - \tan x\]
- Using strategy
rm Applied add-cube-cbrt9.0
\[\leadsto \frac{\tan x + \tan \varepsilon}{1 - \tan x \cdot \tan \varepsilon} - \color{blue}{\left(\sqrt[3]{\tan x} \cdot \sqrt[3]{\tan x}\right) \cdot \sqrt[3]{\tan x}}\]
Applied flip3--9.0
\[\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)}}} - \left(\sqrt[3]{\tan x} \cdot \sqrt[3]{\tan x}\right) \cdot \sqrt[3]{\tan x}\]
Applied associate-/r/9.0
\[\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)} - \left(\sqrt[3]{\tan x} \cdot \sqrt[3]{\tan x}\right) \cdot \sqrt[3]{\tan x}\]
Applied prod-diff9.0
\[\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(-\sqrt[3]{\tan x} \cdot \left(\sqrt[3]{\tan x} \cdot \sqrt[3]{\tan x}\right)\right))_* + (\left(-\sqrt[3]{\tan x}\right) \cdot \left(\sqrt[3]{\tan x} \cdot \sqrt[3]{\tan x}\right) + \left(\sqrt[3]{\tan x} \cdot \left(\sqrt[3]{\tan x} \cdot \sqrt[3]{\tan x}\right)\right))_*}\]
Simplified8.6
\[\leadsto \color{blue}{\left(\frac{(\left((\left(\tan x \cdot \tan \varepsilon\right) \cdot \left(\tan x \cdot \tan \varepsilon\right) + \left(\tan x \cdot \tan \varepsilon\right))_*\right) \cdot \left(\tan \varepsilon + \tan x\right) + \left(\tan \varepsilon + \tan x\right))_*}{1 - {\left(\tan x \cdot \tan \varepsilon\right)}^{3}} - \tan x\right)} + (\left(-\sqrt[3]{\tan x}\right) \cdot \left(\sqrt[3]{\tan x} \cdot \sqrt[3]{\tan x}\right) + \left(\sqrt[3]{\tan x} \cdot \left(\sqrt[3]{\tan x} \cdot \sqrt[3]{\tan x}\right)\right))_*\]
Simplified8.7
\[\leadsto \left(\frac{(\left((\left(\tan x \cdot \tan \varepsilon\right) \cdot \left(\tan x \cdot \tan \varepsilon\right) + \left(\tan x \cdot \tan \varepsilon\right))_*\right) \cdot \left(\tan \varepsilon + \tan x\right) + \left(\tan \varepsilon + \tan x\right))_*}{1 - {\left(\tan x \cdot \tan \varepsilon\right)}^{3}} - \tan x\right) + \color{blue}{0}\]
- Recombined 3 regimes into one program.
Final simplification14.0
\[\leadsto \begin{array}{l}
\mathbf{if}\;(\left(x \cdot \varepsilon\right) \cdot \left((\left(x \cdot \varepsilon\right) \cdot \varepsilon + \varepsilon)_*\right) + \varepsilon)_* \le -1.059607752271381 \cdot 10^{-24}:\\
\;\;\;\;\frac{\cos x \cdot \left(\tan x + \tan \varepsilon\right) - \sin x \cdot \left(1 - \tan x \cdot \tan \varepsilon\right)}{\left(1 - \tan x \cdot \tan \varepsilon\right) \cdot \cos x}\\
\mathbf{elif}\;(\left(x \cdot \varepsilon\right) \cdot \left((\left(x \cdot \varepsilon\right) \cdot \varepsilon + \varepsilon)_*\right) + \varepsilon)_* \le 1.5630001627745174 \cdot 10^{-31}:\\
\;\;\;\;(\left(x \cdot \varepsilon\right) \cdot \left((\left(x \cdot \varepsilon\right) \cdot \varepsilon + \varepsilon)_*\right) + \varepsilon)_*\\
\mathbf{else}:\\
\;\;\;\;\frac{(\left((\left(\tan x \cdot \tan \varepsilon\right) \cdot \left(\tan x \cdot \tan \varepsilon\right) + \left(\tan x \cdot \tan \varepsilon\right))_*\right) \cdot \left(\tan x + \tan \varepsilon\right) + \left(\tan x + \tan \varepsilon\right))_*}{1 - {\left(\tan x \cdot \tan \varepsilon\right)}^{3}} - \tan x\\
\end{array}\]