Это механизировано в Мэйпле:
Код:
with(RootFinding[Parametric]):
f := numer(simplify(1/(x+a)^2+1/(2*x+a)^2-1/2));
f := -a^4-6*a^3*x-13*a^2*x^2-12*a*x^3-4*x^4+4*a^2+12*a*x+10*x^2
m := CellDecomposition([f = 0], [x]):
NumberOfSolutions(m);
[[1, 4], [2, 2], [3, 2], [4, 4]]
Последний результат означает, что множество значений параметра расщепляется на четыре подмножества, для каждого из которых уравнение имеет 4, 2, 2, 4 действительные корни. Опишем четвертое из них:
Код:
CellDescription(m, 4);
[[a^6 - 30 a ^4 - 132 a^2 - 1000, 2, a, infinity, 0]]
Решим уравнение
Код:
solve(a^6-30*a^4-132*a^2-1000, a);
-sqrt(10+6*2^(2/3)+12*2^(1/3)), sqrt(10+6*2^(2/3)+12*2^(1/3)), sqrt(10-(3*I)*sqrt(3)*2^(2/3)+(6*I)*sqrt(3)*2^(1/3)-3*2^(2/3)-6*2^(1/3)), -sqrt(10-(3*I)*sqrt(3)*2^(2/3)+(6*I)*sqrt(3)*2^(1/3)-3*2^(2/3)-6*2^(1/3)), sqrt(10+(3*I)*sqrt(3)*2^(2/3)-(6*I)*sqrt(3)*2^(1/3)-3*2^(2/3)-6*2^(1/3)), -sqrt(10+(3*I)*sqrt(3)*2^(2/3)-(6*I)*sqrt(3)*2^(1/3)-3*2^(2/3)-6*2^(1/3))
Описание указывает, что
. См.
справку для дополнительных сведений.