| Alternative 1 | |
|---|---|
| Error | 16.8 |
| Cost | 27144 |
(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
(*
(* (* -2.0 J) t_0)
(sqrt (+ 1.0 (pow (/ U (* (* 2.0 J) t_0)) 2.0))))))
(if (<= t_1 (- INFINITY)) U (if (<= t_1 1e+308) t_1 (- 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 t_1 = ((-2.0 * J) * t_0) * sqrt((1.0 + pow((U / ((2.0 * J) * t_0)), 2.0)));
double tmp;
if (t_1 <= -((double) INFINITY)) {
tmp = U;
} else if (t_1 <= 1e+308) {
tmp = t_1;
} else {
tmp = -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 t_1 = ((-2.0 * J) * t_0) * Math.sqrt((1.0 + Math.pow((U / ((2.0 * J) * t_0)), 2.0)));
double tmp;
if (t_1 <= -Double.POSITIVE_INFINITY) {
tmp = U;
} else if (t_1 <= 1e+308) {
tmp = t_1;
} else {
tmp = -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)) t_1 = ((-2.0 * J) * t_0) * math.sqrt((1.0 + math.pow((U / ((2.0 * J) * t_0)), 2.0))) tmp = 0 if t_1 <= -math.inf: tmp = U elif t_1 <= 1e+308: tmp = t_1 else: tmp = -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)) t_1 = Float64(Float64(Float64(-2.0 * J) * t_0) * sqrt(Float64(1.0 + (Float64(U / Float64(Float64(2.0 * J) * t_0)) ^ 2.0)))) tmp = 0.0 if (t_1 <= Float64(-Inf)) tmp = U; elseif (t_1 <= 1e+308) tmp = t_1; else tmp = Float64(-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)); t_1 = ((-2.0 * J) * t_0) * sqrt((1.0 + ((U / ((2.0 * J) * t_0)) ^ 2.0))); tmp = 0.0; if (t_1 <= -Inf) tmp = U; elseif (t_1 <= 1e+308) tmp = t_1; else tmp = -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]}, Block[{t$95$1 = N[(N[(N[(-2.0 * J), $MachinePrecision] * t$95$0), $MachinePrecision] * N[Sqrt[N[(1.0 + N[Power[N[(U / N[(N[(2.0 * J), $MachinePrecision] * t$95$0), $MachinePrecision]), $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$1, (-Infinity)], U, If[LessEqual[t$95$1, 1e+308], t$95$1, (-U)]]]]
\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 := \left(\left(-2 \cdot J\right) \cdot t_0\right) \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot t_0}\right)}^{2}}\\
\mathbf{if}\;t_1 \leq -\infty:\\
\;\;\;\;U\\
\mathbf{elif}\;t_1 \leq 10^{+308}:\\
\;\;\;\;t_1\\
\mathbf{else}:\\
\;\;\;\;-U\\
\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)))) < -inf.0Initial program 64.0
Simplified64.0
[Start]64.0 | \[ \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}}
\] |
|---|---|
rational.json-simplify-2 [=>]64.0 | \[ \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)}
\] |
rational.json-simplify-43 [=>]64.0 | \[ \color{blue}{\left(-2 \cdot J\right) \cdot \left(\cos \left(\frac{K}{2}\right) \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}\right)}
\] |
trig.json-simplify-24 [=>]64.0 | \[ \left(-2 \cdot J\right) \cdot \left(\color{blue}{\cos \left(-\frac{K}{2}\right)} \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}\right)
\] |
trig.json-simplify-24 [=>]64.0 | \[ \left(-2 \cdot J\right) \cdot \left(\color{blue}{\cos \left(-\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)
\] |
rational.json-simplify-8 [=>]64.0 | \[ \left(-2 \cdot J\right) \cdot \left(\cos \color{blue}{\left(\left(-\frac{K}{2}\right) \cdot -1\right)} \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}\right)
\] |
rational.json-simplify-2 [=>]64.0 | \[ \left(-2 \cdot J\right) \cdot \left(\cos \color{blue}{\left(-1 \cdot \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)
\] |
rational.json-simplify-10 [=>]64.0 | \[ \left(-2 \cdot J\right) \cdot \left(\cos \left(-1 \cdot \color{blue}{\frac{\frac{K}{2}}{-1}}\right) \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}\right)
\] |
rational.json-simplify-47 [=>]64.0 | \[ \left(-2 \cdot J\right) \cdot \left(\cos \left(-1 \cdot \color{blue}{\frac{K}{2 \cdot -1}}\right) \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}\right)
\] |
metadata-eval [=>]64.0 | \[ \left(-2 \cdot J\right) \cdot \left(\cos \left(-1 \cdot \frac{K}{\color{blue}{-2}}\right) \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}\right)
\] |
rational.json-simplify-49 [<=]64.0 | \[ \left(-2 \cdot J\right) \cdot \left(\cos \color{blue}{\left(\frac{K \cdot -1}{-2}\right)} \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}\right)
\] |
rational.json-simplify-2 [=>]64.0 | \[ \left(-2 \cdot J\right) \cdot \left(\cos \left(\frac{\color{blue}{-1 \cdot K}}{-2}\right) \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}\right)
\] |
rational.json-simplify-49 [=>]64.0 | \[ \left(-2 \cdot J\right) \cdot \left(\cos \color{blue}{\left(K \cdot \frac{-1}{-2}\right)} \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}\right)
\] |
metadata-eval [=>]64.0 | \[ \left(-2 \cdot J\right) \cdot \left(\cos \left(K \cdot \color{blue}{0.5}\right) \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}\right)
\] |
Taylor expanded in U around -inf 31.9
if -inf.0 < (*.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)))) < 1e308Initial program 0.1
if 1e308 < (*.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 64.0
Simplified64.0
[Start]64.0 | \[ \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}}
\] |
|---|---|
rational.json-simplify-2 [=>]64.0 | \[ \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)}
\] |
rational.json-simplify-43 [=>]64.0 | \[ \color{blue}{\left(-2 \cdot J\right) \cdot \left(\cos \left(\frac{K}{2}\right) \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}\right)}
\] |
trig.json-simplify-24 [=>]64.0 | \[ \left(-2 \cdot J\right) \cdot \left(\color{blue}{\cos \left(-\frac{K}{2}\right)} \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}\right)
\] |
trig.json-simplify-24 [=>]64.0 | \[ \left(-2 \cdot J\right) \cdot \left(\color{blue}{\cos \left(-\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)
\] |
rational.json-simplify-8 [=>]64.0 | \[ \left(-2 \cdot J\right) \cdot \left(\cos \color{blue}{\left(\left(-\frac{K}{2}\right) \cdot -1\right)} \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}\right)
\] |
rational.json-simplify-2 [=>]64.0 | \[ \left(-2 \cdot J\right) \cdot \left(\cos \color{blue}{\left(-1 \cdot \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)
\] |
rational.json-simplify-10 [=>]64.0 | \[ \left(-2 \cdot J\right) \cdot \left(\cos \left(-1 \cdot \color{blue}{\frac{\frac{K}{2}}{-1}}\right) \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}\right)
\] |
rational.json-simplify-47 [=>]64.0 | \[ \left(-2 \cdot J\right) \cdot \left(\cos \left(-1 \cdot \color{blue}{\frac{K}{2 \cdot -1}}\right) \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}\right)
\] |
metadata-eval [=>]64.0 | \[ \left(-2 \cdot J\right) \cdot \left(\cos \left(-1 \cdot \frac{K}{\color{blue}{-2}}\right) \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}\right)
\] |
rational.json-simplify-49 [<=]64.0 | \[ \left(-2 \cdot J\right) \cdot \left(\cos \color{blue}{\left(\frac{K \cdot -1}{-2}\right)} \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}\right)
\] |
rational.json-simplify-2 [=>]64.0 | \[ \left(-2 \cdot J\right) \cdot \left(\cos \left(\frac{\color{blue}{-1 \cdot K}}{-2}\right) \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}\right)
\] |
rational.json-simplify-49 [=>]64.0 | \[ \left(-2 \cdot J\right) \cdot \left(\cos \color{blue}{\left(K \cdot \frac{-1}{-2}\right)} \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}\right)
\] |
metadata-eval [=>]64.0 | \[ \left(-2 \cdot J\right) \cdot \left(\cos \left(K \cdot \color{blue}{0.5}\right) \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}\right)
\] |
Taylor expanded in J around 0 31.8
Simplified31.8
[Start]31.8 | \[ -1 \cdot U
\] |
|---|---|
rational.json-simplify-2 [=>]31.8 | \[ \color{blue}{U \cdot -1}
\] |
rational.json-simplify-8 [<=]31.8 | \[ \color{blue}{-U}
\] |
Final simplification8.9
| Alternative 1 | |
|---|---|
| Error | 16.8 |
| Cost | 27144 |
| Alternative 2 | |
|---|---|
| Error | 22.8 |
| Cost | 21016 |
| Alternative 3 | |
|---|---|
| Error | 26.5 |
| Cost | 14096 |
| Alternative 4 | |
|---|---|
| Error | 26.4 |
| Cost | 7508 |
| Alternative 5 | |
|---|---|
| Error | 38.8 |
| Cost | 1236 |
| Alternative 6 | |
|---|---|
| Error | 47.0 |
| Cost | 920 |
| Alternative 7 | |
|---|---|
| Error | 38.7 |
| Cost | 852 |
| Alternative 8 | |
|---|---|
| Error | 47.0 |
| Cost | 64 |
herbie shell --seed 2023073
(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)))))