| Alternative 1 | |
|---|---|
| Accuracy | 99.1% |
| Cost | 32841 |
(FPCore (x eps) :precision binary64 (- (cos (+ x eps)) (cos x)))
(FPCore (x eps) :precision binary64 (* (sin (/ eps 2.0)) (* (- (* (cos (* eps 0.5)) (sin x)) (* (sin (* eps -0.5)) (cos x))) -2.0)))
double code(double x, double eps) {
return cos((x + eps)) - cos(x);
}
double code(double x, double eps) {
return sin((eps / 2.0)) * (((cos((eps * 0.5)) * sin(x)) - (sin((eps * -0.5)) * cos(x))) * -2.0);
}
real(8) function code(x, eps)
real(8), intent (in) :: x
real(8), intent (in) :: eps
code = cos((x + eps)) - cos(x)
end function
real(8) function code(x, eps)
real(8), intent (in) :: x
real(8), intent (in) :: eps
code = sin((eps / 2.0d0)) * (((cos((eps * 0.5d0)) * sin(x)) - (sin((eps * (-0.5d0))) * cos(x))) * (-2.0d0))
end function
public static double code(double x, double eps) {
return Math.cos((x + eps)) - Math.cos(x);
}
public static double code(double x, double eps) {
return Math.sin((eps / 2.0)) * (((Math.cos((eps * 0.5)) * Math.sin(x)) - (Math.sin((eps * -0.5)) * Math.cos(x))) * -2.0);
}
def code(x, eps): return math.cos((x + eps)) - math.cos(x)
def code(x, eps): return math.sin((eps / 2.0)) * (((math.cos((eps * 0.5)) * math.sin(x)) - (math.sin((eps * -0.5)) * math.cos(x))) * -2.0)
function code(x, eps) return Float64(cos(Float64(x + eps)) - cos(x)) end
function code(x, eps) return Float64(sin(Float64(eps / 2.0)) * Float64(Float64(Float64(cos(Float64(eps * 0.5)) * sin(x)) - Float64(sin(Float64(eps * -0.5)) * cos(x))) * -2.0)) end
function tmp = code(x, eps) tmp = cos((x + eps)) - cos(x); end
function tmp = code(x, eps) tmp = sin((eps / 2.0)) * (((cos((eps * 0.5)) * sin(x)) - (sin((eps * -0.5)) * cos(x))) * -2.0); end
code[x_, eps_] := N[(N[Cos[N[(x + eps), $MachinePrecision]], $MachinePrecision] - N[Cos[x], $MachinePrecision]), $MachinePrecision]
code[x_, eps_] := N[(N[Sin[N[(eps / 2.0), $MachinePrecision]], $MachinePrecision] * N[(N[(N[(N[Cos[N[(eps * 0.5), $MachinePrecision]], $MachinePrecision] * N[Sin[x], $MachinePrecision]), $MachinePrecision] - N[(N[Sin[N[(eps * -0.5), $MachinePrecision]], $MachinePrecision] * N[Cos[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * -2.0), $MachinePrecision]), $MachinePrecision]
\cos \left(x + \varepsilon\right) - \cos x
\sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(\cos \left(\varepsilon \cdot 0.5\right) \cdot \sin x - \sin \left(\varepsilon \cdot -0.5\right) \cdot \cos x\right) \cdot -2\right)
Results
Initial program 36.1%
Applied egg-rr21.6%
[Start]36.1 | \[ \cos \left(x + \varepsilon\right) - \cos x
\] |
|---|---|
add-sqr-sqrt [=>]21.8 | \[ \color{blue}{\sqrt{\cos \left(x + \varepsilon\right)} \cdot \sqrt{\cos \left(x + \varepsilon\right)}} - \cos x
\] |
fma-neg [=>]21.6 | \[ \color{blue}{\mathsf{fma}\left(\sqrt{\cos \left(x + \varepsilon\right)}, \sqrt{\cos \left(x + \varepsilon\right)}, -\cos x\right)}
\] |
Applied egg-rr43.5%
[Start]21.6 | \[ \mathsf{fma}\left(\sqrt{\cos \left(x + \varepsilon\right)}, \sqrt{\cos \left(x + \varepsilon\right)}, -\cos x\right)
\] |
|---|---|
fma-udef [=>]21.8 | \[ \color{blue}{\sqrt{\cos \left(x + \varepsilon\right)} \cdot \sqrt{\cos \left(x + \varepsilon\right)} + \left(-\cos x\right)}
\] |
add-sqr-sqrt [<=]36.1 | \[ \color{blue}{\cos \left(x + \varepsilon\right)} + \left(-\cos x\right)
\] |
unsub-neg [=>]36.1 | \[ \color{blue}{\cos \left(x + \varepsilon\right) - \cos x}
\] |
diff-cos [=>]43.5 | \[ \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)}
\] |
Simplified76.8%
[Start]43.5 | \[ -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)
\] |
|---|---|
*-commutative [=>]43.5 | \[ \color{blue}{\left(\sin \left(\frac{\left(x + \varepsilon\right) - x}{2}\right) \cdot \sin \left(\frac{\left(x + \varepsilon\right) + x}{2}\right)\right) \cdot -2}
\] |
associate-*l* [=>]43.5 | \[ \color{blue}{\sin \left(\frac{\left(x + \varepsilon\right) - x}{2}\right) \cdot \left(\sin \left(\frac{\left(x + \varepsilon\right) + x}{2}\right) \cdot -2\right)}
\] |
+-commutative [<=]43.5 | \[ \sin \left(\frac{\color{blue}{\left(\varepsilon + x\right)} - x}{2}\right) \cdot \left(\sin \left(\frac{\left(x + \varepsilon\right) + x}{2}\right) \cdot -2\right)
\] |
associate--l+ [=>]76.8 | \[ \sin \left(\frac{\color{blue}{\varepsilon + \left(x - x\right)}}{2}\right) \cdot \left(\sin \left(\frac{\left(x + \varepsilon\right) + x}{2}\right) \cdot -2\right)
\] |
+-inverses [=>]76.8 | \[ \sin \left(\frac{\varepsilon + \color{blue}{0}}{2}\right) \cdot \left(\sin \left(\frac{\left(x + \varepsilon\right) + x}{2}\right) \cdot -2\right)
\] |
+-rgt-identity [=>]76.8 | \[ \sin \left(\frac{\color{blue}{\varepsilon}}{2}\right) \cdot \left(\sin \left(\frac{\left(x + \varepsilon\right) + x}{2}\right) \cdot -2\right)
\] |
+-commutative [<=]76.8 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\sin \left(\frac{\color{blue}{\left(\varepsilon + x\right)} + x}{2}\right) \cdot -2\right)
\] |
associate-+l+ [=>]76.8 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\sin \left(\frac{\color{blue}{\varepsilon + \left(x + x\right)}}{2}\right) \cdot -2\right)
\] |
Applied egg-rr76.8%
[Start]76.8 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\sin \left(\frac{\varepsilon + \left(x + x\right)}{2}\right) \cdot -2\right)
\] |
|---|---|
frac-2neg [=>]76.8 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\sin \color{blue}{\left(\frac{-\left(\varepsilon + \left(x + x\right)\right)}{-2}\right)} \cdot -2\right)
\] |
metadata-eval [=>]76.8 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\sin \left(\frac{-\left(\varepsilon + \left(x + x\right)\right)}{\color{blue}{-2}}\right) \cdot -2\right)
\] |
distribute-frac-neg [=>]76.8 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\sin \color{blue}{\left(-\frac{\varepsilon + \left(x + x\right)}{-2}\right)} \cdot -2\right)
\] |
sin-neg [=>]76.8 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\color{blue}{\left(-\sin \left(\frac{\varepsilon + \left(x + x\right)}{-2}\right)\right)} \cdot -2\right)
\] |
+-commutative [=>]76.8 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\sin \left(\frac{\color{blue}{\left(x + x\right) + \varepsilon}}{-2}\right)\right) \cdot -2\right)
\] |
count-2 [=>]76.8 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\sin \left(\frac{\color{blue}{2 \cdot x} + \varepsilon}{-2}\right)\right) \cdot -2\right)
\] |
*-commutative [=>]76.8 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\sin \left(\frac{\color{blue}{x \cdot 2} + \varepsilon}{-2}\right)\right) \cdot -2\right)
\] |
fma-def [=>]76.8 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\sin \left(\frac{\color{blue}{\mathsf{fma}\left(x, 2, \varepsilon\right)}}{-2}\right)\right) \cdot -2\right)
\] |
Simplified76.8%
[Start]76.8 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\sin \left(\frac{\mathsf{fma}\left(x, 2, \varepsilon\right)}{-2}\right)\right) \cdot -2\right)
\] |
|---|---|
fma-udef [=>]76.8 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\sin \left(\frac{\color{blue}{x \cdot 2 + \varepsilon}}{-2}\right)\right) \cdot -2\right)
\] |
*-commutative [<=]76.8 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\sin \left(\frac{\color{blue}{2 \cdot x} + \varepsilon}{-2}\right)\right) \cdot -2\right)
\] |
+-commutative [<=]76.8 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\sin \left(\frac{\color{blue}{\varepsilon + 2 \cdot x}}{-2}\right)\right) \cdot -2\right)
\] |
metadata-eval [<=]76.8 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\sin \left(\frac{\varepsilon + \color{blue}{\left(--2\right)} \cdot x}{-2}\right)\right) \cdot -2\right)
\] |
cancel-sign-sub-inv [<=]76.8 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\sin \left(\frac{\color{blue}{\varepsilon - -2 \cdot x}}{-2}\right)\right) \cdot -2\right)
\] |
div-sub [=>]76.8 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\sin \color{blue}{\left(\frac{\varepsilon}{-2} - \frac{-2 \cdot x}{-2}\right)}\right) \cdot -2\right)
\] |
*-commutative [=>]76.8 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\sin \left(\frac{\varepsilon}{-2} - \frac{\color{blue}{x \cdot -2}}{-2}\right)\right) \cdot -2\right)
\] |
associate-/l* [=>]76.8 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\sin \left(\frac{\varepsilon}{-2} - \color{blue}{\frac{x}{\frac{-2}{-2}}}\right)\right) \cdot -2\right)
\] |
metadata-eval [=>]76.8 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\sin \left(\frac{\varepsilon}{-2} - \frac{x}{\color{blue}{1}}\right)\right) \cdot -2\right)
\] |
/-rgt-identity [=>]76.8 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\sin \left(\frac{\varepsilon}{-2} - \color{blue}{x}\right)\right) \cdot -2\right)
\] |
Applied egg-rr99.5%
[Start]76.8 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\sin \left(\frac{\varepsilon}{-2} - x\right)\right) \cdot -2\right)
\] |
|---|---|
sin-diff [=>]99.5 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\color{blue}{\left(\sin \left(\frac{\varepsilon}{-2}\right) \cdot \cos x - \cos \left(\frac{\varepsilon}{-2}\right) \cdot \sin x\right)}\right) \cdot -2\right)
\] |
sub-neg [=>]99.5 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\color{blue}{\left(\sin \left(\frac{\varepsilon}{-2}\right) \cdot \cos x + \left(-\cos \left(\frac{\varepsilon}{-2}\right) \cdot \sin x\right)\right)}\right) \cdot -2\right)
\] |
clear-num [=>]93.5 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\left(\sin \color{blue}{\left(\frac{1}{\frac{-2}{\varepsilon}}\right)} \cdot \cos x + \left(-\cos \left(\frac{\varepsilon}{-2}\right) \cdot \sin x\right)\right)\right) \cdot -2\right)
\] |
associate-/r/ [=>]99.5 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\left(\sin \color{blue}{\left(\frac{1}{-2} \cdot \varepsilon\right)} \cdot \cos x + \left(-\cos \left(\frac{\varepsilon}{-2}\right) \cdot \sin x\right)\right)\right) \cdot -2\right)
\] |
metadata-eval [=>]99.5 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\left(\sin \left(\color{blue}{-0.5} \cdot \varepsilon\right) \cdot \cos x + \left(-\cos \left(\frac{\varepsilon}{-2}\right) \cdot \sin x\right)\right)\right) \cdot -2\right)
\] |
clear-num [=>]97.0 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\left(\sin \left(-0.5 \cdot \varepsilon\right) \cdot \cos x + \left(-\cos \color{blue}{\left(\frac{1}{\frac{-2}{\varepsilon}}\right)} \cdot \sin x\right)\right)\right) \cdot -2\right)
\] |
associate-/r/ [=>]99.5 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\left(\sin \left(-0.5 \cdot \varepsilon\right) \cdot \cos x + \left(-\cos \color{blue}{\left(\frac{1}{-2} \cdot \varepsilon\right)} \cdot \sin x\right)\right)\right) \cdot -2\right)
\] |
metadata-eval [=>]99.5 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\left(\sin \left(-0.5 \cdot \varepsilon\right) \cdot \cos x + \left(-\cos \left(\color{blue}{-0.5} \cdot \varepsilon\right) \cdot \sin x\right)\right)\right) \cdot -2\right)
\] |
Simplified99.5%
[Start]99.5 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\left(\sin \left(-0.5 \cdot \varepsilon\right) \cdot \cos x + \left(-\cos \left(-0.5 \cdot \varepsilon\right) \cdot \sin x\right)\right)\right) \cdot -2\right)
\] |
|---|---|
sub-neg [<=]99.5 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\color{blue}{\left(\sin \left(-0.5 \cdot \varepsilon\right) \cdot \cos x - \cos \left(-0.5 \cdot \varepsilon\right) \cdot \sin x\right)}\right) \cdot -2\right)
\] |
*-rgt-identity [<=]99.5 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\left(\sin \left(-0.5 \cdot \varepsilon\right) \cdot \cos x - \color{blue}{\left(\cos \left(-0.5 \cdot \varepsilon\right) \cdot \sin x\right) \cdot 1}\right)\right) \cdot -2\right)
\] |
*-rgt-identity [=>]99.5 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\left(\sin \left(-0.5 \cdot \varepsilon\right) \cdot \cos x - \color{blue}{\cos \left(-0.5 \cdot \varepsilon\right) \cdot \sin x}\right)\right) \cdot -2\right)
\] |
metadata-eval [<=]99.5 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\left(\sin \left(-0.5 \cdot \varepsilon\right) \cdot \cos x - \cos \left(\color{blue}{\left(-0.5\right)} \cdot \varepsilon\right) \cdot \sin x\right)\right) \cdot -2\right)
\] |
distribute-lft-neg-in [<=]99.5 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\left(\sin \left(-0.5 \cdot \varepsilon\right) \cdot \cos x - \cos \color{blue}{\left(-0.5 \cdot \varepsilon\right)} \cdot \sin x\right)\right) \cdot -2\right)
\] |
cos-neg [=>]99.5 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\left(\sin \left(-0.5 \cdot \varepsilon\right) \cdot \cos x - \color{blue}{\cos \left(0.5 \cdot \varepsilon\right)} \cdot \sin x\right)\right) \cdot -2\right)
\] |
*-commutative [=>]99.5 | \[ \sin \left(\frac{\varepsilon}{2}\right) \cdot \left(\left(-\left(\sin \left(-0.5 \cdot \varepsilon\right) \cdot \cos x - \cos \color{blue}{\left(\varepsilon \cdot 0.5\right)} \cdot \sin x\right)\right) \cdot -2\right)
\] |
Final simplification99.5%
| Alternative 1 | |
|---|---|
| Accuracy | 99.1% |
| Cost | 32841 |
| Alternative 2 | |
|---|---|
| Accuracy | 99.1% |
| Cost | 32840 |
| Alternative 3 | |
|---|---|
| Accuracy | 76.3% |
| Cost | 13641 |
| Alternative 4 | |
|---|---|
| Accuracy | 75.7% |
| Cost | 13504 |
| Alternative 5 | |
|---|---|
| Accuracy | 76.1% |
| Cost | 13257 |
| Alternative 6 | |
|---|---|
| Accuracy | 75.4% |
| Cost | 7241 |
| Alternative 7 | |
|---|---|
| Accuracy | 65.3% |
| Cost | 7052 |
| Alternative 8 | |
|---|---|
| Accuracy | 46.8% |
| Cost | 6857 |
| Alternative 9 | |
|---|---|
| Accuracy | 20.5% |
| Cost | 320 |
| Alternative 10 | |
|---|---|
| Accuracy | 12.3% |
| Cost | 64 |
herbie shell --seed 2023157
(FPCore (x eps)
:name "2cos (problem 3.3.5)"
:precision binary64
(- (cos (+ x eps)) (cos x)))