Average Error: 39.9 → 0.9
Time: 1.3m
Precision: 64
Internal precision: 2176
\[\cos \left(x + \varepsilon\right) - \cos x\]
⬇
\[\begin{array}{l}
\mathbf{if}\;\varepsilon \le -1.3331382704773037 \cdot 10^{-08}:\\
\;\;\;\;\cos x \cdot \cos \varepsilon - \left(\sin x \cdot \sin \varepsilon + \cos x\right)\\
\mathbf{if}\;\varepsilon \le 8.172994376936087:\\
\;\;\;\;-2 \cdot \left(\sin \left(\frac{\varepsilon}{2}\right) \cdot \sin \left(\frac{\varepsilon + \left(x + x\right)}{2}\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\left(\cos x \cdot \cos \varepsilon - \sin x \cdot \sin \varepsilon\right) - \cos x\\
\end{array}\]
Derivation
- Split input into 3 regimes.
-
if eps < -1.3331382704773037e-08
Initial program 31.1
\[\cos \left(x + \varepsilon\right) - \cos x\]
- Using strategy
rm
Applied cos-sum 1.2
\[\leadsto \color{blue}{\left(\cos x \cdot \cos \varepsilon - \sin x \cdot \sin \varepsilon\right)} - \cos x\]
Applied associate--l- 1.2
\[\leadsto \color{blue}{\cos x \cdot \cos \varepsilon - \left(\sin x \cdot \sin \varepsilon + \cos x\right)}\]
if -1.3331382704773037e-08 < eps < 8.172994376936087
Initial program 49.6
\[\cos \left(x + \varepsilon\right) - \cos x\]
- Using strategy
rm
Applied diff-cos 37.5
\[\leadsto \color{blue}{-2 \cdot \left(\sin \left(\frac{\left(x + \varepsilon\right) - x}{2}\right) \cdot \sin \left(\frac{\left(x + \varepsilon\right) + x}{2}\right)\right)}\]
Applied simplify 0.7
\[\leadsto -2 \cdot \color{blue}{\left(\sin \left(\frac{\varepsilon}{2}\right) \cdot \sin \left(\frac{\varepsilon + \left(x + x\right)}{2}\right)\right)}\]
if 8.172994376936087 < eps
Initial program 30.0
\[\cos \left(x + \varepsilon\right) - \cos x\]
- Using strategy
rm
Applied cos-sum 0.8
\[\leadsto \color{blue}{\left(\cos x \cdot \cos \varepsilon - \sin x \cdot \sin \varepsilon\right)} - \cos x\]
- Recombined 3 regimes into one program.
- Removed slow pow expressions
Runtime
Please include this information when filing a bug report:
herbie shell --seed '#(1068028399 4028058041 2917032441 2563479541 765645300 1132738916)'
(FPCore (x eps)
:name "2cos (problem 3.3.5)"
(- (cos (+ x eps)) (cos x)))