
(FPCore (a b angle) :precision binary64 (let* ((t_0 (* PI (/ angle 180.0)))) (* (* (* 2.0 (- (pow b 2.0) (pow a 2.0))) (sin t_0)) (cos t_0))))
double code(double a, double b, double angle) {
double t_0 = ((double) M_PI) * (angle / 180.0);
return ((2.0 * (pow(b, 2.0) - pow(a, 2.0))) * sin(t_0)) * cos(t_0);
}
public static double code(double a, double b, double angle) {
double t_0 = Math.PI * (angle / 180.0);
return ((2.0 * (Math.pow(b, 2.0) - Math.pow(a, 2.0))) * Math.sin(t_0)) * Math.cos(t_0);
}
def code(a, b, angle): t_0 = math.pi * (angle / 180.0) return ((2.0 * (math.pow(b, 2.0) - math.pow(a, 2.0))) * math.sin(t_0)) * math.cos(t_0)
function code(a, b, angle) t_0 = Float64(pi * Float64(angle / 180.0)) return Float64(Float64(Float64(2.0 * Float64((b ^ 2.0) - (a ^ 2.0))) * sin(t_0)) * cos(t_0)) end
function tmp = code(a, b, angle) t_0 = pi * (angle / 180.0); tmp = ((2.0 * ((b ^ 2.0) - (a ^ 2.0))) * sin(t_0)) * cos(t_0); end
code[a_, b_, angle_] := Block[{t$95$0 = N[(Pi * N[(angle / 180.0), $MachinePrecision]), $MachinePrecision]}, N[(N[(N[(2.0 * N[(N[Power[b, 2.0], $MachinePrecision] - N[Power[a, 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[Sin[t$95$0], $MachinePrecision]), $MachinePrecision] * N[Cos[t$95$0], $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \pi \cdot \frac{angle}{180}\\
\left(\left(2 \cdot \left({b}^{2} - {a}^{2}\right)\right) \cdot \sin t\_0\right) \cdot \cos t\_0
\end{array}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 10 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (a b angle) :precision binary64 (let* ((t_0 (* PI (/ angle 180.0)))) (* (* (* 2.0 (- (pow b 2.0) (pow a 2.0))) (sin t_0)) (cos t_0))))
double code(double a, double b, double angle) {
double t_0 = ((double) M_PI) * (angle / 180.0);
return ((2.0 * (pow(b, 2.0) - pow(a, 2.0))) * sin(t_0)) * cos(t_0);
}
public static double code(double a, double b, double angle) {
double t_0 = Math.PI * (angle / 180.0);
return ((2.0 * (Math.pow(b, 2.0) - Math.pow(a, 2.0))) * Math.sin(t_0)) * Math.cos(t_0);
}
def code(a, b, angle): t_0 = math.pi * (angle / 180.0) return ((2.0 * (math.pow(b, 2.0) - math.pow(a, 2.0))) * math.sin(t_0)) * math.cos(t_0)
function code(a, b, angle) t_0 = Float64(pi * Float64(angle / 180.0)) return Float64(Float64(Float64(2.0 * Float64((b ^ 2.0) - (a ^ 2.0))) * sin(t_0)) * cos(t_0)) end
function tmp = code(a, b, angle) t_0 = pi * (angle / 180.0); tmp = ((2.0 * ((b ^ 2.0) - (a ^ 2.0))) * sin(t_0)) * cos(t_0); end
code[a_, b_, angle_] := Block[{t$95$0 = N[(Pi * N[(angle / 180.0), $MachinePrecision]), $MachinePrecision]}, N[(N[(N[(2.0 * N[(N[Power[b, 2.0], $MachinePrecision] - N[Power[a, 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[Sin[t$95$0], $MachinePrecision]), $MachinePrecision] * N[Cos[t$95$0], $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \pi \cdot \frac{angle}{180}\\
\left(\left(2 \cdot \left({b}^{2} - {a}^{2}\right)\right) \cdot \sin t\_0\right) \cdot \cos t\_0
\end{array}
\end{array}
angle\_m = (fabs.f64 angle)
angle\_s = (copysign.f64 #s(literal 1 binary64) angle)
(FPCore (angle_s a b angle_m)
:precision binary64
(*
angle_s
(if (<= (/ angle_m 180.0) 4e+133)
(*
(+ a b)
(*
(- b a)
(sin (* 2.0 (* PI (pow (cbrt (* angle_m 0.005555555555555556)) 3.0))))))
(*
(+ a b)
(*
(- b a)
(sin
(*
2.0
(*
(* angle_m 0.005555555555555556)
(cbrt (exp (* 3.0 (log PI))))))))))))angle\_m = fabs(angle);
angle\_s = copysign(1.0, angle);
double code(double angle_s, double a, double b, double angle_m) {
double tmp;
if ((angle_m / 180.0) <= 4e+133) {
tmp = (a + b) * ((b - a) * sin((2.0 * (((double) M_PI) * pow(cbrt((angle_m * 0.005555555555555556)), 3.0)))));
} else {
tmp = (a + b) * ((b - a) * sin((2.0 * ((angle_m * 0.005555555555555556) * cbrt(exp((3.0 * log(((double) M_PI)))))))));
}
return angle_s * tmp;
}
angle\_m = Math.abs(angle);
angle\_s = Math.copySign(1.0, angle);
public static double code(double angle_s, double a, double b, double angle_m) {
double tmp;
if ((angle_m / 180.0) <= 4e+133) {
tmp = (a + b) * ((b - a) * Math.sin((2.0 * (Math.PI * Math.pow(Math.cbrt((angle_m * 0.005555555555555556)), 3.0)))));
} else {
tmp = (a + b) * ((b - a) * Math.sin((2.0 * ((angle_m * 0.005555555555555556) * Math.cbrt(Math.exp((3.0 * Math.log(Math.PI))))))));
}
return angle_s * tmp;
}
angle\_m = abs(angle) angle\_s = copysign(1.0, angle) function code(angle_s, a, b, angle_m) tmp = 0.0 if (Float64(angle_m / 180.0) <= 4e+133) tmp = Float64(Float64(a + b) * Float64(Float64(b - a) * sin(Float64(2.0 * Float64(pi * (cbrt(Float64(angle_m * 0.005555555555555556)) ^ 3.0)))))); else tmp = Float64(Float64(a + b) * Float64(Float64(b - a) * sin(Float64(2.0 * Float64(Float64(angle_m * 0.005555555555555556) * cbrt(exp(Float64(3.0 * log(pi))))))))); end return Float64(angle_s * tmp) end
angle\_m = N[Abs[angle], $MachinePrecision]
angle\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[angle]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[angle$95$s_, a_, b_, angle$95$m_] := N[(angle$95$s * If[LessEqual[N[(angle$95$m / 180.0), $MachinePrecision], 4e+133], N[(N[(a + b), $MachinePrecision] * N[(N[(b - a), $MachinePrecision] * N[Sin[N[(2.0 * N[(Pi * N[Power[N[Power[N[(angle$95$m * 0.005555555555555556), $MachinePrecision], 1/3], $MachinePrecision], 3.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(a + b), $MachinePrecision] * N[(N[(b - a), $MachinePrecision] * N[Sin[N[(2.0 * N[(N[(angle$95$m * 0.005555555555555556), $MachinePrecision] * N[Power[N[Exp[N[(3.0 * N[Log[Pi], $MachinePrecision]), $MachinePrecision]], $MachinePrecision], 1/3], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]), $MachinePrecision]
\begin{array}{l}
angle\_m = \left|angle\right|
\\
angle\_s = \mathsf{copysign}\left(1, angle\right)
\\
angle\_s \cdot \begin{array}{l}
\mathbf{if}\;\frac{angle\_m}{180} \leq 4 \cdot 10^{+133}:\\
\;\;\;\;\left(a + b\right) \cdot \left(\left(b - a\right) \cdot \sin \left(2 \cdot \left(\pi \cdot {\left(\sqrt[3]{angle\_m \cdot 0.005555555555555556}\right)}^{3}\right)\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\left(a + b\right) \cdot \left(\left(b - a\right) \cdot \sin \left(2 \cdot \left(\left(angle\_m \cdot 0.005555555555555556\right) \cdot \sqrt[3]{e^{3 \cdot \log \pi}}\right)\right)\right)\\
\end{array}
\end{array}
if (/.f64 angle #s(literal 180 binary64)) < 4.0000000000000001e133Initial program 56.5%
associate-*l*56.5%
*-commutative56.5%
associate-*l*56.5%
Simplified56.5%
unpow256.5%
unpow256.5%
difference-of-squares64.3%
Applied egg-rr64.3%
pow164.3%
2-sin64.3%
div-inv63.5%
metadata-eval63.5%
Applied egg-rr63.5%
unpow163.5%
associate-*l*74.2%
+-commutative74.2%
*-commutative74.2%
Simplified74.2%
*-commutative74.2%
metadata-eval74.2%
div-inv75.0%
add-cube-cbrt73.9%
pow374.2%
div-inv76.0%
metadata-eval76.0%
*-commutative76.0%
Applied egg-rr76.0%
if 4.0000000000000001e133 < (/.f64 angle #s(literal 180 binary64)) Initial program 24.9%
associate-*l*24.9%
*-commutative24.9%
associate-*l*24.9%
Simplified24.9%
unpow224.9%
unpow224.9%
difference-of-squares28.1%
Applied egg-rr28.1%
pow128.1%
2-sin28.1%
div-inv28.0%
metadata-eval28.0%
Applied egg-rr28.0%
unpow128.0%
associate-*l*28.0%
+-commutative28.0%
*-commutative28.0%
Simplified28.0%
add-cbrt-cube38.4%
pow338.4%
Applied egg-rr38.4%
add-exp-log38.4%
log-pow47.6%
Applied egg-rr47.6%
Final simplification72.5%
angle\_m = (fabs.f64 angle)
angle\_s = (copysign.f64 #s(literal 1 binary64) angle)
(FPCore (angle_s a b angle_m)
:precision binary64
(*
angle_s
(if (<= a 4.5e+202)
(*
(+ a b)
(*
(- b a)
(sin (* 2.0 (* (* angle_m 0.005555555555555556) (cbrt (pow PI 3.0)))))))
(*
(+ a b)
(*
(- b a)
(sin
(* 2.0 (* PI (pow (cbrt (* angle_m 0.005555555555555556)) 3.0)))))))))angle\_m = fabs(angle);
angle\_s = copysign(1.0, angle);
double code(double angle_s, double a, double b, double angle_m) {
double tmp;
if (a <= 4.5e+202) {
tmp = (a + b) * ((b - a) * sin((2.0 * ((angle_m * 0.005555555555555556) * cbrt(pow(((double) M_PI), 3.0))))));
} else {
tmp = (a + b) * ((b - a) * sin((2.0 * (((double) M_PI) * pow(cbrt((angle_m * 0.005555555555555556)), 3.0)))));
}
return angle_s * tmp;
}
angle\_m = Math.abs(angle);
angle\_s = Math.copySign(1.0, angle);
public static double code(double angle_s, double a, double b, double angle_m) {
double tmp;
if (a <= 4.5e+202) {
tmp = (a + b) * ((b - a) * Math.sin((2.0 * ((angle_m * 0.005555555555555556) * Math.cbrt(Math.pow(Math.PI, 3.0))))));
} else {
tmp = (a + b) * ((b - a) * Math.sin((2.0 * (Math.PI * Math.pow(Math.cbrt((angle_m * 0.005555555555555556)), 3.0)))));
}
return angle_s * tmp;
}
angle\_m = abs(angle) angle\_s = copysign(1.0, angle) function code(angle_s, a, b, angle_m) tmp = 0.0 if (a <= 4.5e+202) tmp = Float64(Float64(a + b) * Float64(Float64(b - a) * sin(Float64(2.0 * Float64(Float64(angle_m * 0.005555555555555556) * cbrt((pi ^ 3.0))))))); else tmp = Float64(Float64(a + b) * Float64(Float64(b - a) * sin(Float64(2.0 * Float64(pi * (cbrt(Float64(angle_m * 0.005555555555555556)) ^ 3.0)))))); end return Float64(angle_s * tmp) end
angle\_m = N[Abs[angle], $MachinePrecision]
angle\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[angle]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[angle$95$s_, a_, b_, angle$95$m_] := N[(angle$95$s * If[LessEqual[a, 4.5e+202], N[(N[(a + b), $MachinePrecision] * N[(N[(b - a), $MachinePrecision] * N[Sin[N[(2.0 * N[(N[(angle$95$m * 0.005555555555555556), $MachinePrecision] * N[Power[N[Power[Pi, 3.0], $MachinePrecision], 1/3], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(a + b), $MachinePrecision] * N[(N[(b - a), $MachinePrecision] * N[Sin[N[(2.0 * N[(Pi * N[Power[N[Power[N[(angle$95$m * 0.005555555555555556), $MachinePrecision], 1/3], $MachinePrecision], 3.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]), $MachinePrecision]
\begin{array}{l}
angle\_m = \left|angle\right|
\\
angle\_s = \mathsf{copysign}\left(1, angle\right)
\\
angle\_s \cdot \begin{array}{l}
\mathbf{if}\;a \leq 4.5 \cdot 10^{+202}:\\
\;\;\;\;\left(a + b\right) \cdot \left(\left(b - a\right) \cdot \sin \left(2 \cdot \left(\left(angle\_m \cdot 0.005555555555555556\right) \cdot \sqrt[3]{{\pi}^{3}}\right)\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\left(a + b\right) \cdot \left(\left(b - a\right) \cdot \sin \left(2 \cdot \left(\pi \cdot {\left(\sqrt[3]{angle\_m \cdot 0.005555555555555556}\right)}^{3}\right)\right)\right)\\
\end{array}
\end{array}
if a < 4.49999999999999978e202Initial program 53.4%
associate-*l*53.4%
*-commutative53.4%
associate-*l*53.4%
Simplified53.4%
unpow253.4%
unpow253.4%
difference-of-squares59.2%
Applied egg-rr59.2%
pow159.2%
2-sin59.2%
div-inv59.4%
metadata-eval59.4%
Applied egg-rr59.4%
unpow159.4%
associate-*l*68.2%
+-commutative68.2%
*-commutative68.2%
Simplified68.2%
add-cbrt-cube68.9%
pow368.9%
Applied egg-rr68.9%
if 4.49999999999999978e202 < a Initial program 45.4%
associate-*l*45.4%
*-commutative45.4%
associate-*l*45.4%
Simplified45.4%
unpow245.4%
unpow245.4%
difference-of-squares63.9%
Applied egg-rr63.9%
pow163.9%
2-sin63.9%
div-inv56.5%
metadata-eval56.5%
Applied egg-rr56.5%
unpow156.5%
associate-*l*70.2%
+-commutative70.2%
*-commutative70.2%
Simplified70.2%
*-commutative70.2%
metadata-eval70.2%
div-inv77.7%
add-cube-cbrt66.4%
pow377.5%
div-inv85.0%
metadata-eval85.0%
*-commutative85.0%
Applied egg-rr85.0%
Final simplification70.6%
angle\_m = (fabs.f64 angle)
angle\_s = (copysign.f64 #s(literal 1 binary64) angle)
(FPCore (angle_s a b angle_m)
:precision binary64
(*
angle_s
(if (<= a 6.2e+205)
(* (+ a b) (* (- b a) (sin (* 2.0 (* PI (/ 1.0 (/ 180.0 angle_m)))))))
(*
(+ a b)
(*
(- b a)
(sin
(* 2.0 (* PI (pow (cbrt (* angle_m 0.005555555555555556)) 3.0)))))))))angle\_m = fabs(angle);
angle\_s = copysign(1.0, angle);
double code(double angle_s, double a, double b, double angle_m) {
double tmp;
if (a <= 6.2e+205) {
tmp = (a + b) * ((b - a) * sin((2.0 * (((double) M_PI) * (1.0 / (180.0 / angle_m))))));
} else {
tmp = (a + b) * ((b - a) * sin((2.0 * (((double) M_PI) * pow(cbrt((angle_m * 0.005555555555555556)), 3.0)))));
}
return angle_s * tmp;
}
angle\_m = Math.abs(angle);
angle\_s = Math.copySign(1.0, angle);
public static double code(double angle_s, double a, double b, double angle_m) {
double tmp;
if (a <= 6.2e+205) {
tmp = (a + b) * ((b - a) * Math.sin((2.0 * (Math.PI * (1.0 / (180.0 / angle_m))))));
} else {
tmp = (a + b) * ((b - a) * Math.sin((2.0 * (Math.PI * Math.pow(Math.cbrt((angle_m * 0.005555555555555556)), 3.0)))));
}
return angle_s * tmp;
}
angle\_m = abs(angle) angle\_s = copysign(1.0, angle) function code(angle_s, a, b, angle_m) tmp = 0.0 if (a <= 6.2e+205) tmp = Float64(Float64(a + b) * Float64(Float64(b - a) * sin(Float64(2.0 * Float64(pi * Float64(1.0 / Float64(180.0 / angle_m))))))); else tmp = Float64(Float64(a + b) * Float64(Float64(b - a) * sin(Float64(2.0 * Float64(pi * (cbrt(Float64(angle_m * 0.005555555555555556)) ^ 3.0)))))); end return Float64(angle_s * tmp) end
angle\_m = N[Abs[angle], $MachinePrecision]
angle\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[angle]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[angle$95$s_, a_, b_, angle$95$m_] := N[(angle$95$s * If[LessEqual[a, 6.2e+205], N[(N[(a + b), $MachinePrecision] * N[(N[(b - a), $MachinePrecision] * N[Sin[N[(2.0 * N[(Pi * N[(1.0 / N[(180.0 / angle$95$m), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(a + b), $MachinePrecision] * N[(N[(b - a), $MachinePrecision] * N[Sin[N[(2.0 * N[(Pi * N[Power[N[Power[N[(angle$95$m * 0.005555555555555556), $MachinePrecision], 1/3], $MachinePrecision], 3.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]), $MachinePrecision]
\begin{array}{l}
angle\_m = \left|angle\right|
\\
angle\_s = \mathsf{copysign}\left(1, angle\right)
\\
angle\_s \cdot \begin{array}{l}
\mathbf{if}\;a \leq 6.2 \cdot 10^{+205}:\\
\;\;\;\;\left(a + b\right) \cdot \left(\left(b - a\right) \cdot \sin \left(2 \cdot \left(\pi \cdot \frac{1}{\frac{180}{angle\_m}}\right)\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\left(a + b\right) \cdot \left(\left(b - a\right) \cdot \sin \left(2 \cdot \left(\pi \cdot {\left(\sqrt[3]{angle\_m \cdot 0.005555555555555556}\right)}^{3}\right)\right)\right)\\
\end{array}
\end{array}
if a < 6.20000000000000035e205Initial program 53.4%
associate-*l*53.4%
*-commutative53.4%
associate-*l*53.4%
Simplified53.4%
unpow253.4%
unpow253.4%
difference-of-squares59.2%
Applied egg-rr59.2%
pow159.2%
2-sin59.2%
div-inv59.4%
metadata-eval59.4%
Applied egg-rr59.4%
unpow159.4%
associate-*l*68.2%
+-commutative68.2%
*-commutative68.2%
Simplified68.2%
metadata-eval68.2%
associate-/r/69.4%
Applied egg-rr69.4%
if 6.20000000000000035e205 < a Initial program 45.4%
associate-*l*45.4%
*-commutative45.4%
associate-*l*45.4%
Simplified45.4%
unpow245.4%
unpow245.4%
difference-of-squares63.9%
Applied egg-rr63.9%
pow163.9%
2-sin63.9%
div-inv56.5%
metadata-eval56.5%
Applied egg-rr56.5%
unpow156.5%
associate-*l*70.2%
+-commutative70.2%
*-commutative70.2%
Simplified70.2%
*-commutative70.2%
metadata-eval70.2%
div-inv77.7%
add-cube-cbrt66.4%
pow377.5%
div-inv85.0%
metadata-eval85.0%
*-commutative85.0%
Applied egg-rr85.0%
Final simplification71.0%
angle\_m = (fabs.f64 angle) angle\_s = (copysign.f64 #s(literal 1 binary64) angle) (FPCore (angle_s a b angle_m) :precision binary64 (* angle_s (* (+ a b) (* (- b a) (sin (* 2.0 (/ 1.0 (/ 180.0 (* angle_m PI)))))))))
angle\_m = fabs(angle);
angle\_s = copysign(1.0, angle);
double code(double angle_s, double a, double b, double angle_m) {
return angle_s * ((a + b) * ((b - a) * sin((2.0 * (1.0 / (180.0 / (angle_m * ((double) M_PI))))))));
}
angle\_m = Math.abs(angle);
angle\_s = Math.copySign(1.0, angle);
public static double code(double angle_s, double a, double b, double angle_m) {
return angle_s * ((a + b) * ((b - a) * Math.sin((2.0 * (1.0 / (180.0 / (angle_m * Math.PI)))))));
}
angle\_m = math.fabs(angle) angle\_s = math.copysign(1.0, angle) def code(angle_s, a, b, angle_m): return angle_s * ((a + b) * ((b - a) * math.sin((2.0 * (1.0 / (180.0 / (angle_m * math.pi)))))))
angle\_m = abs(angle) angle\_s = copysign(1.0, angle) function code(angle_s, a, b, angle_m) return Float64(angle_s * Float64(Float64(a + b) * Float64(Float64(b - a) * sin(Float64(2.0 * Float64(1.0 / Float64(180.0 / Float64(angle_m * pi)))))))) end
angle\_m = abs(angle); angle\_s = sign(angle) * abs(1.0); function tmp = code(angle_s, a, b, angle_m) tmp = angle_s * ((a + b) * ((b - a) * sin((2.0 * (1.0 / (180.0 / (angle_m * pi))))))); end
angle\_m = N[Abs[angle], $MachinePrecision]
angle\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[angle]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[angle$95$s_, a_, b_, angle$95$m_] := N[(angle$95$s * N[(N[(a + b), $MachinePrecision] * N[(N[(b - a), $MachinePrecision] * N[Sin[N[(2.0 * N[(1.0 / N[(180.0 / N[(angle$95$m * Pi), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
angle\_m = \left|angle\right|
\\
angle\_s = \mathsf{copysign}\left(1, angle\right)
\\
angle\_s \cdot \left(\left(a + b\right) \cdot \left(\left(b - a\right) \cdot \sin \left(2 \cdot \frac{1}{\frac{180}{angle\_m \cdot \pi}}\right)\right)\right)
\end{array}
Initial program 52.6%
associate-*l*52.6%
*-commutative52.6%
associate-*l*52.6%
Simplified52.6%
unpow252.6%
unpow252.6%
difference-of-squares59.7%
Applied egg-rr59.7%
pow159.7%
2-sin59.7%
div-inv59.1%
metadata-eval59.1%
Applied egg-rr59.1%
unpow159.1%
associate-*l*68.4%
+-commutative68.4%
*-commutative68.4%
Simplified68.4%
*-commutative68.4%
metadata-eval68.4%
div-inv69.1%
associate-*r/70.0%
clear-num70.5%
Applied egg-rr70.5%
Final simplification70.5%
angle\_m = (fabs.f64 angle) angle\_s = (copysign.f64 #s(literal 1 binary64) angle) (FPCore (angle_s a b angle_m) :precision binary64 (* angle_s (* (+ a b) (* (- b a) (sin (* 2.0 (/ (* angle_m PI) 180.0)))))))
angle\_m = fabs(angle);
angle\_s = copysign(1.0, angle);
double code(double angle_s, double a, double b, double angle_m) {
return angle_s * ((a + b) * ((b - a) * sin((2.0 * ((angle_m * ((double) M_PI)) / 180.0)))));
}
angle\_m = Math.abs(angle);
angle\_s = Math.copySign(1.0, angle);
public static double code(double angle_s, double a, double b, double angle_m) {
return angle_s * ((a + b) * ((b - a) * Math.sin((2.0 * ((angle_m * Math.PI) / 180.0)))));
}
angle\_m = math.fabs(angle) angle\_s = math.copysign(1.0, angle) def code(angle_s, a, b, angle_m): return angle_s * ((a + b) * ((b - a) * math.sin((2.0 * ((angle_m * math.pi) / 180.0)))))
angle\_m = abs(angle) angle\_s = copysign(1.0, angle) function code(angle_s, a, b, angle_m) return Float64(angle_s * Float64(Float64(a + b) * Float64(Float64(b - a) * sin(Float64(2.0 * Float64(Float64(angle_m * pi) / 180.0)))))) end
angle\_m = abs(angle); angle\_s = sign(angle) * abs(1.0); function tmp = code(angle_s, a, b, angle_m) tmp = angle_s * ((a + b) * ((b - a) * sin((2.0 * ((angle_m * pi) / 180.0))))); end
angle\_m = N[Abs[angle], $MachinePrecision]
angle\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[angle]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[angle$95$s_, a_, b_, angle$95$m_] := N[(angle$95$s * N[(N[(a + b), $MachinePrecision] * N[(N[(b - a), $MachinePrecision] * N[Sin[N[(2.0 * N[(N[(angle$95$m * Pi), $MachinePrecision] / 180.0), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
angle\_m = \left|angle\right|
\\
angle\_s = \mathsf{copysign}\left(1, angle\right)
\\
angle\_s \cdot \left(\left(a + b\right) \cdot \left(\left(b - a\right) \cdot \sin \left(2 \cdot \frac{angle\_m \cdot \pi}{180}\right)\right)\right)
\end{array}
Initial program 52.6%
associate-*l*52.6%
*-commutative52.6%
associate-*l*52.6%
Simplified52.6%
unpow252.6%
unpow252.6%
difference-of-squares59.7%
Applied egg-rr59.7%
pow159.7%
2-sin59.7%
div-inv59.1%
metadata-eval59.1%
Applied egg-rr59.1%
unpow159.1%
associate-*l*68.4%
+-commutative68.4%
*-commutative68.4%
Simplified68.4%
*-commutative68.4%
metadata-eval68.4%
div-inv69.1%
associate-*r/70.0%
Applied egg-rr70.0%
Final simplification70.0%
angle\_m = (fabs.f64 angle) angle\_s = (copysign.f64 #s(literal 1 binary64) angle) (FPCore (angle_s a b angle_m) :precision binary64 (* angle_s (* (+ a b) (* (- b a) (sin (* (* angle_m PI) 0.011111111111111112))))))
angle\_m = fabs(angle);
angle\_s = copysign(1.0, angle);
double code(double angle_s, double a, double b, double angle_m) {
return angle_s * ((a + b) * ((b - a) * sin(((angle_m * ((double) M_PI)) * 0.011111111111111112))));
}
angle\_m = Math.abs(angle);
angle\_s = Math.copySign(1.0, angle);
public static double code(double angle_s, double a, double b, double angle_m) {
return angle_s * ((a + b) * ((b - a) * Math.sin(((angle_m * Math.PI) * 0.011111111111111112))));
}
angle\_m = math.fabs(angle) angle\_s = math.copysign(1.0, angle) def code(angle_s, a, b, angle_m): return angle_s * ((a + b) * ((b - a) * math.sin(((angle_m * math.pi) * 0.011111111111111112))))
angle\_m = abs(angle) angle\_s = copysign(1.0, angle) function code(angle_s, a, b, angle_m) return Float64(angle_s * Float64(Float64(a + b) * Float64(Float64(b - a) * sin(Float64(Float64(angle_m * pi) * 0.011111111111111112))))) end
angle\_m = abs(angle); angle\_s = sign(angle) * abs(1.0); function tmp = code(angle_s, a, b, angle_m) tmp = angle_s * ((a + b) * ((b - a) * sin(((angle_m * pi) * 0.011111111111111112)))); end
angle\_m = N[Abs[angle], $MachinePrecision]
angle\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[angle]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[angle$95$s_, a_, b_, angle$95$m_] := N[(angle$95$s * N[(N[(a + b), $MachinePrecision] * N[(N[(b - a), $MachinePrecision] * N[Sin[N[(N[(angle$95$m * Pi), $MachinePrecision] * 0.011111111111111112), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
angle\_m = \left|angle\right|
\\
angle\_s = \mathsf{copysign}\left(1, angle\right)
\\
angle\_s \cdot \left(\left(a + b\right) \cdot \left(\left(b - a\right) \cdot \sin \left(\left(angle\_m \cdot \pi\right) \cdot 0.011111111111111112\right)\right)\right)
\end{array}
Initial program 52.6%
associate-*l*52.6%
*-commutative52.6%
associate-*l*52.6%
Simplified52.6%
unpow252.6%
unpow252.6%
difference-of-squares59.7%
Applied egg-rr59.7%
pow159.7%
2-sin59.7%
div-inv59.1%
metadata-eval59.1%
Applied egg-rr59.1%
unpow159.1%
associate-*l*68.4%
+-commutative68.4%
*-commutative68.4%
Simplified68.4%
Taylor expanded in angle around inf 69.7%
Final simplification69.7%
angle\_m = (fabs.f64 angle) angle\_s = (copysign.f64 #s(literal 1 binary64) angle) (FPCore (angle_s a b angle_m) :precision binary64 (* angle_s (* (+ a b) (* (- b a) (* PI (* angle_m 0.011111111111111112))))))
angle\_m = fabs(angle);
angle\_s = copysign(1.0, angle);
double code(double angle_s, double a, double b, double angle_m) {
return angle_s * ((a + b) * ((b - a) * (((double) M_PI) * (angle_m * 0.011111111111111112))));
}
angle\_m = Math.abs(angle);
angle\_s = Math.copySign(1.0, angle);
public static double code(double angle_s, double a, double b, double angle_m) {
return angle_s * ((a + b) * ((b - a) * (Math.PI * (angle_m * 0.011111111111111112))));
}
angle\_m = math.fabs(angle) angle\_s = math.copysign(1.0, angle) def code(angle_s, a, b, angle_m): return angle_s * ((a + b) * ((b - a) * (math.pi * (angle_m * 0.011111111111111112))))
angle\_m = abs(angle) angle\_s = copysign(1.0, angle) function code(angle_s, a, b, angle_m) return Float64(angle_s * Float64(Float64(a + b) * Float64(Float64(b - a) * Float64(pi * Float64(angle_m * 0.011111111111111112))))) end
angle\_m = abs(angle); angle\_s = sign(angle) * abs(1.0); function tmp = code(angle_s, a, b, angle_m) tmp = angle_s * ((a + b) * ((b - a) * (pi * (angle_m * 0.011111111111111112)))); end
angle\_m = N[Abs[angle], $MachinePrecision]
angle\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[angle]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[angle$95$s_, a_, b_, angle$95$m_] := N[(angle$95$s * N[(N[(a + b), $MachinePrecision] * N[(N[(b - a), $MachinePrecision] * N[(Pi * N[(angle$95$m * 0.011111111111111112), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
angle\_m = \left|angle\right|
\\
angle\_s = \mathsf{copysign}\left(1, angle\right)
\\
angle\_s \cdot \left(\left(a + b\right) \cdot \left(\left(b - a\right) \cdot \left(\pi \cdot \left(angle\_m \cdot 0.011111111111111112\right)\right)\right)\right)
\end{array}
Initial program 52.6%
associate-*l*52.6%
*-commutative52.6%
associate-*l*52.6%
Simplified52.6%
unpow252.6%
unpow252.6%
difference-of-squares59.7%
Applied egg-rr59.7%
pow159.7%
2-sin59.7%
div-inv59.1%
metadata-eval59.1%
Applied egg-rr59.1%
unpow159.1%
associate-*l*68.4%
+-commutative68.4%
*-commutative68.4%
Simplified68.4%
add-cbrt-cube70.6%
pow370.6%
Applied egg-rr70.6%
Taylor expanded in angle around 0 64.6%
associate-*r*64.6%
Simplified64.6%
Final simplification64.6%
angle\_m = (fabs.f64 angle) angle\_s = (copysign.f64 #s(literal 1 binary64) angle) (FPCore (angle_s a b angle_m) :precision binary64 (* angle_s (* (+ a b) (* (- b a) (* (* angle_m PI) 0.011111111111111112)))))
angle\_m = fabs(angle);
angle\_s = copysign(1.0, angle);
double code(double angle_s, double a, double b, double angle_m) {
return angle_s * ((a + b) * ((b - a) * ((angle_m * ((double) M_PI)) * 0.011111111111111112)));
}
angle\_m = Math.abs(angle);
angle\_s = Math.copySign(1.0, angle);
public static double code(double angle_s, double a, double b, double angle_m) {
return angle_s * ((a + b) * ((b - a) * ((angle_m * Math.PI) * 0.011111111111111112)));
}
angle\_m = math.fabs(angle) angle\_s = math.copysign(1.0, angle) def code(angle_s, a, b, angle_m): return angle_s * ((a + b) * ((b - a) * ((angle_m * math.pi) * 0.011111111111111112)))
angle\_m = abs(angle) angle\_s = copysign(1.0, angle) function code(angle_s, a, b, angle_m) return Float64(angle_s * Float64(Float64(a + b) * Float64(Float64(b - a) * Float64(Float64(angle_m * pi) * 0.011111111111111112)))) end
angle\_m = abs(angle); angle\_s = sign(angle) * abs(1.0); function tmp = code(angle_s, a, b, angle_m) tmp = angle_s * ((a + b) * ((b - a) * ((angle_m * pi) * 0.011111111111111112))); end
angle\_m = N[Abs[angle], $MachinePrecision]
angle\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[angle]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[angle$95$s_, a_, b_, angle$95$m_] := N[(angle$95$s * N[(N[(a + b), $MachinePrecision] * N[(N[(b - a), $MachinePrecision] * N[(N[(angle$95$m * Pi), $MachinePrecision] * 0.011111111111111112), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
angle\_m = \left|angle\right|
\\
angle\_s = \mathsf{copysign}\left(1, angle\right)
\\
angle\_s \cdot \left(\left(a + b\right) \cdot \left(\left(b - a\right) \cdot \left(\left(angle\_m \cdot \pi\right) \cdot 0.011111111111111112\right)\right)\right)
\end{array}
Initial program 52.6%
associate-*l*52.6%
*-commutative52.6%
associate-*l*52.6%
Simplified52.6%
unpow252.6%
unpow252.6%
difference-of-squares59.7%
Applied egg-rr59.7%
pow159.7%
2-sin59.7%
div-inv59.1%
metadata-eval59.1%
Applied egg-rr59.1%
unpow159.1%
associate-*l*68.4%
+-commutative68.4%
*-commutative68.4%
Simplified68.4%
Taylor expanded in angle around 0 64.6%
Final simplification64.6%
angle\_m = (fabs.f64 angle) angle\_s = (copysign.f64 #s(literal 1 binary64) angle) (FPCore (angle_s a b angle_m) :precision binary64 (* angle_s (* 0.011111111111111112 (* angle_m (* (- b a) (* (+ a b) PI))))))
angle\_m = fabs(angle);
angle\_s = copysign(1.0, angle);
double code(double angle_s, double a, double b, double angle_m) {
return angle_s * (0.011111111111111112 * (angle_m * ((b - a) * ((a + b) * ((double) M_PI)))));
}
angle\_m = Math.abs(angle);
angle\_s = Math.copySign(1.0, angle);
public static double code(double angle_s, double a, double b, double angle_m) {
return angle_s * (0.011111111111111112 * (angle_m * ((b - a) * ((a + b) * Math.PI))));
}
angle\_m = math.fabs(angle) angle\_s = math.copysign(1.0, angle) def code(angle_s, a, b, angle_m): return angle_s * (0.011111111111111112 * (angle_m * ((b - a) * ((a + b) * math.pi))))
angle\_m = abs(angle) angle\_s = copysign(1.0, angle) function code(angle_s, a, b, angle_m) return Float64(angle_s * Float64(0.011111111111111112 * Float64(angle_m * Float64(Float64(b - a) * Float64(Float64(a + b) * pi))))) end
angle\_m = abs(angle); angle\_s = sign(angle) * abs(1.0); function tmp = code(angle_s, a, b, angle_m) tmp = angle_s * (0.011111111111111112 * (angle_m * ((b - a) * ((a + b) * pi)))); end
angle\_m = N[Abs[angle], $MachinePrecision]
angle\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[angle]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[angle$95$s_, a_, b_, angle$95$m_] := N[(angle$95$s * N[(0.011111111111111112 * N[(angle$95$m * N[(N[(b - a), $MachinePrecision] * N[(N[(a + b), $MachinePrecision] * Pi), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
angle\_m = \left|angle\right|
\\
angle\_s = \mathsf{copysign}\left(1, angle\right)
\\
angle\_s \cdot \left(0.011111111111111112 \cdot \left(angle\_m \cdot \left(\left(b - a\right) \cdot \left(\left(a + b\right) \cdot \pi\right)\right)\right)\right)
\end{array}
Initial program 52.6%
associate-*l*52.6%
*-commutative52.6%
associate-*l*52.6%
Simplified52.6%
unpow252.6%
unpow252.6%
difference-of-squares59.7%
Applied egg-rr59.7%
Taylor expanded in angle around 0 55.6%
Taylor expanded in angle around 0 55.9%
associate-*r*55.9%
sub-neg55.9%
distribute-lft-in50.3%
Applied egg-rr50.3%
distribute-lft-out55.9%
+-commutative55.9%
unsub-neg55.9%
Simplified55.9%
Final simplification55.9%
angle\_m = (fabs.f64 angle) angle\_s = (copysign.f64 #s(literal 1 binary64) angle) (FPCore (angle_s a b angle_m) :precision binary64 (* angle_s (* 0.011111111111111112 (* angle_m (* PI (* (+ a b) (- b a)))))))
angle\_m = fabs(angle);
angle\_s = copysign(1.0, angle);
double code(double angle_s, double a, double b, double angle_m) {
return angle_s * (0.011111111111111112 * (angle_m * (((double) M_PI) * ((a + b) * (b - a)))));
}
angle\_m = Math.abs(angle);
angle\_s = Math.copySign(1.0, angle);
public static double code(double angle_s, double a, double b, double angle_m) {
return angle_s * (0.011111111111111112 * (angle_m * (Math.PI * ((a + b) * (b - a)))));
}
angle\_m = math.fabs(angle) angle\_s = math.copysign(1.0, angle) def code(angle_s, a, b, angle_m): return angle_s * (0.011111111111111112 * (angle_m * (math.pi * ((a + b) * (b - a)))))
angle\_m = abs(angle) angle\_s = copysign(1.0, angle) function code(angle_s, a, b, angle_m) return Float64(angle_s * Float64(0.011111111111111112 * Float64(angle_m * Float64(pi * Float64(Float64(a + b) * Float64(b - a)))))) end
angle\_m = abs(angle); angle\_s = sign(angle) * abs(1.0); function tmp = code(angle_s, a, b, angle_m) tmp = angle_s * (0.011111111111111112 * (angle_m * (pi * ((a + b) * (b - a))))); end
angle\_m = N[Abs[angle], $MachinePrecision]
angle\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[angle]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[angle$95$s_, a_, b_, angle$95$m_] := N[(angle$95$s * N[(0.011111111111111112 * N[(angle$95$m * N[(Pi * N[(N[(a + b), $MachinePrecision] * N[(b - a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
angle\_m = \left|angle\right|
\\
angle\_s = \mathsf{copysign}\left(1, angle\right)
\\
angle\_s \cdot \left(0.011111111111111112 \cdot \left(angle\_m \cdot \left(\pi \cdot \left(\left(a + b\right) \cdot \left(b - a\right)\right)\right)\right)\right)
\end{array}
Initial program 52.6%
associate-*l*52.6%
*-commutative52.6%
associate-*l*52.6%
Simplified52.6%
unpow252.6%
unpow252.6%
difference-of-squares59.7%
Applied egg-rr59.7%
Taylor expanded in angle around 0 55.6%
Taylor expanded in angle around 0 55.9%
herbie shell --seed 2024089
(FPCore (a b angle)
:name "ab-angle->ABCF B"
:precision binary64
(* (* (* 2.0 (- (pow b 2.0) (pow a 2.0))) (sin (* PI (/ angle 180.0)))) (cos (* PI (/ angle 180.0)))))