\[\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}}
\]
↓
\[J \cdot \left(\mathsf{hypot}\left(1, \frac{\frac{\frac{U}{\cos \left(K \cdot 0.5\right)}}{2}}{J}\right) \cdot \left(-2 \cdot \cos \left(\frac{K}{2}\right)\right)\right)
\]
(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
(*
J
(*
(hypot 1.0 (/ (/ (/ U (cos (* K 0.5))) 2.0) J))
(* -2.0 (cos (/ K 2.0))))))
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) {
return J * (hypot(1.0, (((U / cos((K * 0.5))) / 2.0) / J)) * (-2.0 * cos((K / 2.0))));
}
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) {
return J * (Math.hypot(1.0, (((U / Math.cos((K * 0.5))) / 2.0) / J)) * (-2.0 * Math.cos((K / 2.0))));
}
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):
return J * (math.hypot(1.0, (((U / math.cos((K * 0.5))) / 2.0) / J)) * (-2.0 * math.cos((K / 2.0))))
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)
return Float64(J * Float64(hypot(1.0, Float64(Float64(Float64(U / cos(Float64(K * 0.5))) / 2.0) / J)) * Float64(-2.0 * cos(Float64(K / 2.0)))))
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 = code(J, K, U)
tmp = J * (hypot(1.0, (((U / cos((K * 0.5))) / 2.0) / J)) * (-2.0 * cos((K / 2.0))));
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_] := N[(J * N[(N[Sqrt[1.0 ^ 2 + N[(N[(N[(U / N[Cos[N[(K * 0.5), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / 2.0), $MachinePrecision] / J), $MachinePrecision] ^ 2], $MachinePrecision] * N[(-2.0 * N[Cos[N[(K / 2.0), $MachinePrecision]], $MachinePrecision]), $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}}
↓
J \cdot \left(\mathsf{hypot}\left(1, \frac{\frac{\frac{U}{\cos \left(K \cdot 0.5\right)}}{2}}{J}\right) \cdot \left(-2 \cdot \cos \left(\frac{K}{2}\right)\right)\right)
