ArgMax
更多信息和选项
- ArgMax 求给定约束条件限制下 f 的全局最大值.
- ArgMax 通常用于求给定约束条件下可能的最大值. 在不同的领域,这可能被称为最佳策略、最佳方案、最佳配置等.
- 如果 f 和 cons 是线性的或是多项式,ArgMax 总能求出全局最大值.
- 约束条件 cons 可以是以下表达式的任意逻辑组合:
-
lhs==rhs 等式 lhs>rhs, lhs≥rhs, lhs<rhs, lhs≤rhs 不等式 (LessEqual、…) lhsrhs, lhsrhs, lhsrhs, lhsrhs 向量不等式 (VectorLessEqual、…) Exists[…], ForAll[…] 量化条件 {x,y,…}∈rdom 区域或域的指定 - ArgMax[{f,cons},x∈rdom] 实际上等价于 ArgMax[{f,cons∧x∈rdom},x].
- 对于 x∈rdom,可用 Indexed[x,i] 来指代不同的坐标.
- 可能的域 rdom 包括:
-
Reals 实标量变量 Integers 整数标量变量 Vectors[n,dom]
中的向量变量Matrices[{m,n},dom]
中的矩阵变量ℛ 限制在几何区域
中的向量变量 - 默认情况下,假定所有变量为实数.
- 如果给定精确输入,ArgMax 将返回精确结果. 如果给定近似输入,它会自动调用 NArgMax.
- 如果最大值只能在极限的位置取得(极限位置超出约束条件所定义的域),或只是渐近地达到,则 ArgMax 将返回最接近极限值的可列举点.
- 即使在多个点达到相同的最大值,也只返回一个.
- 如果无法满足约束条件,ArgMax 会返回 {Indeterminate,Indeterminate,…}.
- N[ArgMax[…]] 调用 NArgMax 来解决不能以符号形式求解的优化问题.
范例
打开所有单元 关闭所有单元基本范例 (5)
ArgMax[-2x ^ 2 - 3x + 5, x]ArgMax[1 - (x y - 3) ^ 2, {x, y}]ArgMax[{x - 2y, x ^ 2 + y ^ 2 ≤ 1}, {x, y}]ArgMax[a x ^ 2 + b x + c, x]ArgMax[x + y, {x, y}∈Disk[]]Show[ContourPlot[x + y, {x, y}∈Disk[]], Graphics[{Red, PointSize[Large], Point[%]}]]范围 (36)
基本用法 (7)
ArgMax[Sin[x] + Cos[x], {x}]ArgMax[Sin[x] + Cos[x], x]ArgMax[{x + 2y, x ^ 2 + 2y ^ 2 ≤ 3 && x + y == 2 && x ≥ 1}, {x, y}]ArgMax[{x y, x ^ 2 + y ^ 2 ≤ 1 || (x + 1) ^ 2 + (y - 1) ^ 2 ≤ 2}, {x, y}]ArgMax[{x + y, x ≤ y ^ 2}, {x, y}]ArgMax[{x + y, x ^ 2 + y ^ 2 < 0}, {x, y}]ArgMax[-Exp[x], x]ArgMax[{{-1, -1}.v, {{1, 2}, {1, 0}}.v{3, -1}}, v]单变量问题 (7)
ArgMax[-x ^ 4 + 2x ^ 3 + 5x - 7, x]ArgMax[{-3x ^ 2 - x + 9, 2x ^ 3 + 5x - 7 ≥ 0}, x]ArgMax[-E ^ (2E ^ x) + Log[x ^ 2 + 1] + 20x, x]ArgMax[{AiryAi[x + Sin[x]] + Cos[x ^ 2], -5 ≤ x ≤ 5}, x]Plot[AiryAi[x + Sin[x]] + Cos[x ^ 2], {x, -5, 5}, Epilog -> {Red, Point[{%, AiryAi[x + Sin[x]] + Cos[x ^ 2] /. x -> %}]}]ArgMax[{BesselJ[2, x] / Gamma[x + 1] + (x + 1) ^ Sin[x], 0 ≤ x ≤ 10}, x]Plot[BesselJ[2, x] / Gamma[x + 1] + (x + 1) ^ Sin[x], {x, 0, 10}, Epilog -> {Red, Point[{%, BesselJ[2, x] / Gamma[x + 1] + (x + 1) ^ Sin[x] /. x -> %}]}]ArgMax[{Sin[x], -1 / 2 ≤ Cos[x] ≤ 1 / 2}, x]ArgMax[Sin[E ^ (x / 3) - 3 x] + 2 Cos[2 E ^ (x / 3) - 6 x + 1] ^ 2, x]ArgMax[{Floor[x + UnitStep[x - 1]] - x, Ceiling[Abs[x]] < 5}, x]ArgMax[SinhIntegral[DawsonF[x]], x]ArgMax[BesselJ[7 / 4, x ^ 2 + x + 1], x]多变量问题 (9)
ArgMax[{2x + 3y - z, 1 ≤ x + y + z ≤ 2 && 1 ≤ x - y + z ≤ 2 && x - y - z == 3}, {x, y, z}]ArgMax[{(2x + y - z) / (5x - 7y + 3), 0 ≤ x + y + z ≤ 1 && 1 ≤ x - y + z ≤ 2 && x - y - z == 3}, {x, y, z}]ArgMax[x ^ 2 - 2y - 1 - (x ^ 2 - 2y) ^ 2, {x, y}]ArgMax[{x y - 1, x ^ 2 + y ^ 2 ≤ 1}, {x, y}]ArgMax[{1 - x ^ 2, x y ≥ 1}, {x, y}]ArgMax[{x, x y ≤ 1}, {x, y}]ArgMax[{x, x ^ 2 + y ^ 2 < 0}, {x, y}]ArgMax[{-(x + 7)^2 - (y - 8)^2, Subscript[∀, z]Subscript[∃, w]3 z^2 w + (x + y) z^4 - 1 == (x^3 - x y + y^2 - 1) w^2}, {x, y}]ArgMax[{-x - Sqrt[x + y] , x Sqrt[y] ≥ 1}, {x, y}]ArgMax[{E ^ x + Log[y], x Log[y] == 2 && -10 ≤ x ≤ 10 && 1 / 10 ≤ y ≤ 10}, {x, y}]ArgMax[{-Max[x - y, Abs[y]], Min[x - 2, x - y ^ 2] ≥ Abs[x y - 1]}, {x, y}]ArgMax[v.{1, -1}, {VectorGreaterEqual[{{{1, 0}, {0, 1}, {-1, -2}}.v, {0, 0, -2}}, "ExponentialCone"]}, v]res = ArgMax[{Log[x + y], (| | |
| ----- | ----- |
| x + y | 1 |
| 1 | x - y |)Underscript[, {"SemidefiniteCone", 2}]0 && 1 ≤ x ≤ 10 && -1 ≤ y ≤ 1}, {x, y}]Show[Plot3D[Log[x + y], {x, 1, 10}, {y, -1, 1}, ...], Graphics3D[{Red, PointSize[0.05], Point[Append[res, Log[x + y] /. Thread[{x, y} -> res]]]}]]参数化问题 (4)
ArgMax[{8x + 7y, -6 x - 4 y ≤ 8 - 5 a - 7 b && 7 x + 5 y ≤ a + 4 b && -x + y ≤ 6 + 4a - 5 b && -4 x + 7 y ≤ -1 - 2 a - 7 b && 5 y ≤ 6 - 9 b}, {x, y}]GraphicsRow[Plot3D[#, {a, -3, 3}, {b, 0, 3}, Axes -> False]& /@ %, ImageSize -> Medium]ArgMax[{-(x - 1) ^ 2 - (2y - 1) ^ 2, x + 2y ≤ a + b && 2x - y ≤ a - b + 1 && x - 2y ≤ 2a - b + 1}, {x, y}]GraphicsRow[Plot3D[#, {a, -3, 3}, {b, 0, 3}, Axes -> False]& /@ %, ImageSize -> Medium]ArgMax[-x ^ 4 + a x ^ 2 + b, x]ArgMax[{-x ^ 2 - y ^ 2, x ^ 3 + y ^ 2 == a}, {x, y}]在整数上优化 (3)
ArgMax[{x ^ 3 Log[x] - E ^ x, x > 0}, x, Integers]ArgMax[{2x + 3y - z, 1 ≤ x + y + z ≤ 2 && 1 ≤ x - y + z ≤ 2 && x - y - z == 3}, {x, y, z}, Integers]ArgMax[{-x ^ 2 - x y + 1, x y ≥ 1}, {x, y}, Integers]在区域上优化 (6)
ℛ = Cylinder[{{1, 2, 3}, {3, 2, 1}}, 1];ArgMax[z, {x, y, z}∈ℛ]Graphics3D[{{Opacity[0.5], Green, ℛ}, {Red, PointSize[Large], Point[%]}}]Subscript[ℛ, 1] = Disk[];
Subscript[ℛ, 2] = Line[{{-(1/2), -(1/2)}, {-(1/2), (1/2)}, {(1/2), (1/2)}, {(1/2), -(1/2)}, {-(1/2), -(1/2)}}];ArgMax[(x - u)^2 + (y - v)^2, {{x, y}∈Subscript[ℛ, 1], {u, v}∈Subscript[ℛ, 2]}]//RootReduceGraphics[{{StandardBlue, Subscript[ℛ, 1]}, {Green, Subscript[ℛ, 2]}, {Red, Point[Partition[%, 2]]}}]Subscript[ℛ, 1] = Triangle[{{0, 0}, {1, 0}, {0, 1}}];
Subscript[ℛ, 2] = Circle[{(1/3), (1/3)}, {2 r, r}];ArgMax[{r, {x, y}∈Subscript[ℛ, 1] && {x, y}∈Subscript[ℛ, 2]}, {r, x, y}]Graphics[{{StandardBlue, Subscript[ℛ, 1]}, {Green, Subscript[ℛ, 2]}, {Red, Point[{x, y}]}} /. Thread[{r, x, y} -> %]]Subscript[ℛ, 3] = Disk[{a, b}, {r, 2 - r}];ArgMax[{r, ({0, 0} | {1, 0} | {0, 1})∈Subscript[ℛ, 3]}, {a, b, r}]Graphics[{{StandardBlue, Subscript[ℛ, 3]} /. Thread[{a, b, r} -> %], {Red, Point[{{0, 0}, {1, 0}, {0, 1}}]}}]ℛ = Sphere[];ArgMax[x.{1, 2, 3}, x∈ℛ]Subscript[ℛ, 1] = Triangle[{{0, 0}, {1, 0}, {0, 1}}];
Subscript[ℛ, 2] = Disk[{2, 2}, 1];ArgMax[(x - y).(x - y), {x∈Subscript[ℛ, 1], y∈Subscript[ℛ, 2]}]//RootReduceGraphics[{{StandardBlue, Subscript[ℛ, 1], Subscript[ℛ, 2]}, {Red, Point[%]}}]选项 (2)
Method (1)
指定 ArgMax 应使用柱形代数分解:
maxcad = ArgMax[{x ^ 2 - y ^ 3 + 2x y, x ^ 2 + y ^ 2 == 1}, {x, y}, Method -> "CAD"]maxlm = ArgMax[{x ^ 2 - y ^ 3 + 2x y, x ^ 2 + y ^ 2 == 1}, {x, y}, Method -> "LagrangeMultipliers"]maxdef = ArgMax[{x ^ 2 - y ^ 3 + 2x y, x ^ 2 + y ^ 2 == 1}, {x, y}]RootReduce[maxcad] === RootReduce[maxlm] === RootReduce[maxdef]WorkingPrecision (1)
TimeConstrained[ArgMax[{x ^ 2 + y ^ 2 + z ^ 2, x ^ 2 - 3 x y z + 9 z ^ 2 + y ^ 2 == E && x y z ≤ Pi}, {x, y, z}], 60]如果设置 WorkingPrecision->200,得到的是近似最大值点:
ArgMax[{x ^ 2 + y ^ 2 + z ^ 2, x ^ 2 - 3 x y z + 9 z ^ 2 + y ^ 2 == E && x y z ≤ Pi}, {x, y, z}, WorkingPrecision -> 200]//Timing应用 (15)
基本应用 (3)
ArgMax[{x y, 2x + 2y == 1 && x > 0 && y > 0}, {x, y}]triangle = a > 0 && b > 0 && c > 0 && a + b > c && a + c > b && b + c > a;
s = 1 / 2(a + b + c);ArgMax[{Sqrt[s(s - a)(s - b)(s - c)], triangle && a + b + c == 1}, {a, b, c}]ArgMax[ {v Sin[α] t - 5 t ^ 2, t ≥ 0 && 0 < Sin[α] ≤ 1 && v > 0}, t]Refine[%, 0 < Sin[α] ≤ 1 && v > 0]几何距离 (9)
区域 ℛ 中距给定点 p 最远的点 q 由 ArgMax[{Norm[p-q],q∈ℛ},q] 给出. 求 Disk[] 中距 {1,1} 最远的点:
p = {1, 1};
ℛ = Disk[];q = Simplify@ArgMax[Norm[p - {q1, q2}], {q1, q2}∈ℛ]Graphics[{{StandardBlue, EdgeForm[Gray], ℛ}, {Red, Point[{p, q}]}, {Dashed, Line[{p, q}]}}]求标准单位单纯形 Simplex[2] 中距 {1,2} 最远的点:
p = {1, 2};
ℛ = Simplex[{{0, 0}, {1, 0}, {0, 1}}];q = Simplify@ArgMax[Norm[p - {q1, q2}], {q1, q2}∈ℛ]Graphics[{{StandardBlue, EdgeForm[Gray], ℛ}, {Red, Point[{p, q}]}, {Dashed, Line[{p, q}]}}]求标准单位球面 Sphere[] 上距 {1,1,1} 最远的点:
p = {1, 1, 1};
ℛ = Sphere[];q = Simplify@ArgMax[Norm[p - {q1, q2, q3}], {q1, q2, q3}∈ℛ]Graphics3D[{{Opacity[0.5], ℛ}, {Red, Point[{p, q}]}, {Dashed, Line[{p, q}]}}]求标准单位单纯形 Simplex[3] 中距 {-1,1,1} 最远的点:
p = {-1, 1, 1};
ℛ = Simplex[{{0, 0, 0}, {1, 0, 0}, {0, 1, 0}, {0, 0, 1}}];q = Simplify@ArgMax[Norm[p - {q1, q2, q3}], {q1, q2, q3}∈ℛ]Graphics3D[{{Opacity[0.5], ℛ}, {Red, Point[{p, q}]}, {Dashed, Line[{p, q}]}}]区域 ℛ 的直径是 ℛ 中两点间的最大距离,可以用 ArgMax[Norm[p-q],{q∈ℛ,p∈ℛ}] 来计算. 求 Circle[] 的直径:
ℛ = Circle[];{pt, qt} = ArgMax[Norm[p - q], {q∈ℛ, p∈ℛ}]Norm[pt - qt]//SimplifyGraphics[{{ℛ}, {Red, Point[{pt, qt}]}, {Dashed, Line[{pt, qt}]}}]求标准单位单纯形 Simplex[2] 的直径:
ℛ = Simplex[{{0, 0}, {1, 0}, {0, 1}}];{pt, qt} = ArgMax[Norm[p - q], {q∈ℛ, p∈ℛ}]Norm[pt - qt]Graphics[{{StandardBlue, EdgeForm[Gray], ℛ}, {Red, Point[{pt, qt}]}, {Dashed, Line[{pt, qt}]}}]求标准单位立方体 Cuboid[] 的直径:
ℛ = Cuboid[];{pt, qt} = ArgMax[Norm[p - q], {q∈ℛ, p∈ℛ}]Norm[pt - qt]//SimplifyGraphics3D[{{Opacity[0.5], ℛ}, {Red, Point[{pt, qt}]}, {Dashed, Line[{pt, qt}]}}]可以用 ArgMax[Norm[p-q],{p∈,q∈}] 来找出距离最远的两个点 p∈ 和 q∈. 找出 Disk[{0,0}] 和 Rectangle[{3,3}] 中距离最远的两个点:
𝒫 = Disk[{0, 0}]; 𝒬 = Rectangle[{3, 3}];{pt, qt} = Simplify@ArgMax[Norm[p - q], {p∈𝒫, q∈𝒬}]Norm[pt - qt]//SimplifyGraphics[{{StandardBlue, EdgeForm[Gray], 𝒫, 𝒬}, {Red, Point[{pt, qt}]}, {Dashed, Line[{pt, qt}]}}]找出 Line[{{0,0,0},{1,1,1}}] 和 Ball[{5,5,0},1] 中距离最远的两个点:
𝒫 = Line[{{0, 0, 0}, {1, 1, 1}}]; 𝒬 = Ball[{5, 5, 0}, 1];{pt, qt} = Simplify@ArgMax[Norm[p - q], {p∈𝒫, q∈𝒬}]Norm[pt - qt]//SimplifyGraphics3D[{{𝒫, {Opacity[0.5], 𝒬}}, {Red, Point[{pt, qt}]}, {Dashed, Line[{pt, qt}]}}]几何中心 (3)
如果 ℛ⊆n 是一个全维区域,则切比雪夫中心是使得 -SignedRegionDistance[ℛ,p] 最大化的点 p∈ℛ,即到补区域的距离. 求 Disk[] 的切比雪夫中心:
ℛ = Disk[];p = ArgMax[-SignedRegionDistance[ℛ, {p1, p2}], {p1, p2}∈ℛ]Graphics[{{StandardBlue, EdgeForm[Gray], ℛ}, {Red, Point[p]}}]求 Rectangle[] 的切比雪夫中心:
ℛ = Rectangle[];p = ArgMax[-SignedRegionDistance[ℛ, {p1, p2}], {p1, p2}∈ℛ]Graphics[{{StandardBlue, EdgeForm[Gray], ℛ}, {Red, Point[p]}}]区域的解析中心由不等式 ℛ=ImplicitRegion[f1[x]≥0∧⋯∧fm[x]≥0,x] 定义,可通过 ArgMax[{Log[f1[x]⋯ fm[x]],x∈ℛ},x] 求出. 求 Triangle[{{0,0},{1,0},{0,1}}] 的解析中心:
RegionMember[Triangle[{{0, 0}, {1, 0}, {0, 1}}], {x, y}]{f1, f2, f3} = {x, y, 1 - x - y};c = ArgMax[Log[f1 f2 f3], {x, y}∈Triangle[{{0, 0}, {1, 0}, {0, 1}}]]Graphics[{{StandardBlue, EdgeForm[Gray], Triangle[{{0, 0}, {1, 0}, {0, 1}}]}, {Red, Point[c]}}]求 Cylinder[] 的解析中心:
RegionMember[Cylinder[], {x, y, z}]{f1, f2, f3} = {(1 + z) / 2, 1 - (1 + z) / 2, 1 - (x^2 + y^2)};c = ArgMax[Log[f1 f2 f3], {x, y, z}∈Cylinder[]]Graphics3D[{{Opacity[0.3], Cylinder[]}, {Red, Point[c]}}]属性和关系 (4)
Maximize 给出最大值和最大化点:
Maximize[{x - 2y, x ^ 2 + y ^ 2 ≤ 1}, {x, y}]ArgMax 给出精确的全局最大化点:
f = Expand[-Product[(x - i)(x - 100 - i), {i, 5}]];ArgMax[f, x]Plot[f, {x, 0, 100}, Epilog -> {PointSize[Medium], Green, Point[{%, f /. x -> %}]}]NArgMax 试图用数值法求出全局最大化点,但有可能只找到局部最大化点:
NArgMax[f, x]Plot[f, {x, 0.5, 5.5}, Epilog -> {PointSize[Medium], Red, Point[{%, f /. x -> %}]}]FindArgMax 求出取决于起始点的局部最大化点:
FindArgMax[f, {x, #}]& /@ {1, 50}Plot[f, {x, 0, 100}, Epilog -> {PointSize[Medium], {Red, Point[{%[[1, 1]], f /. x -> %[[1, 1]]}]}, {Green, Point[{%[[2, 1]], f /. x -> %[[2, 1]]}]}}]m = ArgMin[{(x - 2) ^ 2 + (y - 3 / 2) ^ 2, x ^ 2 + y ^ 2 ≤ 1}, {x, y}]x ^ 2 + y ^ 2 ≤ 1 /. Thread[{x, y} -> m]RegionPlot[x ^ 2 + y ^ 2 ≤ 1, {x, -1.2, 2.2}, {y, -1.2, 2.2}, Epilog -> {PointSize[Medium], {Red, Point[m]}, {Green, Point[{2, 3 / 2}]}}]如果取不到最大值,ArgMax 可能会给出一个边界上的点:
ArgMax[{(x - 2) ^ 2 + (y - 3 / 2) ^ 2, x ^ 2 + y ^ 2 < 1}, {x, y}]ArgMax[{1 - x, x y == 1 && x > 0}, {x, y}]ArgMax 可以解决线性优化问题:
res = ArgMax[{2x + 3y - z, 1 ≤ x + y + z ≤ 2 && 1 ≤ x - y + z ≤ 2 && x - y - z == 3}, {x, y, z}]LinearOptimization 可以通过否定目标来解决相同的问题:
LinearOptimization[-(2x + 3y - z), {1 ≤ x + y + z ≤ 2 && 1 ≤ x - y + z ≤ 2
&& x - y - z == 3}, {x, y, z}]可能存在的问题 (2)
ArgMax[{1 - x ^ 2, x y ≥ 1}, {x, y}]ArgMax[{x, x y ≤ 1}, {x, y}]ArgMax[{x, x ^ 2 + y ^ 2 < 0}, {x, y}]ArgMax 要求所有输入的函数为实值函数:
ArgMax[{-x - y, Sqrt[x] - Sqrt[y] == 0}, {x, y}]{Sqrt[x] - Sqrt[y] == 0, Sqrt[x], Sqrt[y]} /. {x -> -1, y -> -1}技术笔记
-
▪
- 不等式 ▪
- 最小化和最大化 ▪
- 约束条件下的优化 ▪
- 无约束条件下的优化 ▪
- 实用说明:代数和微积分
相关指南
-
▪
- 最优化 ▪
- 符号向量、矩阵和数组 ▪
- 离散微积分 ▪
- 区域上的求解器 ▪
- 凸优化
文本
Wolfram Research (2008),ArgMax,Wolfram 语言函数,https://reference.wolfram.com/language/ref/ArgMax.html (更新于 2021 年).
CMS
Wolfram 语言. 2008. "ArgMax." Wolfram 语言与系统参考资料中心. Wolfram Research. 最新版本 2021. https://reference.wolfram.com/language/ref/ArgMax.html.
APA
Wolfram 语言. (2008). ArgMax. Wolfram 语言与系统参考资料中心. 追溯自 https://reference.wolfram.com/language/ref/ArgMax.html 年
BibTeX
@misc{reference.wolfram_2026_argmax, author="Wolfram Research", title="{ArgMax}", year="2021", howpublished="\url{https://reference.wolfram.com/language/ref/ArgMax.html}", note=[Accessed: 08-September-2026]}
BibLaTeX
@online{reference.wolfram_2026_argmax, organization={Wolfram Research}, title={ArgMax}, year={2021}, url={https://reference.wolfram.com/language/ref/ArgMax.html}, note=[Accessed: 08-September-2026]}