
(FPCore (e v) :precision binary64 (/ (* e (sin v)) (+ 1.0 (* e (cos v)))))
double code(double e, double v) {
return (e * sin(v)) / (1.0 + (e * cos(v)));
}
real(8) function code(e, v)
real(8), intent (in) :: e
real(8), intent (in) :: v
code = (e * sin(v)) / (1.0d0 + (e * cos(v)))
end function
public static double code(double e, double v) {
return (e * Math.sin(v)) / (1.0 + (e * Math.cos(v)));
}
def code(e, v): return (e * math.sin(v)) / (1.0 + (e * math.cos(v)))
function code(e, v) return Float64(Float64(e * sin(v)) / Float64(1.0 + Float64(e * cos(v)))) end
function tmp = code(e, v) tmp = (e * sin(v)) / (1.0 + (e * cos(v))); end
code[e_, v_] := N[(N[(e * N[Sin[v], $MachinePrecision]), $MachinePrecision] / N[(1.0 + N[(e * N[Cos[v], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{e \cdot \sin v}{1 + e \cdot \cos v}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 13 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (e v) :precision binary64 (/ (* e (sin v)) (+ 1.0 (* e (cos v)))))
double code(double e, double v) {
return (e * sin(v)) / (1.0 + (e * cos(v)));
}
real(8) function code(e, v)
real(8), intent (in) :: e
real(8), intent (in) :: v
code = (e * sin(v)) / (1.0d0 + (e * cos(v)))
end function
public static double code(double e, double v) {
return (e * Math.sin(v)) / (1.0 + (e * Math.cos(v)));
}
def code(e, v): return (e * math.sin(v)) / (1.0 + (e * math.cos(v)))
function code(e, v) return Float64(Float64(e * sin(v)) / Float64(1.0 + Float64(e * cos(v)))) end
function tmp = code(e, v) tmp = (e * sin(v)) / (1.0 + (e * cos(v))); end
code[e_, v_] := N[(N[(e * N[Sin[v], $MachinePrecision]), $MachinePrecision] / N[(1.0 + N[(e * N[Cos[v], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{e \cdot \sin v}{1 + e \cdot \cos v}
\end{array}
(FPCore (e v) :precision binary64 (* e (/ (sin v) (fma e (cos v) 1.0))))
double code(double e, double v) {
return e * (sin(v) / fma(e, cos(v), 1.0));
}
function code(e, v) return Float64(e * Float64(sin(v) / fma(e, cos(v), 1.0))) end
code[e_, v_] := N[(e * N[(N[Sin[v], $MachinePrecision] / N[(e * N[Cos[v], $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
e \cdot \frac{\sin v}{\mathsf{fma}\left(e, \cos v, 1\right)}
\end{array}
Initial program 99.8%
lift-/.f64N/A
lift-*.f64N/A
associate-/l*N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f6499.8
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lower-fma.f6499.8
Applied rewrites99.8%
Final simplification99.8%
(FPCore (e v) :precision binary64 (* (sin v) (fma e (* (cos v) (- e)) e)))
double code(double e, double v) {
return sin(v) * fma(e, (cos(v) * -e), e);
}
function code(e, v) return Float64(sin(v) * fma(e, Float64(cos(v) * Float64(-e)), e)) end
code[e_, v_] := N[(N[Sin[v], $MachinePrecision] * N[(e * N[(N[Cos[v], $MachinePrecision] * (-e)), $MachinePrecision] + e), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\sin v \cdot \mathsf{fma}\left(e, \cos v \cdot \left(-e\right), e\right)
\end{array}
Initial program 99.8%
Taylor expanded in e around 0
lower-*.f64N/A
mul-1-negN/A
unsub-negN/A
*-lft-identityN/A
associate-*r*N/A
distribute-rgt-out--N/A
lower-*.f64N/A
lower-sin.f64N/A
lower--.f64N/A
lower-*.f64N/A
lower-cos.f6499.5
Applied rewrites99.5%
Applied rewrites99.5%
Final simplification99.5%
(FPCore (e v) :precision binary64 (* e (* (sin v) (- 1.0 (* e (cos v))))))
double code(double e, double v) {
return e * (sin(v) * (1.0 - (e * cos(v))));
}
real(8) function code(e, v)
real(8), intent (in) :: e
real(8), intent (in) :: v
code = e * (sin(v) * (1.0d0 - (e * cos(v))))
end function
public static double code(double e, double v) {
return e * (Math.sin(v) * (1.0 - (e * Math.cos(v))));
}
def code(e, v): return e * (math.sin(v) * (1.0 - (e * math.cos(v))))
function code(e, v) return Float64(e * Float64(sin(v) * Float64(1.0 - Float64(e * cos(v))))) end
function tmp = code(e, v) tmp = e * (sin(v) * (1.0 - (e * cos(v)))); end
code[e_, v_] := N[(e * N[(N[Sin[v], $MachinePrecision] * N[(1.0 - N[(e * N[Cos[v], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
e \cdot \left(\sin v \cdot \left(1 - e \cdot \cos v\right)\right)
\end{array}
Initial program 99.8%
Taylor expanded in e around 0
lower-*.f64N/A
mul-1-negN/A
unsub-negN/A
*-lft-identityN/A
associate-*r*N/A
distribute-rgt-out--N/A
lower-*.f64N/A
lower-sin.f64N/A
lower--.f64N/A
lower-*.f64N/A
lower-cos.f6499.5
Applied rewrites99.5%
(FPCore (e v) :precision binary64 (/ (* (sin v) e) (+ e 1.0)))
double code(double e, double v) {
return (sin(v) * e) / (e + 1.0);
}
real(8) function code(e, v)
real(8), intent (in) :: e
real(8), intent (in) :: v
code = (sin(v) * e) / (e + 1.0d0)
end function
public static double code(double e, double v) {
return (Math.sin(v) * e) / (e + 1.0);
}
def code(e, v): return (math.sin(v) * e) / (e + 1.0)
function code(e, v) return Float64(Float64(sin(v) * e) / Float64(e + 1.0)) end
function tmp = code(e, v) tmp = (sin(v) * e) / (e + 1.0); end
code[e_, v_] := N[(N[(N[Sin[v], $MachinePrecision] * e), $MachinePrecision] / N[(e + 1.0), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\sin v \cdot e}{e + 1}
\end{array}
Initial program 99.8%
Taylor expanded in v around 0
lower-+.f6498.9
Applied rewrites98.9%
Final simplification98.9%
(FPCore (e v) :precision binary64 (* (sin v) (fma e (- e) e)))
double code(double e, double v) {
return sin(v) * fma(e, -e, e);
}
function code(e, v) return Float64(sin(v) * fma(e, Float64(-e), e)) end
code[e_, v_] := N[(N[Sin[v], $MachinePrecision] * N[(e * (-e) + e), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\sin v \cdot \mathsf{fma}\left(e, -e, e\right)
\end{array}
Initial program 99.8%
Taylor expanded in e around 0
lower-*.f64N/A
mul-1-negN/A
unsub-negN/A
*-lft-identityN/A
associate-*r*N/A
distribute-rgt-out--N/A
lower-*.f64N/A
lower-sin.f64N/A
lower--.f64N/A
lower-*.f64N/A
lower-cos.f6499.5
Applied rewrites99.5%
Applied rewrites99.5%
Taylor expanded in v around 0
Applied rewrites98.9%
Final simplification98.9%
(FPCore (e v) :precision binary64 (* (sin v) e))
double code(double e, double v) {
return sin(v) * e;
}
real(8) function code(e, v)
real(8), intent (in) :: e
real(8), intent (in) :: v
code = sin(v) * e
end function
public static double code(double e, double v) {
return Math.sin(v) * e;
}
def code(e, v): return math.sin(v) * e
function code(e, v) return Float64(sin(v) * e) end
function tmp = code(e, v) tmp = sin(v) * e; end
code[e_, v_] := N[(N[Sin[v], $MachinePrecision] * e), $MachinePrecision]
\begin{array}{l}
\\
\sin v \cdot e
\end{array}
Initial program 99.8%
Taylor expanded in e around 0
lower-*.f64N/A
lower-sin.f6498.6
Applied rewrites98.6%
Final simplification98.6%
(FPCore (e v)
:precision binary64
(let* ((t_0 (fma e -0.5 (fma e 0.16666666666666666 0.16666666666666666))))
(/
e
(/
(fma
(* v v)
(fma
(* v v)
(-
(* e 0.041666666666666664)
(fma
-0.16666666666666666
t_0
(fma e 0.008333333333333333 0.008333333333333333)))
t_0)
(+ e 1.0))
v))))
double code(double e, double v) {
double t_0 = fma(e, -0.5, fma(e, 0.16666666666666666, 0.16666666666666666));
return e / (fma((v * v), fma((v * v), ((e * 0.041666666666666664) - fma(-0.16666666666666666, t_0, fma(e, 0.008333333333333333, 0.008333333333333333))), t_0), (e + 1.0)) / v);
}
function code(e, v) t_0 = fma(e, -0.5, fma(e, 0.16666666666666666, 0.16666666666666666)) return Float64(e / Float64(fma(Float64(v * v), fma(Float64(v * v), Float64(Float64(e * 0.041666666666666664) - fma(-0.16666666666666666, t_0, fma(e, 0.008333333333333333, 0.008333333333333333))), t_0), Float64(e + 1.0)) / v)) end
code[e_, v_] := Block[{t$95$0 = N[(e * -0.5 + N[(e * 0.16666666666666666 + 0.16666666666666666), $MachinePrecision]), $MachinePrecision]}, N[(e / N[(N[(N[(v * v), $MachinePrecision] * N[(N[(v * v), $MachinePrecision] * N[(N[(e * 0.041666666666666664), $MachinePrecision] - N[(-0.16666666666666666 * t$95$0 + N[(e * 0.008333333333333333 + 0.008333333333333333), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$0), $MachinePrecision] + N[(e + 1.0), $MachinePrecision]), $MachinePrecision] / v), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \mathsf{fma}\left(e, -0.5, \mathsf{fma}\left(e, 0.16666666666666666, 0.16666666666666666\right)\right)\\
\frac{e}{\frac{\mathsf{fma}\left(v \cdot v, \mathsf{fma}\left(v \cdot v, e \cdot 0.041666666666666664 - \mathsf{fma}\left(-0.16666666666666666, t\_0, \mathsf{fma}\left(e, 0.008333333333333333, 0.008333333333333333\right)\right), t\_0\right), e + 1\right)}{v}}
\end{array}
\end{array}
Initial program 99.8%
lift-/.f64N/A
lift-*.f64N/A
associate-/l*N/A
clear-numN/A
un-div-invN/A
lower-/.f64N/A
lower-/.f6499.7
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lower-fma.f6499.7
Applied rewrites99.7%
Taylor expanded in v around 0
lower-/.f64N/A
Applied rewrites55.4%
(FPCore (e v)
:precision binary64
(/
e
(/
(fma
v
(* v (fma e -0.5 (fma e 0.16666666666666666 0.16666666666666666)))
(+ e 1.0))
v)))
double code(double e, double v) {
return e / (fma(v, (v * fma(e, -0.5, fma(e, 0.16666666666666666, 0.16666666666666666))), (e + 1.0)) / v);
}
function code(e, v) return Float64(e / Float64(fma(v, Float64(v * fma(e, -0.5, fma(e, 0.16666666666666666, 0.16666666666666666))), Float64(e + 1.0)) / v)) end
code[e_, v_] := N[(e / N[(N[(v * N[(v * N[(e * -0.5 + N[(e * 0.16666666666666666 + 0.16666666666666666), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(e + 1.0), $MachinePrecision]), $MachinePrecision] / v), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{e}{\frac{\mathsf{fma}\left(v, v \cdot \mathsf{fma}\left(e, -0.5, \mathsf{fma}\left(e, 0.16666666666666666, 0.16666666666666666\right)\right), e + 1\right)}{v}}
\end{array}
Initial program 99.8%
lift-/.f64N/A
lift-*.f64N/A
associate-/l*N/A
clear-numN/A
un-div-invN/A
lower-/.f64N/A
lower-/.f6499.7
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lower-fma.f6499.7
Applied rewrites99.7%
Taylor expanded in v around 0
lower-/.f64N/A
Applied rewrites55.4%
(FPCore (e v) :precision binary64 (/ v (* (fma v (* v 0.16666666666666666) 1.0) (/ 1.0 e))))
double code(double e, double v) {
return v / (fma(v, (v * 0.16666666666666666), 1.0) * (1.0 / e));
}
function code(e, v) return Float64(v / Float64(fma(v, Float64(v * 0.16666666666666666), 1.0) * Float64(1.0 / e))) end
code[e_, v_] := N[(v / N[(N[(v * N[(v * 0.16666666666666666), $MachinePrecision] + 1.0), $MachinePrecision] * N[(1.0 / e), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{v}{\mathsf{fma}\left(v, v \cdot 0.16666666666666666, 1\right) \cdot \frac{1}{e}}
\end{array}
Initial program 99.8%
Taylor expanded in e around 0
lower-*.f64N/A
lower-sin.f6498.6
Applied rewrites98.6%
Taylor expanded in v around 0
Applied rewrites53.4%
Applied rewrites53.3%
Taylor expanded in v around 0
Applied rewrites55.0%
(FPCore (e v) :precision binary64 (* v (fma e (- (* e e) e) e)))
double code(double e, double v) {
return v * fma(e, ((e * e) - e), e);
}
function code(e, v) return Float64(v * fma(e, Float64(Float64(e * e) - e), e)) end
code[e_, v_] := N[(v * N[(e * N[(N[(e * e), $MachinePrecision] - e), $MachinePrecision] + e), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
v \cdot \mathsf{fma}\left(e, e \cdot e - e, e\right)
\end{array}
Initial program 99.8%
Taylor expanded in v around 0
*-commutativeN/A
associate-*r/N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f6454.2
Applied rewrites54.2%
Taylor expanded in e around 0
Applied rewrites54.2%
(FPCore (e v) :precision binary64 (* v (- e (* e e))))
double code(double e, double v) {
return v * (e - (e * e));
}
real(8) function code(e, v)
real(8), intent (in) :: e
real(8), intent (in) :: v
code = v * (e - (e * e))
end function
public static double code(double e, double v) {
return v * (e - (e * e));
}
def code(e, v): return v * (e - (e * e))
function code(e, v) return Float64(v * Float64(e - Float64(e * e))) end
function tmp = code(e, v) tmp = v * (e - (e * e)); end
code[e_, v_] := N[(v * N[(e - N[(e * e), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
v \cdot \left(e - e \cdot e\right)
\end{array}
Initial program 99.8%
Taylor expanded in v around 0
*-commutativeN/A
associate-*r/N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f6454.2
Applied rewrites54.2%
Taylor expanded in e around 0
Applied rewrites54.2%
(FPCore (e v) :precision binary64 (* e (- v (* v e))))
double code(double e, double v) {
return e * (v - (v * e));
}
real(8) function code(e, v)
real(8), intent (in) :: e
real(8), intent (in) :: v
code = e * (v - (v * e))
end function
public static double code(double e, double v) {
return e * (v - (v * e));
}
def code(e, v): return e * (v - (v * e))
function code(e, v) return Float64(e * Float64(v - Float64(v * e))) end
function tmp = code(e, v) tmp = e * (v - (v * e)); end
code[e_, v_] := N[(e * N[(v - N[(v * e), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
e \cdot \left(v - v \cdot e\right)
\end{array}
Initial program 99.8%
Taylor expanded in e around 0
lower-*.f64N/A
mul-1-negN/A
unsub-negN/A
*-lft-identityN/A
associate-*r*N/A
distribute-rgt-out--N/A
lower-*.f64N/A
lower-sin.f64N/A
lower--.f64N/A
lower-*.f64N/A
lower-cos.f6499.5
Applied rewrites99.5%
Taylor expanded in v around 0
Applied rewrites54.2%
Final simplification54.2%
(FPCore (e v) :precision binary64 (* v e))
double code(double e, double v) {
return v * e;
}
real(8) function code(e, v)
real(8), intent (in) :: e
real(8), intent (in) :: v
code = v * e
end function
public static double code(double e, double v) {
return v * e;
}
def code(e, v): return v * e
function code(e, v) return Float64(v * e) end
function tmp = code(e, v) tmp = v * e; end
code[e_, v_] := N[(v * e), $MachinePrecision]
\begin{array}{l}
\\
v \cdot e
\end{array}
Initial program 99.8%
Taylor expanded in v around 0
*-commutativeN/A
associate-*r/N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f6454.2
Applied rewrites54.2%
Taylor expanded in e around 0
Applied rewrites53.9%
Final simplification53.9%
herbie shell --seed 2024235
(FPCore (e v)
:name "Trigonometry A"
:precision binary64
:pre (and (<= 0.0 e) (<= e 1.0))
(/ (* e (sin v)) (+ 1.0 (* e (cos v)))))