Mathematica réécriture cercle équation

Question

I ont un cercle à l'expression:

x^2 + y^2 + 10x-14y-7 = 0

I besoin de trouver le rayon et les coordonnées du centre du cercle en utilisant Wolfram Mathematica; dans Symbolab il me dit de réécrire l'expression sous la forme de l'équation d'éclipse standard.

je sais que la réponse doit être C = (x + 5)^2 + (y-7)^2 = 81, de sorte que le rayon est sqrt (81) = 9 ...

Comment ce réalisable dans Mathematica (je suis très nouveau à ce sujet ...)?

Merci et meilleures salutations (-:

Answer 1

Par exemple,

SolveAlways[{x^2 + y^2 + 10 x - 14 y - 7 == (x - a)^2 + (y - b)^2 - r^2}, {x, y}] 

Answer 2

Solve[{ 
CoefficientList[x^2 + y^2 + 10 x - 14 y - 7, {x, y}] 
    == 
    CoefficientList[(x - xc)^2 + (y - yc)^2 - r^2, {x, y} ],r>0} 
, {xc, yc, r}] 

{{xc -> -5, YC -> 7, r -> 9}}