Exemple 4 étapes, exécutées dans l'ordre dans une même session. Chaque étape a été exécutée sur le moteur et la sortie ci-dessous est ce qu'elle a produit.
mainTerm[expr_, x_] := Module[{approxpoly, prec = 1, j = 0, expon, coef}, approxpoly = Normal[Series[expr, {x, Infinity, prec}]];
While[approxpoly === 0 && j ≤ 5, j++;
prec = 2 * prec + j;
approxpoly = Normal[Series[expr, {x, Infinity, prec}]];];
approxpoly = PowerExpand@approxpoly;
expon = Exponent[approxpoly, x];
coef = Coefficient[approxpoly, x, expon];
coef * x ^ expon]Pas de sortie - cette étape prépare quelque chose pour la suivante.
mainTerm[(x ^ 3 + 1) / (x + 1), x]x^2mainTermAtOrigin[expr_, x_] := mainTerm[expr /. x -> 1 / x, x] /. x -> 1 / xPas de sortie - cette étape prépare quelque chose pour la suivante.
mainTermAtOrigin[(x ^ 2 + 1) / (x + 1) - 1 / x, x]-x^(-1)Toutes les recettes · Référence des fonctions · Utiliser ceci depuis un client MCP