- Split input into 3 regimes
if (/ (fma (/ (+ (tan eps) (tan x)) (- 1 (* (tan eps) (tan x)))) (/ (+ (tan eps) (tan x)) (- 1 (* (tan eps) (tan x)))) (* (- (tan x)) (tan x))) (+ (/ (+ (tan eps) (tan x)) (- 1 (* (tan eps) (tan x)))) (tan x))) < -2.2600720559677924e-13
Initial program 29.5
\[\tan \left(x + \varepsilon\right) - \tan x\]
- Using strategy
rm Applied tan-sum0.8
\[\leadsto \color{blue}{\frac{\tan x + \tan \varepsilon}{1 - \tan x \cdot \tan \varepsilon}} - \tan x\]
- Using strategy
rm Applied flip--0.9
\[\leadsto \frac{\tan x + \tan \varepsilon}{\color{blue}{\frac{1 \cdot 1 - \left(\tan x \cdot \tan \varepsilon\right) \cdot \left(\tan x \cdot \tan \varepsilon\right)}{1 + \tan x \cdot \tan \varepsilon}}} - \tan x\]
Applied associate-/r/0.9
\[\leadsto \color{blue}{\frac{\tan x + \tan \varepsilon}{1 \cdot 1 - \left(\tan x \cdot \tan \varepsilon\right) \cdot \left(\tan x \cdot \tan \varepsilon\right)} \cdot \left(1 + \tan x \cdot \tan \varepsilon\right)} - \tan x\]
Applied fma-neg0.9
\[\leadsto \color{blue}{(\left(\frac{\tan x + \tan \varepsilon}{1 \cdot 1 - \left(\tan x \cdot \tan \varepsilon\right) \cdot \left(\tan x \cdot \tan \varepsilon\right)}\right) \cdot \left(1 + \tan x \cdot \tan \varepsilon\right) + \left(-\tan x\right))_*}\]
- Using strategy
rm Applied add-cube-cbrt1.0
\[\leadsto (\left(\frac{\tan x + \tan \varepsilon}{1 \cdot 1 - \left(\tan x \cdot \tan \varepsilon\right) \cdot \left(\tan x \cdot \tan \varepsilon\right)}\right) \cdot \left(1 + \tan x \cdot \color{blue}{\left(\left(\sqrt[3]{\tan \varepsilon} \cdot \sqrt[3]{\tan \varepsilon}\right) \cdot \sqrt[3]{\tan \varepsilon}\right)}\right) + \left(-\tan x\right))_*\]
Applied associate-*r*1.0
\[\leadsto (\left(\frac{\tan x + \tan \varepsilon}{1 \cdot 1 - \left(\tan x \cdot \tan \varepsilon\right) \cdot \left(\tan x \cdot \tan \varepsilon\right)}\right) \cdot \left(1 + \color{blue}{\left(\tan x \cdot \left(\sqrt[3]{\tan \varepsilon} \cdot \sqrt[3]{\tan \varepsilon}\right)\right) \cdot \sqrt[3]{\tan \varepsilon}}\right) + \left(-\tan x\right))_*\]
if -2.2600720559677924e-13 < (/ (fma (/ (+ (tan eps) (tan x)) (- 1 (* (tan eps) (tan x)))) (/ (+ (tan eps) (tan x)) (- 1 (* (tan eps) (tan x)))) (* (- (tan x)) (tan x))) (+ (/ (+ (tan eps) (tan x)) (- 1 (* (tan eps) (tan x)))) (tan x))) < 4.571519807336895e-16
Initial program 44.8
\[\tan \left(x + \varepsilon\right) - \tan x\]
Taylor expanded around 0 29.1
\[\leadsto \color{blue}{\varepsilon + \left({\varepsilon}^{3} \cdot {x}^{2} + {\varepsilon}^{2} \cdot x\right)}\]
Applied simplify28.0
\[\leadsto \color{blue}{(\left(\varepsilon \cdot \varepsilon\right) \cdot \left((x \cdot \left(x \cdot \varepsilon\right) + x)_*\right) + \varepsilon)_*}\]
if 4.571519807336895e-16 < (/ (fma (/ (+ (tan eps) (tan x)) (- 1 (* (tan eps) (tan x)))) (/ (+ (tan eps) (tan x)) (- 1 (* (tan eps) (tan x)))) (* (- (tan x)) (tan x))) (+ (/ (+ (tan eps) (tan x)) (- 1 (* (tan eps) (tan x)))) (tan x)))
Initial program 29.6
\[\tan \left(x + \varepsilon\right) - \tan x\]
- Using strategy
rm Applied tan-quot29.4
\[\leadsto \tan \left(x + \varepsilon\right) - \color{blue}{\frac{\sin x}{\cos x}}\]
Applied tan-sum1.6
\[\leadsto \color{blue}{\frac{\tan x + \tan \varepsilon}{1 - \tan x \cdot \tan \varepsilon}} - \frac{\sin x}{\cos x}\]
Applied frac-sub1.6
\[\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}}\]
- Recombined 3 regimes into one program.
Applied simplify13.9
\[\leadsto \color{blue}{\begin{array}{l}
\mathbf{if}\;\frac{(\left(\frac{\tan x + \tan \varepsilon}{1 - \tan x \cdot \tan \varepsilon}\right) \cdot \left(\frac{\tan x + \tan \varepsilon}{1 - \tan x \cdot \tan \varepsilon}\right) + \left(\left(-\tan x\right) \cdot \tan x\right))_*}{\frac{\tan x + \tan \varepsilon}{1 - \tan x \cdot \tan \varepsilon} + \tan x} \le -2.2600720559677924 \cdot 10^{-13}:\\
\;\;\;\;(\left(\frac{\tan x + \tan \varepsilon}{1 - \left(\tan x \cdot \tan \varepsilon\right) \cdot \left(\tan x \cdot \tan \varepsilon\right)}\right) \cdot \left(\sqrt[3]{\tan \varepsilon} \cdot \left(\tan x \cdot \left(\sqrt[3]{\tan \varepsilon} \cdot \sqrt[3]{\tan \varepsilon}\right)\right) + 1\right) + \left(-\tan x\right))_*\\
\mathbf{if}\;\frac{(\left(\frac{\tan x + \tan \varepsilon}{1 - \tan x \cdot \tan \varepsilon}\right) \cdot \left(\frac{\tan x + \tan \varepsilon}{1 - \tan x \cdot \tan \varepsilon}\right) + \left(\left(-\tan x\right) \cdot \tan x\right))_*}{\frac{\tan x + \tan \varepsilon}{1 - \tan x \cdot \tan \varepsilon} + \tan x} \le 4.571519807336895 \cdot 10^{-16}:\\
\;\;\;\;(\left(\varepsilon \cdot \varepsilon\right) \cdot \left((x \cdot \left(\varepsilon \cdot x\right) + x)_*\right) + \varepsilon)_*\\
\mathbf{else}:\\
\;\;\;\;\frac{\cos x \cdot \left(\tan x + \tan \varepsilon\right) - \sin x \cdot \left(1 - \tan x \cdot \tan \varepsilon\right)}{\cos x \cdot \left(1 - \tan x \cdot \tan \varepsilon\right)}\\
\end{array}}\]