
(FPCore (n U t l Om U*) :precision binary64 (sqrt (* (* (* 2.0 n) U) (- (- t (* 2.0 (/ (* l l) Om))) (* (* n (pow (/ l Om) 2.0)) (- U U*))))))
double code(double n, double U, double t, double l, double Om, double U_42_) {
return sqrt((((2.0 * n) * U) * ((t - (2.0 * ((l * l) / Om))) - ((n * pow((l / Om), 2.0)) * (U - U_42_)))));
}
real(8) function code(n, u, t, l, om, u_42)
real(8), intent (in) :: n
real(8), intent (in) :: u
real(8), intent (in) :: t
real(8), intent (in) :: l
real(8), intent (in) :: om
real(8), intent (in) :: u_42
code = sqrt((((2.0d0 * n) * u) * ((t - (2.0d0 * ((l * l) / om))) - ((n * ((l / om) ** 2.0d0)) * (u - u_42)))))
end function
public static double code(double n, double U, double t, double l, double Om, double U_42_) {
return Math.sqrt((((2.0 * n) * U) * ((t - (2.0 * ((l * l) / Om))) - ((n * Math.pow((l / Om), 2.0)) * (U - U_42_)))));
}
def code(n, U, t, l, Om, U_42_): return math.sqrt((((2.0 * n) * U) * ((t - (2.0 * ((l * l) / Om))) - ((n * math.pow((l / Om), 2.0)) * (U - U_42_)))))
function code(n, U, t, l, Om, U_42_) return sqrt(Float64(Float64(Float64(2.0 * n) * U) * Float64(Float64(t - Float64(2.0 * Float64(Float64(l * l) / Om))) - Float64(Float64(n * (Float64(l / Om) ^ 2.0)) * Float64(U - U_42_))))) end
function tmp = code(n, U, t, l, Om, U_42_) tmp = sqrt((((2.0 * n) * U) * ((t - (2.0 * ((l * l) / Om))) - ((n * ((l / Om) ^ 2.0)) * (U - U_42_))))); end
code[n_, U_, t_, l_, Om_, U$42$_] := N[Sqrt[N[(N[(N[(2.0 * n), $MachinePrecision] * U), $MachinePrecision] * N[(N[(t - N[(2.0 * N[(N[(l * l), $MachinePrecision] / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(n * N[Power[N[(l / Om), $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision] * N[(U - U$42$), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]
\begin{array}{l}
\\
\sqrt{\left(\left(2 \cdot n\right) \cdot U\right) \cdot \left(\left(t - 2 \cdot \frac{\ell \cdot \ell}{Om}\right) - \left(n \cdot {\left(\frac{\ell}{Om}\right)}^{2}\right) \cdot \left(U - U*\right)\right)}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 20 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (n U t l Om U*) :precision binary64 (sqrt (* (* (* 2.0 n) U) (- (- t (* 2.0 (/ (* l l) Om))) (* (* n (pow (/ l Om) 2.0)) (- U U*))))))
double code(double n, double U, double t, double l, double Om, double U_42_) {
return sqrt((((2.0 * n) * U) * ((t - (2.0 * ((l * l) / Om))) - ((n * pow((l / Om), 2.0)) * (U - U_42_)))));
}
real(8) function code(n, u, t, l, om, u_42)
real(8), intent (in) :: n
real(8), intent (in) :: u
real(8), intent (in) :: t
real(8), intent (in) :: l
real(8), intent (in) :: om
real(8), intent (in) :: u_42
code = sqrt((((2.0d0 * n) * u) * ((t - (2.0d0 * ((l * l) / om))) - ((n * ((l / om) ** 2.0d0)) * (u - u_42)))))
end function
public static double code(double n, double U, double t, double l, double Om, double U_42_) {
return Math.sqrt((((2.0 * n) * U) * ((t - (2.0 * ((l * l) / Om))) - ((n * Math.pow((l / Om), 2.0)) * (U - U_42_)))));
}
def code(n, U, t, l, Om, U_42_): return math.sqrt((((2.0 * n) * U) * ((t - (2.0 * ((l * l) / Om))) - ((n * math.pow((l / Om), 2.0)) * (U - U_42_)))))
function code(n, U, t, l, Om, U_42_) return sqrt(Float64(Float64(Float64(2.0 * n) * U) * Float64(Float64(t - Float64(2.0 * Float64(Float64(l * l) / Om))) - Float64(Float64(n * (Float64(l / Om) ^ 2.0)) * Float64(U - U_42_))))) end
function tmp = code(n, U, t, l, Om, U_42_) tmp = sqrt((((2.0 * n) * U) * ((t - (2.0 * ((l * l) / Om))) - ((n * ((l / Om) ^ 2.0)) * (U - U_42_))))); end
code[n_, U_, t_, l_, Om_, U$42$_] := N[Sqrt[N[(N[(N[(2.0 * n), $MachinePrecision] * U), $MachinePrecision] * N[(N[(t - N[(2.0 * N[(N[(l * l), $MachinePrecision] / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(n * N[Power[N[(l / Om), $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision] * N[(U - U$42$), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]
\begin{array}{l}
\\
\sqrt{\left(\left(2 \cdot n\right) \cdot U\right) \cdot \left(\left(t - 2 \cdot \frac{\ell \cdot \ell}{Om}\right) - \left(n \cdot {\left(\frac{\ell}{Om}\right)}^{2}\right) \cdot \left(U - U*\right)\right)}
\end{array}
(FPCore (n U t l Om U*)
:precision binary64
(let* ((t_1 (* l (+ -2.0 (* U* (/ n Om)))))
(t_2 (pow (/ l Om) 2.0))
(t_3
(*
(* (* 2.0 n) U)
(+ (- t (* 2.0 (/ (* l l) Om))) (* (* n t_2) (- U* U))))))
(if (<= t_3 0.0)
(sqrt (* U (* (* 2.0 n) (fma t_1 (/ l Om) t))))
(if (<= t_3 5e+300)
(sqrt t_3)
(if (<= t_3 INFINITY)
(sqrt
(*
(* 2.0 n)
(* U (- t (+ (* 2.0 (/ l (/ Om l))) (* n (* t_2 (- U U*))))))))
(sqrt (* 2.0 (/ (* (* n l) (* U t_1)) Om))))))))
double code(double n, double U, double t, double l, double Om, double U_42_) {
double t_1 = l * (-2.0 + (U_42_ * (n / Om)));
double t_2 = pow((l / Om), 2.0);
double t_3 = ((2.0 * n) * U) * ((t - (2.0 * ((l * l) / Om))) + ((n * t_2) * (U_42_ - U)));
double tmp;
if (t_3 <= 0.0) {
tmp = sqrt((U * ((2.0 * n) * fma(t_1, (l / Om), t))));
} else if (t_3 <= 5e+300) {
tmp = sqrt(t_3);
} else if (t_3 <= ((double) INFINITY)) {
tmp = sqrt(((2.0 * n) * (U * (t - ((2.0 * (l / (Om / l))) + (n * (t_2 * (U - U_42_))))))));
} else {
tmp = sqrt((2.0 * (((n * l) * (U * t_1)) / Om)));
}
return tmp;
}
function code(n, U, t, l, Om, U_42_) t_1 = Float64(l * Float64(-2.0 + Float64(U_42_ * Float64(n / Om)))) t_2 = Float64(l / Om) ^ 2.0 t_3 = Float64(Float64(Float64(2.0 * n) * U) * Float64(Float64(t - Float64(2.0 * Float64(Float64(l * l) / Om))) + Float64(Float64(n * t_2) * Float64(U_42_ - U)))) tmp = 0.0 if (t_3 <= 0.0) tmp = sqrt(Float64(U * Float64(Float64(2.0 * n) * fma(t_1, Float64(l / Om), t)))); elseif (t_3 <= 5e+300) tmp = sqrt(t_3); elseif (t_3 <= Inf) tmp = sqrt(Float64(Float64(2.0 * n) * Float64(U * Float64(t - Float64(Float64(2.0 * Float64(l / Float64(Om / l))) + Float64(n * Float64(t_2 * Float64(U - U_42_)))))))); else tmp = sqrt(Float64(2.0 * Float64(Float64(Float64(n * l) * Float64(U * t_1)) / Om))); end return tmp end
code[n_, U_, t_, l_, Om_, U$42$_] := Block[{t$95$1 = N[(l * N[(-2.0 + N[(U$42$ * N[(n / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[Power[N[(l / Om), $MachinePrecision], 2.0], $MachinePrecision]}, Block[{t$95$3 = N[(N[(N[(2.0 * n), $MachinePrecision] * U), $MachinePrecision] * N[(N[(t - N[(2.0 * N[(N[(l * l), $MachinePrecision] / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(n * t$95$2), $MachinePrecision] * N[(U$42$ - U), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$3, 0.0], N[Sqrt[N[(U * N[(N[(2.0 * n), $MachinePrecision] * N[(t$95$1 * N[(l / Om), $MachinePrecision] + t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], If[LessEqual[t$95$3, 5e+300], N[Sqrt[t$95$3], $MachinePrecision], If[LessEqual[t$95$3, Infinity], N[Sqrt[N[(N[(2.0 * n), $MachinePrecision] * N[(U * N[(t - N[(N[(2.0 * N[(l / N[(Om / l), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(n * N[(t$95$2 * N[(U - U$42$), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], N[Sqrt[N[(2.0 * N[(N[(N[(n * l), $MachinePrecision] * N[(U * t$95$1), $MachinePrecision]), $MachinePrecision] / Om), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \ell \cdot \left(-2 + U* \cdot \frac{n}{Om}\right)\\
t_2 := {\left(\frac{\ell}{Om}\right)}^{2}\\
t_3 := \left(\left(2 \cdot n\right) \cdot U\right) \cdot \left(\left(t - 2 \cdot \frac{\ell \cdot \ell}{Om}\right) + \left(n \cdot t_2\right) \cdot \left(U* - U\right)\right)\\
\mathbf{if}\;t_3 \leq 0:\\
\;\;\;\;\sqrt{U \cdot \left(\left(2 \cdot n\right) \cdot \mathsf{fma}\left(t_1, \frac{\ell}{Om}, t\right)\right)}\\
\mathbf{elif}\;t_3 \leq 5 \cdot 10^{+300}:\\
\;\;\;\;\sqrt{t_3}\\
\mathbf{elif}\;t_3 \leq \infty:\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot \left(U \cdot \left(t - \left(2 \cdot \frac{\ell}{\frac{Om}{\ell}} + n \cdot \left(t_2 \cdot \left(U - U*\right)\right)\right)\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;\sqrt{2 \cdot \frac{\left(n \cdot \ell\right) \cdot \left(U \cdot t_1\right)}{Om}}\\
\end{array}
\end{array}
if (*.f64 (*.f64 (*.f64 2 n) U) (-.f64 (-.f64 t (*.f64 2 (/.f64 (*.f64 l l) Om))) (*.f64 (*.f64 n (pow.f64 (/.f64 l Om) 2)) (-.f64 U U*)))) < 0.0Initial program 18.0%
associate-*l*43.7%
sub-neg43.7%
associate--l+43.7%
*-commutative43.7%
distribute-rgt-neg-in43.7%
associate-*l/46.2%
associate-*l*46.2%
*-commutative46.2%
*-commutative46.2%
associate-*l*46.2%
unpow246.2%
associate-*l*48.6%
Simplified48.6%
Taylor expanded in U around 0 45.9%
div-inv45.9%
Applied egg-rr45.9%
associate-*r/45.9%
*-rgt-identity45.9%
associate-/l*48.2%
associate-/r/48.2%
Simplified48.2%
Taylor expanded in U around 0 45.9%
associate-*r*45.9%
fma-def45.9%
associate-*l/48.2%
associate-*l/50.7%
associate-*r*55.4%
Simplified58.1%
if 0.0 < (*.f64 (*.f64 (*.f64 2 n) U) (-.f64 (-.f64 t (*.f64 2 (/.f64 (*.f64 l l) Om))) (*.f64 (*.f64 n (pow.f64 (/.f64 l Om) 2)) (-.f64 U U*)))) < 5.00000000000000026e300Initial program 98.2%
if 5.00000000000000026e300 < (*.f64 (*.f64 (*.f64 2 n) U) (-.f64 (-.f64 t (*.f64 2 (/.f64 (*.f64 l l) Om))) (*.f64 (*.f64 n (pow.f64 (/.f64 l Om) 2)) (-.f64 U U*)))) < +inf.0Initial program 30.0%
associate-*l*35.0%
sub-neg35.0%
associate-+l-35.0%
sub-neg35.0%
associate-/l*44.9%
remove-double-neg44.9%
associate-*l*44.9%
Simplified44.9%
if +inf.0 < (*.f64 (*.f64 (*.f64 2 n) U) (-.f64 (-.f64 t (*.f64 2 (/.f64 (*.f64 l l) Om))) (*.f64 (*.f64 n (pow.f64 (/.f64 l Om) 2)) (-.f64 U U*)))) Initial program 0.0%
associate-*l*0.8%
sub-neg0.8%
associate--l+0.8%
*-commutative0.8%
distribute-rgt-neg-in0.8%
associate-*l/5.1%
associate-*l*5.1%
*-commutative5.1%
*-commutative5.1%
associate-*l*5.3%
unpow25.3%
associate-*l*7.6%
Simplified46.0%
Taylor expanded in U around 0 42.0%
div-inv42.0%
Applied egg-rr42.0%
associate-*r/42.0%
*-rgt-identity42.0%
associate-/l*42.0%
associate-/r/42.0%
Simplified42.0%
Taylor expanded in t around 0 58.5%
associate-*r*60.8%
*-commutative60.8%
*-commutative60.8%
associate-*l/60.7%
*-commutative60.7%
associate-*l*62.9%
distribute-lft-out62.9%
Simplified62.9%
Final simplification69.7%
(FPCore (n U t l Om U*)
:precision binary64
(let* ((t_1
(sqrt
(*
U
(* (* 2.0 n) (fma (* l (+ -2.0 (* U* (/ n Om)))) (/ l Om) t))))))
(if (<= l -6.2e+241)
(*
(sqrt (* n (* U (+ (/ (* n U*) (* Om Om)) (/ -2.0 Om)))))
(* (sqrt 2.0) (- l)))
(if (<= l -2.25e-190)
t_1
(if (<= l 1.95e-56)
(sqrt
(*
(* 2.0 n)
(*
U
(-
t
(+
(* 2.0 (/ l (/ Om l)))
(* n (* (pow (/ l Om) 2.0) (- U U*))))))))
(if (<= l 4.6e+160)
t_1
(*
(* l (sqrt 2.0))
(sqrt (/ (* n (* U (- (/ (* n U*) Om) 2.0))) Om)))))))))
double code(double n, double U, double t, double l, double Om, double U_42_) {
double t_1 = sqrt((U * ((2.0 * n) * fma((l * (-2.0 + (U_42_ * (n / Om)))), (l / Om), t))));
double tmp;
if (l <= -6.2e+241) {
tmp = sqrt((n * (U * (((n * U_42_) / (Om * Om)) + (-2.0 / Om))))) * (sqrt(2.0) * -l);
} else if (l <= -2.25e-190) {
tmp = t_1;
} else if (l <= 1.95e-56) {
tmp = sqrt(((2.0 * n) * (U * (t - ((2.0 * (l / (Om / l))) + (n * (pow((l / Om), 2.0) * (U - U_42_))))))));
} else if (l <= 4.6e+160) {
tmp = t_1;
} else {
tmp = (l * sqrt(2.0)) * sqrt(((n * (U * (((n * U_42_) / Om) - 2.0))) / Om));
}
return tmp;
}
function code(n, U, t, l, Om, U_42_) t_1 = sqrt(Float64(U * Float64(Float64(2.0 * n) * fma(Float64(l * Float64(-2.0 + Float64(U_42_ * Float64(n / Om)))), Float64(l / Om), t)))) tmp = 0.0 if (l <= -6.2e+241) tmp = Float64(sqrt(Float64(n * Float64(U * Float64(Float64(Float64(n * U_42_) / Float64(Om * Om)) + Float64(-2.0 / Om))))) * Float64(sqrt(2.0) * Float64(-l))); elseif (l <= -2.25e-190) tmp = t_1; elseif (l <= 1.95e-56) tmp = sqrt(Float64(Float64(2.0 * n) * Float64(U * Float64(t - Float64(Float64(2.0 * Float64(l / Float64(Om / l))) + Float64(n * Float64((Float64(l / Om) ^ 2.0) * Float64(U - U_42_)))))))); elseif (l <= 4.6e+160) tmp = t_1; else tmp = Float64(Float64(l * sqrt(2.0)) * sqrt(Float64(Float64(n * Float64(U * Float64(Float64(Float64(n * U_42_) / Om) - 2.0))) / Om))); end return tmp end
code[n_, U_, t_, l_, Om_, U$42$_] := Block[{t$95$1 = N[Sqrt[N[(U * N[(N[(2.0 * n), $MachinePrecision] * N[(N[(l * N[(-2.0 + N[(U$42$ * N[(n / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(l / Om), $MachinePrecision] + t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, If[LessEqual[l, -6.2e+241], N[(N[Sqrt[N[(n * N[(U * N[(N[(N[(n * U$42$), $MachinePrecision] / N[(Om * Om), $MachinePrecision]), $MachinePrecision] + N[(-2.0 / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * (-l)), $MachinePrecision]), $MachinePrecision], If[LessEqual[l, -2.25e-190], t$95$1, If[LessEqual[l, 1.95e-56], N[Sqrt[N[(N[(2.0 * n), $MachinePrecision] * N[(U * N[(t - N[(N[(2.0 * N[(l / N[(Om / l), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(n * N[(N[Power[N[(l / Om), $MachinePrecision], 2.0], $MachinePrecision] * N[(U - U$42$), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], If[LessEqual[l, 4.6e+160], t$95$1, N[(N[(l * N[Sqrt[2.0], $MachinePrecision]), $MachinePrecision] * N[Sqrt[N[(N[(n * N[(U * N[(N[(N[(n * U$42$), $MachinePrecision] / Om), $MachinePrecision] - 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / Om), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \sqrt{U \cdot \left(\left(2 \cdot n\right) \cdot \mathsf{fma}\left(\ell \cdot \left(-2 + U* \cdot \frac{n}{Om}\right), \frac{\ell}{Om}, t\right)\right)}\\
\mathbf{if}\;\ell \leq -6.2 \cdot 10^{+241}:\\
\;\;\;\;\sqrt{n \cdot \left(U \cdot \left(\frac{n \cdot U*}{Om \cdot Om} + \frac{-2}{Om}\right)\right)} \cdot \left(\sqrt{2} \cdot \left(-\ell\right)\right)\\
\mathbf{elif}\;\ell \leq -2.25 \cdot 10^{-190}:\\
\;\;\;\;t_1\\
\mathbf{elif}\;\ell \leq 1.95 \cdot 10^{-56}:\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot \left(U \cdot \left(t - \left(2 \cdot \frac{\ell}{\frac{Om}{\ell}} + n \cdot \left({\left(\frac{\ell}{Om}\right)}^{2} \cdot \left(U - U*\right)\right)\right)\right)\right)}\\
\mathbf{elif}\;\ell \leq 4.6 \cdot 10^{+160}:\\
\;\;\;\;t_1\\
\mathbf{else}:\\
\;\;\;\;\left(\ell \cdot \sqrt{2}\right) \cdot \sqrt{\frac{n \cdot \left(U \cdot \left(\frac{n \cdot U*}{Om} - 2\right)\right)}{Om}}\\
\end{array}
\end{array}
if l < -6.2000000000000002e241Initial program 7.8%
associate-*l*8.0%
sub-neg8.0%
associate--l+8.0%
*-commutative8.0%
distribute-rgt-neg-in8.0%
associate-*l/8.0%
associate-*l*8.0%
*-commutative8.0%
*-commutative8.0%
associate-*l*8.0%
unpow28.0%
associate-*l*8.0%
Simplified43.1%
Taylor expanded in U around 0 43.5%
div-inv43.5%
Applied egg-rr43.5%
associate-*r/43.5%
*-rgt-identity43.5%
associate-/l*43.5%
associate-/r/43.5%
Simplified43.5%
Taylor expanded in U around 0 43.5%
associate-*r*43.5%
fma-def43.5%
associate-*l/43.5%
associate-*l/43.5%
associate-*r*43.5%
Simplified43.5%
Taylor expanded in l around -inf 85.5%
mul-1-neg85.5%
distribute-rgt-neg-in85.5%
*-commutative85.5%
sub-neg85.5%
unpow285.5%
associate-*r/85.5%
metadata-eval85.5%
distribute-neg-frac85.5%
metadata-eval85.5%
Simplified85.5%
if -6.2000000000000002e241 < l < -2.2500000000000001e-190 or 1.95e-56 < l < 4.59999999999999975e160Initial program 43.8%
associate-*l*43.6%
sub-neg43.6%
associate--l+43.6%
*-commutative43.6%
distribute-rgt-neg-in43.6%
associate-*l/48.7%
associate-*l*48.7%
*-commutative48.7%
*-commutative48.7%
associate-*l*42.5%
unpow242.5%
associate-*l*44.8%
Simplified50.2%
Taylor expanded in U around 0 46.7%
div-inv46.7%
Applied egg-rr46.7%
associate-*r/46.7%
*-rgt-identity46.7%
associate-/l*51.9%
associate-/r/51.8%
Simplified51.8%
Taylor expanded in U around 0 46.7%
associate-*r*46.7%
fma-def46.7%
associate-*l/51.8%
associate-*l/54.8%
associate-*r*56.9%
Simplified59.2%
if -2.2500000000000001e-190 < l < 1.95e-56Initial program 73.9%
associate-*l*79.8%
sub-neg79.8%
associate-+l-79.8%
sub-neg79.8%
associate-/l*79.8%
remove-double-neg79.8%
associate-*l*79.8%
Simplified79.8%
if 4.59999999999999975e160 < l Initial program 12.9%
associate-*l*13.2%
sub-neg13.2%
associate--l+13.2%
*-commutative13.2%
distribute-rgt-neg-in13.2%
associate-*l/27.4%
associate-*l*27.4%
*-commutative27.4%
*-commutative27.4%
associate-*l*27.7%
unpow227.7%
associate-*l*27.8%
Simplified44.0%
Taylor expanded in U around 0 29.7%
div-inv29.7%
Applied egg-rr29.7%
associate-*r/29.7%
*-rgt-identity29.7%
associate-/l*29.7%
associate-/r/29.7%
Simplified29.7%
Taylor expanded in U around 0 29.7%
associate-*r*29.7%
fma-def29.7%
associate-*l/29.7%
associate-*l/40.4%
associate-*r*36.8%
Simplified40.7%
Taylor expanded in t around 0 80.4%
Final simplification69.5%
(FPCore (n U t l Om U*)
:precision binary64
(let* ((t_1
(sqrt
(*
U
(* (* 2.0 n) (fma (* l (+ -2.0 (* U* (/ n Om)))) (/ l Om) t))))))
(if (<= l -8.4e+240)
(*
(sqrt (* n (* U (+ (/ (* n U*) (* Om Om)) (/ -2.0 Om)))))
(* (sqrt 2.0) (- l)))
(if (<= l -2.3e-91)
t_1
(if (<= l 3.4e-39)
(sqrt
(*
(* 2.0 n)
(* U (+ t (/ (* l (+ (* l -2.0) (/ (* n (* l U*)) Om))) Om)))))
(if (<= l 8.2e+160)
t_1
(*
(* l (sqrt 2.0))
(sqrt (/ (* n (* U (- (/ (* n U*) Om) 2.0))) Om)))))))))
double code(double n, double U, double t, double l, double Om, double U_42_) {
double t_1 = sqrt((U * ((2.0 * n) * fma((l * (-2.0 + (U_42_ * (n / Om)))), (l / Om), t))));
double tmp;
if (l <= -8.4e+240) {
tmp = sqrt((n * (U * (((n * U_42_) / (Om * Om)) + (-2.0 / Om))))) * (sqrt(2.0) * -l);
} else if (l <= -2.3e-91) {
tmp = t_1;
} else if (l <= 3.4e-39) {
tmp = sqrt(((2.0 * n) * (U * (t + ((l * ((l * -2.0) + ((n * (l * U_42_)) / Om))) / Om)))));
} else if (l <= 8.2e+160) {
tmp = t_1;
} else {
tmp = (l * sqrt(2.0)) * sqrt(((n * (U * (((n * U_42_) / Om) - 2.0))) / Om));
}
return tmp;
}
function code(n, U, t, l, Om, U_42_) t_1 = sqrt(Float64(U * Float64(Float64(2.0 * n) * fma(Float64(l * Float64(-2.0 + Float64(U_42_ * Float64(n / Om)))), Float64(l / Om), t)))) tmp = 0.0 if (l <= -8.4e+240) tmp = Float64(sqrt(Float64(n * Float64(U * Float64(Float64(Float64(n * U_42_) / Float64(Om * Om)) + Float64(-2.0 / Om))))) * Float64(sqrt(2.0) * Float64(-l))); elseif (l <= -2.3e-91) tmp = t_1; elseif (l <= 3.4e-39) tmp = sqrt(Float64(Float64(2.0 * n) * Float64(U * Float64(t + Float64(Float64(l * Float64(Float64(l * -2.0) + Float64(Float64(n * Float64(l * U_42_)) / Om))) / Om))))); elseif (l <= 8.2e+160) tmp = t_1; else tmp = Float64(Float64(l * sqrt(2.0)) * sqrt(Float64(Float64(n * Float64(U * Float64(Float64(Float64(n * U_42_) / Om) - 2.0))) / Om))); end return tmp end
code[n_, U_, t_, l_, Om_, U$42$_] := Block[{t$95$1 = N[Sqrt[N[(U * N[(N[(2.0 * n), $MachinePrecision] * N[(N[(l * N[(-2.0 + N[(U$42$ * N[(n / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(l / Om), $MachinePrecision] + t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, If[LessEqual[l, -8.4e+240], N[(N[Sqrt[N[(n * N[(U * N[(N[(N[(n * U$42$), $MachinePrecision] / N[(Om * Om), $MachinePrecision]), $MachinePrecision] + N[(-2.0 / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * (-l)), $MachinePrecision]), $MachinePrecision], If[LessEqual[l, -2.3e-91], t$95$1, If[LessEqual[l, 3.4e-39], N[Sqrt[N[(N[(2.0 * n), $MachinePrecision] * N[(U * N[(t + N[(N[(l * N[(N[(l * -2.0), $MachinePrecision] + N[(N[(n * N[(l * U$42$), $MachinePrecision]), $MachinePrecision] / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], If[LessEqual[l, 8.2e+160], t$95$1, N[(N[(l * N[Sqrt[2.0], $MachinePrecision]), $MachinePrecision] * N[Sqrt[N[(N[(n * N[(U * N[(N[(N[(n * U$42$), $MachinePrecision] / Om), $MachinePrecision] - 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / Om), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \sqrt{U \cdot \left(\left(2 \cdot n\right) \cdot \mathsf{fma}\left(\ell \cdot \left(-2 + U* \cdot \frac{n}{Om}\right), \frac{\ell}{Om}, t\right)\right)}\\
\mathbf{if}\;\ell \leq -8.4 \cdot 10^{+240}:\\
\;\;\;\;\sqrt{n \cdot \left(U \cdot \left(\frac{n \cdot U*}{Om \cdot Om} + \frac{-2}{Om}\right)\right)} \cdot \left(\sqrt{2} \cdot \left(-\ell\right)\right)\\
\mathbf{elif}\;\ell \leq -2.3 \cdot 10^{-91}:\\
\;\;\;\;t_1\\
\mathbf{elif}\;\ell \leq 3.4 \cdot 10^{-39}:\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot \left(U \cdot \left(t + \frac{\ell \cdot \left(\ell \cdot -2 + \frac{n \cdot \left(\ell \cdot U*\right)}{Om}\right)}{Om}\right)\right)}\\
\mathbf{elif}\;\ell \leq 8.2 \cdot 10^{+160}:\\
\;\;\;\;t_1\\
\mathbf{else}:\\
\;\;\;\;\left(\ell \cdot \sqrt{2}\right) \cdot \sqrt{\frac{n \cdot \left(U \cdot \left(\frac{n \cdot U*}{Om} - 2\right)\right)}{Om}}\\
\end{array}
\end{array}
if l < -8.3999999999999996e240Initial program 7.8%
associate-*l*8.0%
sub-neg8.0%
associate--l+8.0%
*-commutative8.0%
distribute-rgt-neg-in8.0%
associate-*l/8.0%
associate-*l*8.0%
*-commutative8.0%
*-commutative8.0%
associate-*l*8.0%
unpow28.0%
associate-*l*8.0%
Simplified43.1%
Taylor expanded in U around 0 43.5%
div-inv43.5%
Applied egg-rr43.5%
associate-*r/43.5%
*-rgt-identity43.5%
associate-/l*43.5%
associate-/r/43.5%
Simplified43.5%
Taylor expanded in U around 0 43.5%
associate-*r*43.5%
fma-def43.5%
associate-*l/43.5%
associate-*l/43.5%
associate-*r*43.5%
Simplified43.5%
Taylor expanded in l around -inf 85.5%
mul-1-neg85.5%
distribute-rgt-neg-in85.5%
*-commutative85.5%
sub-neg85.5%
unpow285.5%
associate-*r/85.5%
metadata-eval85.5%
distribute-neg-frac85.5%
metadata-eval85.5%
Simplified85.5%
if -8.3999999999999996e240 < l < -2.29999999999999996e-91 or 3.3999999999999999e-39 < l < 8.19999999999999996e160Initial program 39.9%
associate-*l*41.5%
sub-neg41.5%
associate--l+41.5%
*-commutative41.5%
distribute-rgt-neg-in41.5%
associate-*l/48.1%
associate-*l*48.1%
*-commutative48.1%
*-commutative48.1%
associate-*l*42.2%
unpow242.2%
associate-*l*43.2%
Simplified50.2%
Taylor expanded in U around 0 43.7%
div-inv43.7%
Applied egg-rr43.7%
associate-*r/43.7%
*-rgt-identity43.7%
associate-/l*50.3%
associate-/r/50.3%
Simplified50.3%
Taylor expanded in U around 0 43.7%
associate-*r*43.7%
fma-def43.7%
associate-*l/50.3%
associate-*l/54.1%
associate-*r*57.0%
Simplified60.0%
if -2.29999999999999996e-91 < l < 3.3999999999999999e-39Initial program 69.7%
associate-*l*72.1%
sub-neg72.1%
associate--l+72.1%
*-commutative72.1%
distribute-rgt-neg-in72.1%
associate-*l/72.1%
associate-*l*72.1%
*-commutative72.1%
*-commutative72.1%
associate-*l*60.3%
unpow260.3%
associate-*l*62.1%
Simplified62.1%
Taylor expanded in U around 0 72.9%
if 8.19999999999999996e160 < l Initial program 12.9%
associate-*l*13.2%
sub-neg13.2%
associate--l+13.2%
*-commutative13.2%
distribute-rgt-neg-in13.2%
associate-*l/27.4%
associate-*l*27.4%
*-commutative27.4%
*-commutative27.4%
associate-*l*27.7%
unpow227.7%
associate-*l*27.8%
Simplified44.0%
Taylor expanded in U around 0 29.7%
div-inv29.7%
Applied egg-rr29.7%
associate-*r/29.7%
*-rgt-identity29.7%
associate-/l*29.7%
associate-/r/29.7%
Simplified29.7%
Taylor expanded in U around 0 29.7%
associate-*r*29.7%
fma-def29.7%
associate-*l/29.7%
associate-*l/40.4%
associate-*r*36.8%
Simplified40.7%
Taylor expanded in t around 0 80.4%
Final simplification69.2%
(FPCore (n U t l Om U*)
:precision binary64
(let* ((t_1
(sqrt
(*
U
(* (* 2.0 n) (fma (* l (+ -2.0 (* U* (/ n Om)))) (/ l Om) t))))))
(if (<= l -7.8e-91)
t_1
(if (<= l 5.9e-38)
(sqrt
(*
(* 2.0 n)
(* U (+ t (/ (* l (+ (* l -2.0) (/ (* n (* l U*)) Om))) Om)))))
(if (<= l 2.65e+160)
t_1
(*
(* l (sqrt 2.0))
(sqrt (/ (* n (* U (- (/ (* n U*) Om) 2.0))) Om))))))))
double code(double n, double U, double t, double l, double Om, double U_42_) {
double t_1 = sqrt((U * ((2.0 * n) * fma((l * (-2.0 + (U_42_ * (n / Om)))), (l / Om), t))));
double tmp;
if (l <= -7.8e-91) {
tmp = t_1;
} else if (l <= 5.9e-38) {
tmp = sqrt(((2.0 * n) * (U * (t + ((l * ((l * -2.0) + ((n * (l * U_42_)) / Om))) / Om)))));
} else if (l <= 2.65e+160) {
tmp = t_1;
} else {
tmp = (l * sqrt(2.0)) * sqrt(((n * (U * (((n * U_42_) / Om) - 2.0))) / Om));
}
return tmp;
}
function code(n, U, t, l, Om, U_42_) t_1 = sqrt(Float64(U * Float64(Float64(2.0 * n) * fma(Float64(l * Float64(-2.0 + Float64(U_42_ * Float64(n / Om)))), Float64(l / Om), t)))) tmp = 0.0 if (l <= -7.8e-91) tmp = t_1; elseif (l <= 5.9e-38) tmp = sqrt(Float64(Float64(2.0 * n) * Float64(U * Float64(t + Float64(Float64(l * Float64(Float64(l * -2.0) + Float64(Float64(n * Float64(l * U_42_)) / Om))) / Om))))); elseif (l <= 2.65e+160) tmp = t_1; else tmp = Float64(Float64(l * sqrt(2.0)) * sqrt(Float64(Float64(n * Float64(U * Float64(Float64(Float64(n * U_42_) / Om) - 2.0))) / Om))); end return tmp end
code[n_, U_, t_, l_, Om_, U$42$_] := Block[{t$95$1 = N[Sqrt[N[(U * N[(N[(2.0 * n), $MachinePrecision] * N[(N[(l * N[(-2.0 + N[(U$42$ * N[(n / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(l / Om), $MachinePrecision] + t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, If[LessEqual[l, -7.8e-91], t$95$1, If[LessEqual[l, 5.9e-38], N[Sqrt[N[(N[(2.0 * n), $MachinePrecision] * N[(U * N[(t + N[(N[(l * N[(N[(l * -2.0), $MachinePrecision] + N[(N[(n * N[(l * U$42$), $MachinePrecision]), $MachinePrecision] / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], If[LessEqual[l, 2.65e+160], t$95$1, N[(N[(l * N[Sqrt[2.0], $MachinePrecision]), $MachinePrecision] * N[Sqrt[N[(N[(n * N[(U * N[(N[(N[(n * U$42$), $MachinePrecision] / Om), $MachinePrecision] - 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / Om), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \sqrt{U \cdot \left(\left(2 \cdot n\right) \cdot \mathsf{fma}\left(\ell \cdot \left(-2 + U* \cdot \frac{n}{Om}\right), \frac{\ell}{Om}, t\right)\right)}\\
\mathbf{if}\;\ell \leq -7.8 \cdot 10^{-91}:\\
\;\;\;\;t_1\\
\mathbf{elif}\;\ell \leq 5.9 \cdot 10^{-38}:\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot \left(U \cdot \left(t + \frac{\ell \cdot \left(\ell \cdot -2 + \frac{n \cdot \left(\ell \cdot U*\right)}{Om}\right)}{Om}\right)\right)}\\
\mathbf{elif}\;\ell \leq 2.65 \cdot 10^{+160}:\\
\;\;\;\;t_1\\
\mathbf{else}:\\
\;\;\;\;\left(\ell \cdot \sqrt{2}\right) \cdot \sqrt{\frac{n \cdot \left(U \cdot \left(\frac{n \cdot U*}{Om} - 2\right)\right)}{Om}}\\
\end{array}
\end{array}
if l < -7.79999999999999987e-91 or 5.89999999999999983e-38 < l < 2.65e160Initial program 35.8%
associate-*l*37.3%
sub-neg37.3%
associate--l+37.3%
*-commutative37.3%
distribute-rgt-neg-in37.3%
associate-*l/43.0%
associate-*l*43.0%
*-commutative43.0%
*-commutative43.0%
associate-*l*37.9%
unpow237.9%
associate-*l*38.8%
Simplified49.3%
Taylor expanded in U around 0 43.7%
div-inv43.6%
Applied egg-rr43.6%
associate-*r/43.7%
*-rgt-identity43.7%
associate-/l*49.5%
associate-/r/49.4%
Simplified49.4%
Taylor expanded in U around 0 43.7%
associate-*r*43.7%
fma-def43.7%
associate-*l/49.4%
associate-*l/52.7%
associate-*r*55.3%
Simplified57.9%
if -7.79999999999999987e-91 < l < 5.89999999999999983e-38Initial program 69.7%
associate-*l*72.1%
sub-neg72.1%
associate--l+72.1%
*-commutative72.1%
distribute-rgt-neg-in72.1%
associate-*l/72.1%
associate-*l*72.1%
*-commutative72.1%
*-commutative72.1%
associate-*l*60.3%
unpow260.3%
associate-*l*62.1%
Simplified62.1%
Taylor expanded in U around 0 72.9%
if 2.65e160 < l Initial program 12.9%
associate-*l*13.2%
sub-neg13.2%
associate--l+13.2%
*-commutative13.2%
distribute-rgt-neg-in13.2%
associate-*l/27.4%
associate-*l*27.4%
*-commutative27.4%
*-commutative27.4%
associate-*l*27.7%
unpow227.7%
associate-*l*27.8%
Simplified44.0%
Taylor expanded in U around 0 29.7%
div-inv29.7%
Applied egg-rr29.7%
associate-*r/29.7%
*-rgt-identity29.7%
associate-/l*29.7%
associate-/r/29.7%
Simplified29.7%
Taylor expanded in U around 0 29.7%
associate-*r*29.7%
fma-def29.7%
associate-*l/29.7%
associate-*l/40.4%
associate-*r*36.8%
Simplified40.7%
Taylor expanded in t around 0 80.4%
Final simplification66.7%
(FPCore (n U t l Om U*)
:precision binary64
(if (<= l -1.16e+50)
(pow
(* 2.0 (* U (* n (- t (* (/ l Om) (- (/ n (/ (/ Om l) U)) (* l -2.0)))))))
0.5)
(if (<= l 7e+90)
(sqrt
(*
(* 2.0 n)
(* U (+ t (/ (* l (+ (* l -2.0) (* (/ n Om) (* l U*)))) Om)))))
(* (* l (sqrt 2.0)) (sqrt (/ (* n (* U (- (/ (* n U*) Om) 2.0))) Om))))))
double code(double n, double U, double t, double l, double Om, double U_42_) {
double tmp;
if (l <= -1.16e+50) {
tmp = pow((2.0 * (U * (n * (t - ((l / Om) * ((n / ((Om / l) / U)) - (l * -2.0))))))), 0.5);
} else if (l <= 7e+90) {
tmp = sqrt(((2.0 * n) * (U * (t + ((l * ((l * -2.0) + ((n / Om) * (l * U_42_)))) / Om)))));
} else {
tmp = (l * sqrt(2.0)) * sqrt(((n * (U * (((n * U_42_) / Om) - 2.0))) / Om));
}
return tmp;
}
real(8) function code(n, u, t, l, om, u_42)
real(8), intent (in) :: n
real(8), intent (in) :: u
real(8), intent (in) :: t
real(8), intent (in) :: l
real(8), intent (in) :: om
real(8), intent (in) :: u_42
real(8) :: tmp
if (l <= (-1.16d+50)) then
tmp = (2.0d0 * (u * (n * (t - ((l / om) * ((n / ((om / l) / u)) - (l * (-2.0d0)))))))) ** 0.5d0
else if (l <= 7d+90) then
tmp = sqrt(((2.0d0 * n) * (u * (t + ((l * ((l * (-2.0d0)) + ((n / om) * (l * u_42)))) / om)))))
else
tmp = (l * sqrt(2.0d0)) * sqrt(((n * (u * (((n * u_42) / om) - 2.0d0))) / om))
end if
code = tmp
end function
public static double code(double n, double U, double t, double l, double Om, double U_42_) {
double tmp;
if (l <= -1.16e+50) {
tmp = Math.pow((2.0 * (U * (n * (t - ((l / Om) * ((n / ((Om / l) / U)) - (l * -2.0))))))), 0.5);
} else if (l <= 7e+90) {
tmp = Math.sqrt(((2.0 * n) * (U * (t + ((l * ((l * -2.0) + ((n / Om) * (l * U_42_)))) / Om)))));
} else {
tmp = (l * Math.sqrt(2.0)) * Math.sqrt(((n * (U * (((n * U_42_) / Om) - 2.0))) / Om));
}
return tmp;
}
def code(n, U, t, l, Om, U_42_): tmp = 0 if l <= -1.16e+50: tmp = math.pow((2.0 * (U * (n * (t - ((l / Om) * ((n / ((Om / l) / U)) - (l * -2.0))))))), 0.5) elif l <= 7e+90: tmp = math.sqrt(((2.0 * n) * (U * (t + ((l * ((l * -2.0) + ((n / Om) * (l * U_42_)))) / Om))))) else: tmp = (l * math.sqrt(2.0)) * math.sqrt(((n * (U * (((n * U_42_) / Om) - 2.0))) / Om)) return tmp
function code(n, U, t, l, Om, U_42_) tmp = 0.0 if (l <= -1.16e+50) tmp = Float64(2.0 * Float64(U * Float64(n * Float64(t - Float64(Float64(l / Om) * Float64(Float64(n / Float64(Float64(Om / l) / U)) - Float64(l * -2.0))))))) ^ 0.5; elseif (l <= 7e+90) tmp = sqrt(Float64(Float64(2.0 * n) * Float64(U * Float64(t + Float64(Float64(l * Float64(Float64(l * -2.0) + Float64(Float64(n / Om) * Float64(l * U_42_)))) / Om))))); else tmp = Float64(Float64(l * sqrt(2.0)) * sqrt(Float64(Float64(n * Float64(U * Float64(Float64(Float64(n * U_42_) / Om) - 2.0))) / Om))); end return tmp end
function tmp_2 = code(n, U, t, l, Om, U_42_) tmp = 0.0; if (l <= -1.16e+50) tmp = (2.0 * (U * (n * (t - ((l / Om) * ((n / ((Om / l) / U)) - (l * -2.0))))))) ^ 0.5; elseif (l <= 7e+90) tmp = sqrt(((2.0 * n) * (U * (t + ((l * ((l * -2.0) + ((n / Om) * (l * U_42_)))) / Om))))); else tmp = (l * sqrt(2.0)) * sqrt(((n * (U * (((n * U_42_) / Om) - 2.0))) / Om)); end tmp_2 = tmp; end
code[n_, U_, t_, l_, Om_, U$42$_] := If[LessEqual[l, -1.16e+50], N[Power[N[(2.0 * N[(U * N[(n * N[(t - N[(N[(l / Om), $MachinePrecision] * N[(N[(n / N[(N[(Om / l), $MachinePrecision] / U), $MachinePrecision]), $MachinePrecision] - N[(l * -2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 0.5], $MachinePrecision], If[LessEqual[l, 7e+90], N[Sqrt[N[(N[(2.0 * n), $MachinePrecision] * N[(U * N[(t + N[(N[(l * N[(N[(l * -2.0), $MachinePrecision] + N[(N[(n / Om), $MachinePrecision] * N[(l * U$42$), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], N[(N[(l * N[Sqrt[2.0], $MachinePrecision]), $MachinePrecision] * N[Sqrt[N[(N[(n * N[(U * N[(N[(N[(n * U$42$), $MachinePrecision] / Om), $MachinePrecision] - 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / Om), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\ell \leq -1.16 \cdot 10^{+50}:\\
\;\;\;\;{\left(2 \cdot \left(U \cdot \left(n \cdot \left(t - \frac{\ell}{Om} \cdot \left(\frac{n}{\frac{\frac{Om}{\ell}}{U}} - \ell \cdot -2\right)\right)\right)\right)\right)}^{0.5}\\
\mathbf{elif}\;\ell \leq 7 \cdot 10^{+90}:\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot \left(U \cdot \left(t + \frac{\ell \cdot \left(\ell \cdot -2 + \frac{n}{Om} \cdot \left(\ell \cdot U*\right)\right)}{Om}\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;\left(\ell \cdot \sqrt{2}\right) \cdot \sqrt{\frac{n \cdot \left(U \cdot \left(\frac{n \cdot U*}{Om} - 2\right)\right)}{Om}}\\
\end{array}
\end{array}
if l < -1.16e50Initial program 23.0%
associate-*l*21.4%
sub-neg21.4%
associate--l+21.4%
*-commutative21.4%
distribute-rgt-neg-in21.4%
associate-*l/31.0%
associate-*l*31.0%
*-commutative31.0%
*-commutative31.0%
associate-*l*31.0%
unpow231.0%
associate-*l*31.1%
Simplified51.5%
Taylor expanded in U* around 0 11.5%
associate-*r*13.4%
+-commutative13.4%
Simplified19.4%
pow1/249.7%
*-commutative49.7%
associate-/r/49.7%
associate-/r*55.4%
Applied egg-rr55.4%
if -1.16e50 < l < 6.9999999999999997e90Initial program 61.7%
associate-*l*64.8%
sub-neg64.8%
associate--l+64.8%
*-commutative64.8%
distribute-rgt-neg-in64.8%
associate-*l/64.8%
associate-*l*64.8%
*-commutative64.8%
*-commutative64.8%
associate-*l*53.9%
unpow253.9%
associate-*l*55.6%
Simplified56.3%
Taylor expanded in U around 0 63.6%
div-inv63.6%
Applied egg-rr63.6%
associate-*r/63.6%
*-rgt-identity63.6%
associate-/l*67.1%
associate-/r/64.8%
Simplified64.8%
if 6.9999999999999997e90 < l Initial program 22.2%
associate-*l*22.5%
sub-neg22.5%
associate--l+22.5%
*-commutative22.5%
distribute-rgt-neg-in22.5%
associate-*l/37.4%
associate-*l*37.4%
*-commutative37.4%
*-commutative37.4%
associate-*l*35.0%
unpow235.0%
associate-*l*35.2%
Simplified49.1%
Taylor expanded in U around 0 36.6%
div-inv36.6%
Applied egg-rr36.6%
associate-*r/36.6%
*-rgt-identity36.6%
associate-/l*36.6%
associate-/r/36.6%
Simplified36.6%
Taylor expanded in U around 0 36.6%
associate-*r*36.6%
fma-def36.6%
associate-*l/36.6%
associate-*l/46.5%
associate-*r*44.0%
Simplified51.8%
Taylor expanded in t around 0 74.2%
Final simplification64.3%
(FPCore (n U t l Om U*)
:precision binary64
(if (<= l -2.9e-50)
(pow
(* 2.0 (* U (* n (- t (* (/ l Om) (- (/ n (/ (/ Om l) U)) (* l -2.0)))))))
0.5)
(if (<= l 4.2e+53)
(sqrt
(*
(* 2.0 n)
(* U (+ t (/ (* l (+ (* l -2.0) (/ (* n (* l U*)) Om))) Om)))))
(if (<= l 9.5e+231)
(sqrt (* (* 2.0 n) (/ l (/ Om (* U (* l (+ -2.0 (* U* (/ n Om)))))))))
(* (sqrt 2.0) (* l (sqrt (/ (* -2.0 (* n U)) Om))))))))
double code(double n, double U, double t, double l, double Om, double U_42_) {
double tmp;
if (l <= -2.9e-50) {
tmp = pow((2.0 * (U * (n * (t - ((l / Om) * ((n / ((Om / l) / U)) - (l * -2.0))))))), 0.5);
} else if (l <= 4.2e+53) {
tmp = sqrt(((2.0 * n) * (U * (t + ((l * ((l * -2.0) + ((n * (l * U_42_)) / Om))) / Om)))));
} else if (l <= 9.5e+231) {
tmp = sqrt(((2.0 * n) * (l / (Om / (U * (l * (-2.0 + (U_42_ * (n / Om)))))))));
} else {
tmp = sqrt(2.0) * (l * sqrt(((-2.0 * (n * U)) / Om)));
}
return tmp;
}
real(8) function code(n, u, t, l, om, u_42)
real(8), intent (in) :: n
real(8), intent (in) :: u
real(8), intent (in) :: t
real(8), intent (in) :: l
real(8), intent (in) :: om
real(8), intent (in) :: u_42
real(8) :: tmp
if (l <= (-2.9d-50)) then
tmp = (2.0d0 * (u * (n * (t - ((l / om) * ((n / ((om / l) / u)) - (l * (-2.0d0)))))))) ** 0.5d0
else if (l <= 4.2d+53) then
tmp = sqrt(((2.0d0 * n) * (u * (t + ((l * ((l * (-2.0d0)) + ((n * (l * u_42)) / om))) / om)))))
else if (l <= 9.5d+231) then
tmp = sqrt(((2.0d0 * n) * (l / (om / (u * (l * ((-2.0d0) + (u_42 * (n / om)))))))))
else
tmp = sqrt(2.0d0) * (l * sqrt((((-2.0d0) * (n * u)) / om)))
end if
code = tmp
end function
public static double code(double n, double U, double t, double l, double Om, double U_42_) {
double tmp;
if (l <= -2.9e-50) {
tmp = Math.pow((2.0 * (U * (n * (t - ((l / Om) * ((n / ((Om / l) / U)) - (l * -2.0))))))), 0.5);
} else if (l <= 4.2e+53) {
tmp = Math.sqrt(((2.0 * n) * (U * (t + ((l * ((l * -2.0) + ((n * (l * U_42_)) / Om))) / Om)))));
} else if (l <= 9.5e+231) {
tmp = Math.sqrt(((2.0 * n) * (l / (Om / (U * (l * (-2.0 + (U_42_ * (n / Om)))))))));
} else {
tmp = Math.sqrt(2.0) * (l * Math.sqrt(((-2.0 * (n * U)) / Om)));
}
return tmp;
}
def code(n, U, t, l, Om, U_42_): tmp = 0 if l <= -2.9e-50: tmp = math.pow((2.0 * (U * (n * (t - ((l / Om) * ((n / ((Om / l) / U)) - (l * -2.0))))))), 0.5) elif l <= 4.2e+53: tmp = math.sqrt(((2.0 * n) * (U * (t + ((l * ((l * -2.0) + ((n * (l * U_42_)) / Om))) / Om))))) elif l <= 9.5e+231: tmp = math.sqrt(((2.0 * n) * (l / (Om / (U * (l * (-2.0 + (U_42_ * (n / Om))))))))) else: tmp = math.sqrt(2.0) * (l * math.sqrt(((-2.0 * (n * U)) / Om))) return tmp
function code(n, U, t, l, Om, U_42_) tmp = 0.0 if (l <= -2.9e-50) tmp = Float64(2.0 * Float64(U * Float64(n * Float64(t - Float64(Float64(l / Om) * Float64(Float64(n / Float64(Float64(Om / l) / U)) - Float64(l * -2.0))))))) ^ 0.5; elseif (l <= 4.2e+53) tmp = sqrt(Float64(Float64(2.0 * n) * Float64(U * Float64(t + Float64(Float64(l * Float64(Float64(l * -2.0) + Float64(Float64(n * Float64(l * U_42_)) / Om))) / Om))))); elseif (l <= 9.5e+231) tmp = sqrt(Float64(Float64(2.0 * n) * Float64(l / Float64(Om / Float64(U * Float64(l * Float64(-2.0 + Float64(U_42_ * Float64(n / Om))))))))); else tmp = Float64(sqrt(2.0) * Float64(l * sqrt(Float64(Float64(-2.0 * Float64(n * U)) / Om)))); end return tmp end
function tmp_2 = code(n, U, t, l, Om, U_42_) tmp = 0.0; if (l <= -2.9e-50) tmp = (2.0 * (U * (n * (t - ((l / Om) * ((n / ((Om / l) / U)) - (l * -2.0))))))) ^ 0.5; elseif (l <= 4.2e+53) tmp = sqrt(((2.0 * n) * (U * (t + ((l * ((l * -2.0) + ((n * (l * U_42_)) / Om))) / Om))))); elseif (l <= 9.5e+231) tmp = sqrt(((2.0 * n) * (l / (Om / (U * (l * (-2.0 + (U_42_ * (n / Om))))))))); else tmp = sqrt(2.0) * (l * sqrt(((-2.0 * (n * U)) / Om))); end tmp_2 = tmp; end
code[n_, U_, t_, l_, Om_, U$42$_] := If[LessEqual[l, -2.9e-50], N[Power[N[(2.0 * N[(U * N[(n * N[(t - N[(N[(l / Om), $MachinePrecision] * N[(N[(n / N[(N[(Om / l), $MachinePrecision] / U), $MachinePrecision]), $MachinePrecision] - N[(l * -2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 0.5], $MachinePrecision], If[LessEqual[l, 4.2e+53], N[Sqrt[N[(N[(2.0 * n), $MachinePrecision] * N[(U * N[(t + N[(N[(l * N[(N[(l * -2.0), $MachinePrecision] + N[(N[(n * N[(l * U$42$), $MachinePrecision]), $MachinePrecision] / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], If[LessEqual[l, 9.5e+231], N[Sqrt[N[(N[(2.0 * n), $MachinePrecision] * N[(l / N[(Om / N[(U * N[(l * N[(-2.0 + N[(U$42$ * N[(n / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], N[(N[Sqrt[2.0], $MachinePrecision] * N[(l * N[Sqrt[N[(N[(-2.0 * N[(n * U), $MachinePrecision]), $MachinePrecision] / Om), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\ell \leq -2.9 \cdot 10^{-50}:\\
\;\;\;\;{\left(2 \cdot \left(U \cdot \left(n \cdot \left(t - \frac{\ell}{Om} \cdot \left(\frac{n}{\frac{\frac{Om}{\ell}}{U}} - \ell \cdot -2\right)\right)\right)\right)\right)}^{0.5}\\
\mathbf{elif}\;\ell \leq 4.2 \cdot 10^{+53}:\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot \left(U \cdot \left(t + \frac{\ell \cdot \left(\ell \cdot -2 + \frac{n \cdot \left(\ell \cdot U*\right)}{Om}\right)}{Om}\right)\right)}\\
\mathbf{elif}\;\ell \leq 9.5 \cdot 10^{+231}:\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot \frac{\ell}{\frac{Om}{U \cdot \left(\ell \cdot \left(-2 + U* \cdot \frac{n}{Om}\right)\right)}}}\\
\mathbf{else}:\\
\;\;\;\;\sqrt{2} \cdot \left(\ell \cdot \sqrt{\frac{-2 \cdot \left(n \cdot U\right)}{Om}}\right)\\
\end{array}
\end{array}
if l < -2.90000000000000008e-50Initial program 34.5%
associate-*l*30.6%
sub-neg30.6%
associate--l+30.6%
*-commutative30.6%
distribute-rgt-neg-in30.6%
associate-*l/37.0%
associate-*l*37.0%
*-commutative37.0%
*-commutative37.0%
associate-*l*33.0%
unpow233.0%
associate-*l*33.0%
Simplified46.7%
Taylor expanded in U* around 0 19.9%
associate-*r*22.4%
+-commutative22.4%
Simplified26.5%
pow1/248.1%
*-commutative48.1%
associate-/r/48.2%
associate-/r*51.9%
Applied egg-rr51.9%
if -2.90000000000000008e-50 < l < 4.2000000000000004e53Initial program 65.1%
associate-*l*69.3%
sub-neg69.3%
associate--l+69.3%
*-commutative69.3%
distribute-rgt-neg-in69.3%
associate-*l/69.3%
associate-*l*69.3%
*-commutative69.3%
*-commutative69.3%
associate-*l*58.6%
unpow258.6%
associate-*l*60.0%
Simplified60.0%
Taylor expanded in U around 0 69.1%
if 4.2000000000000004e53 < l < 9.5000000000000002e231Initial program 26.1%
associate-*l*31.7%
sub-neg31.7%
associate--l+31.7%
*-commutative31.7%
distribute-rgt-neg-in31.7%
associate-*l/47.3%
associate-*l*47.3%
*-commutative47.3%
*-commutative47.3%
associate-*l*41.8%
unpow241.8%
associate-*l*44.7%
Simplified58.6%
Taylor expanded in U around 0 45.6%
div-inv45.6%
Applied egg-rr45.6%
associate-*r/45.6%
*-rgt-identity45.6%
associate-/l*50.9%
associate-/r/50.9%
Simplified50.9%
Taylor expanded in t around 0 53.3%
associate-/l*56.0%
*-commutative56.0%
*-commutative56.0%
associate-*l/61.2%
*-commutative61.2%
associate-*l*66.7%
distribute-lft-out66.7%
Simplified66.7%
if 9.5000000000000002e231 < l Initial program 11.3%
associate-*l*11.3%
sub-neg11.3%
associate--l+11.3%
*-commutative11.3%
distribute-rgt-neg-in11.3%
associate-*l/11.3%
associate-*l*11.3%
*-commutative11.3%
*-commutative11.3%
associate-*l*11.8%
unpow211.8%
associate-*l*11.8%
Simplified23.2%
Taylor expanded in l around inf 81.3%
associate-*l*81.7%
sub-neg81.7%
unpow281.7%
associate-*r/81.7%
metadata-eval81.7%
distribute-neg-frac81.7%
metadata-eval81.7%
Simplified81.7%
Taylor expanded in n around 0 72.3%
associate-*r/72.3%
Simplified72.3%
Final simplification63.7%
(FPCore (n U t l Om U*)
:precision binary64
(let* ((t_1 (* U (* l (+ -2.0 (* U* (/ n Om)))))))
(if (<= l -8.8e+80)
(sqrt (* 2.0 (/ (* (* n l) t_1) Om)))
(if (<= l 5.5e+56)
(sqrt
(*
(* 2.0 n)
(* U (+ t (/ (* l (+ (* l -2.0) (* (/ n Om) (* l U*)))) Om)))))
(sqrt (* (* 2.0 n) (/ l (/ Om t_1))))))))
double code(double n, double U, double t, double l, double Om, double U_42_) {
double t_1 = U * (l * (-2.0 + (U_42_ * (n / Om))));
double tmp;
if (l <= -8.8e+80) {
tmp = sqrt((2.0 * (((n * l) * t_1) / Om)));
} else if (l <= 5.5e+56) {
tmp = sqrt(((2.0 * n) * (U * (t + ((l * ((l * -2.0) + ((n / Om) * (l * U_42_)))) / Om)))));
} else {
tmp = sqrt(((2.0 * n) * (l / (Om / t_1))));
}
return tmp;
}
real(8) function code(n, u, t, l, om, u_42)
real(8), intent (in) :: n
real(8), intent (in) :: u
real(8), intent (in) :: t
real(8), intent (in) :: l
real(8), intent (in) :: om
real(8), intent (in) :: u_42
real(8) :: t_1
real(8) :: tmp
t_1 = u * (l * ((-2.0d0) + (u_42 * (n / om))))
if (l <= (-8.8d+80)) then
tmp = sqrt((2.0d0 * (((n * l) * t_1) / om)))
else if (l <= 5.5d+56) then
tmp = sqrt(((2.0d0 * n) * (u * (t + ((l * ((l * (-2.0d0)) + ((n / om) * (l * u_42)))) / om)))))
else
tmp = sqrt(((2.0d0 * n) * (l / (om / t_1))))
end if
code = tmp
end function
public static double code(double n, double U, double t, double l, double Om, double U_42_) {
double t_1 = U * (l * (-2.0 + (U_42_ * (n / Om))));
double tmp;
if (l <= -8.8e+80) {
tmp = Math.sqrt((2.0 * (((n * l) * t_1) / Om)));
} else if (l <= 5.5e+56) {
tmp = Math.sqrt(((2.0 * n) * (U * (t + ((l * ((l * -2.0) + ((n / Om) * (l * U_42_)))) / Om)))));
} else {
tmp = Math.sqrt(((2.0 * n) * (l / (Om / t_1))));
}
return tmp;
}
def code(n, U, t, l, Om, U_42_): t_1 = U * (l * (-2.0 + (U_42_ * (n / Om)))) tmp = 0 if l <= -8.8e+80: tmp = math.sqrt((2.0 * (((n * l) * t_1) / Om))) elif l <= 5.5e+56: tmp = math.sqrt(((2.0 * n) * (U * (t + ((l * ((l * -2.0) + ((n / Om) * (l * U_42_)))) / Om))))) else: tmp = math.sqrt(((2.0 * n) * (l / (Om / t_1)))) return tmp
function code(n, U, t, l, Om, U_42_) t_1 = Float64(U * Float64(l * Float64(-2.0 + Float64(U_42_ * Float64(n / Om))))) tmp = 0.0 if (l <= -8.8e+80) tmp = sqrt(Float64(2.0 * Float64(Float64(Float64(n * l) * t_1) / Om))); elseif (l <= 5.5e+56) tmp = sqrt(Float64(Float64(2.0 * n) * Float64(U * Float64(t + Float64(Float64(l * Float64(Float64(l * -2.0) + Float64(Float64(n / Om) * Float64(l * U_42_)))) / Om))))); else tmp = sqrt(Float64(Float64(2.0 * n) * Float64(l / Float64(Om / t_1)))); end return tmp end
function tmp_2 = code(n, U, t, l, Om, U_42_) t_1 = U * (l * (-2.0 + (U_42_ * (n / Om)))); tmp = 0.0; if (l <= -8.8e+80) tmp = sqrt((2.0 * (((n * l) * t_1) / Om))); elseif (l <= 5.5e+56) tmp = sqrt(((2.0 * n) * (U * (t + ((l * ((l * -2.0) + ((n / Om) * (l * U_42_)))) / Om))))); else tmp = sqrt(((2.0 * n) * (l / (Om / t_1)))); end tmp_2 = tmp; end
code[n_, U_, t_, l_, Om_, U$42$_] := Block[{t$95$1 = N[(U * N[(l * N[(-2.0 + N[(U$42$ * N[(n / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[l, -8.8e+80], N[Sqrt[N[(2.0 * N[(N[(N[(n * l), $MachinePrecision] * t$95$1), $MachinePrecision] / Om), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], If[LessEqual[l, 5.5e+56], N[Sqrt[N[(N[(2.0 * n), $MachinePrecision] * N[(U * N[(t + N[(N[(l * N[(N[(l * -2.0), $MachinePrecision] + N[(N[(n / Om), $MachinePrecision] * N[(l * U$42$), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], N[Sqrt[N[(N[(2.0 * n), $MachinePrecision] * N[(l / N[(Om / t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := U \cdot \left(\ell \cdot \left(-2 + U* \cdot \frac{n}{Om}\right)\right)\\
\mathbf{if}\;\ell \leq -8.8 \cdot 10^{+80}:\\
\;\;\;\;\sqrt{2 \cdot \frac{\left(n \cdot \ell\right) \cdot t_1}{Om}}\\
\mathbf{elif}\;\ell \leq 5.5 \cdot 10^{+56}:\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot \left(U \cdot \left(t + \frac{\ell \cdot \left(\ell \cdot -2 + \frac{n}{Om} \cdot \left(\ell \cdot U*\right)\right)}{Om}\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot \frac{\ell}{\frac{Om}{t_1}}}\\
\end{array}
\end{array}
if l < -8.80000000000000011e80Initial program 21.3%
associate-*l*19.5%
sub-neg19.5%
associate--l+19.5%
*-commutative19.5%
distribute-rgt-neg-in19.5%
associate-*l/30.4%
associate-*l*30.4%
*-commutative30.4%
*-commutative30.4%
associate-*l*30.4%
unpow230.4%
associate-*l*30.5%
Simplified51.3%
Taylor expanded in U around 0 40.4%
div-inv40.4%
Applied egg-rr40.4%
associate-*r/40.4%
*-rgt-identity40.4%
associate-/l*40.5%
associate-/r/40.5%
Simplified40.5%
Taylor expanded in t around 0 46.7%
associate-*r*51.1%
*-commutative51.1%
*-commutative51.1%
associate-*l/51.2%
*-commutative51.2%
associate-*l*55.6%
distribute-lft-out55.6%
Simplified55.6%
if -8.80000000000000011e80 < l < 5.5000000000000002e56Initial program 62.6%
associate-*l*64.6%
sub-neg64.6%
associate--l+64.6%
*-commutative64.6%
distribute-rgt-neg-in64.6%
associate-*l/64.6%
associate-*l*64.6%
*-commutative64.6%
*-commutative64.6%
associate-*l*53.6%
unpow253.6%
associate-*l*54.8%
Simplified55.5%
Taylor expanded in U around 0 62.2%
div-inv62.2%
Applied egg-rr62.2%
associate-*r/62.2%
*-rgt-identity62.2%
associate-/l*66.3%
associate-/r/63.9%
Simplified63.9%
if 5.5000000000000002e56 < l Initial program 21.5%
associate-*l*26.0%
sub-neg26.0%
associate--l+26.0%
*-commutative26.0%
distribute-rgt-neg-in26.0%
associate-*l/38.6%
associate-*l*38.6%
*-commutative38.6%
*-commutative38.6%
associate-*l*36.4%
unpow236.4%
associate-*l*38.7%
Simplified52.6%
Taylor expanded in U around 0 42.2%
div-inv42.2%
Applied egg-rr42.2%
associate-*r/42.2%
*-rgt-identity42.2%
associate-/l*42.2%
associate-/r/42.2%
Simplified42.2%
Taylor expanded in t around 0 48.5%
associate-/l*50.6%
*-commutative50.6%
*-commutative50.6%
associate-*l/52.6%
*-commutative52.6%
associate-*l*57.2%
distribute-lft-out57.2%
Simplified57.2%
Final simplification61.3%
(FPCore (n U t l Om U*)
:precision binary64
(if (<= l -2e-50)
(pow
(* 2.0 (* U (* n (- t (* (/ l Om) (- (/ n (/ (/ Om l) U)) (* l -2.0)))))))
0.5)
(if (<= l 9.5e+53)
(sqrt
(*
(* 2.0 n)
(* U (+ t (/ (* l (+ (* l -2.0) (/ (* n (* l U*)) Om))) Om)))))
(sqrt (* (* 2.0 n) (/ l (/ Om (* U (* l (+ -2.0 (* U* (/ n Om))))))))))))
double code(double n, double U, double t, double l, double Om, double U_42_) {
double tmp;
if (l <= -2e-50) {
tmp = pow((2.0 * (U * (n * (t - ((l / Om) * ((n / ((Om / l) / U)) - (l * -2.0))))))), 0.5);
} else if (l <= 9.5e+53) {
tmp = sqrt(((2.0 * n) * (U * (t + ((l * ((l * -2.0) + ((n * (l * U_42_)) / Om))) / Om)))));
} else {
tmp = sqrt(((2.0 * n) * (l / (Om / (U * (l * (-2.0 + (U_42_ * (n / Om)))))))));
}
return tmp;
}
real(8) function code(n, u, t, l, om, u_42)
real(8), intent (in) :: n
real(8), intent (in) :: u
real(8), intent (in) :: t
real(8), intent (in) :: l
real(8), intent (in) :: om
real(8), intent (in) :: u_42
real(8) :: tmp
if (l <= (-2d-50)) then
tmp = (2.0d0 * (u * (n * (t - ((l / om) * ((n / ((om / l) / u)) - (l * (-2.0d0)))))))) ** 0.5d0
else if (l <= 9.5d+53) then
tmp = sqrt(((2.0d0 * n) * (u * (t + ((l * ((l * (-2.0d0)) + ((n * (l * u_42)) / om))) / om)))))
else
tmp = sqrt(((2.0d0 * n) * (l / (om / (u * (l * ((-2.0d0) + (u_42 * (n / om)))))))))
end if
code = tmp
end function
public static double code(double n, double U, double t, double l, double Om, double U_42_) {
double tmp;
if (l <= -2e-50) {
tmp = Math.pow((2.0 * (U * (n * (t - ((l / Om) * ((n / ((Om / l) / U)) - (l * -2.0))))))), 0.5);
} else if (l <= 9.5e+53) {
tmp = Math.sqrt(((2.0 * n) * (U * (t + ((l * ((l * -2.0) + ((n * (l * U_42_)) / Om))) / Om)))));
} else {
tmp = Math.sqrt(((2.0 * n) * (l / (Om / (U * (l * (-2.0 + (U_42_ * (n / Om)))))))));
}
return tmp;
}
def code(n, U, t, l, Om, U_42_): tmp = 0 if l <= -2e-50: tmp = math.pow((2.0 * (U * (n * (t - ((l / Om) * ((n / ((Om / l) / U)) - (l * -2.0))))))), 0.5) elif l <= 9.5e+53: tmp = math.sqrt(((2.0 * n) * (U * (t + ((l * ((l * -2.0) + ((n * (l * U_42_)) / Om))) / Om))))) else: tmp = math.sqrt(((2.0 * n) * (l / (Om / (U * (l * (-2.0 + (U_42_ * (n / Om))))))))) return tmp
function code(n, U, t, l, Om, U_42_) tmp = 0.0 if (l <= -2e-50) tmp = Float64(2.0 * Float64(U * Float64(n * Float64(t - Float64(Float64(l / Om) * Float64(Float64(n / Float64(Float64(Om / l) / U)) - Float64(l * -2.0))))))) ^ 0.5; elseif (l <= 9.5e+53) tmp = sqrt(Float64(Float64(2.0 * n) * Float64(U * Float64(t + Float64(Float64(l * Float64(Float64(l * -2.0) + Float64(Float64(n * Float64(l * U_42_)) / Om))) / Om))))); else tmp = sqrt(Float64(Float64(2.0 * n) * Float64(l / Float64(Om / Float64(U * Float64(l * Float64(-2.0 + Float64(U_42_ * Float64(n / Om))))))))); end return tmp end
function tmp_2 = code(n, U, t, l, Om, U_42_) tmp = 0.0; if (l <= -2e-50) tmp = (2.0 * (U * (n * (t - ((l / Om) * ((n / ((Om / l) / U)) - (l * -2.0))))))) ^ 0.5; elseif (l <= 9.5e+53) tmp = sqrt(((2.0 * n) * (U * (t + ((l * ((l * -2.0) + ((n * (l * U_42_)) / Om))) / Om))))); else tmp = sqrt(((2.0 * n) * (l / (Om / (U * (l * (-2.0 + (U_42_ * (n / Om))))))))); end tmp_2 = tmp; end
code[n_, U_, t_, l_, Om_, U$42$_] := If[LessEqual[l, -2e-50], N[Power[N[(2.0 * N[(U * N[(n * N[(t - N[(N[(l / Om), $MachinePrecision] * N[(N[(n / N[(N[(Om / l), $MachinePrecision] / U), $MachinePrecision]), $MachinePrecision] - N[(l * -2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 0.5], $MachinePrecision], If[LessEqual[l, 9.5e+53], N[Sqrt[N[(N[(2.0 * n), $MachinePrecision] * N[(U * N[(t + N[(N[(l * N[(N[(l * -2.0), $MachinePrecision] + N[(N[(n * N[(l * U$42$), $MachinePrecision]), $MachinePrecision] / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], N[Sqrt[N[(N[(2.0 * n), $MachinePrecision] * N[(l / N[(Om / N[(U * N[(l * N[(-2.0 + N[(U$42$ * N[(n / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\ell \leq -2 \cdot 10^{-50}:\\
\;\;\;\;{\left(2 \cdot \left(U \cdot \left(n \cdot \left(t - \frac{\ell}{Om} \cdot \left(\frac{n}{\frac{\frac{Om}{\ell}}{U}} - \ell \cdot -2\right)\right)\right)\right)\right)}^{0.5}\\
\mathbf{elif}\;\ell \leq 9.5 \cdot 10^{+53}:\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot \left(U \cdot \left(t + \frac{\ell \cdot \left(\ell \cdot -2 + \frac{n \cdot \left(\ell \cdot U*\right)}{Om}\right)}{Om}\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot \frac{\ell}{\frac{Om}{U \cdot \left(\ell \cdot \left(-2 + U* \cdot \frac{n}{Om}\right)\right)}}}\\
\end{array}
\end{array}
if l < -2.00000000000000002e-50Initial program 34.5%
associate-*l*30.6%
sub-neg30.6%
associate--l+30.6%
*-commutative30.6%
distribute-rgt-neg-in30.6%
associate-*l/37.0%
associate-*l*37.0%
*-commutative37.0%
*-commutative37.0%
associate-*l*33.0%
unpow233.0%
associate-*l*33.0%
Simplified46.7%
Taylor expanded in U* around 0 19.9%
associate-*r*22.4%
+-commutative22.4%
Simplified26.5%
pow1/248.1%
*-commutative48.1%
associate-/r/48.2%
associate-/r*51.9%
Applied egg-rr51.9%
if -2.00000000000000002e-50 < l < 9.5000000000000006e53Initial program 65.1%
associate-*l*69.3%
sub-neg69.3%
associate--l+69.3%
*-commutative69.3%
distribute-rgt-neg-in69.3%
associate-*l/69.3%
associate-*l*69.3%
*-commutative69.3%
*-commutative69.3%
associate-*l*58.6%
unpow258.6%
associate-*l*60.0%
Simplified60.0%
Taylor expanded in U around 0 69.1%
if 9.5000000000000006e53 < l Initial program 22.7%
associate-*l*27.0%
sub-neg27.0%
associate--l+27.0%
*-commutative27.0%
distribute-rgt-neg-in27.0%
associate-*l/39.0%
associate-*l*39.0%
*-commutative39.0%
*-commutative39.0%
associate-*l*34.9%
unpow234.9%
associate-*l*37.2%
Simplified50.5%
Taylor expanded in U around 0 40.5%
div-inv40.5%
Applied egg-rr40.5%
associate-*r/40.5%
*-rgt-identity40.5%
associate-/l*44.6%
associate-/r/44.6%
Simplified44.6%
Taylor expanded in t around 0 46.5%
associate-/l*48.5%
*-commutative48.5%
*-commutative48.5%
associate-*l/52.5%
*-commutative52.5%
associate-*l*56.9%
distribute-lft-out56.9%
Simplified56.9%
Final simplification61.7%
(FPCore (n U t l Om U*)
:precision binary64
(let* ((t_1 (/ (* l l) Om))
(t_2
(sqrt
(* -2.0 (/ (* (* n (* l l)) (* U (- 2.0 (/ n (/ Om U*))))) Om)))))
(if (<= l -1.9e+44)
t_2
(if (<= l -9.6e-235)
(sqrt (* (* (* 2.0 n) U) (+ t (* t_1 -2.0))))
(if (<= l 3.85e+56)
(sqrt (* (* 2.0 n) (* U (- t (* 2.0 t_1)))))
t_2)))))
double code(double n, double U, double t, double l, double Om, double U_42_) {
double t_1 = (l * l) / Om;
double t_2 = sqrt((-2.0 * (((n * (l * l)) * (U * (2.0 - (n / (Om / U_42_))))) / Om)));
double tmp;
if (l <= -1.9e+44) {
tmp = t_2;
} else if (l <= -9.6e-235) {
tmp = sqrt((((2.0 * n) * U) * (t + (t_1 * -2.0))));
} else if (l <= 3.85e+56) {
tmp = sqrt(((2.0 * n) * (U * (t - (2.0 * t_1)))));
} else {
tmp = t_2;
}
return tmp;
}
real(8) function code(n, u, t, l, om, u_42)
real(8), intent (in) :: n
real(8), intent (in) :: u
real(8), intent (in) :: t
real(8), intent (in) :: l
real(8), intent (in) :: om
real(8), intent (in) :: u_42
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = (l * l) / om
t_2 = sqrt(((-2.0d0) * (((n * (l * l)) * (u * (2.0d0 - (n / (om / u_42))))) / om)))
if (l <= (-1.9d+44)) then
tmp = t_2
else if (l <= (-9.6d-235)) then
tmp = sqrt((((2.0d0 * n) * u) * (t + (t_1 * (-2.0d0)))))
else if (l <= 3.85d+56) then
tmp = sqrt(((2.0d0 * n) * (u * (t - (2.0d0 * t_1)))))
else
tmp = t_2
end if
code = tmp
end function
public static double code(double n, double U, double t, double l, double Om, double U_42_) {
double t_1 = (l * l) / Om;
double t_2 = Math.sqrt((-2.0 * (((n * (l * l)) * (U * (2.0 - (n / (Om / U_42_))))) / Om)));
double tmp;
if (l <= -1.9e+44) {
tmp = t_2;
} else if (l <= -9.6e-235) {
tmp = Math.sqrt((((2.0 * n) * U) * (t + (t_1 * -2.0))));
} else if (l <= 3.85e+56) {
tmp = Math.sqrt(((2.0 * n) * (U * (t - (2.0 * t_1)))));
} else {
tmp = t_2;
}
return tmp;
}
def code(n, U, t, l, Om, U_42_): t_1 = (l * l) / Om t_2 = math.sqrt((-2.0 * (((n * (l * l)) * (U * (2.0 - (n / (Om / U_42_))))) / Om))) tmp = 0 if l <= -1.9e+44: tmp = t_2 elif l <= -9.6e-235: tmp = math.sqrt((((2.0 * n) * U) * (t + (t_1 * -2.0)))) elif l <= 3.85e+56: tmp = math.sqrt(((2.0 * n) * (U * (t - (2.0 * t_1))))) else: tmp = t_2 return tmp
function code(n, U, t, l, Om, U_42_) t_1 = Float64(Float64(l * l) / Om) t_2 = sqrt(Float64(-2.0 * Float64(Float64(Float64(n * Float64(l * l)) * Float64(U * Float64(2.0 - Float64(n / Float64(Om / U_42_))))) / Om))) tmp = 0.0 if (l <= -1.9e+44) tmp = t_2; elseif (l <= -9.6e-235) tmp = sqrt(Float64(Float64(Float64(2.0 * n) * U) * Float64(t + Float64(t_1 * -2.0)))); elseif (l <= 3.85e+56) tmp = sqrt(Float64(Float64(2.0 * n) * Float64(U * Float64(t - Float64(2.0 * t_1))))); else tmp = t_2; end return tmp end
function tmp_2 = code(n, U, t, l, Om, U_42_) t_1 = (l * l) / Om; t_2 = sqrt((-2.0 * (((n * (l * l)) * (U * (2.0 - (n / (Om / U_42_))))) / Om))); tmp = 0.0; if (l <= -1.9e+44) tmp = t_2; elseif (l <= -9.6e-235) tmp = sqrt((((2.0 * n) * U) * (t + (t_1 * -2.0)))); elseif (l <= 3.85e+56) tmp = sqrt(((2.0 * n) * (U * (t - (2.0 * t_1))))); else tmp = t_2; end tmp_2 = tmp; end
code[n_, U_, t_, l_, Om_, U$42$_] := Block[{t$95$1 = N[(N[(l * l), $MachinePrecision] / Om), $MachinePrecision]}, Block[{t$95$2 = N[Sqrt[N[(-2.0 * N[(N[(N[(n * N[(l * l), $MachinePrecision]), $MachinePrecision] * N[(U * N[(2.0 - N[(n / N[(Om / U$42$), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / Om), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, If[LessEqual[l, -1.9e+44], t$95$2, If[LessEqual[l, -9.6e-235], N[Sqrt[N[(N[(N[(2.0 * n), $MachinePrecision] * U), $MachinePrecision] * N[(t + N[(t$95$1 * -2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], If[LessEqual[l, 3.85e+56], N[Sqrt[N[(N[(2.0 * n), $MachinePrecision] * N[(U * N[(t - N[(2.0 * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], t$95$2]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{\ell \cdot \ell}{Om}\\
t_2 := \sqrt{-2 \cdot \frac{\left(n \cdot \left(\ell \cdot \ell\right)\right) \cdot \left(U \cdot \left(2 - \frac{n}{\frac{Om}{U*}}\right)\right)}{Om}}\\
\mathbf{if}\;\ell \leq -1.9 \cdot 10^{+44}:\\
\;\;\;\;t_2\\
\mathbf{elif}\;\ell \leq -9.6 \cdot 10^{-235}:\\
\;\;\;\;\sqrt{\left(\left(2 \cdot n\right) \cdot U\right) \cdot \left(t + t_1 \cdot -2\right)}\\
\mathbf{elif}\;\ell \leq 3.85 \cdot 10^{+56}:\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot \left(U \cdot \left(t - 2 \cdot t_1\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;t_2\\
\end{array}
\end{array}
if l < -1.9000000000000001e44 or 3.85e56 < l Initial program 22.0%
associate-*l*23.4%
sub-neg23.4%
associate--l+23.4%
*-commutative23.4%
distribute-rgt-neg-in23.4%
associate-*l/34.2%
associate-*l*34.2%
*-commutative34.2%
*-commutative34.2%
associate-*l*33.2%
unpow233.2%
associate-*l*34.3%
Simplified51.5%
Taylor expanded in U around 0 40.6%
Taylor expanded in l around -inf 42.4%
associate-*r*42.4%
unpow242.4%
*-commutative42.4%
mul-1-neg42.4%
unsub-neg42.4%
associate-/l*42.4%
Simplified42.4%
if -1.9000000000000001e44 < l < -9.60000000000000043e-235Initial program 61.5%
Taylor expanded in Om around inf 53.5%
unpow253.5%
Simplified53.5%
if -9.60000000000000043e-235 < l < 3.85e56Initial program 65.7%
associate-*l*73.6%
sub-neg73.6%
associate-+l-73.6%
sub-neg73.6%
associate-/l*73.6%
remove-double-neg73.6%
associate-*l*73.6%
Simplified73.6%
Taylor expanded in Om around inf 66.0%
unpow266.0%
Simplified66.0%
Final simplification53.9%
(FPCore (n U t l Om U*)
:precision binary64
(let* ((t_1 (/ (* l l) Om))
(t_2
(sqrt
(* 2.0 (/ (* (* n l) (* U (* l (+ -2.0 (* U* (/ n Om)))))) Om)))))
(if (<= l -8e+38)
t_2
(if (<= l -2.3e-228)
(sqrt (* (* (* 2.0 n) U) (+ t (* t_1 -2.0))))
(if (<= l 5e+56) (sqrt (* (* 2.0 n) (* U (- t (* 2.0 t_1))))) t_2)))))
double code(double n, double U, double t, double l, double Om, double U_42_) {
double t_1 = (l * l) / Om;
double t_2 = sqrt((2.0 * (((n * l) * (U * (l * (-2.0 + (U_42_ * (n / Om)))))) / Om)));
double tmp;
if (l <= -8e+38) {
tmp = t_2;
} else if (l <= -2.3e-228) {
tmp = sqrt((((2.0 * n) * U) * (t + (t_1 * -2.0))));
} else if (l <= 5e+56) {
tmp = sqrt(((2.0 * n) * (U * (t - (2.0 * t_1)))));
} else {
tmp = t_2;
}
return tmp;
}
real(8) function code(n, u, t, l, om, u_42)
real(8), intent (in) :: n
real(8), intent (in) :: u
real(8), intent (in) :: t
real(8), intent (in) :: l
real(8), intent (in) :: om
real(8), intent (in) :: u_42
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = (l * l) / om
t_2 = sqrt((2.0d0 * (((n * l) * (u * (l * ((-2.0d0) + (u_42 * (n / om)))))) / om)))
if (l <= (-8d+38)) then
tmp = t_2
else if (l <= (-2.3d-228)) then
tmp = sqrt((((2.0d0 * n) * u) * (t + (t_1 * (-2.0d0)))))
else if (l <= 5d+56) then
tmp = sqrt(((2.0d0 * n) * (u * (t - (2.0d0 * t_1)))))
else
tmp = t_2
end if
code = tmp
end function
public static double code(double n, double U, double t, double l, double Om, double U_42_) {
double t_1 = (l * l) / Om;
double t_2 = Math.sqrt((2.0 * (((n * l) * (U * (l * (-2.0 + (U_42_ * (n / Om)))))) / Om)));
double tmp;
if (l <= -8e+38) {
tmp = t_2;
} else if (l <= -2.3e-228) {
tmp = Math.sqrt((((2.0 * n) * U) * (t + (t_1 * -2.0))));
} else if (l <= 5e+56) {
tmp = Math.sqrt(((2.0 * n) * (U * (t - (2.0 * t_1)))));
} else {
tmp = t_2;
}
return tmp;
}
def code(n, U, t, l, Om, U_42_): t_1 = (l * l) / Om t_2 = math.sqrt((2.0 * (((n * l) * (U * (l * (-2.0 + (U_42_ * (n / Om)))))) / Om))) tmp = 0 if l <= -8e+38: tmp = t_2 elif l <= -2.3e-228: tmp = math.sqrt((((2.0 * n) * U) * (t + (t_1 * -2.0)))) elif l <= 5e+56: tmp = math.sqrt(((2.0 * n) * (U * (t - (2.0 * t_1))))) else: tmp = t_2 return tmp
function code(n, U, t, l, Om, U_42_) t_1 = Float64(Float64(l * l) / Om) t_2 = sqrt(Float64(2.0 * Float64(Float64(Float64(n * l) * Float64(U * Float64(l * Float64(-2.0 + Float64(U_42_ * Float64(n / Om)))))) / Om))) tmp = 0.0 if (l <= -8e+38) tmp = t_2; elseif (l <= -2.3e-228) tmp = sqrt(Float64(Float64(Float64(2.0 * n) * U) * Float64(t + Float64(t_1 * -2.0)))); elseif (l <= 5e+56) tmp = sqrt(Float64(Float64(2.0 * n) * Float64(U * Float64(t - Float64(2.0 * t_1))))); else tmp = t_2; end return tmp end
function tmp_2 = code(n, U, t, l, Om, U_42_) t_1 = (l * l) / Om; t_2 = sqrt((2.0 * (((n * l) * (U * (l * (-2.0 + (U_42_ * (n / Om)))))) / Om))); tmp = 0.0; if (l <= -8e+38) tmp = t_2; elseif (l <= -2.3e-228) tmp = sqrt((((2.0 * n) * U) * (t + (t_1 * -2.0)))); elseif (l <= 5e+56) tmp = sqrt(((2.0 * n) * (U * (t - (2.0 * t_1))))); else tmp = t_2; end tmp_2 = tmp; end
code[n_, U_, t_, l_, Om_, U$42$_] := Block[{t$95$1 = N[(N[(l * l), $MachinePrecision] / Om), $MachinePrecision]}, Block[{t$95$2 = N[Sqrt[N[(2.0 * N[(N[(N[(n * l), $MachinePrecision] * N[(U * N[(l * N[(-2.0 + N[(U$42$ * N[(n / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / Om), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, If[LessEqual[l, -8e+38], t$95$2, If[LessEqual[l, -2.3e-228], N[Sqrt[N[(N[(N[(2.0 * n), $MachinePrecision] * U), $MachinePrecision] * N[(t + N[(t$95$1 * -2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], If[LessEqual[l, 5e+56], N[Sqrt[N[(N[(2.0 * n), $MachinePrecision] * N[(U * N[(t - N[(2.0 * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], t$95$2]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{\ell \cdot \ell}{Om}\\
t_2 := \sqrt{2 \cdot \frac{\left(n \cdot \ell\right) \cdot \left(U \cdot \left(\ell \cdot \left(-2 + U* \cdot \frac{n}{Om}\right)\right)\right)}{Om}}\\
\mathbf{if}\;\ell \leq -8 \cdot 10^{+38}:\\
\;\;\;\;t_2\\
\mathbf{elif}\;\ell \leq -2.3 \cdot 10^{-228}:\\
\;\;\;\;\sqrt{\left(\left(2 \cdot n\right) \cdot U\right) \cdot \left(t + t_1 \cdot -2\right)}\\
\mathbf{elif}\;\ell \leq 5 \cdot 10^{+56}:\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot \left(U \cdot \left(t - 2 \cdot t_1\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;t_2\\
\end{array}
\end{array}
if l < -7.99999999999999982e38 or 5.00000000000000024e56 < l Initial program 22.6%
associate-*l*23.9%
sub-neg23.9%
associate--l+23.9%
*-commutative23.9%
distribute-rgt-neg-in23.9%
associate-*l/34.5%
associate-*l*34.5%
*-commutative34.5%
*-commutative34.5%
associate-*l*32.6%
unpow232.6%
associate-*l*33.7%
Simplified50.6%
Taylor expanded in U around 0 39.9%
div-inv39.9%
Applied egg-rr39.9%
associate-*r/39.9%
*-rgt-identity39.9%
associate-/l*41.8%
associate-/r/41.8%
Simplified41.8%
Taylor expanded in t around 0 46.1%
associate-*r*49.1%
*-commutative49.1%
*-commutative49.1%
associate-*l/49.2%
*-commutative49.2%
associate-*l*53.3%
distribute-lft-out53.3%
Simplified53.3%
if -7.99999999999999982e38 < l < -2.2999999999999999e-228Initial program 61.9%
Taylor expanded in Om around inf 53.7%
unpow253.7%
Simplified53.7%
if -2.2999999999999999e-228 < l < 5.00000000000000024e56Initial program 65.7%
associate-*l*73.6%
sub-neg73.6%
associate-+l-73.6%
sub-neg73.6%
associate-/l*73.6%
remove-double-neg73.6%
associate-*l*73.6%
Simplified73.6%
Taylor expanded in Om around inf 66.0%
unpow266.0%
Simplified66.0%
Final simplification58.1%
(FPCore (n U t l Om U*)
:precision binary64
(let* ((t_1 (* U (* l (+ -2.0 (* U* (/ n Om)))))) (t_2 (/ (* l l) Om)))
(if (<= l -1e+39)
(sqrt (* 2.0 (/ (* (* n l) t_1) Om)))
(if (<= l -7e-229)
(sqrt (* (* (* 2.0 n) U) (+ t (* t_2 -2.0))))
(if (<= l 1.6e+53)
(sqrt (* (* 2.0 n) (* U (- t (* 2.0 t_2)))))
(sqrt (* (* 2.0 n) (/ l (/ Om t_1)))))))))
double code(double n, double U, double t, double l, double Om, double U_42_) {
double t_1 = U * (l * (-2.0 + (U_42_ * (n / Om))));
double t_2 = (l * l) / Om;
double tmp;
if (l <= -1e+39) {
tmp = sqrt((2.0 * (((n * l) * t_1) / Om)));
} else if (l <= -7e-229) {
tmp = sqrt((((2.0 * n) * U) * (t + (t_2 * -2.0))));
} else if (l <= 1.6e+53) {
tmp = sqrt(((2.0 * n) * (U * (t - (2.0 * t_2)))));
} else {
tmp = sqrt(((2.0 * n) * (l / (Om / t_1))));
}
return tmp;
}
real(8) function code(n, u, t, l, om, u_42)
real(8), intent (in) :: n
real(8), intent (in) :: u
real(8), intent (in) :: t
real(8), intent (in) :: l
real(8), intent (in) :: om
real(8), intent (in) :: u_42
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = u * (l * ((-2.0d0) + (u_42 * (n / om))))
t_2 = (l * l) / om
if (l <= (-1d+39)) then
tmp = sqrt((2.0d0 * (((n * l) * t_1) / om)))
else if (l <= (-7d-229)) then
tmp = sqrt((((2.0d0 * n) * u) * (t + (t_2 * (-2.0d0)))))
else if (l <= 1.6d+53) then
tmp = sqrt(((2.0d0 * n) * (u * (t - (2.0d0 * t_2)))))
else
tmp = sqrt(((2.0d0 * n) * (l / (om / t_1))))
end if
code = tmp
end function
public static double code(double n, double U, double t, double l, double Om, double U_42_) {
double t_1 = U * (l * (-2.0 + (U_42_ * (n / Om))));
double t_2 = (l * l) / Om;
double tmp;
if (l <= -1e+39) {
tmp = Math.sqrt((2.0 * (((n * l) * t_1) / Om)));
} else if (l <= -7e-229) {
tmp = Math.sqrt((((2.0 * n) * U) * (t + (t_2 * -2.0))));
} else if (l <= 1.6e+53) {
tmp = Math.sqrt(((2.0 * n) * (U * (t - (2.0 * t_2)))));
} else {
tmp = Math.sqrt(((2.0 * n) * (l / (Om / t_1))));
}
return tmp;
}
def code(n, U, t, l, Om, U_42_): t_1 = U * (l * (-2.0 + (U_42_ * (n / Om)))) t_2 = (l * l) / Om tmp = 0 if l <= -1e+39: tmp = math.sqrt((2.0 * (((n * l) * t_1) / Om))) elif l <= -7e-229: tmp = math.sqrt((((2.0 * n) * U) * (t + (t_2 * -2.0)))) elif l <= 1.6e+53: tmp = math.sqrt(((2.0 * n) * (U * (t - (2.0 * t_2))))) else: tmp = math.sqrt(((2.0 * n) * (l / (Om / t_1)))) return tmp
function code(n, U, t, l, Om, U_42_) t_1 = Float64(U * Float64(l * Float64(-2.0 + Float64(U_42_ * Float64(n / Om))))) t_2 = Float64(Float64(l * l) / Om) tmp = 0.0 if (l <= -1e+39) tmp = sqrt(Float64(2.0 * Float64(Float64(Float64(n * l) * t_1) / Om))); elseif (l <= -7e-229) tmp = sqrt(Float64(Float64(Float64(2.0 * n) * U) * Float64(t + Float64(t_2 * -2.0)))); elseif (l <= 1.6e+53) tmp = sqrt(Float64(Float64(2.0 * n) * Float64(U * Float64(t - Float64(2.0 * t_2))))); else tmp = sqrt(Float64(Float64(2.0 * n) * Float64(l / Float64(Om / t_1)))); end return tmp end
function tmp_2 = code(n, U, t, l, Om, U_42_) t_1 = U * (l * (-2.0 + (U_42_ * (n / Om)))); t_2 = (l * l) / Om; tmp = 0.0; if (l <= -1e+39) tmp = sqrt((2.0 * (((n * l) * t_1) / Om))); elseif (l <= -7e-229) tmp = sqrt((((2.0 * n) * U) * (t + (t_2 * -2.0)))); elseif (l <= 1.6e+53) tmp = sqrt(((2.0 * n) * (U * (t - (2.0 * t_2))))); else tmp = sqrt(((2.0 * n) * (l / (Om / t_1)))); end tmp_2 = tmp; end
code[n_, U_, t_, l_, Om_, U$42$_] := Block[{t$95$1 = N[(U * N[(l * N[(-2.0 + N[(U$42$ * N[(n / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(l * l), $MachinePrecision] / Om), $MachinePrecision]}, If[LessEqual[l, -1e+39], N[Sqrt[N[(2.0 * N[(N[(N[(n * l), $MachinePrecision] * t$95$1), $MachinePrecision] / Om), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], If[LessEqual[l, -7e-229], N[Sqrt[N[(N[(N[(2.0 * n), $MachinePrecision] * U), $MachinePrecision] * N[(t + N[(t$95$2 * -2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], If[LessEqual[l, 1.6e+53], N[Sqrt[N[(N[(2.0 * n), $MachinePrecision] * N[(U * N[(t - N[(2.0 * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], N[Sqrt[N[(N[(2.0 * n), $MachinePrecision] * N[(l / N[(Om / t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := U \cdot \left(\ell \cdot \left(-2 + U* \cdot \frac{n}{Om}\right)\right)\\
t_2 := \frac{\ell \cdot \ell}{Om}\\
\mathbf{if}\;\ell \leq -1 \cdot 10^{+39}:\\
\;\;\;\;\sqrt{2 \cdot \frac{\left(n \cdot \ell\right) \cdot t_1}{Om}}\\
\mathbf{elif}\;\ell \leq -7 \cdot 10^{-229}:\\
\;\;\;\;\sqrt{\left(\left(2 \cdot n\right) \cdot U\right) \cdot \left(t + t_2 \cdot -2\right)}\\
\mathbf{elif}\;\ell \leq 1.6 \cdot 10^{+53}:\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot \left(U \cdot \left(t - 2 \cdot t_2\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot \frac{\ell}{\frac{Om}{t_1}}}\\
\end{array}
\end{array}
if l < -9.9999999999999994e38Initial program 23.5%
associate-*l*22.1%
sub-neg22.1%
associate--l+22.1%
*-commutative22.1%
distribute-rgt-neg-in22.1%
associate-*l/31.1%
associate-*l*31.1%
*-commutative31.1%
*-commutative31.1%
associate-*l*29.3%
unpow229.3%
associate-*l*29.4%
Simplified48.8%
Taylor expanded in U around 0 37.9%
div-inv37.9%
Applied egg-rr37.9%
associate-*r/37.9%
*-rgt-identity37.9%
associate-/l*41.5%
associate-/r/41.5%
Simplified41.5%
Taylor expanded in t around 0 45.0%
associate-*r*48.6%
*-commutative48.6%
*-commutative48.6%
associate-*l/48.8%
*-commutative48.8%
associate-*l*52.5%
distribute-lft-out52.5%
Simplified52.5%
if -9.9999999999999994e38 < l < -7.0000000000000007e-229Initial program 61.9%
Taylor expanded in Om around inf 53.7%
unpow253.7%
Simplified53.7%
if -7.0000000000000007e-229 < l < 1.6e53Initial program 66.1%
associate-*l*74.2%
sub-neg74.2%
associate-+l-74.2%
sub-neg74.2%
associate-/l*74.2%
remove-double-neg74.2%
associate-*l*74.2%
Simplified74.2%
Taylor expanded in Om around inf 66.3%
unpow266.3%
Simplified66.3%
if 1.6e53 < l Initial program 22.7%
associate-*l*27.0%
sub-neg27.0%
associate--l+27.0%
*-commutative27.0%
distribute-rgt-neg-in27.0%
associate-*l/39.0%
associate-*l*39.0%
*-commutative39.0%
*-commutative39.0%
associate-*l*34.9%
unpow234.9%
associate-*l*37.2%
Simplified50.5%
Taylor expanded in U around 0 40.5%
div-inv40.5%
Applied egg-rr40.5%
associate-*r/40.5%
*-rgt-identity40.5%
associate-/l*44.6%
associate-/r/44.6%
Simplified44.6%
Taylor expanded in t around 0 46.5%
associate-/l*48.5%
*-commutative48.5%
*-commutative48.5%
associate-*l/52.5%
*-commutative52.5%
associate-*l*56.9%
distribute-lft-out56.9%
Simplified56.9%
Final simplification58.6%
(FPCore (n U t l Om U*)
:precision binary64
(let* ((t_1 (/ (* l l) Om))
(t_2 (sqrt (* 2.0 (* (/ (* (* n l) (* n l)) Om) (/ (* U U*) Om))))))
(if (<= l -3.3e+105)
t_2
(if (<= l -4.3e-235)
(sqrt (* (* (* 2.0 n) U) (+ t (* t_1 -2.0))))
(if (<= l 3.7e+92) (sqrt (* (* 2.0 n) (* U (- t (* 2.0 t_1))))) t_2)))))
double code(double n, double U, double t, double l, double Om, double U_42_) {
double t_1 = (l * l) / Om;
double t_2 = sqrt((2.0 * ((((n * l) * (n * l)) / Om) * ((U * U_42_) / Om))));
double tmp;
if (l <= -3.3e+105) {
tmp = t_2;
} else if (l <= -4.3e-235) {
tmp = sqrt((((2.0 * n) * U) * (t + (t_1 * -2.0))));
} else if (l <= 3.7e+92) {
tmp = sqrt(((2.0 * n) * (U * (t - (2.0 * t_1)))));
} else {
tmp = t_2;
}
return tmp;
}
real(8) function code(n, u, t, l, om, u_42)
real(8), intent (in) :: n
real(8), intent (in) :: u
real(8), intent (in) :: t
real(8), intent (in) :: l
real(8), intent (in) :: om
real(8), intent (in) :: u_42
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = (l * l) / om
t_2 = sqrt((2.0d0 * ((((n * l) * (n * l)) / om) * ((u * u_42) / om))))
if (l <= (-3.3d+105)) then
tmp = t_2
else if (l <= (-4.3d-235)) then
tmp = sqrt((((2.0d0 * n) * u) * (t + (t_1 * (-2.0d0)))))
else if (l <= 3.7d+92) then
tmp = sqrt(((2.0d0 * n) * (u * (t - (2.0d0 * t_1)))))
else
tmp = t_2
end if
code = tmp
end function
public static double code(double n, double U, double t, double l, double Om, double U_42_) {
double t_1 = (l * l) / Om;
double t_2 = Math.sqrt((2.0 * ((((n * l) * (n * l)) / Om) * ((U * U_42_) / Om))));
double tmp;
if (l <= -3.3e+105) {
tmp = t_2;
} else if (l <= -4.3e-235) {
tmp = Math.sqrt((((2.0 * n) * U) * (t + (t_1 * -2.0))));
} else if (l <= 3.7e+92) {
tmp = Math.sqrt(((2.0 * n) * (U * (t - (2.0 * t_1)))));
} else {
tmp = t_2;
}
return tmp;
}
def code(n, U, t, l, Om, U_42_): t_1 = (l * l) / Om t_2 = math.sqrt((2.0 * ((((n * l) * (n * l)) / Om) * ((U * U_42_) / Om)))) tmp = 0 if l <= -3.3e+105: tmp = t_2 elif l <= -4.3e-235: tmp = math.sqrt((((2.0 * n) * U) * (t + (t_1 * -2.0)))) elif l <= 3.7e+92: tmp = math.sqrt(((2.0 * n) * (U * (t - (2.0 * t_1))))) else: tmp = t_2 return tmp
function code(n, U, t, l, Om, U_42_) t_1 = Float64(Float64(l * l) / Om) t_2 = sqrt(Float64(2.0 * Float64(Float64(Float64(Float64(n * l) * Float64(n * l)) / Om) * Float64(Float64(U * U_42_) / Om)))) tmp = 0.0 if (l <= -3.3e+105) tmp = t_2; elseif (l <= -4.3e-235) tmp = sqrt(Float64(Float64(Float64(2.0 * n) * U) * Float64(t + Float64(t_1 * -2.0)))); elseif (l <= 3.7e+92) tmp = sqrt(Float64(Float64(2.0 * n) * Float64(U * Float64(t - Float64(2.0 * t_1))))); else tmp = t_2; end return tmp end
function tmp_2 = code(n, U, t, l, Om, U_42_) t_1 = (l * l) / Om; t_2 = sqrt((2.0 * ((((n * l) * (n * l)) / Om) * ((U * U_42_) / Om)))); tmp = 0.0; if (l <= -3.3e+105) tmp = t_2; elseif (l <= -4.3e-235) tmp = sqrt((((2.0 * n) * U) * (t + (t_1 * -2.0)))); elseif (l <= 3.7e+92) tmp = sqrt(((2.0 * n) * (U * (t - (2.0 * t_1))))); else tmp = t_2; end tmp_2 = tmp; end
code[n_, U_, t_, l_, Om_, U$42$_] := Block[{t$95$1 = N[(N[(l * l), $MachinePrecision] / Om), $MachinePrecision]}, Block[{t$95$2 = N[Sqrt[N[(2.0 * N[(N[(N[(N[(n * l), $MachinePrecision] * N[(n * l), $MachinePrecision]), $MachinePrecision] / Om), $MachinePrecision] * N[(N[(U * U$42$), $MachinePrecision] / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, If[LessEqual[l, -3.3e+105], t$95$2, If[LessEqual[l, -4.3e-235], N[Sqrt[N[(N[(N[(2.0 * n), $MachinePrecision] * U), $MachinePrecision] * N[(t + N[(t$95$1 * -2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], If[LessEqual[l, 3.7e+92], N[Sqrt[N[(N[(2.0 * n), $MachinePrecision] * N[(U * N[(t - N[(2.0 * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], t$95$2]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{\ell \cdot \ell}{Om}\\
t_2 := \sqrt{2 \cdot \left(\frac{\left(n \cdot \ell\right) \cdot \left(n \cdot \ell\right)}{Om} \cdot \frac{U \cdot U*}{Om}\right)}\\
\mathbf{if}\;\ell \leq -3.3 \cdot 10^{+105}:\\
\;\;\;\;t_2\\
\mathbf{elif}\;\ell \leq -4.3 \cdot 10^{-235}:\\
\;\;\;\;\sqrt{\left(\left(2 \cdot n\right) \cdot U\right) \cdot \left(t + t_1 \cdot -2\right)}\\
\mathbf{elif}\;\ell \leq 3.7 \cdot 10^{+92}:\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot \left(U \cdot \left(t - 2 \cdot t_1\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;t_2\\
\end{array}
\end{array}
if l < -3.29999999999999997e105 or 3.69999999999999999e92 < l Initial program 18.5%
associate-*l*20.1%
sub-neg20.1%
associate--l+20.1%
*-commutative20.1%
distribute-rgt-neg-in20.1%
associate-*l/33.9%
associate-*l*33.9%
*-commutative33.9%
*-commutative33.9%
associate-*l*32.7%
unpow232.7%
associate-*l*32.8%
Simplified50.7%
Taylor expanded in U around 0 38.1%
div-inv38.1%
Applied egg-rr38.1%
associate-*r/38.1%
*-rgt-identity38.1%
associate-/l*38.1%
associate-/r/38.1%
Simplified38.1%
Taylor expanded in n around inf 29.9%
associate-*r*29.9%
*-commutative29.9%
unpow229.9%
times-frac32.6%
unpow232.6%
unpow232.6%
swap-sqr37.5%
*-commutative37.5%
Simplified37.5%
if -3.29999999999999997e105 < l < -4.30000000000000024e-235Initial program 58.3%
Taylor expanded in Om around inf 51.8%
unpow251.8%
Simplified51.8%
if -4.30000000000000024e-235 < l < 3.69999999999999999e92Initial program 62.4%
associate-*l*71.7%
sub-neg71.7%
associate-+l-71.7%
sub-neg71.7%
associate-/l*71.7%
remove-double-neg71.7%
associate-*l*71.7%
Simplified71.7%
Taylor expanded in Om around inf 64.5%
unpow264.5%
Simplified64.5%
Final simplification52.5%
(FPCore (n U t l Om U*)
:precision binary64
(let* ((t_1 (/ (* l l) Om)))
(if (<= l -2.55e+107)
(sqrt (* 2.0 (* (/ (* (* n l) (* n l)) Om) (/ (* U U*) Om))))
(if (<= l -6e-225)
(sqrt (* (* (* 2.0 n) U) (+ t (* t_1 -2.0))))
(if (<= l 3.35e+103)
(sqrt (* (* 2.0 n) (* U (- t (* 2.0 t_1)))))
(sqrt (* (* 2.0 n) (/ n (/ (/ (* Om Om) (* (* l l) U*)) U)))))))))
double code(double n, double U, double t, double l, double Om, double U_42_) {
double t_1 = (l * l) / Om;
double tmp;
if (l <= -2.55e+107) {
tmp = sqrt((2.0 * ((((n * l) * (n * l)) / Om) * ((U * U_42_) / Om))));
} else if (l <= -6e-225) {
tmp = sqrt((((2.0 * n) * U) * (t + (t_1 * -2.0))));
} else if (l <= 3.35e+103) {
tmp = sqrt(((2.0 * n) * (U * (t - (2.0 * t_1)))));
} else {
tmp = sqrt(((2.0 * n) * (n / (((Om * Om) / ((l * l) * U_42_)) / U))));
}
return tmp;
}
real(8) function code(n, u, t, l, om, u_42)
real(8), intent (in) :: n
real(8), intent (in) :: u
real(8), intent (in) :: t
real(8), intent (in) :: l
real(8), intent (in) :: om
real(8), intent (in) :: u_42
real(8) :: t_1
real(8) :: tmp
t_1 = (l * l) / om
if (l <= (-2.55d+107)) then
tmp = sqrt((2.0d0 * ((((n * l) * (n * l)) / om) * ((u * u_42) / om))))
else if (l <= (-6d-225)) then
tmp = sqrt((((2.0d0 * n) * u) * (t + (t_1 * (-2.0d0)))))
else if (l <= 3.35d+103) then
tmp = sqrt(((2.0d0 * n) * (u * (t - (2.0d0 * t_1)))))
else
tmp = sqrt(((2.0d0 * n) * (n / (((om * om) / ((l * l) * u_42)) / u))))
end if
code = tmp
end function
public static double code(double n, double U, double t, double l, double Om, double U_42_) {
double t_1 = (l * l) / Om;
double tmp;
if (l <= -2.55e+107) {
tmp = Math.sqrt((2.0 * ((((n * l) * (n * l)) / Om) * ((U * U_42_) / Om))));
} else if (l <= -6e-225) {
tmp = Math.sqrt((((2.0 * n) * U) * (t + (t_1 * -2.0))));
} else if (l <= 3.35e+103) {
tmp = Math.sqrt(((2.0 * n) * (U * (t - (2.0 * t_1)))));
} else {
tmp = Math.sqrt(((2.0 * n) * (n / (((Om * Om) / ((l * l) * U_42_)) / U))));
}
return tmp;
}
def code(n, U, t, l, Om, U_42_): t_1 = (l * l) / Om tmp = 0 if l <= -2.55e+107: tmp = math.sqrt((2.0 * ((((n * l) * (n * l)) / Om) * ((U * U_42_) / Om)))) elif l <= -6e-225: tmp = math.sqrt((((2.0 * n) * U) * (t + (t_1 * -2.0)))) elif l <= 3.35e+103: tmp = math.sqrt(((2.0 * n) * (U * (t - (2.0 * t_1))))) else: tmp = math.sqrt(((2.0 * n) * (n / (((Om * Om) / ((l * l) * U_42_)) / U)))) return tmp
function code(n, U, t, l, Om, U_42_) t_1 = Float64(Float64(l * l) / Om) tmp = 0.0 if (l <= -2.55e+107) tmp = sqrt(Float64(2.0 * Float64(Float64(Float64(Float64(n * l) * Float64(n * l)) / Om) * Float64(Float64(U * U_42_) / Om)))); elseif (l <= -6e-225) tmp = sqrt(Float64(Float64(Float64(2.0 * n) * U) * Float64(t + Float64(t_1 * -2.0)))); elseif (l <= 3.35e+103) tmp = sqrt(Float64(Float64(2.0 * n) * Float64(U * Float64(t - Float64(2.0 * t_1))))); else tmp = sqrt(Float64(Float64(2.0 * n) * Float64(n / Float64(Float64(Float64(Om * Om) / Float64(Float64(l * l) * U_42_)) / U)))); end return tmp end
function tmp_2 = code(n, U, t, l, Om, U_42_) t_1 = (l * l) / Om; tmp = 0.0; if (l <= -2.55e+107) tmp = sqrt((2.0 * ((((n * l) * (n * l)) / Om) * ((U * U_42_) / Om)))); elseif (l <= -6e-225) tmp = sqrt((((2.0 * n) * U) * (t + (t_1 * -2.0)))); elseif (l <= 3.35e+103) tmp = sqrt(((2.0 * n) * (U * (t - (2.0 * t_1))))); else tmp = sqrt(((2.0 * n) * (n / (((Om * Om) / ((l * l) * U_42_)) / U)))); end tmp_2 = tmp; end
code[n_, U_, t_, l_, Om_, U$42$_] := Block[{t$95$1 = N[(N[(l * l), $MachinePrecision] / Om), $MachinePrecision]}, If[LessEqual[l, -2.55e+107], N[Sqrt[N[(2.0 * N[(N[(N[(N[(n * l), $MachinePrecision] * N[(n * l), $MachinePrecision]), $MachinePrecision] / Om), $MachinePrecision] * N[(N[(U * U$42$), $MachinePrecision] / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], If[LessEqual[l, -6e-225], N[Sqrt[N[(N[(N[(2.0 * n), $MachinePrecision] * U), $MachinePrecision] * N[(t + N[(t$95$1 * -2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], If[LessEqual[l, 3.35e+103], N[Sqrt[N[(N[(2.0 * n), $MachinePrecision] * N[(U * N[(t - N[(2.0 * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], N[Sqrt[N[(N[(2.0 * n), $MachinePrecision] * N[(n / N[(N[(N[(Om * Om), $MachinePrecision] / N[(N[(l * l), $MachinePrecision] * U$42$), $MachinePrecision]), $MachinePrecision] / U), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{\ell \cdot \ell}{Om}\\
\mathbf{if}\;\ell \leq -2.55 \cdot 10^{+107}:\\
\;\;\;\;\sqrt{2 \cdot \left(\frac{\left(n \cdot \ell\right) \cdot \left(n \cdot \ell\right)}{Om} \cdot \frac{U \cdot U*}{Om}\right)}\\
\mathbf{elif}\;\ell \leq -6 \cdot 10^{-225}:\\
\;\;\;\;\sqrt{\left(\left(2 \cdot n\right) \cdot U\right) \cdot \left(t + t_1 \cdot -2\right)}\\
\mathbf{elif}\;\ell \leq 3.35 \cdot 10^{+103}:\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot \left(U \cdot \left(t - 2 \cdot t_1\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot \frac{n}{\frac{\frac{Om \cdot Om}{\left(\ell \cdot \ell\right) \cdot U*}}{U}}}\\
\end{array}
\end{array}
if l < -2.5500000000000001e107Initial program 14.7%
associate-*l*17.5%
sub-neg17.5%
associate--l+17.5%
*-commutative17.5%
distribute-rgt-neg-in17.5%
associate-*l/30.4%
associate-*l*30.4%
*-commutative30.4%
*-commutative30.4%
associate-*l*30.4%
unpow230.4%
associate-*l*30.4%
Simplified52.5%
Taylor expanded in U around 0 39.5%
div-inv39.5%
Applied egg-rr39.5%
associate-*r/39.5%
*-rgt-identity39.5%
associate-/l*39.6%
associate-/r/39.6%
Simplified39.6%
Taylor expanded in n around inf 33.0%
associate-*r*32.9%
*-commutative32.9%
unpow232.9%
times-frac33.2%
unpow233.2%
unpow233.2%
swap-sqr41.9%
*-commutative41.9%
Simplified41.9%
if -2.5500000000000001e107 < l < -6.00000000000000035e-225Initial program 58.3%
Taylor expanded in Om around inf 51.8%
unpow251.8%
Simplified51.8%
if -6.00000000000000035e-225 < l < 3.35000000000000017e103Initial program 63.1%
associate-*l*72.2%
sub-neg72.2%
associate-+l-72.2%
sub-neg72.2%
associate-/l*72.2%
remove-double-neg72.2%
associate-*l*72.2%
Simplified72.2%
Taylor expanded in Om around inf 65.1%
unpow265.1%
Simplified65.1%
if 3.35000000000000017e103 < l Initial program 18.0%
associate-*l*18.3%
sub-neg18.3%
associate--l+18.3%
*-commutative18.3%
distribute-rgt-neg-in18.3%
associate-*l/34.0%
associate-*l*34.0%
*-commutative34.0%
*-commutative34.0%
associate-*l*34.2%
unpow234.2%
associate-*l*34.4%
Simplified49.0%
Taylor expanded in U* around inf 26.6%
associate-/l*26.6%
associate-*r*29.8%
associate-/r*29.8%
unpow229.8%
*-commutative29.8%
unpow229.8%
Simplified29.8%
Final simplification52.6%
(FPCore (n U t l Om U*)
:precision binary64
(if (<= t -5.4e+40)
(sqrt (* (* (* 2.0 n) U) t))
(if (<= t 1.7e+82)
(sqrt (* 2.0 (* U (* n (+ t (* (/ (* l l) Om) -2.0))))))
(pow (* (* 2.0 n) (* U t)) 0.5))))
double code(double n, double U, double t, double l, double Om, double U_42_) {
double tmp;
if (t <= -5.4e+40) {
tmp = sqrt((((2.0 * n) * U) * t));
} else if (t <= 1.7e+82) {
tmp = sqrt((2.0 * (U * (n * (t + (((l * l) / Om) * -2.0))))));
} else {
tmp = pow(((2.0 * n) * (U * t)), 0.5);
}
return tmp;
}
real(8) function code(n, u, t, l, om, u_42)
real(8), intent (in) :: n
real(8), intent (in) :: u
real(8), intent (in) :: t
real(8), intent (in) :: l
real(8), intent (in) :: om
real(8), intent (in) :: u_42
real(8) :: tmp
if (t <= (-5.4d+40)) then
tmp = sqrt((((2.0d0 * n) * u) * t))
else if (t <= 1.7d+82) then
tmp = sqrt((2.0d0 * (u * (n * (t + (((l * l) / om) * (-2.0d0)))))))
else
tmp = ((2.0d0 * n) * (u * t)) ** 0.5d0
end if
code = tmp
end function
public static double code(double n, double U, double t, double l, double Om, double U_42_) {
double tmp;
if (t <= -5.4e+40) {
tmp = Math.sqrt((((2.0 * n) * U) * t));
} else if (t <= 1.7e+82) {
tmp = Math.sqrt((2.0 * (U * (n * (t + (((l * l) / Om) * -2.0))))));
} else {
tmp = Math.pow(((2.0 * n) * (U * t)), 0.5);
}
return tmp;
}
def code(n, U, t, l, Om, U_42_): tmp = 0 if t <= -5.4e+40: tmp = math.sqrt((((2.0 * n) * U) * t)) elif t <= 1.7e+82: tmp = math.sqrt((2.0 * (U * (n * (t + (((l * l) / Om) * -2.0)))))) else: tmp = math.pow(((2.0 * n) * (U * t)), 0.5) return tmp
function code(n, U, t, l, Om, U_42_) tmp = 0.0 if (t <= -5.4e+40) tmp = sqrt(Float64(Float64(Float64(2.0 * n) * U) * t)); elseif (t <= 1.7e+82) tmp = sqrt(Float64(2.0 * Float64(U * Float64(n * Float64(t + Float64(Float64(Float64(l * l) / Om) * -2.0)))))); else tmp = Float64(Float64(2.0 * n) * Float64(U * t)) ^ 0.5; end return tmp end
function tmp_2 = code(n, U, t, l, Om, U_42_) tmp = 0.0; if (t <= -5.4e+40) tmp = sqrt((((2.0 * n) * U) * t)); elseif (t <= 1.7e+82) tmp = sqrt((2.0 * (U * (n * (t + (((l * l) / Om) * -2.0)))))); else tmp = ((2.0 * n) * (U * t)) ^ 0.5; end tmp_2 = tmp; end
code[n_, U_, t_, l_, Om_, U$42$_] := If[LessEqual[t, -5.4e+40], N[Sqrt[N[(N[(N[(2.0 * n), $MachinePrecision] * U), $MachinePrecision] * t), $MachinePrecision]], $MachinePrecision], If[LessEqual[t, 1.7e+82], N[Sqrt[N[(2.0 * N[(U * N[(n * N[(t + N[(N[(N[(l * l), $MachinePrecision] / Om), $MachinePrecision] * -2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], N[Power[N[(N[(2.0 * n), $MachinePrecision] * N[(U * t), $MachinePrecision]), $MachinePrecision], 0.5], $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;t \leq -5.4 \cdot 10^{+40}:\\
\;\;\;\;\sqrt{\left(\left(2 \cdot n\right) \cdot U\right) \cdot t}\\
\mathbf{elif}\;t \leq 1.7 \cdot 10^{+82}:\\
\;\;\;\;\sqrt{2 \cdot \left(U \cdot \left(n \cdot \left(t + \frac{\ell \cdot \ell}{Om} \cdot -2\right)\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;{\left(\left(2 \cdot n\right) \cdot \left(U \cdot t\right)\right)}^{0.5}\\
\end{array}
\end{array}
if t < -5.40000000000000019e40Initial program 53.2%
Taylor expanded in t around inf 50.0%
if -5.40000000000000019e40 < t < 1.69999999999999997e82Initial program 46.0%
associate-*l*49.7%
sub-neg49.7%
associate--l+49.7%
*-commutative49.7%
distribute-rgt-neg-in49.7%
associate-*l/54.3%
associate-*l*54.3%
*-commutative54.3%
*-commutative54.3%
associate-*l*49.5%
unpow249.5%
associate-*l*51.6%
Simplified55.9%
Taylor expanded in U around 0 54.6%
Taylor expanded in n around 0 41.8%
associate-*r*42.5%
unpow242.5%
Simplified42.5%
if 1.69999999999999997e82 < t Initial program 48.4%
associate-*l*51.7%
sub-neg51.7%
associate--l+51.7%
*-commutative51.7%
distribute-rgt-neg-in51.7%
associate-*l/58.7%
associate-*l*58.7%
*-commutative58.7%
*-commutative58.7%
associate-*l*48.1%
unpow248.1%
associate-*l*48.1%
Simplified53.7%
Taylor expanded in t around inf 51.2%
pow1/255.0%
Applied egg-rr55.0%
Final simplification46.7%
(FPCore (n U t l Om U*)
:precision binary64
(if (<= t -5.3e-269)
(sqrt (* (* (* 2.0 n) U) t))
(if (<= t 4.6e-116)
(sqrt (/ (* n -2.0) (/ Om (* U (* 2.0 (* l l))))))
(pow (* (* 2.0 n) (* U t)) 0.5))))
double code(double n, double U, double t, double l, double Om, double U_42_) {
double tmp;
if (t <= -5.3e-269) {
tmp = sqrt((((2.0 * n) * U) * t));
} else if (t <= 4.6e-116) {
tmp = sqrt(((n * -2.0) / (Om / (U * (2.0 * (l * l))))));
} else {
tmp = pow(((2.0 * n) * (U * t)), 0.5);
}
return tmp;
}
real(8) function code(n, u, t, l, om, u_42)
real(8), intent (in) :: n
real(8), intent (in) :: u
real(8), intent (in) :: t
real(8), intent (in) :: l
real(8), intent (in) :: om
real(8), intent (in) :: u_42
real(8) :: tmp
if (t <= (-5.3d-269)) then
tmp = sqrt((((2.0d0 * n) * u) * t))
else if (t <= 4.6d-116) then
tmp = sqrt(((n * (-2.0d0)) / (om / (u * (2.0d0 * (l * l))))))
else
tmp = ((2.0d0 * n) * (u * t)) ** 0.5d0
end if
code = tmp
end function
public static double code(double n, double U, double t, double l, double Om, double U_42_) {
double tmp;
if (t <= -5.3e-269) {
tmp = Math.sqrt((((2.0 * n) * U) * t));
} else if (t <= 4.6e-116) {
tmp = Math.sqrt(((n * -2.0) / (Om / (U * (2.0 * (l * l))))));
} else {
tmp = Math.pow(((2.0 * n) * (U * t)), 0.5);
}
return tmp;
}
def code(n, U, t, l, Om, U_42_): tmp = 0 if t <= -5.3e-269: tmp = math.sqrt((((2.0 * n) * U) * t)) elif t <= 4.6e-116: tmp = math.sqrt(((n * -2.0) / (Om / (U * (2.0 * (l * l)))))) else: tmp = math.pow(((2.0 * n) * (U * t)), 0.5) return tmp
function code(n, U, t, l, Om, U_42_) tmp = 0.0 if (t <= -5.3e-269) tmp = sqrt(Float64(Float64(Float64(2.0 * n) * U) * t)); elseif (t <= 4.6e-116) tmp = sqrt(Float64(Float64(n * -2.0) / Float64(Om / Float64(U * Float64(2.0 * Float64(l * l)))))); else tmp = Float64(Float64(2.0 * n) * Float64(U * t)) ^ 0.5; end return tmp end
function tmp_2 = code(n, U, t, l, Om, U_42_) tmp = 0.0; if (t <= -5.3e-269) tmp = sqrt((((2.0 * n) * U) * t)); elseif (t <= 4.6e-116) tmp = sqrt(((n * -2.0) / (Om / (U * (2.0 * (l * l)))))); else tmp = ((2.0 * n) * (U * t)) ^ 0.5; end tmp_2 = tmp; end
code[n_, U_, t_, l_, Om_, U$42$_] := If[LessEqual[t, -5.3e-269], N[Sqrt[N[(N[(N[(2.0 * n), $MachinePrecision] * U), $MachinePrecision] * t), $MachinePrecision]], $MachinePrecision], If[LessEqual[t, 4.6e-116], N[Sqrt[N[(N[(n * -2.0), $MachinePrecision] / N[(Om / N[(U * N[(2.0 * N[(l * l), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], N[Power[N[(N[(2.0 * n), $MachinePrecision] * N[(U * t), $MachinePrecision]), $MachinePrecision], 0.5], $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;t \leq -5.3 \cdot 10^{-269}:\\
\;\;\;\;\sqrt{\left(\left(2 \cdot n\right) \cdot U\right) \cdot t}\\
\mathbf{elif}\;t \leq 4.6 \cdot 10^{-116}:\\
\;\;\;\;\sqrt{\frac{n \cdot -2}{\frac{Om}{U \cdot \left(2 \cdot \left(\ell \cdot \ell\right)\right)}}}\\
\mathbf{else}:\\
\;\;\;\;{\left(\left(2 \cdot n\right) \cdot \left(U \cdot t\right)\right)}^{0.5}\\
\end{array}
\end{array}
if t < -5.2999999999999998e-269Initial program 53.7%
Taylor expanded in t around inf 46.5%
if -5.2999999999999998e-269 < t < 4.60000000000000003e-116Initial program 43.9%
associate-*l*52.9%
sub-neg52.9%
associate--l+52.9%
*-commutative52.9%
distribute-rgt-neg-in52.9%
associate-*l/56.7%
associate-*l*56.7%
*-commutative56.7%
*-commutative56.7%
associate-*l*52.8%
unpow252.8%
associate-*l*54.7%
Simplified58.8%
Taylor expanded in l around -inf 47.3%
associate-/l*45.5%
associate-*r/45.5%
associate-*r*45.5%
unpow245.5%
mul-1-neg45.5%
unsub-neg45.5%
associate-/l*41.7%
Simplified41.7%
Taylor expanded in n around 0 32.0%
unpow232.0%
Simplified32.0%
if 4.60000000000000003e-116 < t Initial program 44.0%
associate-*l*47.8%
sub-neg47.8%
associate--l+47.8%
*-commutative47.8%
distribute-rgt-neg-in47.8%
associate-*l/53.6%
associate-*l*53.6%
*-commutative53.6%
*-commutative53.6%
associate-*l*46.7%
unpow246.7%
associate-*l*48.7%
Simplified53.0%
Taylor expanded in t around inf 42.4%
pow1/244.5%
Applied egg-rr44.5%
Final simplification42.8%
(FPCore (n U t l Om U*)
:precision binary64
(let* ((t_1 (/ (* l l) Om)))
(if (<= l -4.2e-227)
(sqrt (* (* (* 2.0 n) U) (+ t (* t_1 -2.0))))
(sqrt (* (* 2.0 n) (* U (- t (* 2.0 t_1))))))))
double code(double n, double U, double t, double l, double Om, double U_42_) {
double t_1 = (l * l) / Om;
double tmp;
if (l <= -4.2e-227) {
tmp = sqrt((((2.0 * n) * U) * (t + (t_1 * -2.0))));
} else {
tmp = sqrt(((2.0 * n) * (U * (t - (2.0 * t_1)))));
}
return tmp;
}
real(8) function code(n, u, t, l, om, u_42)
real(8), intent (in) :: n
real(8), intent (in) :: u
real(8), intent (in) :: t
real(8), intent (in) :: l
real(8), intent (in) :: om
real(8), intent (in) :: u_42
real(8) :: t_1
real(8) :: tmp
t_1 = (l * l) / om
if (l <= (-4.2d-227)) then
tmp = sqrt((((2.0d0 * n) * u) * (t + (t_1 * (-2.0d0)))))
else
tmp = sqrt(((2.0d0 * n) * (u * (t - (2.0d0 * t_1)))))
end if
code = tmp
end function
public static double code(double n, double U, double t, double l, double Om, double U_42_) {
double t_1 = (l * l) / Om;
double tmp;
if (l <= -4.2e-227) {
tmp = Math.sqrt((((2.0 * n) * U) * (t + (t_1 * -2.0))));
} else {
tmp = Math.sqrt(((2.0 * n) * (U * (t - (2.0 * t_1)))));
}
return tmp;
}
def code(n, U, t, l, Om, U_42_): t_1 = (l * l) / Om tmp = 0 if l <= -4.2e-227: tmp = math.sqrt((((2.0 * n) * U) * (t + (t_1 * -2.0)))) else: tmp = math.sqrt(((2.0 * n) * (U * (t - (2.0 * t_1))))) return tmp
function code(n, U, t, l, Om, U_42_) t_1 = Float64(Float64(l * l) / Om) tmp = 0.0 if (l <= -4.2e-227) tmp = sqrt(Float64(Float64(Float64(2.0 * n) * U) * Float64(t + Float64(t_1 * -2.0)))); else tmp = sqrt(Float64(Float64(2.0 * n) * Float64(U * Float64(t - Float64(2.0 * t_1))))); end return tmp end
function tmp_2 = code(n, U, t, l, Om, U_42_) t_1 = (l * l) / Om; tmp = 0.0; if (l <= -4.2e-227) tmp = sqrt((((2.0 * n) * U) * (t + (t_1 * -2.0)))); else tmp = sqrt(((2.0 * n) * (U * (t - (2.0 * t_1))))); end tmp_2 = tmp; end
code[n_, U_, t_, l_, Om_, U$42$_] := Block[{t$95$1 = N[(N[(l * l), $MachinePrecision] / Om), $MachinePrecision]}, If[LessEqual[l, -4.2e-227], N[Sqrt[N[(N[(N[(2.0 * n), $MachinePrecision] * U), $MachinePrecision] * N[(t + N[(t$95$1 * -2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], N[Sqrt[N[(N[(2.0 * n), $MachinePrecision] * N[(U * N[(t - N[(2.0 * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{\ell \cdot \ell}{Om}\\
\mathbf{if}\;\ell \leq -4.2 \cdot 10^{-227}:\\
\;\;\;\;\sqrt{\left(\left(2 \cdot n\right) \cdot U\right) \cdot \left(t + t_1 \cdot -2\right)}\\
\mathbf{else}:\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot \left(U \cdot \left(t - 2 \cdot t_1\right)\right)}\\
\end{array}
\end{array}
if l < -4.1999999999999999e-227Initial program 43.9%
Taylor expanded in Om around inf 38.9%
unpow238.9%
Simplified38.9%
if -4.1999999999999999e-227 < l Initial program 51.3%
associate-*l*58.1%
sub-neg58.1%
associate-+l-58.1%
sub-neg58.1%
associate-/l*62.2%
remove-double-neg62.2%
associate-*l*62.2%
Simplified62.2%
Taylor expanded in Om around inf 53.0%
unpow253.0%
Simplified53.0%
Final simplification46.6%
(FPCore (n U t l Om U*) :precision binary64 (sqrt (* (* 2.0 n) (* U (- t (* 2.0 (/ (* l l) Om)))))))
double code(double n, double U, double t, double l, double Om, double U_42_) {
return sqrt(((2.0 * n) * (U * (t - (2.0 * ((l * l) / Om))))));
}
real(8) function code(n, u, t, l, om, u_42)
real(8), intent (in) :: n
real(8), intent (in) :: u
real(8), intent (in) :: t
real(8), intent (in) :: l
real(8), intent (in) :: om
real(8), intent (in) :: u_42
code = sqrt(((2.0d0 * n) * (u * (t - (2.0d0 * ((l * l) / om))))))
end function
public static double code(double n, double U, double t, double l, double Om, double U_42_) {
return Math.sqrt(((2.0 * n) * (U * (t - (2.0 * ((l * l) / Om))))));
}
def code(n, U, t, l, Om, U_42_): return math.sqrt(((2.0 * n) * (U * (t - (2.0 * ((l * l) / Om))))))
function code(n, U, t, l, Om, U_42_) return sqrt(Float64(Float64(2.0 * n) * Float64(U * Float64(t - Float64(2.0 * Float64(Float64(l * l) / Om)))))) end
function tmp = code(n, U, t, l, Om, U_42_) tmp = sqrt(((2.0 * n) * (U * (t - (2.0 * ((l * l) / Om)))))); end
code[n_, U_, t_, l_, Om_, U$42$_] := N[Sqrt[N[(N[(2.0 * n), $MachinePrecision] * N[(U * N[(t - N[(2.0 * N[(N[(l * l), $MachinePrecision] / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]
\begin{array}{l}
\\
\sqrt{\left(2 \cdot n\right) \cdot \left(U \cdot \left(t - 2 \cdot \frac{\ell \cdot \ell}{Om}\right)\right)}
\end{array}
Initial program 48.0%
associate-*l*49.7%
sub-neg49.7%
associate-+l-49.7%
sub-neg49.7%
associate-/l*53.9%
remove-double-neg53.9%
associate-*l*53.5%
Simplified53.5%
Taylor expanded in Om around inf 44.2%
unpow244.2%
Simplified44.2%
Final simplification44.2%
(FPCore (n U t l Om U*) :precision binary64 (if (<= l -1.4e-232) (sqrt (* (* (* 2.0 n) U) t)) (sqrt (* (* 2.0 n) (* U t)))))
double code(double n, double U, double t, double l, double Om, double U_42_) {
double tmp;
if (l <= -1.4e-232) {
tmp = sqrt((((2.0 * n) * U) * t));
} else {
tmp = sqrt(((2.0 * n) * (U * t)));
}
return tmp;
}
real(8) function code(n, u, t, l, om, u_42)
real(8), intent (in) :: n
real(8), intent (in) :: u
real(8), intent (in) :: t
real(8), intent (in) :: l
real(8), intent (in) :: om
real(8), intent (in) :: u_42
real(8) :: tmp
if (l <= (-1.4d-232)) then
tmp = sqrt((((2.0d0 * n) * u) * t))
else
tmp = sqrt(((2.0d0 * n) * (u * t)))
end if
code = tmp
end function
public static double code(double n, double U, double t, double l, double Om, double U_42_) {
double tmp;
if (l <= -1.4e-232) {
tmp = Math.sqrt((((2.0 * n) * U) * t));
} else {
tmp = Math.sqrt(((2.0 * n) * (U * t)));
}
return tmp;
}
def code(n, U, t, l, Om, U_42_): tmp = 0 if l <= -1.4e-232: tmp = math.sqrt((((2.0 * n) * U) * t)) else: tmp = math.sqrt(((2.0 * n) * (U * t))) return tmp
function code(n, U, t, l, Om, U_42_) tmp = 0.0 if (l <= -1.4e-232) tmp = sqrt(Float64(Float64(Float64(2.0 * n) * U) * t)); else tmp = sqrt(Float64(Float64(2.0 * n) * Float64(U * t))); end return tmp end
function tmp_2 = code(n, U, t, l, Om, U_42_) tmp = 0.0; if (l <= -1.4e-232) tmp = sqrt((((2.0 * n) * U) * t)); else tmp = sqrt(((2.0 * n) * (U * t))); end tmp_2 = tmp; end
code[n_, U_, t_, l_, Om_, U$42$_] := If[LessEqual[l, -1.4e-232], N[Sqrt[N[(N[(N[(2.0 * n), $MachinePrecision] * U), $MachinePrecision] * t), $MachinePrecision]], $MachinePrecision], N[Sqrt[N[(N[(2.0 * n), $MachinePrecision] * N[(U * t), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\ell \leq -1.4 \cdot 10^{-232}:\\
\;\;\;\;\sqrt{\left(\left(2 \cdot n\right) \cdot U\right) \cdot t}\\
\mathbf{else}:\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot \left(U \cdot t\right)}\\
\end{array}
\end{array}
if l < -1.39999999999999996e-232Initial program 43.9%
Taylor expanded in t around inf 35.3%
if -1.39999999999999996e-232 < l Initial program 51.3%
associate-*l*58.1%
sub-neg58.1%
associate--l+58.1%
*-commutative58.1%
distribute-rgt-neg-in58.1%
associate-*l/62.2%
associate-*l*62.2%
*-commutative62.2%
*-commutative62.2%
associate-*l*53.0%
unpow253.0%
associate-*l*54.4%
Simplified59.0%
Taylor expanded in t around inf 45.2%
Final simplification40.7%
(FPCore (n U t l Om U*) :precision binary64 (pow (* (* 2.0 n) (* U t)) 0.5))
double code(double n, double U, double t, double l, double Om, double U_42_) {
return pow(((2.0 * n) * (U * t)), 0.5);
}
real(8) function code(n, u, t, l, om, u_42)
real(8), intent (in) :: n
real(8), intent (in) :: u
real(8), intent (in) :: t
real(8), intent (in) :: l
real(8), intent (in) :: om
real(8), intent (in) :: u_42
code = ((2.0d0 * n) * (u * t)) ** 0.5d0
end function
public static double code(double n, double U, double t, double l, double Om, double U_42_) {
return Math.pow(((2.0 * n) * (U * t)), 0.5);
}
def code(n, U, t, l, Om, U_42_): return math.pow(((2.0 * n) * (U * t)), 0.5)
function code(n, U, t, l, Om, U_42_) return Float64(Float64(2.0 * n) * Float64(U * t)) ^ 0.5 end
function tmp = code(n, U, t, l, Om, U_42_) tmp = ((2.0 * n) * (U * t)) ^ 0.5; end
code[n_, U_, t_, l_, Om_, U$42$_] := N[Power[N[(N[(2.0 * n), $MachinePrecision] * N[(U * t), $MachinePrecision]), $MachinePrecision], 0.5], $MachinePrecision]
\begin{array}{l}
\\
{\left(\left(2 \cdot n\right) \cdot \left(U \cdot t\right)\right)}^{0.5}
\end{array}
Initial program 48.0%
associate-*l*49.7%
sub-neg49.7%
associate--l+49.7%
*-commutative49.7%
distribute-rgt-neg-in49.7%
associate-*l/53.9%
associate-*l*53.9%
*-commutative53.9%
*-commutative53.9%
associate-*l*46.4%
unpow246.4%
associate-*l*47.6%
Simplified54.2%
Taylor expanded in t around inf 37.7%
pow1/239.4%
Applied egg-rr39.4%
Final simplification39.4%
(FPCore (n U t l Om U*) :precision binary64 (sqrt (* (* 2.0 n) (* U t))))
double code(double n, double U, double t, double l, double Om, double U_42_) {
return sqrt(((2.0 * n) * (U * t)));
}
real(8) function code(n, u, t, l, om, u_42)
real(8), intent (in) :: n
real(8), intent (in) :: u
real(8), intent (in) :: t
real(8), intent (in) :: l
real(8), intent (in) :: om
real(8), intent (in) :: u_42
code = sqrt(((2.0d0 * n) * (u * t)))
end function
public static double code(double n, double U, double t, double l, double Om, double U_42_) {
return Math.sqrt(((2.0 * n) * (U * t)));
}
def code(n, U, t, l, Om, U_42_): return math.sqrt(((2.0 * n) * (U * t)))
function code(n, U, t, l, Om, U_42_) return sqrt(Float64(Float64(2.0 * n) * Float64(U * t))) end
function tmp = code(n, U, t, l, Om, U_42_) tmp = sqrt(((2.0 * n) * (U * t))); end
code[n_, U_, t_, l_, Om_, U$42$_] := N[Sqrt[N[(N[(2.0 * n), $MachinePrecision] * N[(U * t), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]
\begin{array}{l}
\\
\sqrt{\left(2 \cdot n\right) \cdot \left(U \cdot t\right)}
\end{array}
Initial program 48.0%
associate-*l*49.7%
sub-neg49.7%
associate--l+49.7%
*-commutative49.7%
distribute-rgt-neg-in49.7%
associate-*l/53.9%
associate-*l*53.9%
*-commutative53.9%
*-commutative53.9%
associate-*l*46.4%
unpow246.4%
associate-*l*47.6%
Simplified54.2%
Taylor expanded in t around inf 37.7%
Final simplification37.7%
herbie shell --seed 2023171
(FPCore (n U t l Om U*)
:name "Toniolo and Linder, Equation (13)"
:precision binary64
(sqrt (* (* (* 2.0 n) U) (- (- t (* 2.0 (/ (* l l) Om))) (* (* n (pow (/ l Om) 2.0)) (- U U*))))))