\[\frac{2}{\left(\left(\frac{{t}^{3}}{\ell \cdot \ell} \cdot \sin k\right) \cdot \tan k\right) \cdot \left(\left(1 + {\left(\frac{k}{t}\right)}^{2}\right) + 1\right)}
\]
↓
\[\begin{array}{l}
t_1 := \frac{2}{\frac{\left(\frac{t}{\ell} \cdot \left(t \cdot \sin k\right)\right) \cdot \left(\tan k \cdot \left(2 + {\left(\frac{k}{t}\right)}^{2}\right)\right)}{\frac{\ell}{t}}}\\
\mathbf{if}\;t \leq -1 \cdot 10^{+35}:\\
\;\;\;\;t_1\\
\mathbf{elif}\;t \leq 2 \cdot 10^{-54}:\\
\;\;\;\;\left(2 \cdot \frac{\frac{\ell}{k}}{t \cdot k}\right) \cdot \frac{\frac{\ell}{\sin k}}{\tan k}\\
\mathbf{else}:\\
\;\;\;\;t_1\\
\end{array}
\]
(FPCore (t l k)
:precision binary64
(/
2.0
(*
(* (* (/ (pow t 3.0) (* l l)) (sin k)) (tan k))
(+ (+ 1.0 (pow (/ k t) 2.0)) 1.0))))
↓
(FPCore (t l k)
:precision binary64
(let* ((t_1
(/
2.0
(/
(* (* (/ t l) (* t (sin k))) (* (tan k) (+ 2.0 (pow (/ k t) 2.0))))
(/ l t)))))
(if (<= t -1e+35)
t_1
(if (<= t 2e-54)
(* (* 2.0 (/ (/ l k) (* t k))) (/ (/ l (sin k)) (tan k)))
t_1))))double code(double t, double l, double k) {
return 2.0 / ((((pow(t, 3.0) / (l * l)) * sin(k)) * tan(k)) * ((1.0 + pow((k / t), 2.0)) + 1.0));
}
↓
double code(double t, double l, double k) {
double t_1 = 2.0 / ((((t / l) * (t * sin(k))) * (tan(k) * (2.0 + pow((k / t), 2.0)))) / (l / t));
double tmp;
if (t <= -1e+35) {
tmp = t_1;
} else if (t <= 2e-54) {
tmp = (2.0 * ((l / k) / (t * k))) * ((l / sin(k)) / tan(k));
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(t, l, k)
real(8), intent (in) :: t
real(8), intent (in) :: l
real(8), intent (in) :: k
code = 2.0d0 / (((((t ** 3.0d0) / (l * l)) * sin(k)) * tan(k)) * ((1.0d0 + ((k / t) ** 2.0d0)) + 1.0d0))
end function
↓
real(8) function code(t, l, k)
real(8), intent (in) :: t
real(8), intent (in) :: l
real(8), intent (in) :: k
real(8) :: t_1
real(8) :: tmp
t_1 = 2.0d0 / ((((t / l) * (t * sin(k))) * (tan(k) * (2.0d0 + ((k / t) ** 2.0d0)))) / (l / t))
if (t <= (-1d+35)) then
tmp = t_1
else if (t <= 2d-54) then
tmp = (2.0d0 * ((l / k) / (t * k))) * ((l / sin(k)) / tan(k))
else
tmp = t_1
end if
code = tmp
end function
public static double code(double t, double l, double k) {
return 2.0 / ((((Math.pow(t, 3.0) / (l * l)) * Math.sin(k)) * Math.tan(k)) * ((1.0 + Math.pow((k / t), 2.0)) + 1.0));
}
↓
public static double code(double t, double l, double k) {
double t_1 = 2.0 / ((((t / l) * (t * Math.sin(k))) * (Math.tan(k) * (2.0 + Math.pow((k / t), 2.0)))) / (l / t));
double tmp;
if (t <= -1e+35) {
tmp = t_1;
} else if (t <= 2e-54) {
tmp = (2.0 * ((l / k) / (t * k))) * ((l / Math.sin(k)) / Math.tan(k));
} else {
tmp = t_1;
}
return tmp;
}
def code(t, l, k):
return 2.0 / ((((math.pow(t, 3.0) / (l * l)) * math.sin(k)) * math.tan(k)) * ((1.0 + math.pow((k / t), 2.0)) + 1.0))
↓
def code(t, l, k):
t_1 = 2.0 / ((((t / l) * (t * math.sin(k))) * (math.tan(k) * (2.0 + math.pow((k / t), 2.0)))) / (l / t))
tmp = 0
if t <= -1e+35:
tmp = t_1
elif t <= 2e-54:
tmp = (2.0 * ((l / k) / (t * k))) * ((l / math.sin(k)) / math.tan(k))
else:
tmp = t_1
return tmp
function code(t, l, k)
return Float64(2.0 / Float64(Float64(Float64(Float64((t ^ 3.0) / Float64(l * l)) * sin(k)) * tan(k)) * Float64(Float64(1.0 + (Float64(k / t) ^ 2.0)) + 1.0)))
end
↓
function code(t, l, k)
t_1 = Float64(2.0 / Float64(Float64(Float64(Float64(t / l) * Float64(t * sin(k))) * Float64(tan(k) * Float64(2.0 + (Float64(k / t) ^ 2.0)))) / Float64(l / t)))
tmp = 0.0
if (t <= -1e+35)
tmp = t_1;
elseif (t <= 2e-54)
tmp = Float64(Float64(2.0 * Float64(Float64(l / k) / Float64(t * k))) * Float64(Float64(l / sin(k)) / tan(k)));
else
tmp = t_1;
end
return tmp
end
function tmp = code(t, l, k)
tmp = 2.0 / (((((t ^ 3.0) / (l * l)) * sin(k)) * tan(k)) * ((1.0 + ((k / t) ^ 2.0)) + 1.0));
end
↓
function tmp_2 = code(t, l, k)
t_1 = 2.0 / ((((t / l) * (t * sin(k))) * (tan(k) * (2.0 + ((k / t) ^ 2.0)))) / (l / t));
tmp = 0.0;
if (t <= -1e+35)
tmp = t_1;
elseif (t <= 2e-54)
tmp = (2.0 * ((l / k) / (t * k))) * ((l / sin(k)) / tan(k));
else
tmp = t_1;
end
tmp_2 = tmp;
end
code[t_, l_, k_] := N[(2.0 / N[(N[(N[(N[(N[Power[t, 3.0], $MachinePrecision] / N[(l * l), $MachinePrecision]), $MachinePrecision] * N[Sin[k], $MachinePrecision]), $MachinePrecision] * N[Tan[k], $MachinePrecision]), $MachinePrecision] * N[(N[(1.0 + N[Power[N[(k / t), $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
↓
code[t_, l_, k_] := Block[{t$95$1 = N[(2.0 / N[(N[(N[(N[(t / l), $MachinePrecision] * N[(t * N[Sin[k], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(N[Tan[k], $MachinePrecision] * N[(2.0 + N[Power[N[(k / t), $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(l / t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t, -1e+35], t$95$1, If[LessEqual[t, 2e-54], N[(N[(2.0 * N[(N[(l / k), $MachinePrecision] / N[(t * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(N[(l / N[Sin[k], $MachinePrecision]), $MachinePrecision] / N[Tan[k], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]
\frac{2}{\left(\left(\frac{{t}^{3}}{\ell \cdot \ell} \cdot \sin k\right) \cdot \tan k\right) \cdot \left(\left(1 + {\left(\frac{k}{t}\right)}^{2}\right) + 1\right)}
↓
\begin{array}{l}
t_1 := \frac{2}{\frac{\left(\frac{t}{\ell} \cdot \left(t \cdot \sin k\right)\right) \cdot \left(\tan k \cdot \left(2 + {\left(\frac{k}{t}\right)}^{2}\right)\right)}{\frac{\ell}{t}}}\\
\mathbf{if}\;t \leq -1 \cdot 10^{+35}:\\
\;\;\;\;t_1\\
\mathbf{elif}\;t \leq 2 \cdot 10^{-54}:\\
\;\;\;\;\left(2 \cdot \frac{\frac{\ell}{k}}{t \cdot k}\right) \cdot \frac{\frac{\ell}{\sin k}}{\tan k}\\
\mathbf{else}:\\
\;\;\;\;t_1\\
\end{array}
