| Alternative 1 | |
|---|---|
| Accuracy | 99.5% |
| Cost | 58944 |
\[\frac{\sin x \cdot \frac{\tan \varepsilon}{\frac{1}{\tan x} - \tan \varepsilon}}{\cos x} + \frac{\frac{\sin \varepsilon}{\cos \varepsilon}}{1 - \tan \varepsilon \cdot \tan x}
\]
(FPCore (x eps) :precision binary64 (- (tan (+ x eps)) (tan x)))
(FPCore (x eps) :precision binary64 (+ (/ (tan eps) (- 1.0 (* (/ (sin eps) (cos eps)) (/ (sin x) (cos x))))) (/ (* (sin x) (/ (tan eps) (- (/ 1.0 (tan x)) (tan eps)))) (cos x))))
double code(double x, double eps) {
return tan((x + eps)) - tan(x);
}
double code(double x, double eps) {
return (tan(eps) / (1.0 - ((sin(eps) / cos(eps)) * (sin(x) / cos(x))))) + ((sin(x) * (tan(eps) / ((1.0 / tan(x)) - tan(eps)))) / cos(x));
}
real(8) function code(x, eps)
real(8), intent (in) :: x
real(8), intent (in) :: eps
code = tan((x + eps)) - tan(x)
end function
real(8) function code(x, eps)
real(8), intent (in) :: x
real(8), intent (in) :: eps
code = (tan(eps) / (1.0d0 - ((sin(eps) / cos(eps)) * (sin(x) / cos(x))))) + ((sin(x) * (tan(eps) / ((1.0d0 / tan(x)) - tan(eps)))) / cos(x))
end function
public static double code(double x, double eps) {
return Math.tan((x + eps)) - Math.tan(x);
}
public static double code(double x, double eps) {
return (Math.tan(eps) / (1.0 - ((Math.sin(eps) / Math.cos(eps)) * (Math.sin(x) / Math.cos(x))))) + ((Math.sin(x) * (Math.tan(eps) / ((1.0 / Math.tan(x)) - Math.tan(eps)))) / Math.cos(x));
}
def code(x, eps): return math.tan((x + eps)) - math.tan(x)
def code(x, eps): return (math.tan(eps) / (1.0 - ((math.sin(eps) / math.cos(eps)) * (math.sin(x) / math.cos(x))))) + ((math.sin(x) * (math.tan(eps) / ((1.0 / math.tan(x)) - math.tan(eps)))) / math.cos(x))
function code(x, eps) return Float64(tan(Float64(x + eps)) - tan(x)) end
function code(x, eps) return Float64(Float64(tan(eps) / Float64(1.0 - Float64(Float64(sin(eps) / cos(eps)) * Float64(sin(x) / cos(x))))) + Float64(Float64(sin(x) * Float64(tan(eps) / Float64(Float64(1.0 / tan(x)) - tan(eps)))) / cos(x))) end
function tmp = code(x, eps) tmp = tan((x + eps)) - tan(x); end
function tmp = code(x, eps) tmp = (tan(eps) / (1.0 - ((sin(eps) / cos(eps)) * (sin(x) / cos(x))))) + ((sin(x) * (tan(eps) / ((1.0 / tan(x)) - tan(eps)))) / cos(x)); end
code[x_, eps_] := N[(N[Tan[N[(x + eps), $MachinePrecision]], $MachinePrecision] - N[Tan[x], $MachinePrecision]), $MachinePrecision]
code[x_, eps_] := N[(N[(N[Tan[eps], $MachinePrecision] / N[(1.0 - N[(N[(N[Sin[eps], $MachinePrecision] / N[Cos[eps], $MachinePrecision]), $MachinePrecision] * N[(N[Sin[x], $MachinePrecision] / N[Cos[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[Sin[x], $MachinePrecision] * N[(N[Tan[eps], $MachinePrecision] / N[(N[(1.0 / N[Tan[x], $MachinePrecision]), $MachinePrecision] - N[Tan[eps], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[Cos[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\tan \left(x + \varepsilon\right) - \tan x
\frac{\tan \varepsilon}{1 - \frac{\sin \varepsilon}{\cos \varepsilon} \cdot \frac{\sin x}{\cos x}} + \frac{\sin x \cdot \frac{\tan \varepsilon}{\frac{1}{\tan x} - \tan \varepsilon}}{\cos x}
Results
| Original | 43.0% |
|---|---|
| Target | 76.2% |
| Herbie | 99.6% |
Initial program 43.0%
Applied egg-rr66.8%
[Start]43.0 | \[ \tan \left(x + \varepsilon\right) - \tan x
\] |
|---|---|
tan-sum [=>]66.8 | \[ \color{blue}{\frac{\tan x + \tan \varepsilon}{1 - \tan x \cdot \tan \varepsilon}} - \tan x
\] |
div-inv [=>]66.8 | \[ \color{blue}{\left(\tan x + \tan \varepsilon\right) \cdot \frac{1}{1 - \tan x \cdot \tan \varepsilon}} - \tan x
\] |
Simplified66.8%
[Start]66.8 | \[ \left(\tan x + \tan \varepsilon\right) \cdot \frac{1}{1 - \tan x \cdot \tan \varepsilon} - \tan x
\] |
|---|---|
*-commutative [<=]66.8 | \[ \color{blue}{\frac{1}{1 - \tan x \cdot \tan \varepsilon} \cdot \left(\tan x + \tan \varepsilon\right)} - \tan x
\] |
associate-*l/ [=>]66.8 | \[ \color{blue}{\frac{1 \cdot \left(\tan x + \tan \varepsilon\right)}{1 - \tan x \cdot \tan \varepsilon}} - \tan x
\] |
*-lft-identity [=>]66.8 | \[ \frac{\color{blue}{\tan x + \tan \varepsilon}}{1 - \tan x \cdot \tan \varepsilon} - \tan x
\] |
Taylor expanded in x around inf 66.6%
Simplified80.6%
[Start]66.6 | \[ \left(\frac{\sin \varepsilon}{\cos \varepsilon \cdot \left(1 - \frac{\sin x \cdot \sin \varepsilon}{\cos \varepsilon \cdot \cos x}\right)} + \frac{\sin x}{\cos x \cdot \left(1 - \frac{\sin x \cdot \sin \varepsilon}{\cos \varepsilon \cdot \cos x}\right)}\right) - \frac{\sin x}{\cos x}
\] |
|---|---|
associate--l+ [=>]80.6 | \[ \color{blue}{\frac{\sin \varepsilon}{\cos \varepsilon \cdot \left(1 - \frac{\sin x \cdot \sin \varepsilon}{\cos \varepsilon \cdot \cos x}\right)} + \left(\frac{\sin x}{\cos x \cdot \left(1 - \frac{\sin x \cdot \sin \varepsilon}{\cos \varepsilon \cdot \cos x}\right)} - \frac{\sin x}{\cos x}\right)}
\] |
associate-/r* [=>]80.6 | \[ \color{blue}{\frac{\frac{\sin \varepsilon}{\cos \varepsilon}}{1 - \frac{\sin x \cdot \sin \varepsilon}{\cos \varepsilon \cdot \cos x}}} + \left(\frac{\sin x}{\cos x \cdot \left(1 - \frac{\sin x \cdot \sin \varepsilon}{\cos \varepsilon \cdot \cos x}\right)} - \frac{\sin x}{\cos x}\right)
\] |
*-commutative [<=]80.6 | \[ \frac{\frac{\sin \varepsilon}{\cos \varepsilon}}{1 - \frac{\sin x \cdot \sin \varepsilon}{\color{blue}{\cos x \cdot \cos \varepsilon}}} + \left(\frac{\sin x}{\cos x \cdot \left(1 - \frac{\sin x \cdot \sin \varepsilon}{\cos \varepsilon \cdot \cos x}\right)} - \frac{\sin x}{\cos x}\right)
\] |
times-frac [=>]80.6 | \[ \frac{\frac{\sin \varepsilon}{\cos \varepsilon}}{1 - \color{blue}{\frac{\sin x}{\cos x} \cdot \frac{\sin \varepsilon}{\cos \varepsilon}}} + \left(\frac{\sin x}{\cos x \cdot \left(1 - \frac{\sin x \cdot \sin \varepsilon}{\cos \varepsilon \cdot \cos x}\right)} - \frac{\sin x}{\cos x}\right)
\] |
*-commutative [<=]80.6 | \[ \frac{\frac{\sin \varepsilon}{\cos \varepsilon}}{1 - \color{blue}{\frac{\sin \varepsilon}{\cos \varepsilon} \cdot \frac{\sin x}{\cos x}}} + \left(\frac{\sin x}{\cos x \cdot \left(1 - \frac{\sin x \cdot \sin \varepsilon}{\cos \varepsilon \cdot \cos x}\right)} - \frac{\sin x}{\cos x}\right)
\] |
Applied egg-rr94.8%
[Start]80.6 | \[ \frac{\frac{\sin \varepsilon}{\cos \varepsilon}}{1 - \frac{\sin \varepsilon}{\cos \varepsilon} \cdot \frac{\sin x}{\cos x}} + \left(\frac{\frac{\sin x}{\cos x}}{1 - \frac{\sin \varepsilon}{\cos \varepsilon} \cdot \frac{\sin x}{\cos x}} - \frac{\sin x}{\cos x}\right)
\] |
|---|---|
clear-num [=>]77.8 | \[ \frac{\frac{\sin \varepsilon}{\cos \varepsilon}}{1 - \frac{\sin \varepsilon}{\cos \varepsilon} \cdot \frac{\sin x}{\cos x}} + \left(\frac{\frac{\sin x}{\cos x}}{1 - \frac{\sin \varepsilon}{\cos \varepsilon} \cdot \frac{\sin x}{\cos x}} - \color{blue}{\frac{1}{\frac{\cos x}{\sin x}}}\right)
\] |
frac-sub [=>]77.9 | \[ \frac{\frac{\sin \varepsilon}{\cos \varepsilon}}{1 - \frac{\sin \varepsilon}{\cos \varepsilon} \cdot \frac{\sin x}{\cos x}} + \color{blue}{\frac{\frac{\sin x}{\cos x} \cdot \frac{\cos x}{\sin x} - \left(1 - \frac{\sin \varepsilon}{\cos \varepsilon} \cdot \frac{\sin x}{\cos x}\right) \cdot 1}{\left(1 - \frac{\sin \varepsilon}{\cos \varepsilon} \cdot \frac{\sin x}{\cos x}\right) \cdot \frac{\cos x}{\sin x}}}
\] |
clear-num [=>]77.9 | \[ \frac{\frac{\sin \varepsilon}{\cos \varepsilon}}{1 - \frac{\sin \varepsilon}{\cos \varepsilon} \cdot \frac{\sin x}{\cos x}} + \frac{\frac{\sin x}{\cos x} \cdot \frac{\cos x}{\sin x} - \left(1 - \frac{\sin \varepsilon}{\cos \varepsilon} \cdot \frac{\sin x}{\cos x}\right) \cdot 1}{\left(1 - \frac{\sin \varepsilon}{\cos \varepsilon} \cdot \frac{\sin x}{\cos x}\right) \cdot \color{blue}{\frac{1}{\frac{\sin x}{\cos x}}}}
\] |
div-inv [<=]77.9 | \[ \frac{\frac{\sin \varepsilon}{\cos \varepsilon}}{1 - \frac{\sin \varepsilon}{\cos \varepsilon} \cdot \frac{\sin x}{\cos x}} + \frac{\frac{\sin x}{\cos x} \cdot \frac{\cos x}{\sin x} - \left(1 - \frac{\sin \varepsilon}{\cos \varepsilon} \cdot \frac{\sin x}{\cos x}\right) \cdot 1}{\color{blue}{\frac{1 - \frac{\sin \varepsilon}{\cos \varepsilon} \cdot \frac{\sin x}{\cos x}}{\frac{\sin x}{\cos x}}}}
\] |
div-inv [=>]77.9 | \[ \frac{\frac{\sin \varepsilon}{\cos \varepsilon}}{1 - \frac{\sin \varepsilon}{\cos \varepsilon} \cdot \frac{\sin x}{\cos x}} + \frac{\frac{\sin x}{\cos x} \cdot \frac{\cos x}{\sin x} - \left(1 - \frac{\sin \varepsilon}{\cos \varepsilon} \cdot \frac{\sin x}{\cos x}\right) \cdot 1}{\frac{1 - \frac{\sin \varepsilon}{\cos \varepsilon} \cdot \frac{\sin x}{\cos x}}{\color{blue}{\sin x \cdot \frac{1}{\cos x}}}}
\] |
associate-/r* [=>]77.9 | \[ \frac{\frac{\sin \varepsilon}{\cos \varepsilon}}{1 - \frac{\sin \varepsilon}{\cos \varepsilon} \cdot \frac{\sin x}{\cos x}} + \frac{\frac{\sin x}{\cos x} \cdot \frac{\cos x}{\sin x} - \left(1 - \frac{\sin \varepsilon}{\cos \varepsilon} \cdot \frac{\sin x}{\cos x}\right) \cdot 1}{\color{blue}{\frac{\frac{1 - \frac{\sin \varepsilon}{\cos \varepsilon} \cdot \frac{\sin x}{\cos x}}{\sin x}}{\frac{1}{\cos x}}}}
\] |
Simplified99.5%
[Start]94.8 | \[ \frac{\frac{\sin \varepsilon}{\cos \varepsilon}}{1 - \frac{\sin \varepsilon}{\cos \varepsilon} \cdot \frac{\sin x}{\cos x}} + \frac{\left(\tan x \cdot \frac{1}{\tan x} - 1\right) + \tan x \cdot \tan \varepsilon}{\frac{1 - \tan x \cdot \tan \varepsilon}{\sin x}} \cdot \frac{1}{\cos x}
\] |
|---|---|
associate-*r/ [=>]94.9 | \[ \frac{\frac{\sin \varepsilon}{\cos \varepsilon}}{1 - \frac{\sin \varepsilon}{\cos \varepsilon} \cdot \frac{\sin x}{\cos x}} + \color{blue}{\frac{\frac{\left(\tan x \cdot \frac{1}{\tan x} - 1\right) + \tan x \cdot \tan \varepsilon}{\frac{1 - \tan x \cdot \tan \varepsilon}{\sin x}} \cdot 1}{\cos x}}
\] |
Applied egg-rr45.2%
[Start]99.5 | \[ \frac{\frac{\sin \varepsilon}{\cos \varepsilon}}{1 - \frac{\sin \varepsilon}{\cos \varepsilon} \cdot \frac{\sin x}{\cos x}} + \frac{\sin x \cdot \frac{\tan \varepsilon}{\frac{1}{\tan x} - \frac{\tan \varepsilon}{1}}}{\cos x}
\] |
|---|---|
expm1-log1p-u [=>]87.0 | \[ \frac{\color{blue}{\mathsf{expm1}\left(\mathsf{log1p}\left(\frac{\sin \varepsilon}{\cos \varepsilon}\right)\right)}}{1 - \frac{\sin \varepsilon}{\cos \varepsilon} \cdot \frac{\sin x}{\cos x}} + \frac{\sin x \cdot \frac{\tan \varepsilon}{\frac{1}{\tan x} - \frac{\tan \varepsilon}{1}}}{\cos x}
\] |
expm1-udef [=>]45.1 | \[ \frac{\color{blue}{e^{\mathsf{log1p}\left(\frac{\sin \varepsilon}{\cos \varepsilon}\right)} - 1}}{1 - \frac{\sin \varepsilon}{\cos \varepsilon} \cdot \frac{\sin x}{\cos x}} + \frac{\sin x \cdot \frac{\tan \varepsilon}{\frac{1}{\tan x} - \frac{\tan \varepsilon}{1}}}{\cos x}
\] |
quot-tan [=>]45.2 | \[ \frac{e^{\mathsf{log1p}\left(\color{blue}{\tan \varepsilon}\right)} - 1}{1 - \frac{\sin \varepsilon}{\cos \varepsilon} \cdot \frac{\sin x}{\cos x}} + \frac{\sin x \cdot \frac{\tan \varepsilon}{\frac{1}{\tan x} - \frac{\tan \varepsilon}{1}}}{\cos x}
\] |
Simplified99.6%
[Start]45.2 | \[ \frac{e^{\mathsf{log1p}\left(\tan \varepsilon\right)} - 1}{1 - \frac{\sin \varepsilon}{\cos \varepsilon} \cdot \frac{\sin x}{\cos x}} + \frac{\sin x \cdot \frac{\tan \varepsilon}{\frac{1}{\tan x} - \frac{\tan \varepsilon}{1}}}{\cos x}
\] |
|---|---|
expm1-def [=>]87.0 | \[ \frac{\color{blue}{\mathsf{expm1}\left(\mathsf{log1p}\left(\tan \varepsilon\right)\right)}}{1 - \frac{\sin \varepsilon}{\cos \varepsilon} \cdot \frac{\sin x}{\cos x}} + \frac{\sin x \cdot \frac{\tan \varepsilon}{\frac{1}{\tan x} - \frac{\tan \varepsilon}{1}}}{\cos x}
\] |
expm1-log1p [=>]99.6 | \[ \frac{\color{blue}{\tan \varepsilon}}{1 - \frac{\sin \varepsilon}{\cos \varepsilon} \cdot \frac{\sin x}{\cos x}} + \frac{\sin x \cdot \frac{\tan \varepsilon}{\frac{1}{\tan x} - \frac{\tan \varepsilon}{1}}}{\cos x}
\] |
Final simplification99.6%
| Alternative 1 | |
|---|---|
| Accuracy | 99.5% |
| Cost | 58944 |
| Alternative 2 | |
|---|---|
| Accuracy | 99.3% |
| Cost | 39305 |
| Alternative 3 | |
|---|---|
| Accuracy | 99.3% |
| Cost | 33096 |
| Alternative 4 | |
|---|---|
| Accuracy | 99.3% |
| Cost | 32969 |
| Alternative 5 | |
|---|---|
| Accuracy | 77.2% |
| Cost | 26440 |
| Alternative 6 | |
|---|---|
| Accuracy | 77.3% |
| Cost | 26440 |
| Alternative 7 | |
|---|---|
| Accuracy | 31.5% |
| Cost | 6464 |
| Alternative 8 | |
|---|---|
| Accuracy | 58.5% |
| Cost | 6464 |
| Alternative 9 | |
|---|---|
| Accuracy | 3.6% |
| Cost | 128 |
herbie shell --seed 2023135
(FPCore (x eps)
:name "2tan (problem 3.3.2)"
:precision binary64
:herbie-target
(/ (sin eps) (* (cos x) (cos (+ x eps))))
(- (tan (+ x eps)) (tan x)))