double code(double x, double eps) {
return tan((x + eps)) - tan(x);
}
↓
double code(double x, double eps) {
double t_0 = pow(sin(x), 2.0);
double t_1 = pow(cos(x), 3.0);
double t_2 = pow(sin(x), 3.0);
double t_3 = 1.0 - (tan(eps) * tan(x));
double t_4 = tan(eps) / t_3;
double t_5 = pow(sin(x), 4.0) / pow(cos(x), 4.0);
double t_6 = pow(cos(x), 2.0);
double t_7 = t_0 / t_6;
double tmp;
if (eps <= -0.00037) {
tmp = t_4 + ((tan(x) / (1.0 - ((tan(x) * sin(eps)) / cos(eps)))) - tan(x));
} else if (eps <= 8.2e-9) {
tmp = t_4 + ((((eps / t_6) * t_0) + ((((eps * eps) / t_1) * t_2) + (pow(eps, 3.0) * (t_5 + (t_7 * 0.3333333333333333))))) - (fma(-0.3333333333333333, (t_2 / t_1), (((-0.3333333333333333 * t_7) - t_5) * (sin(x) / cos(x)))) * pow(eps, 4.0)));
} else {
tmp = ((tan(eps) + tan(x)) / t_3) - tan(x);
}
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[Power[N[Sin[x], $MachinePrecision], 2.0], $MachinePrecision]}, Block[{t$95$1 = N[Power[N[Cos[x], $MachinePrecision], 3.0], $MachinePrecision]}, Block[{t$95$2 = N[Power[N[Sin[x], $MachinePrecision], 3.0], $MachinePrecision]}, Block[{t$95$3 = N[(1.0 - N[(N[Tan[eps], $MachinePrecision] * N[Tan[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(N[Tan[eps], $MachinePrecision] / t$95$3), $MachinePrecision]}, Block[{t$95$5 = N[(N[Power[N[Sin[x], $MachinePrecision], 4.0], $MachinePrecision] / N[Power[N[Cos[x], $MachinePrecision], 4.0], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[Power[N[Cos[x], $MachinePrecision], 2.0], $MachinePrecision]}, Block[{t$95$7 = N[(t$95$0 / t$95$6), $MachinePrecision]}, If[LessEqual[eps, -0.00037], N[(t$95$4 + N[(N[(N[Tan[x], $MachinePrecision] / N[(1.0 - N[(N[(N[Tan[x], $MachinePrecision] * N[Sin[eps], $MachinePrecision]), $MachinePrecision] / N[Cos[eps], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[Tan[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[eps, 8.2e-9], N[(t$95$4 + N[(N[(N[(N[(eps / t$95$6), $MachinePrecision] * t$95$0), $MachinePrecision] + N[(N[(N[(N[(eps * eps), $MachinePrecision] / t$95$1), $MachinePrecision] * t$95$2), $MachinePrecision] + N[(N[Power[eps, 3.0], $MachinePrecision] * N[(t$95$5 + N[(t$95$7 * 0.3333333333333333), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(-0.3333333333333333 * N[(t$95$2 / t$95$1), $MachinePrecision] + N[(N[(N[(-0.3333333333333333 * t$95$7), $MachinePrecision] - t$95$5), $MachinePrecision] * N[(N[Sin[x], $MachinePrecision] / N[Cos[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[Power[eps, 4.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[Tan[eps], $MachinePrecision] + N[Tan[x], $MachinePrecision]), $MachinePrecision] / t$95$3), $MachinePrecision] - N[Tan[x], $MachinePrecision]), $MachinePrecision]]]]]]]]]]]