K*C 发帖数: 2825 | | k****y 发帖数: 4083 | | R*********r 发帖数: 1855 | 3 NSolve[{(0.36 - 0.063a)/(0.87 - 0.63a) == (Sqrt[
1 + 0.28b] - Sqrt[1 + 0.028b])/(
Sqrt[1 + 2.8b] - Sqrt[1 + 0.28b]), (0.87 - 0.63a)/(
0.25 - 0.7a) == (Sqrt[1 +
2.8b] - Sqrt[1 + 0.28b])/(Sqrt[1 + 6.4b] - Sqrt[1 + 2.8b])}, {a, b}]
{{a -> -15.6945, b -> 0.481683}, {a -> -2.17713, b -> 6.90166}}
自己写程序的话可以先消掉a变成一元方程,然后做个图看看大概情况,再用各种手段
如二分法,牛顿法等等找根。 |
|