Mathematica重写圆方程

时间:2017-09-05 15:23:38

标签: math geometry wolfram-mathematica

我有一个带有表达式的圆圈:

的x ^ 2 + Y ^ 2 + 10X-14Y-7 = 0

我需要使用Wolfram Mathematica找到半径和圆心的坐标;在Symbolab中,它告诉我以标准日食方程的形式重写表达式。

我知道答案应该是c =(x + 5)^ 2 +(y-7)^ 2 = 81,所以半径是sqrt(81)= 9 ...

这在Mathematica中是如何实现的(我对此非常陌生......)?

谢谢和最诚挚的问候( - :

2 个答案:

答案 0 :(得分:2)

例如,

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

答案 1 :(得分:0)

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}}