double code(double x, double eps) {
return tan((x + eps)) - tan(x);
}
↓
double code(double x, double eps) {
double t_0 = tan(x) - tan((x + eps));
double t_1 = pow(sin(x), 2.0);
double t_2 = t_0 + t_0;
double t_3 = sin(eps) / cos(eps);
double t_4 = pow(cos(x), 2.0);
double t_5 = t_1 / t_4;
double t_6 = 1.0 - -t_5;
double t_7 = -((t_1 * t_6) / t_4) + ((0.16666666666666666 + (-0.5 - (t_5 * 0.5))) + (0.16666666666666666 * t_5));
double t_8 = (sin(x) * t_6) / cos(x);
double tmp;
if (eps <= -0.027) {
tmp = t_3 - tan(x);
} else if (eps <= 5e-7) {
tmp = (eps * t_6) + (((t_6 * (pow(eps, 2.0) * sin(x))) / cos(x)) + (-(pow(eps, 3.0) * t_7) + -(((-0.5 * t_8) + (((sin(x) * t_7) / cos(x)) + (0.16666666666666666 * t_8))) * pow(eps, 4.0))));
} else {
tmp = ((-2.0 * ((tan(x) - t_3) + t_0)) - (t_2 * t_2)) / (4.0 - (-2.0 * t_2));
}
return tmp;
}
public static double code(double x, double eps) {
return Math.tan((x + eps)) - Math.tan(x);
}
↓
public static double code(double x, double eps) {
double t_0 = Math.tan(x) - Math.tan((x + eps));
double t_1 = Math.pow(Math.sin(x), 2.0);
double t_2 = t_0 + t_0;
double t_3 = Math.sin(eps) / Math.cos(eps);
double t_4 = Math.pow(Math.cos(x), 2.0);
double t_5 = t_1 / t_4;
double t_6 = 1.0 - -t_5;
double t_7 = -((t_1 * t_6) / t_4) + ((0.16666666666666666 + (-0.5 - (t_5 * 0.5))) + (0.16666666666666666 * t_5));
double t_8 = (Math.sin(x) * t_6) / Math.cos(x);
double tmp;
if (eps <= -0.027) {
tmp = t_3 - Math.tan(x);
} else if (eps <= 5e-7) {
tmp = (eps * t_6) + (((t_6 * (Math.pow(eps, 2.0) * Math.sin(x))) / Math.cos(x)) + (-(Math.pow(eps, 3.0) * t_7) + -(((-0.5 * t_8) + (((Math.sin(x) * t_7) / Math.cos(x)) + (0.16666666666666666 * t_8))) * Math.pow(eps, 4.0))));
} else {
tmp = ((-2.0 * ((Math.tan(x) - t_3) + t_0)) - (t_2 * t_2)) / (4.0 - (-2.0 * t_2));
}
return tmp;
}
code[x_, eps_] := N[(N[Tan[N[(x + eps), $MachinePrecision]], $MachinePrecision] - N[Tan[x], $MachinePrecision]), $MachinePrecision]
↓
code[x_, eps_] := Block[{t$95$0 = N[(N[Tan[x], $MachinePrecision] - N[Tan[N[(x + eps), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[Power[N[Sin[x], $MachinePrecision], 2.0], $MachinePrecision]}, Block[{t$95$2 = N[(t$95$0 + t$95$0), $MachinePrecision]}, Block[{t$95$3 = N[(N[Sin[eps], $MachinePrecision] / N[Cos[eps], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[Power[N[Cos[x], $MachinePrecision], 2.0], $MachinePrecision]}, Block[{t$95$5 = N[(t$95$1 / t$95$4), $MachinePrecision]}, Block[{t$95$6 = N[(1.0 - (-t$95$5)), $MachinePrecision]}, Block[{t$95$7 = N[((-N[(N[(t$95$1 * t$95$6), $MachinePrecision] / t$95$4), $MachinePrecision]) + N[(N[(0.16666666666666666 + N[(-0.5 - N[(t$95$5 * 0.5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(0.16666666666666666 * t$95$5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$8 = N[(N[(N[Sin[x], $MachinePrecision] * t$95$6), $MachinePrecision] / N[Cos[x], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[eps, -0.027], N[(t$95$3 - N[Tan[x], $MachinePrecision]), $MachinePrecision], If[LessEqual[eps, 5e-7], N[(N[(eps * t$95$6), $MachinePrecision] + N[(N[(N[(t$95$6 * N[(N[Power[eps, 2.0], $MachinePrecision] * N[Sin[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[Cos[x], $MachinePrecision]), $MachinePrecision] + N[((-N[(N[Power[eps, 3.0], $MachinePrecision] * t$95$7), $MachinePrecision]) + (-N[(N[(N[(-0.5 * t$95$8), $MachinePrecision] + N[(N[(N[(N[Sin[x], $MachinePrecision] * t$95$7), $MachinePrecision] / N[Cos[x], $MachinePrecision]), $MachinePrecision] + N[(0.16666666666666666 * t$95$8), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[Power[eps, 4.0], $MachinePrecision]), $MachinePrecision])), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(-2.0 * N[(N[(N[Tan[x], $MachinePrecision] - t$95$3), $MachinePrecision] + t$95$0), $MachinePrecision]), $MachinePrecision] - N[(t$95$2 * t$95$2), $MachinePrecision]), $MachinePrecision] / N[(4.0 - N[(-2.0 * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]