| Alternative 1 | |
|---|---|
| Accuracy | 57.6% |
| Cost | 21212 |
(FPCore (J K U) :precision binary64 (* (* (* -2.0 J) (cos (/ K 2.0))) (sqrt (+ 1.0 (pow (/ U (* (* 2.0 J) (cos (/ K 2.0)))) 2.0)))))
(FPCore (J K U)
:precision binary64
(let* ((t_0 (cos (/ K 2.0))))
(if (<=
(* (* (* -2.0 J) t_0) (sqrt (+ 1.0 (pow (/ U (* t_0 (* J 2.0))) 2.0))))
2e+303)
(* -2.0 (* t_0 (* J (hypot 1.0 (/ U (* 2.0 (* J t_0)))))))
(fabs (- (* (* J J) (/ -2.0 U)) U)))))double code(double J, double K, double U) {
return ((-2.0 * J) * cos((K / 2.0))) * sqrt((1.0 + pow((U / ((2.0 * J) * cos((K / 2.0)))), 2.0)));
}
double code(double J, double K, double U) {
double t_0 = cos((K / 2.0));
double tmp;
if ((((-2.0 * J) * t_0) * sqrt((1.0 + pow((U / (t_0 * (J * 2.0))), 2.0)))) <= 2e+303) {
tmp = -2.0 * (t_0 * (J * hypot(1.0, (U / (2.0 * (J * t_0))))));
} else {
tmp = fabs((((J * J) * (-2.0 / U)) - U));
}
return tmp;
}
public static double code(double J, double K, double U) {
return ((-2.0 * J) * Math.cos((K / 2.0))) * Math.sqrt((1.0 + Math.pow((U / ((2.0 * J) * Math.cos((K / 2.0)))), 2.0)));
}
public static double code(double J, double K, double U) {
double t_0 = Math.cos((K / 2.0));
double tmp;
if ((((-2.0 * J) * t_0) * Math.sqrt((1.0 + Math.pow((U / (t_0 * (J * 2.0))), 2.0)))) <= 2e+303) {
tmp = -2.0 * (t_0 * (J * Math.hypot(1.0, (U / (2.0 * (J * t_0))))));
} else {
tmp = Math.abs((((J * J) * (-2.0 / U)) - U));
}
return tmp;
}
def code(J, K, U): return ((-2.0 * J) * math.cos((K / 2.0))) * math.sqrt((1.0 + math.pow((U / ((2.0 * J) * math.cos((K / 2.0)))), 2.0)))
def code(J, K, U): t_0 = math.cos((K / 2.0)) tmp = 0 if (((-2.0 * J) * t_0) * math.sqrt((1.0 + math.pow((U / (t_0 * (J * 2.0))), 2.0)))) <= 2e+303: tmp = -2.0 * (t_0 * (J * math.hypot(1.0, (U / (2.0 * (J * t_0)))))) else: tmp = math.fabs((((J * J) * (-2.0 / U)) - U)) return tmp
function code(J, K, U) return Float64(Float64(Float64(-2.0 * J) * cos(Float64(K / 2.0))) * sqrt(Float64(1.0 + (Float64(U / Float64(Float64(2.0 * J) * cos(Float64(K / 2.0)))) ^ 2.0)))) end
function code(J, K, U) t_0 = cos(Float64(K / 2.0)) tmp = 0.0 if (Float64(Float64(Float64(-2.0 * J) * t_0) * sqrt(Float64(1.0 + (Float64(U / Float64(t_0 * Float64(J * 2.0))) ^ 2.0)))) <= 2e+303) tmp = Float64(-2.0 * Float64(t_0 * Float64(J * hypot(1.0, Float64(U / Float64(2.0 * Float64(J * t_0))))))); else tmp = abs(Float64(Float64(Float64(J * J) * Float64(-2.0 / U)) - U)); end return tmp end
function tmp = code(J, K, U) tmp = ((-2.0 * J) * cos((K / 2.0))) * sqrt((1.0 + ((U / ((2.0 * J) * cos((K / 2.0)))) ^ 2.0))); end
function tmp_2 = code(J, K, U) t_0 = cos((K / 2.0)); tmp = 0.0; if ((((-2.0 * J) * t_0) * sqrt((1.0 + ((U / (t_0 * (J * 2.0))) ^ 2.0)))) <= 2e+303) tmp = -2.0 * (t_0 * (J * hypot(1.0, (U / (2.0 * (J * t_0)))))); else tmp = abs((((J * J) * (-2.0 / U)) - U)); end tmp_2 = tmp; end
code[J_, K_, U_] := N[(N[(N[(-2.0 * J), $MachinePrecision] * N[Cos[N[(K / 2.0), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] * N[Sqrt[N[(1.0 + N[Power[N[(U / N[(N[(2.0 * J), $MachinePrecision] * N[Cos[N[(K / 2.0), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
code[J_, K_, U_] := Block[{t$95$0 = N[Cos[N[(K / 2.0), $MachinePrecision]], $MachinePrecision]}, If[LessEqual[N[(N[(N[(-2.0 * J), $MachinePrecision] * t$95$0), $MachinePrecision] * N[Sqrt[N[(1.0 + N[Power[N[(U / N[(t$95$0 * N[(J * 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision], 2e+303], N[(-2.0 * N[(t$95$0 * N[(J * N[Sqrt[1.0 ^ 2 + N[(U / N[(2.0 * N[(J * t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] ^ 2], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[Abs[N[(N[(N[(J * J), $MachinePrecision] * N[(-2.0 / U), $MachinePrecision]), $MachinePrecision] - U), $MachinePrecision]], $MachinePrecision]]]
\left(\left(-2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)\right) \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}
\begin{array}{l}
t_0 := \cos \left(\frac{K}{2}\right)\\
\mathbf{if}\;\left(\left(-2 \cdot J\right) \cdot t_0\right) \cdot \sqrt{1 + {\left(\frac{U}{t_0 \cdot \left(J \cdot 2\right)}\right)}^{2}} \leq 2 \cdot 10^{+303}:\\
\;\;\;\;-2 \cdot \left(t_0 \cdot \left(J \cdot \mathsf{hypot}\left(1, \frac{U}{2 \cdot \left(J \cdot t_0\right)}\right)\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\left|\left(J \cdot J\right) \cdot \frac{-2}{U} - U\right|\\
\end{array}
Results
if (*.f64 (*.f64 (*.f64 -2 J) (cos.f64 (/.f64 K 2))) (sqrt.f64 (+.f64 1 (pow.f64 (/.f64 U (*.f64 (*.f64 2 J) (cos.f64 (/.f64 K 2)))) 2)))) < 2e303Initial program 82.9%
Simplified91.9%
[Start]82.9 | \[ \left(\left(-2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)\right) \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}
\] |
|---|---|
associate-*l* [=>]82.9 | \[ \color{blue}{\left(-2 \cdot \left(J \cdot \cos \left(\frac{K}{2}\right)\right)\right)} \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}
\] |
associate-*l* [=>]82.9 | \[ \color{blue}{-2 \cdot \left(\left(J \cdot \cos \left(\frac{K}{2}\right)\right) \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}\right)}
\] |
*-commutative [=>]82.9 | \[ -2 \cdot \left(\color{blue}{\left(\cos \left(\frac{K}{2}\right) \cdot J\right)} \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}\right)
\] |
associate-*l* [=>]82.9 | \[ -2 \cdot \color{blue}{\left(\cos \left(\frac{K}{2}\right) \cdot \left(J \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}\right)\right)}
\] |
unpow2 [=>]82.9 | \[ -2 \cdot \left(\cos \left(\frac{K}{2}\right) \cdot \left(J \cdot \sqrt{1 + \color{blue}{\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)} \cdot \frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}}}\right)\right)
\] |
hypot-1-def [=>]91.9 | \[ -2 \cdot \left(\cos \left(\frac{K}{2}\right) \cdot \left(J \cdot \color{blue}{\mathsf{hypot}\left(1, \frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}\right)\right)
\] |
associate-*l* [=>]91.9 | \[ -2 \cdot \left(\cos \left(\frac{K}{2}\right) \cdot \left(J \cdot \mathsf{hypot}\left(1, \frac{U}{\color{blue}{2 \cdot \left(J \cdot \cos \left(\frac{K}{2}\right)\right)}}\right)\right)\right)
\] |
if 2e303 < (*.f64 (*.f64 (*.f64 -2 J) (cos.f64 (/.f64 K 2))) (sqrt.f64 (+.f64 1 (pow.f64 (/.f64 U (*.f64 (*.f64 2 J) (cos.f64 (/.f64 K 2)))) 2)))) Initial program 3.1%
Simplified56.1%
[Start]3.1 | \[ \left(\left(-2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)\right) \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}
\] |
|---|---|
unpow2 [=>]3.1 | \[ \left(\left(-2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)\right) \cdot \sqrt{1 + \color{blue}{\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)} \cdot \frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}}}
\] |
hypot-1-def [=>]56.1 | \[ \left(\left(-2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)\right) \cdot \color{blue}{\mathsf{hypot}\left(1, \frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}
\] |
associate-*l* [=>]56.1 | \[ \left(\left(-2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)\right) \cdot \mathsf{hypot}\left(1, \frac{U}{\color{blue}{2 \cdot \left(J \cdot \cos \left(\frac{K}{2}\right)\right)}}\right)
\] |
Taylor expanded in J around 0 48.8%
Simplified49.2%
[Start]48.8 | \[ -2 \cdot \frac{{\cos \left(0.5 \cdot K\right)}^{2} \cdot {J}^{2}}{U} + -1 \cdot U
\] |
|---|---|
mul-1-neg [=>]48.8 | \[ -2 \cdot \frac{{\cos \left(0.5 \cdot K\right)}^{2} \cdot {J}^{2}}{U} + \color{blue}{\left(-U\right)}
\] |
unsub-neg [=>]48.8 | \[ \color{blue}{-2 \cdot \frac{{\cos \left(0.5 \cdot K\right)}^{2} \cdot {J}^{2}}{U} - U}
\] |
associate-*r/ [=>]48.8 | \[ \color{blue}{\frac{-2 \cdot \left({\cos \left(0.5 \cdot K\right)}^{2} \cdot {J}^{2}\right)}{U}} - U
\] |
associate-/l* [=>]48.8 | \[ \color{blue}{\frac{-2}{\frac{U}{{\cos \left(0.5 \cdot K\right)}^{2} \cdot {J}^{2}}}} - U
\] |
*-commutative [=>]48.8 | \[ \frac{-2}{\frac{U}{\color{blue}{{J}^{2} \cdot {\cos \left(0.5 \cdot K\right)}^{2}}}} - U
\] |
unpow2 [=>]48.8 | \[ \frac{-2}{\frac{U}{\color{blue}{\left(J \cdot J\right)} \cdot {\cos \left(0.5 \cdot K\right)}^{2}}} - U
\] |
associate-*l* [=>]48.8 | \[ \frac{-2}{\frac{U}{\color{blue}{J \cdot \left(J \cdot {\cos \left(0.5 \cdot K\right)}^{2}\right)}}} - U
\] |
associate-/r* [=>]49.2 | \[ \frac{-2}{\color{blue}{\frac{\frac{U}{J}}{J \cdot {\cos \left(0.5 \cdot K\right)}^{2}}}} - U
\] |
Taylor expanded in K around 0 49.2%
Applied egg-rr40.3%
[Start]49.2 | \[ \frac{-2}{\frac{\frac{U}{J}}{J}} - U
\] |
|---|---|
add-sqr-sqrt [=>]48.5 | \[ \color{blue}{\sqrt{\frac{-2}{\frac{\frac{U}{J}}{J}} - U} \cdot \sqrt{\frac{-2}{\frac{\frac{U}{J}}{J}} - U}}
\] |
sqrt-unprod [=>]40.3 | \[ \color{blue}{\sqrt{\left(\frac{-2}{\frac{\frac{U}{J}}{J}} - U\right) \cdot \left(\frac{-2}{\frac{\frac{U}{J}}{J}} - U\right)}}
\] |
pow2 [=>]40.3 | \[ \sqrt{\color{blue}{{\left(\frac{-2}{\frac{\frac{U}{J}}{J}} - U\right)}^{2}}}
\] |
associate-/r/ [=>]40.3 | \[ \sqrt{{\left(\color{blue}{\frac{-2}{\frac{U}{J}} \cdot J} - U\right)}^{2}}
\] |
*-commutative [=>]40.3 | \[ \sqrt{{\left(\color{blue}{J \cdot \frac{-2}{\frac{U}{J}}} - U\right)}^{2}}
\] |
clear-num [=>]40.3 | \[ \sqrt{{\left(J \cdot \frac{-2}{\color{blue}{\frac{1}{\frac{J}{U}}}} - U\right)}^{2}}
\] |
associate-/r/ [=>]40.3 | \[ \sqrt{{\left(J \cdot \color{blue}{\left(\frac{-2}{1} \cdot \frac{J}{U}\right)} - U\right)}^{2}}
\] |
metadata-eval [=>]40.3 | \[ \sqrt{{\left(J \cdot \left(\color{blue}{-2} \cdot \frac{J}{U}\right) - U\right)}^{2}}
\] |
Simplified96.9%
[Start]40.3 | \[ \sqrt{{\left(J \cdot \left(-2 \cdot \frac{J}{U}\right) - U\right)}^{2}}
\] |
|---|---|
unpow2 [=>]40.3 | \[ \sqrt{\color{blue}{\left(J \cdot \left(-2 \cdot \frac{J}{U}\right) - U\right) \cdot \left(J \cdot \left(-2 \cdot \frac{J}{U}\right) - U\right)}}
\] |
rem-sqrt-square [=>]97.5 | \[ \color{blue}{\left|J \cdot \left(-2 \cdot \frac{J}{U}\right) - U\right|}
\] |
*-commutative [=>]97.5 | \[ \left|J \cdot \color{blue}{\left(\frac{J}{U} \cdot -2\right)} - U\right|
\] |
associate-*l* [<=]97.5 | \[ \left|\color{blue}{\left(J \cdot \frac{J}{U}\right) \cdot -2} - U\right|
\] |
associate-*r/ [=>]96.9 | \[ \left|\color{blue}{\frac{J \cdot J}{U}} \cdot -2 - U\right|
\] |
associate-*l/ [=>]96.9 | \[ \left|\color{blue}{\frac{\left(J \cdot J\right) \cdot -2}{U}} - U\right|
\] |
associate-*r/ [<=]96.9 | \[ \left|\color{blue}{\left(J \cdot J\right) \cdot \frac{-2}{U}} - U\right|
\] |
Final simplification92.7%
| Alternative 1 | |
|---|---|
| Accuracy | 57.6% |
| Cost | 21212 |
| Alternative 2 | |
|---|---|
| Accuracy | 57.5% |
| Cost | 8028 |
| Alternative 3 | |
|---|---|
| Accuracy | 58.4% |
| Cost | 7764 |
| Alternative 4 | |
|---|---|
| Accuracy | 58.4% |
| Cost | 7509 |
| Alternative 5 | |
|---|---|
| Accuracy | 38.2% |
| Cost | 853 |
| Alternative 6 | |
|---|---|
| Accuracy | 27.3% |
| Cost | 392 |
| Alternative 7 | |
|---|---|
| Accuracy | 27.0% |
| Cost | 64 |
herbie shell --seed 2023137
(FPCore (J K U)
:name "Maksimov and Kolovsky, Equation (3)"
:precision binary64
(* (* (* -2.0 J) (cos (/ K 2.0))) (sqrt (+ 1.0 (pow (/ U (* (* 2.0 J) (cos (/ K 2.0)))) 2.0)))))