AsymptoticEquivalent[f,g,xx*]
xx*のときに
となる条件を与える.
AsymptoticEquivalent[f,g,{x1,…,xn}{
,…,
}]
{x1,…,xn}{
,…,
}のときに
となる条件を与える.
AsymptoticEquivalent
AsymptoticEquivalent[f,g,xx*]
xx*のときに
となる条件を与える.
AsymptoticEquivalent[f,g,{x1,…,xn}{
,…,
}]
{x1,…,xn}{
,…,
}のときに
となる条件を与える.
詳細とオプション
- 「漸近的に等価」は,f は g に漸近する,あるいは,f は g と漸近的に等価である,としても表現される.点 x*はコンテキストから推測されることが多い.
- 「漸近的に等価」は同値関係で,
であるすべての定数について,x が x*の近くにあるときに
であることを意味する.これは,AsymptoticEqualよりもきめ細かい同値関係である. - 点の近くの関数や級数の単純な表現のため,また,方程式の漸近解のためにしばしば用いられる.
- 有限極限点の x*および{
,…,
}については以下のようになる. -
AsymptoticEquivalent[f[x],g[x],xx*] すべての
について,
が
を意味する
が存在するAsymptoticEquivalent[f[x1,…,xn],g[x1,…,xn],{x1,…,xn}{
,…,
}]すべての
について,
が
を意味する
が存在する - 無限極限点については以下のようになる.
-
AsymptoticEquivalent[f[x],g[x],x∞] すべての
について,
が
を意味する
が存在するAsymptoticEquivalent[f[x1,…,xn],g[x1,…,xn],{x1,…,xn}{∞,…,∞}] すべての
について,
が
を意味する
が存在する - g[x]が x*付近に0の無限集合を持たない場合,AsymptoticEquivalent[f[x],g[x],xx*]は,Limit[f[x]/g[x],xx*]1のときかつそのときに限り存在する.
- 次は,使用可能なオプションである.
-
Assumptions $Assumptions パラメータについての仮定 Direction Reals 極限点に近付く方向 GenerateConditions Automatic パラメータについての条件を生成する Method Automatic 使用するメソッド PerformanceGoal "Quality" 何を最適化するか - 次は,Directionの可能な設定である.
-
Reals または "TwoSided" 両実数方向から "FromAbove" または -1 上,つまり大きい値から "FromBelow" または +1 下,つまり小さい値から Complexes すべての複素方向から Exp[ θ]
の方向{dir1,…,dirn} 変数 xiに方向 diriを使う - x*におけるDirectionExp[ θ]は,曲線の接線が極限点 x*に近付く方向を示す.
- 次は,GenerateConditionsの可能な設定である.
-
Automatic 一般的ではない条件のみ True すべての条件 False 条件なし None 条件が必要な場合には未評価で返す - PerformanceGoalの可能な設定には,$PerformanceGoal,"Quality","Speed"がある."Quality"設定のとき,Limitはより多くの問題を解いたりより簡単な結果を与えたりすることが多いが,より多くの時間とメモリが必要になる可能性がある.
例題
すべて開く すべて閉じる例 (2)
AsymptoticEquivalent[x ^ 2 + 3x + 2 , x ^ 2, x -> ∞]Plot[(2 + 3 x + x^2/x^2), {x, 0, 100}, PlotTheme -> "Detailed", PlotRange -> {0, 2}]AsymptoticEquivalent[x ^ 2 + 5x + y ^ 2, x ^ 2 + y ^ 2, {x, y} -> {∞, ∞}]Plot3D[(x ^ 2 + 5x + y ^ 2/x ^ 2 + y ^ 2), {x, 2, 30}, {y, 2, 30}, PlotTheme -> "Detailed", PlotRange -> {0, 2}]スコープ (10)
AsymptoticEquivalent[x, -x ^ 2, x -> ∞]AsymptoticEquivalent[(1/x^2), (1/x Sin[x]), x -> 0]答は明示的なTrueまたはFalseではなく,ブール式かもしれない:
AsymptoticEquivalent[(1/Sinh[p(x - 1)]), (1/x - 1), x -> 1]パラメータを含む関数を比較する場合は,結果についての条件が生成されることがある:
AsymptoticEquivalent[Sin[(x - 2)]^p, Sinh[x - 2], x -> 2]AsymptoticEqual[Sin[p(x - 1)], (x - 1) ^ q, x -> 1]AsymptoticEquivalent[(x - 1) ^ p, (x - 1) ^ q, x -> 1]AsymptoticEquivalent[x^4, x^2 (1 - Cos[Sqrt[2]x])UnitStep[x], x -> 0]AsymptoticEquivalent[x^4, x^2(1 - Cos[Sqrt[2]x]) UnitStep[x], x -> 0, Direction -> "FromAbove"]AsymptoticEquivalent[x^4, x^2(1 - Cos[Sqrt[2]x]) UnitStep[x], x -> 0, Direction -> "FromBelow"]2つの関数の比を,上から1に近付くところは表示するが下から近付くところは表示せずに可視化する:
Plot[(x^2(1 - Cos[Sqrt[2]x]) UnitStep[x]/x^4), {x, -1, 1}, PlotTheme -> "Detailed"]Sqrtのような関数は,負の実数に沿って両方の実数方向で同じ関係があるかもしれない:
AsymptoticEquivalent[(Sqrt[z] - I)^3, I(z + 1)^3 / 8, z -> -1]AsymptoticEquivalent[(Sqrt[z] - I)^3, I(z + 1)^3 / 8, z -> -1, Direction -> -I]AsymptoticEquivalent[(Sqrt[z] - I)^3, I(z + 1)^3 / 8, z -> -1, Direction -> I]これは,軸が交差するときにSqrtの虚部の符号が逆になるところで分枝切断されているためである:
TableForm[Table[{-1 + Δ, Sqrt[-1 + Δ], Abs[Sqrt[-1 + Δ] - I]}, {Δ, {0.01, -0.01, 0.01I, -0.01I}}], TableHeadings -> {None, {z, Sqrt[z], HoldForm@Abs[Sqrt[z] - I]}}]AsymptoticEquivalent[(Sqrt[z] - I)^3, I(z + 1)^3 / 8, z -> -1, Direction -> Complexes]近似的等価を定義する数量が,4つの主に複素方向から近付く場合を可視化する:
Plot[{Abs[ (I Δz^3 / 8/(Sqrt[-1 + Δz] - I)^3) - 1], Abs[ (I(I Δz)^3 / 8/(Sqrt[-1 + I Δz] - I)^3) - 1]}, {Δz, -1, 1}, IconizedObject[«plot options»]]AsymptoticEquivalent[(x - 1)^2(y - 2), Sin[ x]Cos[3y / 4], {x, y} -> {1, 2}]Plot3D[{Abs[(x - 1)^2(y - 2)], Abs[Sin[ x]Cos[ 3y / 2]]}, {x, y}∈Disk[{1, 2}, .9], PlotTheme -> "Detailed"]AsymptoticEquivalent[ Exp[x]Log[y], x y, {x, y} -> {-∞, ∞}]AsymptoticEquivalent[Sinh[x]y, Sinh[a x]y ^ 2, {x, y} -> {∞, 1}]オプション (9)
Assumptions (1)
Assumptionsを使ってパラメータについての条件を指定する:
AsymptoticEquivalent[1 + x^n, x^n, x -> ∞, Assumptions -> n ≥ 0]AsymptoticEquivalent[1 + x^n, x^n, x -> ∞, Assumptions -> n < 0]Direction (5)
AsymptoticEquivalent[x UnitStep[x], Sin[x], x -> 0, Direction -> "FromBelow"]AsymptoticEquivalent[x UnitStep[x], Sin[x], x -> 0, Direction -> 1]AsymptoticEquivalent[x UnitStep[x], Sin[x], x -> 0, Direction -> "FromAbove"]AsymptoticEquivalent[x UnitStep[x], Sin[x], x -> 0, Direction -> -1]AsymptoticEquivalent[FractionalPart[x ^ 2]Sin[x], 4Sin[2](x - 2), x -> 2, Direction -> "FromBelow"]AsymptoticEquivalent[FractionalPart[x ^ 2]Sin[x], 4Sin[2](x - 2), x -> 2, Direction -> "FromAbove"]AsymptoticEquivalent[FractionalPart[x ^ 2]Sin[x], 4Sin[2](x - 2), x -> 2, Direction -> "TwoSided"]Plot[{FractionalPart[x ^ 2]Sin[x], 4Sin[2](x - 2), Abs[(FractionalPart[x ^ 2]Sin[x]/4Sin[2](x - 2))]}, {x, 1.5, 2.5}, PlotLegends -> "Expressions"]AsymptoticEquivalent[Tan[x], (-2/2x - π), x -> π / 2, Direction -> "FromBelow"]AsymptoticEquivalent[Tan[x], (-2/2x - π), x -> π / 2, Direction -> "FromAbove"]AsymptoticEquivalent[Tan[x], (-2/2x - π), x -> π / 2, Direction -> ℝ]AsymptoticEquivalent[Tan[x], (-2/2x - π), x -> π / 2, Direction -> ℂ]AsymptoticEquivalent[ Sqrt[x - 1] - I, (-I Tanh[x]/2), x -> 0, Direction -> +I]AsymptoticEquivalent[ Sqrt[x - 1] - I, (-I Tanh[x]/2), x -> 0, Direction -> -I]AsymptoticEquivalent[ Sqrt[x - 1] - I, (-I Tanh[x]/2), x -> 0, Direction -> Reals]AsymptoticEquivalent[ Sqrt[x - 1] - I, (-I Tanh[x]/2), x -> 0, Direction -> Complexes]f[x_, y_] := Piecewise[{{x*y, y >= 0 && x <= 0}, {2*x*y, y > 0 && x > 0}}, 0]g[x_, y_] := Sin[x y]AsymptoticEquivalent[f[x, y], g[x, y], {x, y} -> {0, 0}, Direction -> "FromAbove"]AsymptoticEquivalent[f[x, y], g[x, y], {x, y} -> {0, 0}, Direction -> {"FromAbove", "FromAbove"}]AsymptoticEquivalent[f[x, y], g[x, y], {x, y} -> {0, 0}, Direction -> {"FromBelow", "FromAbove"}]AsymptoticEquivalent[f[x, y], g[x, y], {x, y} -> {0, 0}, Direction -> {"FromAbove", Reals}]AsymptoticEquivalent[f[x, y], g[x, y], {x, y} -> {0, 0}, Direction -> {Reals, "FromBelow"}]Plot3D[(f[x, y]/g[x , y]), {x, y}∈Annulus[{.01, 1}], AxesLabel -> Automatic, Exclusions -> {Sin[x y] == 0}]//QuietGenerateConditions (3)
AsymptoticEquivalent[1 + x ^ n, 1, x -> 0, GenerateConditions -> False]AsymptoticEquivalent[1 + x ^ n, 1, x -> 0]AsymptoticEquivalent[1 + x ^ n, 1, x -> 0, Assumptions -> n ≤ 0]AsymptoticEquivalent[Exp[a x], 1, x -> ∞, GenerateConditions -> None]AsymptoticEquivalent[Exp[a x], 1, x -> ∞]デフォルトで,特殊な値でしか結果が無効にならない場合は,条件は生成されない:
AsymptoticEquivalent[x^2 y^2, (x - a)^2y^2, {x, y} -> {0, 0}]GenerateConditions->Trueのときは,これらの一般的ではない条件も報告される:
AsymptoticEquivalent[x^2 y^2, (x - a)^2y^2, {x, y} -> {0, 0}, GenerateConditions -> True]アプリケーション (12)
基本的なアプリケーション (5)
無限大において等しい2つの単項式のベキと係数は等しいことを示す:
AsymptoticEquivalent[x^n, x^m, x -> ∞, Assumptions -> m > n]AsymptoticEquivalent[a x^n, b x^n, x -> ∞]このことを使って,等価である2つの多項式が同じ先頭単項式を持つことを示す:
AsymptoticEquivalent[a x^n + b x^k, a x^n + c x^l, x -> ∞, Assumptions -> 0 < k ≤ l < n]LogLogPlot[{x^3 + 5x^2 + 1, x^3 + 100x + 75, 5x^3 + 1, 5x^3 + 50x^2, x^4, x^4 + 100x^2 + 2500}, {x, 1, 1000}, PlotTheme -> {"Detailed", "Marketing"}]無限大において等しい
中の2つの単項式のベキと係数が等しいことを示す:
AsymptoticEquivalent[(1/x^n), (1/x^m), x -> 0, Assumptions -> m > n > 0]AsymptoticEquivalent[(a/x^n), (b /x^n), x -> 0]これを使って,
中の等価である2つの多項式が同じ先頭単項式を持つことを示す:
AsymptoticEquivalent[(a/x^n) + (b/x^k), (a/x^n) + (c/x^l), x -> 0, Assumptions -> 0 < k ≤ l < n]LogLogPlot[{x^-3 + 5x^-2 + 1000, x^-3 + 100x + 75, 5x^-3 + 1, 5x^-3 + 50x^-2, x^-4, x^-4 + 100x^-2 + 2500}, {x, 0, 1}, PlotTheme -> {"Detailed", "Marketing"}, ImageSize -> Medium]AsymptoticEquivalent[x^2(2 + Sin[1 / x]), 2x^2, x -> 0]AsymptoticEqual[x^2(2 + Sin[1 / x]), 2x^2, x -> 0]Plot[{Abs[x^2(2 + Sin[1 / x])], x^2}, {x, -(1/3), (1/3)}, PlotLegends -> "Expressions"]LogLogPlot[{Abs[x^2(2 + Sin[1 / x])], 2x^2}, {x, 10 ^ -4, 1 / 3}, PlotLegends -> "Expressions", PlotPoints -> 101]AsymptoticEquivalent[x^2(2 + Sin[x]), 2x^2, x -> ∞]AsymptoticEqual[x^2(2 + Sin[x]), 2x^2, x -> 0]LogPlot[{Abs[x^2(2 + Sin[x])], 2x^2}, {x, 1, 100}, PlotLegends -> "Expressions"]AsymptoticEquivalent[x^2Sin[10 / x], 10x, x -> ∞]LogPlot[{Abs[x^2Sin[10 / x]], 10x}, {x, 1, 20}, PlotLegends -> "Expressions", PlotRange -> All]漸近近似 (7)
のときに
なら,関数
は
のときに小さい相対誤差で
を近似する.
のとき,小さい相対誤差で
が
を近似することを示す:
AsymptoticEquivalent[Exp[x], 1 + x, x -> 0]AsymptoticEquivalent[(1/x) + (1/x^2), (1/x^2), x -> 0]Limit[Abs[((1/x) + (1/x^2)) - (1/x^2)], x -> 0]同様に,スターリング(Stirling)の公式
は,
のとき,小さい相対誤差で
を近似する:
AsymptoticEquivalent[n!, Sqrt[2π n](n / E)^n, n -> ∞]Limit[n! - Sqrt[2π n](n / E)^n, n -> ∞]
が関数であり,
は
付近における
の近似であるとすると,
において
なら,この近似は漸近的である.言い換えるなら,近似の相対誤差は小さい.
が
において
の漸近的な近似であることを示す:
AsymptoticEquivalent[x^2 + x + 1, 1, x -> 0]AsymptoticEquivalent[x^2 + x + 1, x + 1, x -> 0]AsymptoticEquivalent[x^2 + x + 1, 1.5, x -> 0]AsymptoticEquivalent[n!, Sqrt[2π n](n / E)^n, n -> ∞]AsymptoticEquivalent[PrimePi[x], x / Log[x], x -> ∞]AsymptoticEquivalent[PrimePi[x], LogIntegral[x], x -> ∞]Seriesは,初等関数および特殊関数の漸近近似を生成する.例えば,
における
の次数-10の近似を生成する:
sin = Normal@Series[Sin[x], {x, 0, 10}]AsymptoticEquivalent[Sin[x], sin, x -> 0]0におけるCot[x]の漸近級数を求める:
cot = Normal@Series[Cot[x], {x, 0, 5}]AsymptoticEquivalent[Cot[x], cot, x -> 0]Gamma[x]の級数が-1において漸近的であることを示す:
gamma = Normal@Series[Gamma[x], {x, -1, 2}]AsymptoticEquivalent[Gamma[x], gamma, x -> -1]expr = Normal@Series[Log[Sin[x]]^1 / 3, {x, 0, 3}]AsymptoticEquivalent[Log[Sin[x]]^1 / 3, expr, x -> 0]近似される関数が近似点のすべての近傍で0に無限回近付く場合は,漸近近似が微妙になるかもしれない.例として,
近くにおける
の漸近展開について考える:
besselJ = Normal@Series[BesselJ[1, x], {x, ∞, 2}]AsymptoticEquivalent[BesselJ[1, x], besselJ, x -> ∞]問題は,ベッセル関数のすべての零点において近似が完全に0ではない点である:
{BesselJ[1, x], besselJ} /. x -> BesselJZero[1, 25]//N一般的に1に近付く割合にもかかわらず,
は無限回侵害される:
Plot[besselJ / BesselJ[1, x], {x, 1, 40}, PlotTheme -> "Detailed", PlotPoints -> 200]一方,決して0にならないハンケル関数
の近似について考える:
hankel1 = Normal@Series[HankelH1[1, x], {x, ∞, 2}]//ExpandAsymptoticEquivalent[HankelH1[1, x], hankel1, x -> ∞]hankel2 = Normal@Series[HankelH2[1, x], {x, ∞, 2}]//ExpandAsymptoticEquivalent[HankelH2[1, x], hankel2, x -> ∞]
なので,そのような近似2つの和であるこの近似はほぼ漸近的であると理解できる:
FullSimplify[besselJ == (hankel1 + hankel2/2)]besselJP1 = Normal@Series[1 + BesselJ[1, x], {x, ∞, 2}]//ExpandAsymptoticEquivalent[1 + BesselJ[1, x], besselJP1, x -> ∞]Plot[(besselJP1/1 + BesselJ[1, x]), {x, 1, 40}, PlotTheme -> "Detailed"]AsymptoticIntegrateを使って定積分の漸近近似を生成する.例えば,
のときの
の漸近近似を求め,厳密値と比較する:
{approx, exact} = {AsymptoticIntegrate[E ^ (t x), {t, 0, 1}, {x, 0, 3}] , Integrate[E ^ (t x), {t, 0, 1}]}AsymptoticEquivalent[exact, approx, x -> 0]approx2 = AsymptoticIntegrate[E ^ (t x), {t, 0, 1}, {x, 0, 1}]この近似は,厳密積分についても第1近似についても漸近的である:
AsymptoticEquivalent[exact, approx2, x -> 0]AsymptoticEquivalent[approx, approx2, x -> 0]積分定数について説明する必要があるが,AsymptoticIntegrateを使って不定積分の漸近近似を生成する.
のときの
の近似について考える:
{approx, exact} = {AsymptoticIntegrate[Sin[x], x, {x, 0, 3}], Integrate[Tan[x] Cos[x], x]}AsymptoticEquivalent[exact, approx, x -> 0]approx2 = AsymptoticIntegrate[x^x, x, {x, 0, 2}]approx1 = AsymptoticIntegrate[x^x, x, {x, 0, 1}]比較すべき記号結果はないが,この過程が漸近的であると示すことはできる:
AsymptoticEquivalent[approx2, approx1, x -> 0]AsymptoticDSolveValueを使って微分方程式の漸近近似を生成する:
deqn = {y''[x] - (x ^ 4 + E ^ x Sin[x]) y[x] == 0 == 0, y[0] == 0, y'[0] == 2};approx = AsymptoticDSolveValue[deqn, y[x], {x, 0, 8}]比較すべき厳密な結果はないが,この過程が漸近的であると示すことはできる:
approx2 = AsymptoticDSolveValue[deqn, y[x], {x, 0, 12}]AsymptoticEquivalent[approx2, approx, x -> 0]NDSolveValueを使って得られた数値解の値と比較する:
nsol = NDSolveValue[deqn, y[x], {x, 0, 0.5}]Table[nsol - approx2, {x, 0, 0.5, 0.1}]特性と関係 (4)
AsymptoticEquivalentは同値関係,つまり,反射的な関係の(
である:
AsymptoticEquivalent[f[x], f[x], x -> x0]{f, g, h} = {x, x^2 / (1 + x), x^3 / (1 + x^2)};{AsymptoticEquivalent[f, g, x -> ∞], AsymptoticEquivalent[g, h, x -> ∞], AsymptoticEquivalent[f, h, x -> ∞]}{AsymptoticEquivalent[f, g, x -> ∞], AsymptoticEquivalent[g, f, x -> ∞]}Limit[f[x]/g[x],xx0]1のときかつそのときに限りAsymptoticEquivalent[f[x],g[x],xx0]である:
{f, g} = {x, x^2 / (1 + x)};{AsymptoticEquivalent[f, g, x -> ∞], Limit[f / g, x -> ∞]}特に,極限がIndeterminateなら
である:
{f, g} = {x(1 + Sin[x]), x^2 / (1 + x)};{AsymptoticEquivalent[f, g, x -> ∞], Limit[f / g, x -> ∞]}{f, g} = {x, x^2 / (1 + x)};{AsymptoticEquivalent[f, g, x -> ∞], AsymptoticEqual[f, g, x -> ∞]}逆は偽であるので,AsymptoticEquivalentはAsymptoticEqualよりきめ細かい:
{f, g} = {x, 2x^2 / (1 + x)};{AsymptoticEquivalent[f, g, x -> ∞], AsymptoticEqual[f, g, x -> ∞]}{f, g} = {x, x^2 / (1 + x)};{AsymptoticEquivalent[f, g, x -> ∞], AsymptoticLess[f - g, g, x -> ∞]}{AsymptoticEquivalent[f, g, x -> ∞], AsymptoticGreater[g, f - g, x -> ∞]}関連するガイド
-
▪
- 漸近解析
テキスト
Wolfram Research (2018), AsymptoticEquivalent, Wolfram言語関数, https://reference.wolfram.com/language/ref/AsymptoticEquivalent.html.
CMS
Wolfram Language. 2018. "AsymptoticEquivalent." Wolfram Language & System Documentation Center. Wolfram Research. https://reference.wolfram.com/language/ref/AsymptoticEquivalent.html.
APA
Wolfram Language. (2018). AsymptoticEquivalent. Wolfram Language & System Documentation Center. Retrieved from https://reference.wolfram.com/language/ref/AsymptoticEquivalent.html
BibTeX
@misc{reference.wolfram_2026_asymptoticequivalent, author="Wolfram Research", title="{AsymptoticEquivalent}", year="2018", howpublished="\url{https://reference.wolfram.com/language/ref/AsymptoticEquivalent.html}", note=[Accessed: 11-September-2026]}
BibLaTeX
@online{reference.wolfram_2026_asymptoticequivalent, organization={Wolfram Research}, title={AsymptoticEquivalent}, year={2018}, url={https://reference.wolfram.com/language/ref/AsymptoticEquivalent.html}, note=[Accessed: 11-September-2026]}