Enable JavaScript to interact with content and submit forms on Wolfram websites. Learn how

Wolfram Language & System Documentation Center

Asymptotic Behavior of a Function

Asymptotic Behavior of a Function

The method here takes a series at infinity to get a Laurent polynomial, finds the largest exponent, and then finds the corresponding coefficient:

Wolfram Language code:

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]

Wolfram Language code: mainTerm[(x ^ 3 + 1) / (x + 1), x]

Now get the asymptotic behavior at the origin:

Wolfram Language code: mainTermAtOrigin[expr_, x_] := mainTerm[expr /. x -> 1 / x, x] /. x -> 1 / x

Wolfram Language code: mainTermAtOrigin[(x ^ 2 + 1) / (x + 1) - 1 / x, x]

Top