Center Definition
# The Center of a Conic
Center:=proc(Conic):
subs(solve({diff(Conic,x),diff(Conic,y)},{x,y}),[x,y]):
end:
# The center of a conic F(x,y)=0 is characterized by the point
(x0,y0) for which
# F_x(x_0,y_0)=0 and F_y(x_0,y_0)=0