| Alternative 1 | |
|---|---|
| Accuracy | 85.9% |
| Cost | 20882 |
(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)))
(t_1 (hypot 1.0 (/ U (* J (* 2.0 t_0)))))
(t_2 (* (* J (* -2.0 t_0)) t_1)))
(if (<= J -3.2e-206)
t_2
(if (<= J -1.46e-260)
U
(if (<= J 3.4e-197)
t_2
(if (<= J 1e-181) U (* J (* t_0 (* -2.0 t_1)))))))))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 t_1 = hypot(1.0, (U / (J * (2.0 * t_0))));
double t_2 = (J * (-2.0 * t_0)) * t_1;
double tmp;
if (J <= -3.2e-206) {
tmp = t_2;
} else if (J <= -1.46e-260) {
tmp = U;
} else if (J <= 3.4e-197) {
tmp = t_2;
} else if (J <= 1e-181) {
tmp = U;
} else {
tmp = J * (t_0 * (-2.0 * t_1));
}
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 t_1 = Math.hypot(1.0, (U / (J * (2.0 * t_0))));
double t_2 = (J * (-2.0 * t_0)) * t_1;
double tmp;
if (J <= -3.2e-206) {
tmp = t_2;
} else if (J <= -1.46e-260) {
tmp = U;
} else if (J <= 3.4e-197) {
tmp = t_2;
} else if (J <= 1e-181) {
tmp = U;
} else {
tmp = J * (t_0 * (-2.0 * t_1));
}
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)) t_1 = math.hypot(1.0, (U / (J * (2.0 * t_0)))) t_2 = (J * (-2.0 * t_0)) * t_1 tmp = 0 if J <= -3.2e-206: tmp = t_2 elif J <= -1.46e-260: tmp = U elif J <= 3.4e-197: tmp = t_2 elif J <= 1e-181: tmp = U else: tmp = J * (t_0 * (-2.0 * t_1)) 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)) t_1 = hypot(1.0, Float64(U / Float64(J * Float64(2.0 * t_0)))) t_2 = Float64(Float64(J * Float64(-2.0 * t_0)) * t_1) tmp = 0.0 if (J <= -3.2e-206) tmp = t_2; elseif (J <= -1.46e-260) tmp = U; elseif (J <= 3.4e-197) tmp = t_2; elseif (J <= 1e-181) tmp = U; else tmp = Float64(J * Float64(t_0 * Float64(-2.0 * t_1))); 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)); t_1 = hypot(1.0, (U / (J * (2.0 * t_0)))); t_2 = (J * (-2.0 * t_0)) * t_1; tmp = 0.0; if (J <= -3.2e-206) tmp = t_2; elseif (J <= -1.46e-260) tmp = U; elseif (J <= 3.4e-197) tmp = t_2; elseif (J <= 1e-181) tmp = U; else tmp = J * (t_0 * (-2.0 * t_1)); 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]}, Block[{t$95$1 = N[Sqrt[1.0 ^ 2 + N[(U / N[(J * N[(2.0 * t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] ^ 2], $MachinePrecision]}, Block[{t$95$2 = N[(N[(J * N[(-2.0 * t$95$0), $MachinePrecision]), $MachinePrecision] * t$95$1), $MachinePrecision]}, If[LessEqual[J, -3.2e-206], t$95$2, If[LessEqual[J, -1.46e-260], U, If[LessEqual[J, 3.4e-197], t$95$2, If[LessEqual[J, 1e-181], U, N[(J * N[(t$95$0 * N[(-2.0 * t$95$1), $MachinePrecision]), $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)\\
t_1 := \mathsf{hypot}\left(1, \frac{U}{J \cdot \left(2 \cdot t_0\right)}\right)\\
t_2 := \left(J \cdot \left(-2 \cdot t_0\right)\right) \cdot t_1\\
\mathbf{if}\;J \leq -3.2 \cdot 10^{-206}:\\
\;\;\;\;t_2\\
\mathbf{elif}\;J \leq -1.46 \cdot 10^{-260}:\\
\;\;\;\;U\\
\mathbf{elif}\;J \leq 3.4 \cdot 10^{-197}:\\
\;\;\;\;t_2\\
\mathbf{elif}\;J \leq 10^{-181}:\\
\;\;\;\;U\\
\mathbf{else}:\\
\;\;\;\;J \cdot \left(t_0 \cdot \left(-2 \cdot t_1\right)\right)\\
\end{array}
Results
if J < -3.19999999999999976e-206 or -1.45999999999999995e-260 < J < 3.3999999999999998e-197Initial program 66.9%
Simplified84.0%
[Start]66.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}}
\] |
|---|---|
*-commutative [=>]66.9 | \[ \left(\color{blue}{\left(J \cdot -2\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* [=>]66.9 | \[ \color{blue}{\left(J \cdot \left(-2 \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}}
\] |
unpow2 [=>]66.9 | \[ \left(J \cdot \left(-2 \cdot \cos \left(\frac{K}{2}\right)\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 [=>]84.0 | \[ \left(J \cdot \left(-2 \cdot \cos \left(\frac{K}{2}\right)\right)\right) \cdot \color{blue}{\mathsf{hypot}\left(1, \frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}
\] |
*-commutative [=>]84.0 | \[ \left(J \cdot \left(-2 \cdot \cos \left(\frac{K}{2}\right)\right)\right) \cdot \mathsf{hypot}\left(1, \frac{U}{\color{blue}{\left(J \cdot 2\right)} \cdot \cos \left(\frac{K}{2}\right)}\right)
\] |
associate-*l* [=>]84.0 | \[ \left(J \cdot \left(-2 \cdot \cos \left(\frac{K}{2}\right)\right)\right) \cdot \mathsf{hypot}\left(1, \frac{U}{\color{blue}{J \cdot \left(2 \cdot \cos \left(\frac{K}{2}\right)\right)}}\right)
\] |
if -3.19999999999999976e-206 < J < -1.45999999999999995e-260 or 3.3999999999999998e-197 < J < 1.00000000000000005e-181Initial program 42.3%
Simplified62.2%
[Start]42.3 | \[ \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}}
\] |
|---|---|
*-commutative [=>]42.3 | \[ \color{blue}{\sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}} \cdot \left(\left(-2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)\right)}
\] |
associate-*l* [=>]42.3 | \[ \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}} \cdot \color{blue}{\left(-2 \cdot \left(J \cdot \cos \left(\frac{K}{2}\right)\right)\right)}
\] |
associate-*r* [=>]42.3 | \[ \color{blue}{\left(\sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}} \cdot -2\right) \cdot \left(J \cdot \cos \left(\frac{K}{2}\right)\right)}
\] |
*-commutative [=>]42.3 | \[ \color{blue}{\left(J \cdot \cos \left(\frac{K}{2}\right)\right) \cdot \left(\sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}} \cdot -2\right)}
\] |
associate-*l* [=>]42.2 | \[ \color{blue}{J \cdot \left(\cos \left(\frac{K}{2}\right) \cdot \left(\sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}} \cdot -2\right)\right)}
\] |
*-commutative [=>]42.2 | \[ J \cdot \left(\cos \left(\frac{K}{2}\right) \cdot \color{blue}{\left(-2 \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}\right)}\right)
\] |
unpow2 [=>]42.2 | \[ J \cdot \left(\cos \left(\frac{K}{2}\right) \cdot \left(-2 \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 [=>]62.2 | \[ J \cdot \left(\cos \left(\frac{K}{2}\right) \cdot \left(-2 \cdot \color{blue}{\mathsf{hypot}\left(1, \frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}\right)\right)
\] |
*-commutative [=>]62.2 | \[ J \cdot \left(\cos \left(\frac{K}{2}\right) \cdot \left(-2 \cdot \mathsf{hypot}\left(1, \frac{U}{\color{blue}{\left(J \cdot 2\right)} \cdot \cos \left(\frac{K}{2}\right)}\right)\right)\right)
\] |
associate-*l* [=>]62.2 | \[ J \cdot \left(\cos \left(\frac{K}{2}\right) \cdot \left(-2 \cdot \mathsf{hypot}\left(1, \frac{U}{\color{blue}{J \cdot \left(2 \cdot \cos \left(\frac{K}{2}\right)\right)}}\right)\right)\right)
\] |
Taylor expanded in U around -inf 42.0%
if 1.00000000000000005e-181 < J Initial program 80.9%
Simplified94.3%
[Start]80.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}}
\] |
|---|---|
*-commutative [=>]80.9 | \[ \color{blue}{\sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}} \cdot \left(\left(-2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)\right)}
\] |
associate-*l* [=>]80.9 | \[ \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}} \cdot \color{blue}{\left(-2 \cdot \left(J \cdot \cos \left(\frac{K}{2}\right)\right)\right)}
\] |
associate-*r* [=>]80.9 | \[ \color{blue}{\left(\sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}} \cdot -2\right) \cdot \left(J \cdot \cos \left(\frac{K}{2}\right)\right)}
\] |
*-commutative [=>]80.9 | \[ \color{blue}{\left(J \cdot \cos \left(\frac{K}{2}\right)\right) \cdot \left(\sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}} \cdot -2\right)}
\] |
associate-*l* [=>]80.9 | \[ \color{blue}{J \cdot \left(\cos \left(\frac{K}{2}\right) \cdot \left(\sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}} \cdot -2\right)\right)}
\] |
*-commutative [=>]80.9 | \[ J \cdot \left(\cos \left(\frac{K}{2}\right) \cdot \color{blue}{\left(-2 \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}\right)}\right)
\] |
unpow2 [=>]80.9 | \[ J \cdot \left(\cos \left(\frac{K}{2}\right) \cdot \left(-2 \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 [=>]94.3 | \[ J \cdot \left(\cos \left(\frac{K}{2}\right) \cdot \left(-2 \cdot \color{blue}{\mathsf{hypot}\left(1, \frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}\right)\right)
\] |
*-commutative [=>]94.3 | \[ J \cdot \left(\cos \left(\frac{K}{2}\right) \cdot \left(-2 \cdot \mathsf{hypot}\left(1, \frac{U}{\color{blue}{\left(J \cdot 2\right)} \cdot \cos \left(\frac{K}{2}\right)}\right)\right)\right)
\] |
associate-*l* [=>]94.3 | \[ J \cdot \left(\cos \left(\frac{K}{2}\right) \cdot \left(-2 \cdot \mathsf{hypot}\left(1, \frac{U}{\color{blue}{J \cdot \left(2 \cdot \cos \left(\frac{K}{2}\right)\right)}}\right)\right)\right)
\] |
Final simplification85.9%
| Alternative 1 | |
|---|---|
| Accuracy | 85.9% |
| Cost | 20882 |
| Alternative 2 | |
|---|---|
| Accuracy | 71.5% |
| Cost | 14224 |
| Alternative 3 | |
|---|---|
| Accuracy | 64.9% |
| Cost | 8204 |
| Alternative 4 | |
|---|---|
| Accuracy | 64.7% |
| Cost | 7820 |
| Alternative 5 | |
|---|---|
| Accuracy | 59.5% |
| Cost | 7376 |
| Alternative 6 | |
|---|---|
| Accuracy | 37.3% |
| Cost | 1316 |
| Alternative 7 | |
|---|---|
| Accuracy | 37.3% |
| Cost | 1316 |
| Alternative 8 | |
|---|---|
| Accuracy | 37.2% |
| Cost | 1316 |
| Alternative 9 | |
|---|---|
| Accuracy | 26.5% |
| Cost | 656 |
| Alternative 10 | |
|---|---|
| Accuracy | 26.2% |
| Cost | 64 |
herbie shell --seed 2023151
(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)))))