
(FPCore (x) :precision binary64 (let* ((t_0 (* (tan x) (tan x)))) (/ (- 1.0 t_0) (+ 1.0 t_0))))
double code(double x) {
double t_0 = tan(x) * tan(x);
return (1.0 - t_0) / (1.0 + t_0);
}
real(8) function code(x)
real(8), intent (in) :: x
real(8) :: t_0
t_0 = tan(x) * tan(x)
code = (1.0d0 - t_0) / (1.0d0 + t_0)
end function
public static double code(double x) {
double t_0 = Math.tan(x) * Math.tan(x);
return (1.0 - t_0) / (1.0 + t_0);
}
def code(x): t_0 = math.tan(x) * math.tan(x) return (1.0 - t_0) / (1.0 + t_0)
function code(x) t_0 = Float64(tan(x) * tan(x)) return Float64(Float64(1.0 - t_0) / Float64(1.0 + t_0)) end
function tmp = code(x) t_0 = tan(x) * tan(x); tmp = (1.0 - t_0) / (1.0 + t_0); end
code[x_] := Block[{t$95$0 = N[(N[Tan[x], $MachinePrecision] * N[Tan[x], $MachinePrecision]), $MachinePrecision]}, N[(N[(1.0 - t$95$0), $MachinePrecision] / N[(1.0 + t$95$0), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \tan x \cdot \tan x\\
\frac{1 - t\_0}{1 + t\_0}
\end{array}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 5 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x) :precision binary64 (let* ((t_0 (* (tan x) (tan x)))) (/ (- 1.0 t_0) (+ 1.0 t_0))))
double code(double x) {
double t_0 = tan(x) * tan(x);
return (1.0 - t_0) / (1.0 + t_0);
}
real(8) function code(x)
real(8), intent (in) :: x
real(8) :: t_0
t_0 = tan(x) * tan(x)
code = (1.0d0 - t_0) / (1.0d0 + t_0)
end function
public static double code(double x) {
double t_0 = Math.tan(x) * Math.tan(x);
return (1.0 - t_0) / (1.0 + t_0);
}
def code(x): t_0 = math.tan(x) * math.tan(x) return (1.0 - t_0) / (1.0 + t_0)
function code(x) t_0 = Float64(tan(x) * tan(x)) return Float64(Float64(1.0 - t_0) / Float64(1.0 + t_0)) end
function tmp = code(x) t_0 = tan(x) * tan(x); tmp = (1.0 - t_0) / (1.0 + t_0); end
code[x_] := Block[{t$95$0 = N[(N[Tan[x], $MachinePrecision] * N[Tan[x], $MachinePrecision]), $MachinePrecision]}, N[(N[(1.0 - t$95$0), $MachinePrecision] / N[(1.0 + t$95$0), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \tan x \cdot \tan x\\
\frac{1 - t\_0}{1 + t\_0}
\end{array}
\end{array}
(FPCore (x) :precision binary64 (/ (fma (tan x) (tan x) -1.0) (fma (tan x) (- (tan x)) -1.0)))
double code(double x) {
return fma(tan(x), tan(x), -1.0) / fma(tan(x), -tan(x), -1.0);
}
function code(x) return Float64(fma(tan(x), tan(x), -1.0) / fma(tan(x), Float64(-tan(x)), -1.0)) end
code[x_] := N[(N[(N[Tan[x], $MachinePrecision] * N[Tan[x], $MachinePrecision] + -1.0), $MachinePrecision] / N[(N[Tan[x], $MachinePrecision] * (-N[Tan[x], $MachinePrecision]) + -1.0), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\mathsf{fma}\left(\tan x, \tan x, -1\right)}{\mathsf{fma}\left(\tan x, -\tan x, -1\right)}
\end{array}
Initial program 99.5%
div-sub99.3%
sqr-neg99.3%
tan-neg99.3%
tan-neg99.3%
div-sub99.5%
sqr-neg99.5%
tan-neg99.5%
tan-neg99.5%
div-sub99.3%
sub-neg99.3%
+-commutative99.3%
Simplified99.6%
(FPCore (x) :precision binary64 (let* ((t_0 (pow (tan x) 2.0))) (/ (- 1.0 t_0) (+ 1.0 t_0))))
double code(double x) {
double t_0 = pow(tan(x), 2.0);
return (1.0 - t_0) / (1.0 + t_0);
}
real(8) function code(x)
real(8), intent (in) :: x
real(8) :: t_0
t_0 = tan(x) ** 2.0d0
code = (1.0d0 - t_0) / (1.0d0 + t_0)
end function
public static double code(double x) {
double t_0 = Math.pow(Math.tan(x), 2.0);
return (1.0 - t_0) / (1.0 + t_0);
}
def code(x): t_0 = math.pow(math.tan(x), 2.0) return (1.0 - t_0) / (1.0 + t_0)
function code(x) t_0 = tan(x) ^ 2.0 return Float64(Float64(1.0 - t_0) / Float64(1.0 + t_0)) end
function tmp = code(x) t_0 = tan(x) ^ 2.0; tmp = (1.0 - t_0) / (1.0 + t_0); end
code[x_] := Block[{t$95$0 = N[Power[N[Tan[x], $MachinePrecision], 2.0], $MachinePrecision]}, N[(N[(1.0 - t$95$0), $MachinePrecision] / N[(1.0 + t$95$0), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := {\tan x}^{2}\\
\frac{1 - t\_0}{1 + t\_0}
\end{array}
\end{array}
Initial program 99.5%
Applied egg-rr99.5%
unpow299.5%
Simplified99.5%
pow299.5%
+-commutative99.5%
Applied egg-rr99.5%
Final simplification99.5%
(FPCore (x) :precision binary64 (+ -1.0 (/ 2.0 (+ 1.0 (pow (tan x) 2.0)))))
double code(double x) {
return -1.0 + (2.0 / (1.0 + pow(tan(x), 2.0)));
}
real(8) function code(x)
real(8), intent (in) :: x
code = (-1.0d0) + (2.0d0 / (1.0d0 + (tan(x) ** 2.0d0)))
end function
public static double code(double x) {
return -1.0 + (2.0 / (1.0 + Math.pow(Math.tan(x), 2.0)));
}
def code(x): return -1.0 + (2.0 / (1.0 + math.pow(math.tan(x), 2.0)))
function code(x) return Float64(-1.0 + Float64(2.0 / Float64(1.0 + (tan(x) ^ 2.0)))) end
function tmp = code(x) tmp = -1.0 + (2.0 / (1.0 + (tan(x) ^ 2.0))); end
code[x_] := N[(-1.0 + N[(2.0 / N[(1.0 + N[Power[N[Tan[x], $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
-1 + \frac{2}{1 + {\tan x}^{2}}
\end{array}
Initial program 99.5%
Applied egg-rr99.5%
unpow299.5%
Simplified99.5%
pow299.5%
+-commutative99.5%
Applied egg-rr99.5%
expm1-log1p-u79.2%
expm1-undefine79.2%
Applied egg-rr79.2%
sub-neg79.2%
metadata-eval79.2%
+-commutative79.2%
log1p-undefine79.2%
rem-exp-log99.4%
associate-+r-99.4%
metadata-eval99.4%
Simplified99.4%
associate-+r-99.5%
metadata-eval99.5%
div-sub99.3%
add-exp-log99.3%
+-commutative99.3%
log1p-define99.3%
rec-exp99.3%
+-commutative99.3%
Applied egg-rr99.3%
exp-neg99.3%
log1p-undefine99.3%
rem-exp-log99.3%
*-rgt-identity99.3%
*-rgt-identity99.3%
div-sub99.5%
*-rgt-identity99.5%
metadata-eval99.5%
associate--r+99.4%
div-sub99.3%
sub-neg99.3%
*-inverses99.3%
metadata-eval99.3%
Simplified99.3%
Final simplification99.3%
(FPCore (x) :precision binary64 (/ 1.0 (+ 1.0 (pow (tan x) 2.0))))
double code(double x) {
return 1.0 / (1.0 + pow(tan(x), 2.0));
}
real(8) function code(x)
real(8), intent (in) :: x
code = 1.0d0 / (1.0d0 + (tan(x) ** 2.0d0))
end function
public static double code(double x) {
return 1.0 / (1.0 + Math.pow(Math.tan(x), 2.0));
}
def code(x): return 1.0 / (1.0 + math.pow(math.tan(x), 2.0))
function code(x) return Float64(1.0 / Float64(1.0 + (tan(x) ^ 2.0))) end
function tmp = code(x) tmp = 1.0 / (1.0 + (tan(x) ^ 2.0)); end
code[x_] := N[(1.0 / N[(1.0 + N[Power[N[Tan[x], $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{1}{1 + {\tan x}^{2}}
\end{array}
Initial program 99.5%
Applied egg-rr99.5%
unpow299.5%
Simplified99.5%
pow299.5%
+-commutative99.5%
Applied egg-rr99.5%
Taylor expanded in x around 0 57.4%
Final simplification57.4%
(FPCore (x) :precision binary64 1.0)
double code(double x) {
return 1.0;
}
real(8) function code(x)
real(8), intent (in) :: x
code = 1.0d0
end function
public static double code(double x) {
return 1.0;
}
def code(x): return 1.0
function code(x) return 1.0 end
function tmp = code(x) tmp = 1.0; end
code[x_] := 1.0
\begin{array}{l}
\\
1
\end{array}
Initial program 99.5%
Applied egg-rr99.5%
unpow299.5%
Simplified99.5%
pow299.5%
+-commutative99.5%
Applied egg-rr99.5%
Taylor expanded in x around 0 57.1%
herbie shell --seed 2024096
(FPCore (x)
:name "Trigonometry B"
:precision binary64
(/ (- 1.0 (* (tan x) (tan x))) (+ 1.0 (* (tan x) (tan x)))))