процедура для определения комплексно сопряжённых
restart;
proverka:=proc(eq)
local i,j,f:=false;
  sol:=[solve(eq, x, explicit = true)];
  for i from 1 to nops(sol) do
    if(Im(sol[i])<>0) then
      for j from i to nops(sol)-1 do
        if(Im(sol[i+1])=-Im(sol[j]) and Re(sol[i+1])=Re(sol[j])) then
           f:=true;
        end if;
      end do;
    end if;
  end do;
f;
end proc:
eqn := x^2 +x + 2 = 0;
solve(eqn, x);
proverka(eqn);

процедура определния наибольшего вещественного корня
restart;
jopa := proc(eq)
sol := solve(eq, x, explicit = true, real);
sol;
end proc:

eq := x^3 + 228*x^2 + 10 = 0;
jopa(eq);
eq:= x^4 - 14*x^2 + 49 = 0;
jopa(eq);

хуета с арифм прогрессией из кода понятно, в конце сумма первых 8 чиленов
restart;
eq:= {a1+a3+a5 = 12, a1*a3*a5 = 80};
a3:= a1 + 2*d;
a5:= a1 + 4*d;
eq;
sol:= [solve(eq, {a1, d}, explicit = true)];
assign(sol[1]);
for i from 1 to 10 do
a1+d*i;
end do;
8*((a1+a1+7*d)/2);
a1*a3*a5;

решение графика где надо найти уравнение , чтобы график проходил через точку -3, 4
restart;
with(plots):
eq:=y1=-2*x1+b;
y1:=-4;
x1:=3;
b1:=solve(eq,b);
y=-2*x+b1;
f := x -> -2*x+b1:
plot(f(x), x = -5..5, color = black,view=[-4..4,-5..4]);