centrKrivoy2por.mws
Центр линии второго порядка
>
restart;
>
with(plots):
>
A:=4:B:=2:C:=4:D1:=-50:E:=-40:
Кривая
>
F:=A*x^2+2*B*x*y+C*y^2+2*D1*x+2*E*y+1;
>
implicitplot(F,x=-10..26,y=-11..21,color=blue);
Координаты центра
>
solve({A*x+B*y+D1,B*x+C*y+E},{x,y});
x = 10, y = 5