Exact argument that maximizes an expression (optionally subject to constraints and over a Reals or Integers domain)
Difiere de la referencia .wl: `ArgMax` with an invalid constraint form
ArgMax[f, x]
ArgMax[f, {x, y, …}]
ArgMax[{f, cons}, {x, y, …}]
ArgMax[…, x ∈ rdom]
ArgMax[…, …, dom]
ArgMax[-2x ^ 2 - 3x + 5, x]
→ -3/4ArgMax[1 - (x y - 3) ^ 2, {x, y}]
→ {3/y, 3/x}ArgMax[{x - 2y, x ^ 2 + y ^ 2 ≤ 1}, {x, y}]
→ {1/Sqrt[5], -2/Sqrt[5]}