- Split input into 3 regimes
if (- eps (fma 1/2 (* eps (* x x)) (* (* 1/2 x) (* eps eps)))) < -2.0851602488011864e-45
Initial program 34.9
\[\sin \left(x + \varepsilon\right) - \sin x\]
- Using strategy
rm Applied sin-sum18.9
\[\leadsto \color{blue}{\left(\sin x \cdot \cos \varepsilon + \cos x \cdot \sin \varepsilon\right)} - \sin x\]
- Using strategy
rm Applied expm1-log1p-u19.0
\[\leadsto \left(\color{blue}{(e^{\log_* (1 + \sin x \cdot \cos \varepsilon)} - 1)^*} + \cos x \cdot \sin \varepsilon\right) - \sin x\]
- Using strategy
rm Applied add-log-exp19.2
\[\leadsto \left((e^{\color{blue}{\log \left(e^{\log_* (1 + \sin x \cdot \cos \varepsilon)}\right)}} - 1)^* + \cos x \cdot \sin \varepsilon\right) - \sin x\]
if -2.0851602488011864e-45 < (- eps (fma 1/2 (* eps (* x x)) (* (* 1/2 x) (* eps eps)))) < 1.1136541482848599e-08
Initial program 36.1
\[\sin \left(x + \varepsilon\right) - \sin x\]
Taylor expanded around 0 11.2
\[\leadsto \color{blue}{\varepsilon - \left(\frac{1}{2} \cdot \left(\varepsilon \cdot {x}^{2}\right) + \frac{1}{2} \cdot \left({\varepsilon}^{2} \cdot x\right)\right)}\]
Simplified11.2
\[\leadsto \color{blue}{\varepsilon - (\frac{1}{2} \cdot \left(\varepsilon \cdot \left(x \cdot x\right)\right) + \left(\left(\frac{1}{2} \cdot x\right) \cdot \left(\varepsilon \cdot \varepsilon\right)\right))_*}\]
if 1.1136541482848599e-08 < (- eps (fma 1/2 (* eps (* x x)) (* (* 1/2 x) (* eps eps))))
Initial program 40.2
\[\sin \left(x + \varepsilon\right) - \sin x\]
- Using strategy
rm Applied sin-sum14.5
\[\leadsto \color{blue}{\left(\sin x \cdot \cos \varepsilon + \cos x \cdot \sin \varepsilon\right)} - \sin x\]
- Using strategy
rm Applied flip--14.7
\[\leadsto \color{blue}{\frac{\left(\sin x \cdot \cos \varepsilon + \cos x \cdot \sin \varepsilon\right) \cdot \left(\sin x \cdot \cos \varepsilon + \cos x \cdot \sin \varepsilon\right) - \sin x \cdot \sin x}{\left(\sin x \cdot \cos \varepsilon + \cos x \cdot \sin \varepsilon\right) + \sin x}}\]
- Recombined 3 regimes into one program.
Final simplification15.2
\[\leadsto \begin{array}{l}
\mathbf{if}\;\varepsilon - (\frac{1}{2} \cdot \left(\left(x \cdot x\right) \cdot \varepsilon\right) + \left(\left(\varepsilon \cdot \varepsilon\right) \cdot \left(x \cdot \frac{1}{2}\right)\right))_* \le -2.0851602488011864 \cdot 10^{-45}:\\
\;\;\;\;\left(\cos x \cdot \sin \varepsilon + (e^{\log \left(e^{\log_* (1 + \cos \varepsilon \cdot \sin x)}\right)} - 1)^*\right) - \sin x\\
\mathbf{elif}\;\varepsilon - (\frac{1}{2} \cdot \left(\left(x \cdot x\right) \cdot \varepsilon\right) + \left(\left(\varepsilon \cdot \varepsilon\right) \cdot \left(x \cdot \frac{1}{2}\right)\right))_* \le 1.1136541482848599 \cdot 10^{-08}:\\
\;\;\;\;\varepsilon - (\frac{1}{2} \cdot \left(\left(x \cdot x\right) \cdot \varepsilon\right) + \left(\left(\varepsilon \cdot \varepsilon\right) \cdot \left(x \cdot \frac{1}{2}\right)\right))_*\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(\cos x \cdot \sin \varepsilon + \cos \varepsilon \cdot \sin x\right) \cdot \left(\cos x \cdot \sin \varepsilon + \cos \varepsilon \cdot \sin x\right) - \sin x \cdot \sin x}{\left(\cos x \cdot \sin \varepsilon + \cos \varepsilon \cdot \sin x\right) + \sin x}\\
\end{array}\]