MeijerG[{{a1,…,an},{an+1,…,ap}},{{b1,…,bm},{bm+1,…,bq}},z]
给出 Meijer G-函数
.
MeijerG
MeijerG[{{a1,…,an},{an+1,…,ap}},{{b1,…,bm},{bm+1,…,bq}},z]
给出 Meijer G-函数
.
范例
打开所有单元 关闭所有单元基本范例 (6)
N[MeijerG[{{}, {2}}, {{(1/2), (3/2)}, {}}, 3], 50]许多特殊函数是 MeijerG 的特殊情况:
MeijerG[{{}, {}}, {{v}, {-v}}, z]MeijerG[{{(1/2), (1/2), (1/2)}, {}}, {{0}, {-(3/2), -(3/2)}}, -x]Plot[MeijerG[{{1 / 2}, {}}, {{1 / 3}, {}}, x], {x, 0, 3}]ComplexPlot3D[MeijerG[{{1 / 2}, {}}, {{1 / 3}, {}}, z], {z, -2 - 2I, 2 + 2I}, PlotLegends -> Automatic]Series[MeijerG[{{a}, {}}, {{d}, {}}, x], {x, 0, 2}]在 Infinity 的级数展开:
Series[MeijerG[{{a}, {}}, {{d}, {}}, x], {x, ∞, 5}]范围 (35)
数值计算 (7)
MeijerG[{{1}, {2}}, {{2.3, 1.5}, {4}}, 3]MeijerG[{{31, 4}, {2, 3}}, {{5, 1.5}, {.1}}, 3]N[MeijerG[{{1}, {2}}, {{2 / 3, 1 / 5}, {4}}, 3], 50]//ChopMeijerG[{{1}, {2}}, {{2, 1.333333333333333333333333333}, {4}}, 3]//ChopMeijerG[{{I + 3}, {2.}}, {{2 / 3, 1 / 5}, {4}}, 3]MeijerG[{{1}, {3}}, {{2 / 3, 1 / 5}, {4}}, 3`100]//Timing//ChopMeijerG[{{6}, {2}}, {{2 / 3, 1 / 5}, {4}}, 3`1000];//TimingMeijerG 在其第三个参数中对列表进行元素遍历:
MeijerG[{{1 / 3}, {}}, {{1 / 2}, {1}}, {0.1, 0.3, 0.5}, 1 / 2]MeijerG 在其第三个参数中对稀疏数组和结构化数组进行元素遍历:
MeijerG[{{1 / 3}, {}}, {{1 / 2}, {1}}, SparseArray[Automatic, {2, 2}, 0, {1, {{0, 1, 2}, {{1}, {2}}}, {1, 1}}], 1 / 2]MeijerG[{{1 / 3}, {}}, {{1 / 2}, {1}}, SymmetrizedArray[StructuredArray`StructuredData[{2, 2},
{{{1, 1} -> 1, {1, 2} -> 1/2, {2, 2} -> 1/3}, Symmetric[{1, 2}]}]], 1 / 2]用 Around 计算普通的统计区间:
MeijerG[{{}, {}}, {{5}, {4}}, Around[.2, 0.01]]MeijerG[{{}, {}}, {{5}, {4}}, {{1 / 2, 2}, {0, 1 / 2}}]或用 MatrixFunction 计算矩阵形式的 MeijerG 函数:
MatrixFunction[MeijerG[{{}, {}}, {{5}, {4}}, #]&, {{1 / 2, 2}, {0, 1 / 2}}]//FullSimplify特殊值 (5)
MeijerG[{{}, {}}, {{5}, {4}}, 5]MeijerG[{{1 / 2, 1 / 2}, {}}, {{1}, {1}}, 2]MeijerG[{{1 / 2}, {}}, {{0}, {0}}, x]MeijerG[{{1 / 2, 3 / 2}, {}}, {{0}, {0}}, x]MeijerG[{{1 / 2}, {1 / 2}}, {{}, {}}, 0]MeijerG[{{1 / 2}, {}}, {{1}, {}}, 0]MeijerG[{{1 / 2}, {}}, {{0}, {0}}, 0]对于简单参数,MeijerG 计算为更简单的函数:
MeijerG[{{}, {}}, {{b}, {}}, -x]MeijerG[{{}, {}}, {{b}, {b - 1 / 2}}, x]//FullSimplify求 MeijerG[{{},{}},{{1/2},{3/2}},x] 的正最小:
xmin = x /. FindRoot[D[MeijerG[{{}, {}}, {{1 / 2}, {3 / 2}}, x], x] == 0, {x, 2}]Plot[MeijerG[{{}, {}}, {{1 / 2}, {3 / 2}}, x], {x, 0, 10}, Epilog -> Style[Point[{xmin, MeijerG[{{}, {}}, {{1 / 2}, {3 / 2}}, xmin]}], PointSize[Large], Red]]可视化 (2)
绘制各种参数值的 MeijerG 函数:
Plot[{MeijerG[{{(1/2), (1/2)}, {}}, {{1 / 2}, {-1 / 2}}, x], MeijerG[{{(1/2), (1/2)}, {}}, {{1 / 3}, {-1 / 3}}, x], MeijerG[{{(1/2), (1/2)}, {}}, {{1 / 4}, {-1 / 4}}, x]}, {x, 0, 10}]绘制 MeijerG[{{1},{}},{{1/2,1,3/2},{}},z ] 实部:
ComplexContourPlot[Re[MeijerG[{{1}, {}}, {{1 / 2, 1, 3 / 2}, {}}, z]], {z, -4 - 4 I, 4 + 4 I}, Contours -> 20]绘制 MeijerG[{{1},{}},{{1/2,1,3/2},{}},z ] 虚部:
ComplexContourPlot[Im[MeijerG[{{1}, {}}, {{1 / 2, 1, 3 / 2}, {}}, z]], {z, -4 - 4 I, 4 + 4 I}, Contours -> 20]函数的属性 (9)
FunctionDomain[MeijerG[{{1 / 2, 3 / 2}, {}}, {{0}, {0}}, x], x]FunctionDomain[MeijerG[{{1 / 2, 3 / 2}, {}}, {{0}, {0}}, z], z, Complexes]MeijerG 线性作用于最后参数的列表:
MeijerG[{{I / 3}, {}}, {{1 / 2, 1, 3 / 2}, {}}, {-0.5, 0.5}]FunctionAnalytic[MeijerG[{{1 / 2, 3 / 2}, {}}, {{0}, {0}}, x], x]FunctionSingularities[MeijerG[{{1 / 2, 3 / 2}, {}}, {{0}, {0}}, x], x]FunctionDiscontinuities[MeijerG[{{1 / 2, 3 / 2}, {}}, {{0}, {0}}, x], x]FunctionMonotonicity[{MeijerG[{{1 / 2, 3 / 2}, {}}, {{0}, {0}}, x], x > -1}, x]FunctionInjective[MeijerG[{{1 / 2, 3 / 2}, {}}, {{0}, {0}}, x], x]Plot[{MeijerG[{{1 / 2, 3 / 2}, {}}, {{0}, {0}}, x], -7}, {x, -2, 3}]FunctionSurjective[MeijerG[{{1 / 2, 3 / 2}, {}}, {{0}, {0}}, x], x]Plot[{MeijerG[{{1 / 2, 3 / 2}, {}}, {{0}, {0}}, x], 5}, {x, -5, 5}]FunctionSign[{MeijerG[{{1 / 2, 3 / 2}, {}}, {{0}, {0}}, x], x > -1}, x, StrictInequalities -> True]FunctionConvexity[{MeijerG[{{1 / 2, 3 / 2}, {}}, {{0}, {0}}, x], x > -1}, x]TraditionalForm 格式化:
MeijerG[{{1}, {}}, {{1 / 2, 1, 3 / 2}, {}}, z]//TraditionalFormMeijerG[{{1}, {}}, {{1 / 2, 1, 3 / 2}, {}}, z, (1/2)]//TraditionalForm微分 (3)
D[MeijerG[{{Subscript[a, 1], Subscript[a, 2]}, {Subscript[a, 3], Subscript[a, 4]}}, {{v}, {-v}}, z], z]Table[D[MeijerG[{{}, {}}, {{b}, {c}}, z], {z, k}], {k, 1, 3}]//FullSimplifyPlot[Evaluate[% /. { b -> 3, c -> 2}], {z, -10, 10}, PlotLegends -> {"First Derivative", "Second Derivative", "Third Derivative"}]D[MeijerG[{{}, {}}, {{v}, {-v}}, z], {z, k}]// FullSimplify积分 (3)
使用 Integrate 计算不定积分:
Integrate[MeijerG[{{Subscript[a, 1], Subscript[a, 2]}, {Subscript[a, 3], Subscript[a, 4]}}, {{b}, {-b}}, z], z]FullSimplify[D[%, z]]Integrate[MeijerG[{{1}, {2}}, {{1 / 2}, {-1 / 2}}, z], {z, 0, 5}]Integrate[z MeijerG[{{1 / 2}, {2}}, {{1 / 2}, {-3}}, z], z]//FullSimplifyIntegrate[ z MeijerG[{{1 / 2}, {2}}, {{1 / 2}, {-3}}, z^2], {z, 0, 3}]//FullSimplify级数展开 (6)
使用 Series 求泰勒展开:
Series[MeijerG[{{a}, {}}, {{d}, {}}, x], {x, 0, 2}]//Normal//FullSimplifyterms = Normal@Table[Series[MeijerG[{{2}, {}}, {{1 / 3}, {}}, x], {x, 0, m}], {m, 1, 5, 2}];
Plot[{MeijerG[{{2}, {}}, {{1 / 3}, {}}, x], terms}, {x, 0, 10}]使用 SeriesCoefficient 产生级数展开的一般项:
SeriesCoefficient[MeijerG[{{a}, {}}, {{d}, {}}, x], {x, 1, m}]求 Infinity 处的级数展开:
Series[MeijerG[{{a}, {}}, {{d}, {}}, x], {x, Infinity, 1}]Series[MeijerG[{{}, {}}, {{a, a + 1}, {}}, z], {z, 0, 1}]Series[MeijerG[{{a}, {}}, {{d}, {}}, x], {x, x0, 2}]// Normal//FullSimplify推广和延伸 (1)
应用 (5)
定义从 BetaDistribution 中抽取的独立随机变量的乘积:
avec = {2, 3 / 2, 5 / 2};bvec = {3 / 2, 1, 2};
prod𝒟 = TransformedDistribution[x1 x2 x3, MapThread[#1BetaDistribution[#2, #3]&, {{x1, x2, x3}, avec, bvec}]]pdf = Refine[PDF[prod𝒟, x], 0 < x < 1]用 FunctionExpand 来以更简洁的函数表达:
pdf2 = Simplify[FunctionExpand[pdf], 0 < x < 1]sample = RandomVariate[prod𝒟, 10 ^ 6];Show[Histogram[sample, {0.005}, PDF], Plot[pdf2, {x, 0, 1}]]DSolve[f''[r] + ((1/r) - 2r)f'[r] + (1 - (4/r^2))f[r] == 0, f[r], r]MeijerG 给出对数部分:
Series[f[r] /. %, {r, 0, 2}, Assumptions -> r > 0]Integrate[KelvinKer[1 / 2, x], x]Integrate[x Exp[-(x^2 + (1/x))], {x, 0, Infinity}]求解三阶奇异 ODE,用 HypergeometricPFQ 和 MeijerG 函数表示解:
DSolve[x y'''[x] + x y'[x] - y[x] == 0, y, x]Wronskian[Coefficient[y[x] /. %[[1]], Table[C[i], {i, 3}]], x]x[m_, n_Integer, t_] /; m < n := Exp[-2 π I(m - 1/n - 1)] - (t/(2 π)^n - 3 / 2)Sqrt[(n/(n - 1)^3)]MeijerG[{Append[(Range[n - 1]/n), (n - 2/n - 1)], {}}, {(Range[0, n - 2]/n - 1), {-(1/n - 1)}}, -(t n^(n/n - 1)/n - 1)Exp[2 π I(m - 1/n - 1)], (1/n - 1)]x[1, 5, 1]//TraditionalFormN[%, 20]x ^ 5 - x + 1 == 0 /. x -> %属性和关系 (1)
使用 FunctionExpand 把 MeijerG 展开成更简单的函数:
MeijerG[{{(1/2), 1}, {1}}, {{(1/2)}, {}}, z]FunctionExpand[%]可能存在的问题 (3)
对某些参数,MeijerG 没有定义:
MeijerG[{{}, {}}, {{}, {0}}, z]
是一个
的 MeijerG 函数的奇点:
MeijerG[{{(1/2), 1}, {3, 4}}, {{(1/5)}, {}}, 0]MeijerG[{{(1/2), 1}, {3, 4}}, {{(1/5)}, {}}, z]//FunctionExpandSeries[%, {z, 0, 0}, Assumptions -> z > 0]FunctionExpand[MeijerG[{{(1/2)}, {(1/3)}}, {{(1/5)}, {(1/7)}}, z]]Plot3D[Evaluate[Im[%] /. z -> x - I y], {x, -3 / 2, 3 / 2}, {y, -3 / 2, 3 / 2}, MaxRecursion -> 1, Exclusions -> {x ^ 2 + y ^ 2 == 1, {y == 0, x < 0}}]巧妙范例 (2)
解决 SIAM 100‐digit 挑战问题:
找到最大值:
int[α_] = Assuming[0 ≤ α ≤ 5, (2 + Sin[10 α]) Subsuperscript[∫, (1/2), ∞](((-1 + 2 u/u))^α Sin[α u]/u^2)ⅆu]Plot[int[α], {α, 10^-3, 5}, WorkingPrecision -> 15, MaxRecursion -> 1, PlotPoints -> 30]FindMaximum[int[α], {α, (3/4), (1/2), 1}, WorkingPrecision -> 50, PrecisionGoal -> 20]//N[#, 20]&//Quiet产生许多初级和特殊函数作为 MeijerG 的特例:
Table[MeijerG[{Table[2, {k, p}], {}}, {{1 / 2}, Table[k, {k, q}]}, z], {p, 0, 4}, {q, p, 3}]//TraditionalForm技术笔记
-
▪
- 特殊函数
历史
1996年引入 (3.0)
文本
Wolfram Research (1996),MeijerG,Wolfram 语言函数,https://reference.wolfram.com/language/ref/MeijerG.html.
CMS
Wolfram 语言. 1996. "MeijerG." Wolfram 语言与系统参考资料中心. Wolfram Research. https://reference.wolfram.com/language/ref/MeijerG.html.
APA
Wolfram 语言. (1996). MeijerG. Wolfram 语言与系统参考资料中心. 追溯自 https://reference.wolfram.com/language/ref/MeijerG.html 年
BibTeX
@misc{reference.wolfram_2026_meijerg, author="Wolfram Research", title="{MeijerG}", year="1996", howpublished="\url{https://reference.wolfram.com/language/ref/MeijerG.html}", note=[Accessed: 03-November-2026]}
BibLaTeX
@online{reference.wolfram_2026_meijerg, organization={Wolfram Research}, title={MeijerG}, year={1996}, url={https://reference.wolfram.com/language/ref/MeijerG.html}, note=[Accessed: 03-November-2026]}