Можно.
Код:
f[x_, y_] := (-148504640923875621760000000 x^2 -
133298625456981370003270400 x^4 +
155345624448539944809760000 x y +
287109459912796673247032128 x^3 y -
74093164032542406850295000 y^2 -
146937714377861912000139395 x^2 y^2)/3908016866417779520000000000
Сама система - экстремумы.
Код:
a = Solve[D[f[x, y], x] == 0 && D[f[x, y], y] == 0, {x, y}];
Корни она Вам сама покажет. Округление просто
без указания числа знаков дает
Код:
{{x -> 0., y -> 0.}, {x -> -2.20273 + 1.35432*10^-16 I,
y -> -2.16681 - 3.65834*10^-14 I}, {x ->
2.20273\[VeryThinSpace]- 1.35432*10^-16 I,
y -> 2.16681\[VeryThinSpace]+ 3.65834*10^-14 I}, {x ->
2.9976*10^-14 - 0.734854 I,
y -> -9.2708*10^-13 + 0.0212222 I}, {x -> -2.9976*10^-14 +
0.734854 I,
y -> 9.2708*10^-13 - 0.0212222 I}, {x -> -3.28071*10^-14 -
0.684286 I,
y -> 7.80266*10^-13 - 1.35223 I}, {x -> 3.28071*10^-14 + 0.684286 I,
y -> -7.80266*10^-13 + 1.35223 I}}
@ИСН - я тоже обычно такое думаю про места, где она приближает решения. Там может напортачит - но здесь ей просто надо округлить данные числа, без параметров, только корни и степени.