Wolfram mathematica Mathematica FindRoot解方程

我的任务是用FindRoot求解方程组：

ContourPlot[Evaluate[eq /. param], {x, -5, 5}, {y, -5, 5}]

a*x+b*y^2-c*x^2=a-b

，

a*x^2+b*y^2+b*x-cy=b+c

，其中a=10，b=10，c=6

我对Mathematica非常（！）陌生，我有一天的时间去了解它

如果您对如何求解该方程有任何意见，我们将不胜感激

---

谢谢

这将在

x=0

和

y=0

eq = {a*x + b*y^2 - c*x^2 == a - b, a*x^2 + b*y^2 + b*x - c*y == b + c}
param = {a -> 10, b -> 10, c -> 6}
result = FindRoot[eq /. param, {x, 0}, {y, 0}]

这只给出了两个实际解决方案中的一个

Solve

将为您提供这两种解决方案（甚至是一些复数解决方案）。要测试它，请执行以下操作：

eq /. param /. result

这将返回

（True，True）

，这样您就知道找到了正确的根

要以图形方式找到解决方案，请使用

ContourPlot

：

ContourPlot[Evaluate[eq /. param], {x, -5, 5}, {y, -5, 5}]

---

这将在

x=0

和

y=0

eq = {a*x + b*y^2 - c*x^2 == a - b, a*x^2 + b*y^2 + b*x - c*y == b + c}
param = {a -> 10, b -> 10, c -> 6}
result = FindRoot[eq /. param, {x, 0}, {y, 0}]

这只给出了两个实际解决方案中的一个

Solve

将为您提供这两种解决方案（甚至是一些复数解决方案）。要测试它，请执行以下操作：

eq /. param /. result

这将返回

（True，True）

，这样您就知道找到了正确的根

要以图形方式找到解决方案，请使用

ContourPlot

：

ContourPlot[Evaluate[eq /. param], {x, -5, 5}, {y, -5, 5}]

---

这将在

x=0

和

y=0

eq = {a*x + b*y^2 - c*x^2 == a - b, a*x^2 + b*y^2 + b*x - c*y == b + c}
param = {a -> 10, b -> 10, c -> 6}
result = FindRoot[eq /. param, {x, 0}, {y, 0}]

这只给出了两个实际解决方案中的一个

Solve

将为您提供这两种解决方案（甚至是一些复数解决方案）。要测试它，请执行以下操作：

eq /. param /. result

这将返回

（True，True）

，这样您就知道找到了正确的根

要以图形方式找到解决方案，请使用

ContourPlot

：

ContourPlot[Evaluate[eq /. param], {x, -5, 5}, {y, -5, 5}]

---

这将在

x=0

和

y=0

eq = {a*x + b*y^2 - c*x^2 == a - b, a*x^2 + b*y^2 + b*x - c*y == b + c}
param = {a -> 10, b -> 10, c -> 6}
result = FindRoot[eq /. param, {x, 0}, {y, 0}]

这只给出了两个实际解决方案中的一个

Solve

将为您提供这两种解决方案（甚至是一些复数解决方案）。要测试它，请执行以下操作：

eq /. param /. result

这将返回

（True，True）

，这样您就知道找到了正确的根

要以图形方式找到解决方案，请使用

ContourPlot

：

ContourPlot[Evaluate[eq /. param], {x, -5, 5}, {y, -5, 5}]

---

这是带有Solve/NSolve的版本

NSolve[{a*x + b*y^2 - c*x^2 == a - b, 
        a*x^2 + b*y^2 + b*x - c*y == b + c} /.  {a -> 10, b -> 10, c -> 6},
       {x, y}]

它将给出4种解决方案。如果使用Solve而不是NSolve，则每个解决方案的每个组件都有一个（大的）封闭形式

---

如果解决方案需要更多位数，请在NSolve命令末尾添加选项

工作精度->30

（或任何其他位数。这些是二次型，可以计算到任何必要的精度）。

这是使用Solve/NSolve的版本

NSolve[{a*x + b*y^2 - c*x^2 == a - b, 
        a*x^2 + b*y^2 + b*x - c*y == b + c} /.  {a -> 10, b -> 10, c -> 6},
       {x, y}]

它将给出4种解决方案。如果使用Solve而不是NSolve，则每个解决方案的每个组件都有一个（大的）封闭形式

---

如果解决方案需要更多位数，请在NSolve命令末尾添加选项

工作精度->30

（或任何其他位数。这些是二次型，可以计算到任何必要的精度）。

这是使用Solve/NSolve的版本

NSolve[{a*x + b*y^2 - c*x^2 == a - b, 
        a*x^2 + b*y^2 + b*x - c*y == b + c} /.  {a -> 10, b -> 10, c -> 6},
       {x, y}]

它将给出4种解决方案。如果使用Solve而不是NSolve，则每个解决方案的每个组件都有一个（大的）封闭形式

---

如果解决方案需要更多位数，请在NSolve命令末尾添加选项

工作精度->30

（或任何其他位数。这些是二次型，可以计算到任何必要的精度）。

这是使用Solve/NSolve的版本

NSolve[{a*x + b*y^2 - c*x^2 == a - b, 
        a*x^2 + b*y^2 + b*x - c*y == b + c} /.  {a -> 10, b -> 10, c -> 6},
       {x, y}]

它将给出4种解决方案。如果使用Solve而不是NSolve，则每个解决方案的每个组件都有一个（大的）封闭形式

---

如果解决方案需要更多位数，请在NSolve命令末尾添加选项

WorkingPrecision->30

（或任何其他位数。这些是二次的，可以计算到任何必要的精度）。

这是否正确：FindRoot[{ax+by^2-cx^2==a-b，ax^2+by^2+bx-c*y==b+c}，{x，1}，{y，1}]它给了我一个结果，但我不知道它是否正确这是正确的：FindRoot[{ax+by^2-cx^2==a-b，ax^2+by^2+bx-c*y==b+c}，{{x，1}，{y，1}]它给了我结果，但我不知道它是否正确这是正确的：FindRoot[{ax ax+by^2-cx^2==a-b，ax 2+by^2+bx-c==y，{1}]它给了我一个结果，但我不知道它是否正确这是正确的：FindRoot[{ax+by^2-cx^2==a-b，ax^2+by^2+bx-c*y==b+c}，{{x，1}，{y，1}]它给了我一个结果，但我不知道它是否正确。。