# Exercici 02-3-4

'P=P:2*x^4-6*x^3+7*x^2+a*x+a;

Q1:x-(1+%i);

divide(P,Q1);

Eq1:%i*(a+4)+2*a-2*%i+4=0;
solve(Eq1,a);

'P=P:2*x^4-6*x^3+7*x^2-2*x-2;

allroots(P);