Average Error: 39.7 → 0.7
Time: 26.3s
Precision: 64
Internal precision: 2176
\[\cos \left(x + \varepsilon\right) - \cos x\]
⬇
\[\begin{array}{l}
\mathbf{if}\;\varepsilon \le -4.010384934750878 \cdot 10^{-06}:\\
\;\;\;\;\cos x \cdot \cos \varepsilon - \left(\sin x \cdot \sin \varepsilon + \cos x\right)\\
\mathbf{if}\;\varepsilon \le 0.03247694658073154:\\
\;\;\;\;-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 < -4.010384934750878e-06
Initial program 29.5
\[\cos \left(x + \varepsilon\right) - \cos x\]
- Using strategy
rm
Applied cos-sum 0.9
\[\leadsto \color{blue}{\left(\cos x \cdot \cos \varepsilon - \sin x \cdot \sin \varepsilon\right)} - \cos x\]
Applied associate--l- 1.0
\[\leadsto \color{blue}{\cos x \cdot \cos \varepsilon - \left(\sin x \cdot \sin \varepsilon + \cos x\right)}\]
if -4.010384934750878e-06 < eps < 0.03247694658073154
Initial program 49.3
\[\cos \left(x + \varepsilon\right) - \cos x\]
- Using strategy
rm
Applied diff-cos 37.6
\[\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.6
\[\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 0.03247694658073154 < eps
Initial program 30.9
\[\cos \left(x + \varepsilon\right) - \cos x\]
- Using strategy
rm
Applied cos-sum 0.9
\[\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 '#(1066785882 2324371342 4059510649 1466361199 2701357084 1216585281)'
(FPCore (x eps)
:name "2cos (problem 3.3.5)"
(- (cos (+ x eps)) (cos x)))