LocalMaxima[Exp[-3 x^2 - y^2], {x, y}]