double code(double t, double l, double k) {
return 2.0 / ((((pow(t, 3.0) / (l * l)) * sin(k)) * tan(k)) * ((1.0 + pow((k / t), 2.0)) + 1.0));
}
↓
double code(double t, double l, double k) {
double t_1 = pow((k / t), 2.0);
double t_2 = cbrt(l) / (t / cbrt(l));
double t_3 = 1.0 + (1.0 + t_1);
double tmp;
if (t <= -1.876647700209357e+154) {
tmp = (pow(t_2, 2.0) / k) * (t_2 / k);
} else if (t <= -9.210115154097725e+87) {
tmp = 2.0 / ((((((t * t) / l) * (t / l)) * sin(k)) * tan(k)) * t_3);
} else if (t <= -3.25e+34) {
tmp = (l / k) * ((l / k) / pow(t, 3.0));
} else if (t <= -1e-70) {
tmp = (l / sin(k)) / (tan(k) * ((2.0 + t_1) * ((pow(t, 3.0) / l) * 0.5)));
} else if (t <= 10000000.0) {
tmp = ((2.0 * ((l / k) / t)) / k) / (sin(k) * (tan(k) / l));
} else {
tmp = 2.0 / (t_3 * (tan(k) * (sin(k) * pow((pow(t, 1.5) / l), 2.0))));
}
return tmp;
}
public static double code(double t, double l, double k) {
return 2.0 / ((((Math.pow(t, 3.0) / (l * l)) * Math.sin(k)) * Math.tan(k)) * ((1.0 + Math.pow((k / t), 2.0)) + 1.0));
}
↓
public static double code(double t, double l, double k) {
double t_1 = Math.pow((k / t), 2.0);
double t_2 = Math.cbrt(l) / (t / Math.cbrt(l));
double t_3 = 1.0 + (1.0 + t_1);
double tmp;
if (t <= -1.876647700209357e+154) {
tmp = (Math.pow(t_2, 2.0) / k) * (t_2 / k);
} else if (t <= -9.210115154097725e+87) {
tmp = 2.0 / ((((((t * t) / l) * (t / l)) * Math.sin(k)) * Math.tan(k)) * t_3);
} else if (t <= -3.25e+34) {
tmp = (l / k) * ((l / k) / Math.pow(t, 3.0));
} else if (t <= -1e-70) {
tmp = (l / Math.sin(k)) / (Math.tan(k) * ((2.0 + t_1) * ((Math.pow(t, 3.0) / l) * 0.5)));
} else if (t <= 10000000.0) {
tmp = ((2.0 * ((l / k) / t)) / k) / (Math.sin(k) * (Math.tan(k) / l));
} else {
tmp = 2.0 / (t_3 * (Math.tan(k) * (Math.sin(k) * Math.pow((Math.pow(t, 1.5) / l), 2.0))));
}
return tmp;
}
code[t_, l_, k_] := N[(2.0 / N[(N[(N[(N[(N[Power[t, 3.0], $MachinePrecision] / N[(l * l), $MachinePrecision]), $MachinePrecision] * N[Sin[k], $MachinePrecision]), $MachinePrecision] * N[Tan[k], $MachinePrecision]), $MachinePrecision] * N[(N[(1.0 + N[Power[N[(k / t), $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
↓
code[t_, l_, k_] := Block[{t$95$1 = N[Power[N[(k / t), $MachinePrecision], 2.0], $MachinePrecision]}, Block[{t$95$2 = N[(N[Power[l, 1/3], $MachinePrecision] / N[(t / N[Power[l, 1/3], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(1.0 + N[(1.0 + t$95$1), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t, -1.876647700209357e+154], N[(N[(N[Power[t$95$2, 2.0], $MachinePrecision] / k), $MachinePrecision] * N[(t$95$2 / k), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, -9.210115154097725e+87], N[(2.0 / N[(N[(N[(N[(N[(N[(t * t), $MachinePrecision] / l), $MachinePrecision] * N[(t / l), $MachinePrecision]), $MachinePrecision] * N[Sin[k], $MachinePrecision]), $MachinePrecision] * N[Tan[k], $MachinePrecision]), $MachinePrecision] * t$95$3), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, -3.25e+34], N[(N[(l / k), $MachinePrecision] * N[(N[(l / k), $MachinePrecision] / N[Power[t, 3.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, -1e-70], N[(N[(l / N[Sin[k], $MachinePrecision]), $MachinePrecision] / N[(N[Tan[k], $MachinePrecision] * N[(N[(2.0 + t$95$1), $MachinePrecision] * N[(N[(N[Power[t, 3.0], $MachinePrecision] / l), $MachinePrecision] * 0.5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 10000000.0], N[(N[(N[(2.0 * N[(N[(l / k), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision] / k), $MachinePrecision] / N[(N[Sin[k], $MachinePrecision] * N[(N[Tan[k], $MachinePrecision] / l), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(2.0 / N[(t$95$3 * N[(N[Tan[k], $MachinePrecision] * N[(N[Sin[k], $MachinePrecision] * N[Power[N[(N[Power[t, 1.5], $MachinePrecision] / l), $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]